Дешифрование с помощью анализа

11

Вам дается зашифрованная строка, зашифрованная с использованием очень простого шифра замещения.

проблема

Вы не знаете, что такое шифр, но знаете, что зашифрованный текст является английским, и что наиболее часто встречающиеся на английском языке буквы - это etaoinshrdlucmfwypvbgkqjxz в этом порядке. Единственными допустимыми символами являются заглавные буквы и пробелы. Вы можете выполнить базовый анализ - начиная с отдельных букв, но вы можете перейти к более сложному многосимвольному анализу - например, U почти всегда следует за Q, и только определенные буквы могут встречаться дважды подряд.

Примеры

clear : SUBMARINE TO ATTACK THE DOVER WAREHOUSE AND PORT ON TUESDAY SUNRISE
cipher: ZOQ DUPAEYSRYDSSDXVYSHEYNRBEUYLDUEHROZEYDANYKRUSYRAYSOEZNDMYZOAUPZE

clear : THE QUICK BROWN FOX BEING QUITE FAST JUMPED OVER THE LAZY DOG QUITE NICELY
cipher: TNAEPDHIGEMZQJLEVQBEMAHL EPDHTAEVXWTEODYUASEQKAZETNAERXFCESQ EPDHTAELHIARC

clear : BUFFALO BUFFALO BUFFALO BUFFALO BUFFALO BUFFALO BUFFALO
cipher: HV  WRPDHV  WRPDHV  WRPDHV  WRPDHV  WRPDHV  WRPDHV  WRP

проблемы

Посмотрите, сможете ли вы расшифровать текст в каждом из этих шифров:

  • SVNXIFCXYCFSXKVVZXIHXHERDXEIYRAKXZCOFSWHCZXHERDXBNRHCXZR RONQHXORWECFHCUH
  • SOFPTGFIFBOKJPHLBFPKHZUGLSOJPLIPKBPKHZUGLSOJPMOLEOPWFSFGJLBFIPMOLEOPXULBSIPLBP KBPBPWLIJFBILUBKHPGKISFG
  • TMBWFYAQFAZYCUOYJOBOHATMCYNIAOQW Q JAXOYCOCYCHAACOCYCAHGOVYLAOEGOTMBWFYAOBFF ACOBHOKBZYKOYCHAUWBHAXOQW XITHJOV WOXWYLYCU
  • FTRMKRGVRFMHSZVRWHRSFMFLMBNGKMGTHGBRSMKROKLSHSZMHKMMMMMRVVLVMPRKKOZRMFVDSGOFRW

У меня есть матрицы замены и открытый текст для каждого, но я покажу их, только если это станет слишком трудным или кто-то не поймет это.

Решение, которое может успешно расшифровать большинство сообщений, - победитель. Если два решения одинаково хороши, они будут решаться путем подсчета голосов.

Томас О
источник
3
Что определяет «самый элегантный»? Я думаю, что это то же самое, что Крис уже возражал в 99 бутылках. Это субъективный критерий, о котором довольно сложно судить.
Джои
@Joey Большинство голосов? Пусть сообщество решит.
Томас О
2
Re "Most upvotes": мне не нравится, когда это становится популярным постом конкурса, не в последнюю очередь потому, что пост в остальном превосходен; см. meta.codegolf.stackexchange.com/questions/110/… для моих мыслей по этому вопросу.
Крис Шутер-Янг
2
Что значит «элегантный» здесь? Лучшая производительность Big-O?
gnibbler
1
@ Bass5098, нет. Это просто сложный зашифрованный текст, который был испорчен, чтобы сделать его более устойчивым к частотному анализу.
Томас О

Ответы:

9

питон

Я разобрался со всеми секретными фразами, но я не буду размещать их здесь. Запустите код, если вам интересно.

Код работает, выбирая пробел, перечисляя все возможные замены для каждого слова, затем ища совместимые замены. Он также позволяет использовать некоторые слова, не входящие в лексикон, для написания орфографических ошибок в открытом тексте :)

Я использовал большой лексикон (~ 500 тыс. Слов) из http://wordlist.sourceforge.net/ .

import sys,re

# get input
message = sys.argv[1]

# read in lexicon of words
# download scowl version 7.1
# mk-list english 95 > wordlist
lexicon = set()
roman_only = re.compile('^[A-Z]*$')
for word in open('wordlist').read().upper().split():
  word=word.replace("'",'')
  if roman_only.match(word): lexicon.add(word)

histogram={}
for c in message: histogram[c]=0
for c in message: histogram[c]+=1
frequency_order = map(lambda x:x[1], sorted([(f,c) for c,f in histogram.items()])[::-1])

# returns true if the two maps are compatible.
# they are compatible if the mappings agree wherever they are defined,
# and no two different args map to the same value.
def mergeable_maps(map1, map2):
  agreements = 0
  for c in map1:
    if c in map2:
      if map1[c] != map2[c]: return False
      agreements += 1
  return len(set(map1.values() + map2.values())) == len(map1) + len(map2) - agreements

