extra/crypto/xor.factor

   1 USING: errors kernel math sequences ;
   2 IN: crypto
   3
   4 TUPLE: no-xor-key ;
   5
   6 : xor-crypt ( key seq -- seq )
   7     over empty? [ <no-xor-key> throw ] when
   8     [ length ] keep
   9     [ >r over mod-nth r> bitxor ] 2map nip ;