blob: cdcdc308c62eedfd5715809ae1ff22513bbf099e (
plain)
1
2
3
4
5
6
7
8
9
10
|
defword cipher
3 ref as cipher.byte
2 get as cipher.password
1 get as cipher.len
0 get as cipher.pos
cipher.pos @ cipher.password + @ cipher.byte @ xor cipher.byte !
cipher.pos @ 1 + cipher.pos !
cipher.pos @ cipher.len = if 0 cipher.pos ! fi
drop drop drop
exit
|