def merge_maps(map1, map2):
  m = {}
  for (c,d) in map1.items(): m[c]=d
  for (c,d) in map2.items(): m[c]=d
  return m

def search(map, word_maps, outside_lexicon_allowance, words_outside_lexicon):
  cleartext = ''.join(map[x] if x in map else '?' for x in message)
  #print 'trying', cleartext

  # pick a word to try next
  best_word = None
  best_score = 1e9
  for (word,subs) in word_maps.items():
    if word in words_outside_lexicon: continue
    compatible_subs=0
    for sub in subs:
      if mergeable_maps(map, sub): compatible_subs += 1
    unassigned_chars = 0
    for c in word:
      if c not in map: unassigned_chars += 1  #TODO: duplicates?
    if compatible_subs == 0: score = 0
    elif unassigned_chars == 0: score = 1e9
    else: score = 1.0 * compatible_subs / unassigned_chars   # TODO: tweak?
    if score < best_score:
      best_score = score
      best_word = word
  if not best_word:  # no words with unset characters, except possibly the outside lexicon ones
    print cleartext,[''.join(map[x] if x in map else '?' for x in word) for word in words_outside_lexicon]
    return True

  # use all compatible maps for the chosen word
  r = False
  for sub in word_maps[best_word]:
    if not mergeable_maps(map, sub): continue
    r |= search(merge_maps(map, sub), word_maps, outside_lexicon_allowance, words_outside_lexicon)

  # maybe this word is outside our lexicon
  if outside_lexicon_allowance > 0:
    r |= search(map, word_maps, outside_lexicon_allowance - 1, words_outside_lexicon + [best_word])
  return r

for outside_lexicon_allowance in xrange(3):
  # assign the space character first
  for space in frequency_order:
    words = [w for w in message.split(space) if w != '']
    if reduce(lambda x,y:x|y, [len(w)>20 for w in words]): continue  # obviously bad spaces

    # find all valid substitution maps for each word
    word_maps={}
    for word in words:
      n = len(word)
      maps = []
      for c in lexicon:
        if len(c) != n: continue
        m = {}
        ok = 1
        for i in xrange(n):
          if word[i] in m:                      # repeat letter
            if m[word[i]] != c[i]: ok=0; break  # repeat letters map to same thing
          elif c[i] in m.values(): ok=0; break  # different letters map to different things
          else: m[word[i]]=c[i]
        if ok: maps.append(m);
      word_maps[word]=maps

    # look for a solution
    if search({space:' '}, word_maps, outside_lexicon_allowance, []): sys.exit(0)

print 'I give up.'
Кит Рэндалл
источник
1

PHP (незавершенный)

Это неполное PHP-решение, которое работает с использованием информации о частоте букв в вопросе, а также словаря слов, сопоставленных с регулярными выражениями на основе самых надежных букв в данном слове.

В настоящее время словарь довольно мал, но с соответствующим расширением я ожидаю, что результаты улучшатся. Я рассмотрел возможность частичных совпадений, но с текущим словарем это приводит к ухудшению, а не улучшению результатов.

Даже с нынешним небольшим словарем, я думаю, я могу с уверенностью сказать, что кодирует четвертое сообщение.

#!/usr/bin/php
<?php

    if($argv[1]) {

        $cipher = $argv[1];

        // Dictionary
        $words = explode("/", "the/to/on/and/in/is/secret/message");
        $guess = explode("/", "..e/t./o./a../i./.s/.e..et/.ess..e");

        $az = str_split("_etaoinshrdlucmfwypvbgkqjxz");

        // Build table
        for($i=0; $i<strlen($cipher); $i++) {
            $table[$cipher{$i}]++;
        }
        arsort($table);

        // Do default guesses
        $result = str_replace("_", " ", str_replace(array_keys($table), $az, $cipher));

        // Apply dictionary
        $cw = count($words);
        for($i=0; $i<$cw*2; $i++) {
            $tokens = explode(" ", $result);
            foreach($tokens as $t) {
                if(preg_match("/^" . $guess[$i%$cw] . "$/", $t)) {
                    $result = deenc($words[$i%$cw], $t, $result);
                    echo $t . ' -> ' . $words[$i%$cw] . "\n";
                    break;
                }
            }
        }

        // Show best guess
        echo $result . "\n";

    } else {

        echo "Usage: " . $argv[0] . " [cipher text]\n";

    }

    // Quick (non-destructive) replace tool
    function deenc($word, $enc, $string) {
        $string = str_replace(str_split($enc), str_split(strtoupper($word)), $string);
        $string = str_replace(str_split($word), str_split($enc), $string);
        return strtolower($string);
    }

?>
jtjacques
источник
Попробуйте использовать / usr / share / dict / words, если вы используете систему, в которой она есть.
Кит Рэндалл