Foro de elhacker.net

hola amigos buenos dias lo primero de todo por favor no reirse de mi  :¬¬
estoy haciendo un crypter eso creo  ;D
soy demasiado novato en esto de programar  ;D
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  ;D

saludos

Otro que empieza el tejado de la casa antes que los cimientos. Estudia programacion y luego veras si funciona o no. Ademas si supieras para que sirve: "On Error GoTo error_sub" No preguntarias el porque te compila.

si esque amigo ya estoy harto de modificar offsets  :rolleyes: yo quiero crear mis herramientas bueno el libro de aprender visual basic como si estuvieras en primero me aconsejas ese u otro?