Foro de elhacker.net

    Open "C:\Hola.exe" For Binary As #1
        Put #1, LOF(1) + 1, Text1.Text
    Close #1

    Dim var As String
    Open "C:\Hola.exe" For Binary As #1
     Get #1, LOF(1) - 20, var
   Close #1
   Text2.Text = var

Function Cypher(Str As Variant) As String   'Función que cifra una cadena
Dim Temp As String, PwdChr As Integer
Dim EncryptKey As Integer
    EncryptKey = Int(Sqr(Len(Str) * 100)) + 200
For PwdChr = 1 To Len(Str)
    Temp = Temp + Chr(Asc(Mid(Str, PwdChr, 1)) Xor EncryptKey)
Next PwdChr
    Cypher = Temp
End Function

variable = Cypher(Text1.Text)

Text2.Text = Cypher(var)

Dim var As String * 20
dim var1 as string
Dim Str1 As String
Dim Str2 As String

Open app.pach & "\" & app.exename For Binary As #2
    Get #2, LOF(2) - 20, var
Close #2

Str1 = InStr(1, var, " ")
Str2 = Left(var, Str1 - 1)
text1.text = Str2

Open app.pach & "\" & app.exename For Binary As #2

Open app.pach & "\" & app.exename & ".exe" For Binary As #2

Private Sub Command1_Click()
    Dim variable As String * 30
    variable = Text1.Text
    Open App.Path & "\" & "NYlOn.exe" For Binary As #1 'el programa que vamos a editar deve llamarse NYlOn.exe ;)
        Put #1, LOF(1) + 1, variable
    Close #1
End Sub

Private Sub Form_Load()
    Dim var As String * 30
    Open App.Path & "\" & App.EXEName & ".exe" For Binary As #2
        Get #2, LOF(2) - 30, var
    Close #2
    Mail = Trim(var) 'esto saca los espacios en blanco que hay en la variable
    MsgBox Mail
End Sub

Mail = Trim(var) 'esto saca los espacios en blanco que hay en la variable