aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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