Code:

# Make http://www.rootshell.be/~netgate/netgate.tcl a bit easier to # read (I didn't verify that it runs fine after the conversion, but# who would want to run that sucky script anyway, right? :P)## Usage: change the variables below before you source this script in# your eggdrop. eggdrop is needed because parts of the descrambling is# done using eggdrop's 'decrypt' commandset infile scripts/netgate.tclset outfile scripts/netgate.fixed.tcl# The main (de)scrambler proc# Escaping is honored for ['s but not the ], $ and space# - Don't ask me why... I just reproduce the output of the originalproc lines str {# The part swapping L with 0 and 0 with L reminds me of my# first reaction when i saw the netgate.tcl code :Pset map {a z z a b y y b c x x c d w w d e v v e f u u f g tt g h s s h i r r i j q q j k p p k l o o l m n n mA Z Z A B Y Y B C X X C D W W D E V V E F U U F G TT G H S S H I R R I J Q Q J K P P K L O O L M N N M}if {[regexp {[\$\[~]+} $str]} {set out ""set s ""set p "";# previous charforeach c [split $str ""] {if {$s==""} {if {$c=="~"} {set s ~} elseif {$c=="\$"} {set s " "; set c ~$c} elseif {$c=="\[" && $p!="\"} {set s "\]"; set c ~$c} else {set c [string map $map $c]}} elseif {$c=="~"} {set s ""} elseif {$c==$s} {set s ""; append c ~}append out [set p $c]}if {$s==""} {set out} {append out ~}} {string map $map $str}}proc puthlp str {set str "puthelp "[string map {~ ""} [lines $str]]""}proc putsrv str {set str "putserv "[string map {~ ""} [lines $str]]""}proc putqck str {set str "putquick "[string map {~ ""} [lines $str]]""}proc dcp str {set str "[qesc [decrypt 64 $str]]"}proc dezip str {if {[string match {*\\*} $str]} {set str [subst -noc -nov $str]}set str [qesc [decrypt 64 [string map {~ ""} $str]]]}proc qesc str {set out ""foreach c [split [string map {\\ \\\\ \[ \\\[ \] \\\] \{ \\\{\} \\\} \$ \\\$ " \\" " " "\\ "} $str] ""] {if {[set i [scan $c %c]]>31 && $i<127} {append out $c} {append out [format \\%.3o $i]}}set out}proc clearify {var cmdstart {stderr stdout}} {upvar 1 $var codeset off [string len $cmdstart]set cmd [lindex [split $cmdstart " "] 0]set off2 [string match {\[*} $cmdstart]if {$off2} {set cmd [string range $cmd 1 end]}incr off2#puts $stderr "*** running "$cmd""set c 0foreach line [split [set code][set code ""] \n] {incr cset i 0set ll [string len $line]while {$i<$ll && [set i [string first $cmdstart $line $i]]>-1} {set j [expr {$i+$off+1}]while {$j<$ll && ![info complete [set run [string range $line $i $j]]]} {incr j}if {[info complete $run]} {# lame hack because this was the only command with more arguments :Pif {$cmdstart=={[decrypt 64 "}} {set res [decrypt 64 [string range $run $off end-$off2]]} {set res [$cmd [string range $run $off end-$off2]]}set line [string replace $line $i $j $res]} {#puts $stderr "line#$c INCOMPLETE: "$run""break}incr i}append code "$line\n"}#puts $stderr "*** done: "$cmd""}proc indent {code {dent {}}} {set out ""set i 0foreach line [split $code \n] {set line [string trimleft $line]foreach {o c e} {0 0 0} breakforeach a [split $line ""] {if {$e} {set e 0; continue}switch -exact -- $a {"\" {set e 1}"\{" {incr o}"\}" {if {$o} {incr o -1} {incr c}}}}incr i -$cappend out [string repeat $dent $i]$line\nincr i $o}set out}set code [read [set f [open $infile]]]; close $fclearify code {[decrypt 64 "}clearify code {[lines "}clearify code {[dcp "}clearify code {[dezip "}clearify code {puthlp "}clearify code {putsrv "}clearify code {putqck "}set f [open $outfile w]puts $f [indent [set code]][unset code]close $fputlog "Check $outfile :)"# It's a bit of a mess, but it does the job. Have fun :P