[SOLUCIONADO] Error al terminar el crypter de vb6
Publicado: 05 Jun 2009, 05:13
Hola pues estoy empezando a programar mi crypter basandome en el video-tutorial de skyweb07
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...
yo lo tengo asi y me da este error:
gracias y saludos
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 Subgracias y saludos
