1 2 3 4 5 6 7 8 9 10
defword cipher 3 ref as byte 2 get as password 1 get as plen 0 get as pos pos @ password + @ byte @ xor byte ! pos @ 1 + pos ! pos @ plen = if 0 pos ! fi drop drop drop exit