aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAleksey Veresov <aleksey@veresov.pro>2020-10-18 01:01:03 +0300
committerAleksey Veresov <aleksey@veresov.pro>2020-10-18 01:01:03 +0300
commite7bc8f97c763a8fa31c2c14a4b437c6fd9502c6a (patch)
treebf89d55a81c83534452dde97992709c3f12beb7a
parent5d1fc997d86afb4ad359f7fde66afb598c83a14f (diff)
downloadcryptrobber-e7bc8f97c763a8fa31c2c14a4b437c6fd9502c6a.tar
cryptrobber-e7bc8f97c763a8fa31c2c14a4b437c6fd9502c6a.tar.xz
cryptrobber-e7bc8f97c763a8fa31c2c14a4b437c6fd9502c6a.zip
Fix.
-rw-r--r--encrypt.sts2
-rw-r--r--main.sts3
2 files changed, 2 insertions, 3 deletions
diff --git a/encrypt.sts b/encrypt.sts
index edc9bbc..3b546fc 100644
--- a/encrypt.sts
+++ b/encrypt.sts
@@ -2,7 +2,7 @@ module ia32/elf/begin.sts
module cipher.sts
set_entry
- 31 local password
+ 0 local password
1 as passlen
passlen 1 - local pos
do sys_read 0 = until
diff --git a/main.sts b/main.sts
index c18d869..ec3592f 100644
--- a/main.sts
+++ b/main.sts
@@ -45,19 +45,18 @@ defword checktext
checktext.count @ 1 + checktext.count !
fi drop
dup 0 = untilod drop
+ 1b print_stack newline sys_write
; ZERO DIVISION SHALL NOT PASS
checktext.count 0 = if drop
drop drop drop drop drop drop drop drop drop drop drop drop drop
drop drop drop drop drop drop drop drop drop drop drop drop drop
0 exit fi
- checktext.count @ print_hex newline sys_write
; normalize:
0 do dup 1a = until
dup word_size mul checktext.fr + dup @ float_iload
checktext.count float_iload
float_div float_fstore swap !
1 + od drop
- 1a print_stack newline sys_write
; Decide if text is real:
freq_eng calcdist if 1 else
0 fi