diff options
Diffstat (limited to 'cryptrobber.sts')
| -rw-r--r-- | cryptrobber.sts | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/cryptrobber.sts b/cryptrobber.sts index 35f338b..22cb06d 100644 --- a/cryptrobber.sts +++ b/cryptrobber.sts @@ -149,7 +149,7 @@ set_entry float_init ; this is program with floats 0 do dup length = until swap drop 1 + od drop keylen - od as langcode drop + od as langcode ; output language langcode 1 = if @@ -179,10 +179,10 @@ set_entry float_init ; this is program with floats ; output text length do 1 - dup word_size mul plaintext + @ sys_write - dup 1 = untilod drop + dup 0 = untilod drop length do 1 - swap drop - dup 1 = untilod drop + dup 0 = untilod drop ; output key keylen do 1 - |