aboutsummaryrefslogtreecommitdiff
path: root/cipher.sts
diff options
context:
space:
mode:
authorAleksey Veresov <aleksey@veresov.pro>2020-10-16 16:53:58 +0300
committerAleksey Veresov <aleksey@veresov.pro>2020-10-16 16:53:58 +0300
commit451e6018dfbe415461896b2f97df019578cefd16 (patch)
treeff6ec9af42345b2648aabf13dbcde2dd05128952 /cipher.sts
parent891c894fc1d837082f037170f0c8d63140dd2284 (diff)
downloadcryptrobber-451e6018dfbe415461896b2f97df019578cefd16.tar
cryptrobber-451e6018dfbe415461896b2f97df019578cefd16.tar.xz
cryptrobber-451e6018dfbe415461896b2f97df019578cefd16.zip
Encryptor completed.
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