From 599a40b02532b65ce5b9ac538c8579e292389766 Mon Sep 17 00:00:00 2001
From: Aleksey Veresov <aleksey@veresov.pro>
Date: Fri, 16 Oct 2020 16:07:04 +0300
Subject: Encryptor added.

---
 cipher.sts | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 cipher.sts

(limited to 'cipher.sts')

diff --git a/cipher.sts b/cipher.sts
new file mode 100644
index 0000000..0f20470
--- /dev/null
+++ b/cipher.sts
@@ -0,0 +1,14 @@
+; cipher is password string (pointer to start and length) and position in it
+
+defword ciphernew
+    0
+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
+exit
+
+defword cipherdel
+    drop drop drop
+exit
-- 
cgit v1.2.3