ENTRAR EN EL FOROHACK ANTIGUO (Muchos temas viejos y de menor nivel)
09:11:32 16/09/2019
¿No estas registrado?
Login: Clave:
3 Usuarios en línea: 0 registrados, 3 invitados.
Conéctate y verás los usuarios en línea
Tema: Facebook-BotSPAM.
    Responder
Todos Los Foros -> Perl / Phyton -> Facebook-BotSPAM.
Autor Mensaje (Ver Versión para Imprimir)
s3cure
Usuario Enfermo
Arreglando las imágenes

Mensajes: 69
Registrad@:
07/01/2010
Estado: Desconectad@
Facebook-BotSPAM.

Buenas.

Un bot que postea de mánera infinita en comentarios :P


Se necesite OLE y SAMIE (SAMIE sólo con activeperl 5.8). Es only guinbugs :)

CÓDIGO
#!c:/perl/bin
#c0dex by m0x.lk || HSLTeam.com
# Facebook-spam

system("cls");
system("color 03");
print "\nFacebook-spam\n";
print "c0dex by m0x.lk || HSLTeam.com\n";
print "Start SPAM -\n\n";

use Win32::OLE;
use Win32::SAM;

my $post;
my $text;
my $email;
my $pass;

$| = 1;

$Win32::OLE::Warn = 3;

print "Email: ";
$email=<STDIN>;
print "Passwd: ";
$pass=<STDIN>;
print "\nMURO-SPAM: ";
$post=<STDIN>;
print "Text-SPAM: ";
$text=<STDIN>;

print "\nStart-SPAM ++ (Ctrl + C to Close Script)\n";

StartIE();

Navigate("http://www.facebook.com/logout.php?h=adec46c20c48ec123573248cb3c2e6b5&t=1259627549&ref=mb");
SetEditBox("email","$email");
SetEditBox("pass","$pass");
ClickFormButton("Entrar");

spam: ;
Navigate("$post");
SetEditBox("add_comment_text","$text");
ClickFormButton("comment");
goto spam;




salu2.


Creer que todo es genial para luego ver realidad.
10/01/2010 18:18:47 


REGÍSTRATE PARA PODER ENVIAR UN MENSAJE (tardas 20 segundos)

Copyright ForoHack.com