Code:

proc obfuscate code {foreach c [split $code ""] {set tmp($c) ""}set chrs [array names tmp]set i [array size tmp]set forward [set back [list]]foreach c $chrs {set r [expr {int(rand()*$i)}]incr i -1lappend forward $c [lindex $chrs $r]set back [concat [list [lindex $chrs $r] $c] $back]set chrs [lreplace $chrs $r $r]}# EDIT 3: added this ifif {rand()>0.5} {set cmd "if [expr {int(rand()*(1<<24))}]"} {set cmd eval}set code "[rndesc $cmd] \[[rndesc "string map"] [list $back [string map $forward $code]]\]"}proc obfuscateFile file {set f [open $file r+]puts $f [obfuscate [read $f][seek $f 0]]close $f}# EDIT 2: added this little sucker to hide the cleartext commands a bit :)proc rndesc str {set o ""foreach c [split $str ""] {if {[string is space $c]} {append o $c} {append o [switch [expr {int(rand()*3)}] {0 {format \\%o [scan $c %c]}1 {format \\x%x [scan $c %c]}2 {format \\u%.4x [scan $c %c]}}]}}set o}