diff options
| author | Aleksey Veresov <aleksey@veresov.pro> | 2020-10-18 00:50:28 +0300 |
|---|---|---|
| committer | Aleksey Veresov <aleksey@veresov.pro> | 2020-10-18 00:50:28 +0300 |
| commit | 5d1fc997d86afb4ad359f7fde66afb598c83a14f (patch) | |
| tree | 5faa2994174ddaeaa97c030139eaceb3cc933be8 /main.sts | |
| parent | c54f94c431bbdc54d2a182bb1a05202818fe38fd (diff) | |
| download | cryptrobber-5d1fc997d86afb4ad359f7fde66afb598c83a14f.tar cryptrobber-5d1fc997d86afb4ad359f7fde66afb598c83a14f.tar.xz cryptrobber-5d1fc997d86afb4ad359f7fde66afb598c83a14f.zip | |
.
Diffstat (limited to 'main.sts')
| -rw-r--r-- | main.sts | 10 |
1 files changed, 6 insertions, 4 deletions
@@ -34,22 +34,23 @@ defword checktext 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 local checktext.fr ; count how much of each letter is in text: - 0 as checktext.count + 0 local checktext.count checktext.length do 1 - dup word_size mul checktext.text + @ dup dup 'z' > 0 = swap 'a' < 0 = mul if dup 'z' swap - word_size mul checktext.fr + dup @ 1 + swap ! - checktext.count 1 + as checktext.count + checktext.count @ 1 + checktext.count ! fi dup dup 'Z' > 0 = swap 'A' < 0 = mul if dup 'Z' swap - word_size mul checktext.fr + dup @ 1 + swap ! - checktext.count 1 + as checktext.count + checktext.count @ 1 + checktext.count ! fi drop dup 0 = untilod drop ; ZERO DIVISION SHALL NOT PASS -checktext.count 0 = if +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 @@ -61,6 +62,7 @@ checktext.count 0 = if freq_eng calcdist if 1 else 0 fi ; Remove frequencies from stack: + sd sd sd sd sd sd sd sd sd sd sd sd sd sd sd sd sd sd sd sd sd sd sd sd sd sd sd exit |