From e7bc8f97c763a8fa31c2c14a4b437c6fd9502c6a Mon Sep 17 00:00:00 2001 From: Aleksey Veresov Date: Sun, 18 Oct 2020 01:01:03 +0300 Subject: Fix. --- encrypt.sts | 2 +- main.sts | 3 +-- 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 -- cgit v1.2.3