From df0d6a4503a26508553510b4050eaa79f52e4e4e Mon Sep 17 00:00:00 2001 From: Aleksey Veresov Date: Sun, 18 Oct 2020 18:22:31 +0300 Subject: Another step to release. --- sts/cipher.sts | 12 ++++++++++++ 1 file changed, 12 insertions(+) create mode 100644 sts/cipher.sts (limited to 'sts/cipher.sts') 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 -- cgit v1.2.3