In progress

 proc XOR args {
   set work [lindex $args 0]
   set args [lrange $args 1 end]
   foreach item $args {

   }
 }
 proc leftshift {current polynominals} {
   set result {}
   foreach selector $polynominals {

   }
 }



[Category Cryptography]