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?