xor-crypt ( seq key -- seq' )

Vocabulary

crypto.xor

Inputs

seq	an object
key	an object

Outputs

seq'

an object

Definition

USING: kernel math sequences ;

IN: crypto.xor

: xor-crypt ( seq key -- seq' )
    [ empty-xor-key ] when-empty [ dup length <iota> ] dip
    [ mod-nth bitxor ] curry 2map ;