From 89eed10ae9034dd334eddd3cb305e2a355dfa291 Mon Sep 17 00:00:00 2001 From: Aleksey Veresov Date: Sun, 18 Oct 2020 12:05:37 +0300 Subject: . --- main.sts | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'main.sts') diff --git a/main.sts b/main.sts index 002849b..69d8d81 100644 --- a/main.sts +++ b/main.sts @@ -95,8 +95,8 @@ set_entry float_init ; this is program with floats dup 0 = untilod drop drop local plaintext - ; check deciphering attempt, exit if Ok or keylen = max (2) - keylen 2 = if eeeee else length checktext fi dup until drop + ; check deciphering attempt, exit if Ok or keylen = max (4) + keylen 4 = if eeeee else length checktext fi dup until drop ; else remove the text from stack and place keylen back 0 do dup length = until swap drop 1 + @@ -158,7 +158,10 @@ set_entry float_init ; this is program with floats ; output text length do 1 - - swap sys_write + dup word_size mul plaintext + @ sys_write + dup 0 = untilod drop + length do 1 - + swap drop dup 0 = untilod drop ; output key -- cgit v1.2.3