From 370a55aa3b2480f87a90a83d7b8127f9159af750 Mon Sep 17 00:00:00 2001
From: Aleksey Veresov <aleksey@veresov.pro>
Date: Sat, 17 Oct 2020 18:24:54 +0300
Subject: Framework completed. =)

---
 cipher.sts | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'cipher.sts')

diff --git a/cipher.sts b/cipher.sts
index cdcdc30..c87b67a 100644
--- a/cipher.sts
+++ b/cipher.sts
@@ -3,8 +3,10 @@ defword cipher
     2 get as cipher.password
     1 get as cipher.len
     0 get as cipher.pos
-    cipher.pos @ cipher.password + @ cipher.byte @ xor cipher.byte !
-    cipher.pos @ 1 + cipher.pos !
-    cipher.pos @ cipher.len = if 0 cipher.pos ! fi
+        cipher.pos @ word_size mul cipher.password + @
+        cipher.byte @ xor
+    cipher.byte !
+    cipher.pos @ 0 = if cipher.len cipher.pos ! fi
+    cipher.pos @ 1 - cipher.pos !
     drop drop drop
 exit
-- 
cgit v1.2.3