aboutsummaryrefslogtreecommitdiff
path: root/encrypt.sts
diff options
context:
space:
mode:
authorAleksey Veresov <aleksey@veresov.pro>2020-10-16 16:07:04 +0300
committerAleksey Veresov <aleksey@veresov.pro>2020-10-16 16:07:04 +0300
commit599a40b02532b65ce5b9ac538c8579e292389766 (patch)
tree6d7899072556d0f7ccaf735e8308b2c6e6b0a7d0 /encrypt.sts
parent68ea390db8e5977dcc84dc93daeb467ee243cb35 (diff)
downloadcryptrobber-599a40b02532b65ce5b9ac538c8579e292389766.tar
cryptrobber-599a40b02532b65ce5b9ac538c8579e292389766.tar.xz
cryptrobber-599a40b02532b65ce5b9ac538c8579e292389766.zip
Encryptor added.
Diffstat (limited to 'encrypt.sts')
-rw-r--r--encrypt.sts29
1 files changed, 29 insertions, 0 deletions
diff --git a/encrypt.sts b/encrypt.sts
new file mode 100644
index 0000000..378a686
--- /dev/null
+++ b/encrypt.sts
@@ -0,0 +1,29 @@
+module ia32/elf/begin.sts
+module cipher.sts
+
+defword encbyte
+ key dup if
+ drop
+ cipher
+ 1 1
+ fi 0 = if
+ drop 0
+ fi
+exit
+
+defword encrypt
+ encbyte if encrypt fi
+exit
+
+defarr passwd 3
+
+set_entry
+ 31 passwd !
+ 32 passwd 1 + !
+ 33 passwd 2 + !
+ passwd 3 ciphernew
+ encrypt
+ cipherdel
+quit
+
+module ia32/elf/end.sts