Dekripsi dengan analisis pola

11

Anda diberi string terenkripsi, dienkripsi menggunakan cipher substitusi yang sangat sederhana.

Masalah

Anda tidak tahu apa itu sandi tetapi Anda tahu sandi itu adalah bahasa Inggris dan bahwa huruf yang paling sering dalam bahasa Inggris adalah etaoinshrdlucmfwypvbgkqjxz dalam urutan itu. Satu-satunya karakter yang diizinkan adalah huruf besar dan spasi. Anda dapat melakukan analisis dasar - mulai dari satu huruf, tetapi Anda dapat bermigrasi ke analisis multi-huruf yang lebih kompleks - misalnya, U hampir selalu mengikuti Q, dan hanya beberapa huruf tertentu yang dapat datang dua kali berturut-turut.

Contohnya

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

Tantangan

Lihat apakah Anda dapat mendekripsi teks di masing-masing cipher ini:

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

Saya memiliki matriks pengganti dan teks yang jelas untuk masing-masing, tetapi saya hanya akan mengungkapkannya jika menjadi terlalu sulit atau seseorang tidak mengetahuinya.

Solusi yang dapat mendekripsi pesan paling berhasil adalah pemenangnya. Jika dua solusi sama baiknya, mereka akan diputuskan oleh penghitungan suara.

Thomas O
sumber
3
Apa yang mendefinisikan »paling elegan«? Saya pikir itu hal yang sama yang Chris keberatan dengan 99 botol. Ini adalah kriteria subjektif yang cukup sulit untuk dinilai.
Joey
@ Joey Most upvotes? Biarkan masyarakat yang memutuskan.
Thomas O
2
Re "most upvotes": Saya tidak senang melihat ini menjadi posting kontes popularitas, paling tidak karena postingannya sangat baik; lihat meta.codegolf.stackexchange.com/questions/110/... untuk pemikiran saya tentang seluruh masalah ini.
Chris Jester-Young
2
Apa arti "elegan" di sini? Kinerja big-O terbaik?
gnibbler
1
@ Bass5098, tidak. Itu hanya ciphertext yang sulit yang telah dinodai untuk membuatnya lebih tahan terhadap analisis frekuensi.
Thomas O

Jawaban:

9

Python

Saya telah menemukan semua frasa rahasia, tetapi saya tidak akan mempostingnya di sini. Jalankan kode jika Anda peduli.

Kode berfungsi dengan memilih karakter spasi, menghitung semua kemungkinan penggantian untuk setiap kata, kemudian mencari substitusi yang kompatibel. Hal ini juga memungkinkan untuk beberapa kata out-of-leksikon untuk berurusan dengan kesalahan ejaan di cleartext :)

Saya menggunakan leksikon besar (~ 500 ribu kata) dari 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.'
Keith Randall
sumber
1

PHP (Tidak Lengkap)

Ini adalah solusi PHP tidak lengkap yang berfungsi menggunakan informasi frekuensi huruf dalam pertanyaan ditambah kamus kata-kata yang cocok dengan ekspresi reguler berdasarkan pada huruf yang paling dapat diandalkan dalam kata yang diberikan.

Saat ini kamusnya cukup kecil tetapi dengan perluasan yang sesuai saya mengantisipasi bahwa hasilnya akan meningkat. Saya telah mempertimbangkan kemungkinan kecocokan sebagian tetapi dengan kamus saat ini, ini menghasilkan degradasi dan bukannya perbaikan pada hasilnya.

Bahkan dengan kamus kecil saat ini, saya rasa saya bisa mengatakan dengan aman apa yang disandikan pesan keempat.

#!/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
sumber
Coba gunakan / usr / share / dict / words jika Anda menggunakan sistem yang memilikinya.
Keith Randall