# (de)crypt key, only the 16 first chars are used
variable skey "This KeY is pr1v4t3"

proc aeskey {key} {
   if {[string length $skey]>16} {
      # Clé trop longue, on ne prend que les 16 premiers caractères
      set key [string range $key 0 15]
   } elseif {[string length $key]>16} {
      # Clé trop courte, on complète avec des 0 à la fin
      set key [format "%-016s" $key]
   }
   return $key
}

proc encrypt {key text} {
   set key [aeskey $key]
   return [::aes::aes -dir encrypt -key $key $text]
}
proc decrypt {key text} {
   set key [aeskey $key]
   return [::aes::aes -dir decrypt -key $key $text]
}

package require aes