diff options
author | Aleksey Veresov <aleksey@veresov.pro> | 2020-10-16 22:38:45 +0300 |
---|---|---|
committer | Aleksey Veresov <aleksey@veresov.pro> | 2020-10-16 22:38:45 +0300 |
commit | a5ada20d77f6fcf7bf54e49402e55d3b1c56df5e (patch) | |
tree | b6f9a205a4da8c00c58b5da66c74b99874f4f620 /encrypt.sts | |
parent | ce9e52469d0b12b3231ccc199e1b19bb924f54cd (diff) | |
download | cryptrobber-a5ada20d77f6fcf7bf54e49402e55d3b1c56df5e.tar cryptrobber-a5ada20d77f6fcf7bf54e49402e55d3b1c56df5e.tar.xz cryptrobber-a5ada20d77f6fcf7bf54e49402e55d3b1c56df5e.zip |
Meh.
Diffstat (limited to 'encrypt.sts')
-rw-r--r-- | encrypt.sts | 21 |
1 files changed, 6 insertions, 15 deletions
diff --git a/encrypt.sts b/encrypt.sts index 29424a2..a472e57 100644 --- a/encrypt.sts +++ b/encrypt.sts @@ -1,29 +1,20 @@ module ia32/elf/begin.sts module cipher.sts -defword encbyte - sys_read dup if - drop - cipher sys_write - 1 1 - fi 0 = if - drop 0 - fi -exit +defarr passwd 3 defword encrypt - encbyte if encrypt fi + top as pos + do sys_read 0 = until + passwd 3 pos cipher sys_write + od drop exit -defarr passwd 3 - set_entry 31 passwd ! 32 passwd 1 + ! 33 passwd 2 + ! - passwd 3 ciphernew - encrypt - cipherdel + 0 encrypt drop sys_exit module ia32/elf/end.sts |