aboutsummaryrefslogtreecommitdiff
path: root/cipher.sts
diff options
context:
space:
mode:
Diffstat (limited to 'cipher.sts')
-rw-r--r--cipher.sts4
1 files changed, 4 insertions, 0 deletions
diff --git a/cipher.sts b/cipher.sts
index 0f20470..72d941e 100644
--- a/cipher.sts
+++ b/cipher.sts
@@ -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