Code:

array set sentcode {}bind pub o|o "!gencode" gencodeproc gencode {nick uhost handle chan text} {   set args [split $text]   if {[llength $args]!=1} {      putserv "PRIVMSG $nick :usage is !gencode <victim>"      return 1   }   set victim [join [lindex $args 0]]   if {![onchan $victim]} {      putserv "PRIVMSG $nick :Can't find $victim"      return 1   }   set code [randString 8 8]   set ::sentcode([string tolower $victim]) $code   putserv "PRIVMSG $victim :your code is $code"}bind pub - "!code" getcodeproc getcode {nick uhost handle chan text} {   set args [split $text]   set victim [string tolower $nick]   if {[llength $args]!=1} {      putserv "PRIVMSG $nick :usage is !code <your code>"      return 1   }   if {![info exists ::sentcode($victim)]} {      putserv "PRIVMSG $nick :I'm not waiting a code from you"      return 1   }   set code [join [lindex $args 0]]   if {$::sentcode($victim) eq $code} {      putserv "PRIVMSG $nick :Ok"      unset ::sentcode($victim)   } else {      putserv "PRIVMSG $nick :Error with the code"      return 1   }}# usage : randString <min> <max>proc randString { {min 1} {max 8} } {   set chars "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"   set size [expr {int(rand()*($max-$min+1)+$min)}]   set range [string length $chars]   set txt ""   for {set i 0} {$i < $size} {incr i} {      set pos [expr {int(rand()*$range)}]      append txt [string index $chars $pos]   }   return $txt}