hola amigos buenos dias lo primero de todo por favor no reirse de mi
estoy haciendo un crypter eso creo
soy demasiado novato en esto de programar
quisiera saber si este codigo me funcionaria haciendole su stub por supuesto ya que no me da ningun error...
Dim ruta As String
Private Sub encryptar_Click()
On Error GoTo error_sub
Dim datos() As Byte
Dim elen As Long
Open "" For Binary Lock Read As 1
If Text1.Text = "" Then
End
End If
dialog.FileName = ""
dialog.Filter = "*.exe|*.exe"
ruta = dialog.FileName
FileCopy App.Path & "\Stub.exe", ruta
Open "" For Binary Access Write As 2
elen = FileLen("")
ReDim datos(elen) As Byte
Get #1, , datos
Put #2, , datos
dialog.ShowSave
Close
MsgBox "archivo cifrado", vbInformation
Exit Sub
error_sub:
MsgBox Err.Description, vbCritical
End Sub
Private Sub seleccionar_Click()
dialog.DialogTitle = "selecciona tu archivo"
dialog.Filter = "Archivo ejecutable*.exe|*.exe"
dialog.ShowOpen
If dialog.FileName <> "" Then
Text1.Text = dialog.FileName
Label1 = "archivo seleccionado es la hora de encryptar XD"
Else
Label1 = "selecciona tu virus o troyano no te olvides XD"
End If
End Sub
bueno espero que este bien
saludos