From 451e6018dfbe415461896b2f97df019578cefd16 Mon Sep 17 00:00:00 2001
From: Aleksey Veresov <aleksey@veresov.pro>
Date: Fri, 16 Oct 2020 16:53:58 +0300
Subject: Encryptor completed.

---
 cipher.sts | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'cipher.sts')

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
-- 
cgit v1.2.3