aboutsummaryrefslogtreecommitdiff
path: root/encrypt.sts
diff options
context:
space:
mode:
authorAleksey Veresov <aleksey@veresov.pro>2020-10-17 18:31:37 +0300
committerAleksey Veresov <aleksey@veresov.pro>2020-10-17 18:31:37 +0300
commit7a8caa04bfdb807808636d094391c60fdef9dbbc (patch)
tree6e52eccedce82390c2b2990b5ee05e43a13aed95 /encrypt.sts
parent370a55aa3b2480f87a90a83d7b8127f9159af750 (diff)
downloadcryptrobber-7a8caa04bfdb807808636d094391c60fdef9dbbc.tar
cryptrobber-7a8caa04bfdb807808636d094391c60fdef9dbbc.tar.xz
cryptrobber-7a8caa04bfdb807808636d094391c60fdef9dbbc.zip
Encrypter refactored.
Diffstat (limited to 'encrypt.sts')
-rw-r--r--encrypt.sts19
1 files changed, 6 insertions, 13 deletions
diff --git a/encrypt.sts b/encrypt.sts
index a472e57..7762b3a 100644
--- a/encrypt.sts
+++ b/encrypt.sts
@@ -1,20 +1,13 @@
module ia32/elf/begin.sts
module cipher.sts
-defarr passwd 3
-
-defword encrypt
- top as pos
- do sys_read 0 = until
- passwd 3 pos cipher sys_write
- od drop
-exit
-
set_entry
- 31 passwd !
- 32 passwd 1 + !
- 33 passwd 2 + !
- 0 encrypt drop
+ 31 32 33 local password
+ 3 as passlen
+ passlen 1 - local pos
+ do sys_read 0 = until
+ password passlen pos cipher sys_write
+ od
sys_exit
module ia32/elf/end.sts