pero a mi me da error en una parte dice que falta cerrarlo y ya trate pero no pude les dejo el codigo a ver si me pueden ayudar...
Código: Seleccionar todo
Dim stub As String, archivo As String
If txtarchivo.Text = vbNullString Then
MsgBox "Primero elija un archivo a encryptar!", vbExclamation, Me.Caption
Exit Sub
Else
Open App.Path & "\stub.exe" For Binary As #1
stub = Space(LOF(1))
Get #1, , stub
Close #1
With CD
.DialogTitle = "elija donde quiere guardar el archivo"
.Filter = "aplicaciones EXE|*.exe"
.ShowSave
End With
If Not CD.FileName = vbNullString Then
archivo = RC4(archivo, "fexx")
Open CD.FileName For Binary As #1
Put #1, , stub & "##$$##" & archivo & "##$$##"
Close #1
MsgBox "archivo encryptado correctamente", vbInformation, Me.Caption
End Sub
gracias y saludos
