diff options
Diffstat (limited to 'cipher.sts')
-rw-r--r-- | cipher.sts | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -4,6 +4,10 @@ defword ciphernew 0 exit +defword mod + swap / drop +exit + defword cipher ; ... passwd plen ppos key 3 get 2 get + @ xor ; key = key ^ passwd[ppos] over 1 + 3 get mod 2 set ; ppos = (ppos + 1) % plen |