tcl code for detection wormhole attack with udg connectivity model in wsn

hi
I need tcl source code for detection wormhole attack with unit disk graph as connectivity model in wsn
please help me....
my email: mi_sokut[at]yahoo.com