>echo abc>corpus

>echo def>key

>perl -e"undef$/;print<>^<>" corpus key >enc

>debug enc
-rcx
CX 0004
:
-d100 l4
0AFB:0100  05 07 05 00                                       ....
-q

>perl -e"undef$/;print<>^<>" enc key >dec

>type dec
abc