패턴 분석에 의한 해독


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

@Joey 대부분의 공감대? 커뮤니티가 결정하게하십시오.
Thomas O

2
"대부분의 공감대":이 게시물이 인기 콘테스트 게시물이 된 것을보고는 안타깝습니다. 전체 문제에 대한 내 생각 은 meta.codegolf.stackexchange.com/questions/110/… 을 참조하십시오 .
Chris Jester-Young

2
여기서 "우아한"은 무엇을 의미합니까? 최고의 빅오 퍼포먼스?
gnibbler

1
@ Bass5098, 아뇨. 주파수 분석에보다 탄력성을 가지기 위해 오염 된 암호문 일뿐입니다.
Thomas O

답변:


9

파이썬

모든 비밀 문구를 알아 냈지만 여기에 게시하지는 않습니다. 관심이 있다면 코드를 실행하십시오.

이 코드는 공백 문자를 선택하고 각 단어에 대해 가능한 모든 대체를 열거 한 다음 호환 가능한 대체를 검색하여 작동합니다. 또한 어휘가 잘못된 단어가 일반 텍스트의 맞춤법 오류를 처리 할 수 ​​있습니다. :)

http://wordlist.sourceforge.net/ 에서 큰 어휘집 (~ 500K 단어)을 사용했습니다 .

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);
    }

?>

/ usr / share / dict / words를 사용하는 시스템 인 경우 / usr / share / dict / words를 사용해보십시오.
Keith Randall
당사 사이트를 사용함과 동시에 당사의 쿠키 정책개인정보 보호정책을 읽고 이해하였음을 인정하는 것으로 간주합니다.
Licensed under cc by-sa 3.0 with attribution required.