cipher.sts


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