Un simple script que hice para trolear hasta el infinito en juegos online u otras cosas en las cuales mandan un mensaje por cada enter.
El codigo
#!usr/bin/perl
#Come on Spam Now 0.1
#Coded By Doddy H
#ppm install http://www.bribes.org/perl/ppm/Win32-GuiTest.ppd
use Win32::GuiTest qw(SendKeys);
use Time::HiRes "usleep";
$|++;
head();
my $tiempo_final;
my $tiemponow = time;
print "[+] Text to Flood : ";
chomp( my $your_text = <stdin> );
print "\n[+] Duration of attack : ";
chomp( my $hasta = <stdin> );
print "\n[+] Sleep Time : ";
chomp( my $tiempo = <stdin> );
$hasta = $hasta + 10;
if ( $tiempo ne "" ) {
$tiempo_final = $tiempo;
}
else {
$tiempo_final = 0;
}
print "\n[+] Select the window to destroy\n";
print "\n[+] Wait 5 seconds\n";
sleep(5);
print "\n[+] Come on Spam Now !!!!!!!\n";
while ( time - $tiemponow < $hasta ) {
sleep($tiempo_final);
SendKeys($your_text);
SendKeys("{ENTER}");
}
print "\n[+] Finished\n";
copyright();
#Functions
sub head {
my @logo = (
"#=============================================#", "\n",
"# Come On Spam Now 0.1 #", "\n",
"#---------------------------------------------#", "\n",
"# Written By Doddy H #", "\n",
"# Email: lepuke[at]hotmail[com] #", "\n",
"# Website: doddyhackman.webcindario.com #", "\n",
"#---------------------------------------------#", "\n",
"# The End ? #", "\n",
"#=============================================#", "\n"
);
print "\n";
marquesina(@logo);
print "\n";
}
sub copyright {
my @fin = ("-- == (C) Doddy Hackman 2013 == --");
print "\n";
marquesina(@fin);
print "\n\n";
<stdin>;
exit(1);
}
sub marquesina {
#Effect based in the exploits by Jafer Al Zidjali
my @logo = @_;
my $car = "|";
for my $uno (@logo) {
for my $dos ( split //, $uno ) {
$|++;
if ( $car eq "|" ) {
mostrar( "\b" . $dos . $car, "/" );
}
elsif ( $car eq "/" ) {
mostrar( "\b" . $dos . $car, "-" );
}
elsif ( $car eq "-" ) {
mostrar( "\b" . $dos . $car, "\\" );
}
else {
mostrar( "\b" . $dos . $car, "|" );
}
usleep(40_000);
}
print "\b ";
}
sub mostrar {
print $_[0];
$car = $_[1];
}
}
#The End ?