aboutsummaryrefslogtreecommitdiff
path: root/sts/cipher.sts
diff options
context:
space:
mode:
authorAleksey Veresov <aleksey@veresov.pro>2020-10-18 18:22:31 +0300
committerAleksey Veresov <aleksey@veresov.pro>2020-10-18 18:22:31 +0300
commitdf0d6a4503a26508553510b4050eaa79f52e4e4e (patch)
tree2517b6070319270a4cb0df9dcf3814b16ecaece9 /sts/cipher.sts
parent9eadc7bac8863b7fd3a39edc9ba31cf4d3b5ab95 (diff)
downloadcryptrobber-df0d6a4503a26508553510b4050eaa79f52e4e4e.tar
cryptrobber-df0d6a4503a26508553510b4050eaa79f52e4e4e.tar.xz
cryptrobber-df0d6a4503a26508553510b4050eaa79f52e4e4e.zip
Another step to release.
Diffstat (limited to 'sts/cipher.sts')
-rw-r--r--sts/cipher.sts12
1 files changed, 12 insertions, 0 deletions
diff --git a/sts/cipher.sts b/sts/cipher.sts
new file mode 100644
index 0000000..c87b67a
--- /dev/null
+++ b/sts/cipher.sts
@@ -0,0 +1,12 @@
+defword cipher
+ 3 ref as cipher.byte
+ 2 get as cipher.password
+ 1 get as cipher.len
+ 0 get as cipher.pos
+ 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