diff options
| author | Aleksey Veresov <aleksey@veresov.pro> | 2020-10-18 00:18:36 +0300 |
|---|---|---|
| committer | Aleksey Veresov <aleksey@veresov.pro> | 2020-10-18 00:18:36 +0300 |
| commit | 66c24def5fc23cc5c9f2d8f85ae7bf9e58a92d6c (patch) | |
| tree | 0925131373a38d4774249e2d258cd276be94e5f5 /main.sts | |
| parent | 12fc566d92d9ebd0bf065d82be5c24a3b5fb600a (diff) | |
| download | cryptrobber-66c24def5fc23cc5c9f2d8f85ae7bf9e58a92d6c.tar cryptrobber-66c24def5fc23cc5c9f2d8f85ae7bf9e58a92d6c.tar.xz cryptrobber-66c24def5fc23cc5c9f2d8f85ae7bf9e58a92d6c.zip | |
Keylen fix.
Diffstat (limited to 'main.sts')
| -rw-r--r-- | main.sts | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -55,6 +55,7 @@ checktext.count 0 = if 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 @@ -87,8 +88,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 (16) - keylen 10 = if eeeee else length checktext fi dup until drop + ; check deciphering attempt, exit if Ok or keylen = max (2) + keylen 2 = 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 + |