Помогите вскрыть шифр Виженера

[Asmodei]

текст:

ИДОМЩНТЗ_УТЕИУТДДЛЙПИЙБЧМУЕПБПТЙВТНЯЙФ_ХРСЦВВПЗНМЗ_ЫКСЙН_УР
ЗЖРЛВЗТГУОЛЖАЖВТ_БКДНЬОХЛВФОФЭ_УРЛ_ЙУВУЬГСРЙКМЧЫЕХФВДОИГЯЛЙ
МТФКЧЙУКМЧ_ЪЗПЙЛ_МОЕСПОГФАОБИГСОХФУУКЛДБВТБВФЗМВБВЦРРТЛ_РКР
ТДОНБВТЛНЯБГФХПУВ_РВТЙОАЦККТД_УТИГСЕСУИПЮВДПСОРМГХНМДЕФУИЦЗ
ТЙБВТЙГПВВПАЕРВЯГЖЖГСРЙУПЙТОРБЭОМЕФФОРБИГЖЖТПОРБМТХЧПК_СВЧД
Д_ФВЗФВБТФКЧБЭПЗКЦТОСПОЖЭЧМУЛМФЕПЮНТЛ_РВШМПЫГЯЛЙМТФРНСЭЙГЩИ
ХНОЖРЙГКНЦЗГФВТТТ_МБКДНЬОХЛВФОФБПЙТЕИБУЫЗНЯОИГСОХФАЖКЛМБЦЙН
ЬГХСОРРМФЬГТАХЩЕЦЭ_ЦВБПКЦГЖЛВБНДДЕИЗНМА_ДТТМНЛЙТИМБЭСКАОББТ
НЬЬЗ_УРХТЖИПБНДБЭПЗКЦТОСПЫНБКДНЬОХЛВФОФБЧЙО_СВ_ОРМУЮЮЦЗРГПО
ГЖВТКЧСЭЕГЩИХНАГСРЙЖСЦВВПАЛМБУКЗ_СЗ_УТИРКТМДНЯОИГМОПЗСММАРК
_ОВКГД_ДТИШООРЗТФВХГВ_АНЕОФРТПНЯОИГНАРСАРК_УЗРЙМЛБЩАЦЗЛВОИГ
УОПЖАЦЭ_УТИУКСДПНЯЗ_ОБЭЦРЙГРГФРМСРЙГОАЬКНЙБПТУТТАНСР_СРСМНИ
ХЮ_ЖРКФХГГПЕЙБСОТИУА_ЦЗЛЙИКДОИГЖОЖЗРЩХ_СВБМФЫРК_АНЕОФРТПНЯО
ИГНАРСАРК_ХФОМНОГСЕФЗГТТЕЦЮ_ЩРТВББЯБОИПОНБЛДОПЙБКДМ_АПИДМ_Ц
ХТГИЕГДСЦВВДН_МБНДЩИСВЛДУЬГУУРВТТЧАГДСЙБСУЗШСР_МУКДНИГУГТТЕ
ЖЪУББЛДОПЧБОИПОНБИЛБПФКЧМП_ЖРЗРРЖСР_МБНЙБСПКШОРМГЖОХФОЖЗРСР
ЙГУТТНЬГЩАХФОНБЗДОЕСЭ_ПВМУБСЫКТДНАХЮ_ЦВКДА_МЧ_ЦЗППР_МБСЖЗЧЙ
ПИЙБПФКВПЗКД_ТГООЦЭЛ_МОЖБКТФОФЭЕГЙАПЗТД_ТГДНЧФР_БМДЪИСЭ_МБВ
ЯЙЫЖВЮЦБКТТОЦМОЙБЗДОЫОВНМЗ_ЙУЛМБЭЦР_УТАЖЖАГФОГФЕФОИСБЖЧЩКМБ
ПТЖ_ОРТТТЫРБИРЗЮЦУЯГД_ЖКДЧБОЬКБОК_ЖБПФРГФВМРПЫЩБИГВПУВРДФНЯ
Ч_ХТЕИУТЖВХГМОРСЬБФЕФРВГСРМРБФЗТДЗТГПОЖЭЙГУМЯУЛГМОЗЖАГДСЙБЛ
ДОПЯБРДГОЦВЛМБИСИЕСЗРСЭЙГСЕФУОСВЛГООЗБНДУТФРИЦЮ_АПИДМ_СВ_ОВ
КЧ_НМГУИЮ_ЛВДДЩУГДРЧЩНЧ__МЙМЙПИЖБПТЖКП_ЧЙПИВБШЙУТ_БТЯУЯЫБПФ
РВТЖОЖБВХЗ_АФИГСРТДОИВ_УТИЩРДМНОХЮ_ЖПОЖЮ_УЗРЙМЛБЩАЦЮ_ОРГИВ_
ЖУТДДАПВ_ИТУЗВЯГЙАИВЧДБВГТЕЬЗНМК_АФОНБПФРБПЗМЯБОХПОЖПУББЗДУ
ЛЧЕУГСРМСИХЭВД_ТГЖЖТПУГЦОСБНЙЛМДПУГВМЙТИОВНЪХ_ЖЗНЗЗРХМОЗР_У
ТОМУХТИДЙПИВББПЗСЦАЩЙОУГХЧЙПОРХ_МЙВЙУТСРМЧБМСРГМОИГЖОХФИКЗН
МАММБОЦБРДЙРДГОЦМИГФЕТТИМБИЗТ_ИР_ЖМЛДЖАГД_ХРЗИВНМЗ_ВЖЕФПОЗР
_ТТУККЯГРНГСРМЖУРВЛГУХЙОУГМОЦРРТЛ_ИР_ХКХГСОФБСПЗДЧ_ТГДСЙБЦМ
ЦРТДЫЙБКТОП__ТЙТЫГВРЩКТЙМТЧТАГЦОСБНЙЛМДПАГМАОБЕЙБТЙСЕФЮ_СВЗ
ЯДАБФ_ЕВЗМТУЙФСВБНДБПФКНЪКПДЧ_ХЦОФОУПКРТДАСПЫЩБИРБВГКХГЩИХН
ОГДХТЖИЦБИГФАОРЙГД_ОРМУЮЮЦЗРЙБНЙБПФКДЙФСВБИЛОЕСАТ_БПТЖКП_ЧЙ
ПИВБПФРВТЖОЖБЕХНИГДСЙБИСУТФХКЪКИГГУИХТГЧРДПИЦЮСВБВГЗГТБПДОЯ
ЦК_МБКДМ_ЦРЛ_МОГЯТЧБИИЗЮГДОУНОЦКЛМБНДБПФВКЦККЙБРТЖИПУЯГУОЖТ
ЕРЗНСЭЙГМОРСЬБФЕФБ

Известна длина ключа: 4

[Slym]

Это неправильный Виженер: В Виженере неалфавитные символы (пробелы, знаки препинания, цифры) — не преобразуются.

ИДОМЩНТЗ_УТЕИУТДДЛЙПИЙБЧМУЕПБПТЙВТН ЯЙФ_ХРСЦВВПЗНМЗ_ЫКСЙН_УР
ЗЖРЛВЗТГУОЛЖАЖВТ_БКДНЬОХЛВФОФЭ_УРЛ_ ЙУВУЬГСРЙКМЧЫЕХФВДОИГЯЛЙ
МТФКЧЙУКМЧ_ЪЗПЙЛ_МОЕСПОГФАОБИГСОХФУ УКЛДБВТБВФЗМВБВЦРРТЛ_РКР
ТДОНБВТЛНЯБГФХПУВ_РВТЙОАЦККТД_УТИГС ЕСУИПЮВДПСОРМГХНМДЕФУИЦЗ
ТЙБВТЙГПВВПАЕРВЯГЖЖГСРЙУПЙТОРБЭОМЕФ ФОРБИГЖЖТПОРБМТХЧПК_СВЧД
Д_ФВЗФВБТФКЧБЭПЗКЦТОСПОЖЭЧМУЛМФЕПЮН ТЛ_РВШМПЫГЯЛЙМТФРНСЭЙГЩИ
ХНОЖРЙГКНЦЗГФВТТТ_МБКДНЬОХЛВФОФБПЙТ ЕИБУЫЗНЯОИГСОХФАЖКЛМБЦЙН
ЬГХСОРРМФЬГТАХЩЕЦЭ_ЦВБПКЦГЖЛВБНДДЕИ ЗНМА_ДТТМНЛЙТИМБЭСКАОББТ
НЬЬЗ_УРХТЖИПБНДБЭПЗКЦТОСПЫНБКДНЬОХЛ ВФОФБЧЙО_СВ_ОРМУЮЮЦЗРГПО
ГЖВТКЧСЭЕГЩИХНАГСРЙЖСЦВВПАЛМБУКЗ_СЗ _УТИРКТМДНЯОИГМОПЗСММАРК
_ОВКГД_ДТИШООРЗТФВХГВ_АНЕОФРТПНЯОИГ НАРСАРК_УЗРЙМЛБЩАЦЗЛВОИГ
УОПЖАЦЭ_УТИУКСДПНЯЗ_ОБЭЦРЙГРГФРМСРЙ ГОАЬКНЙБПТУТТАНСР_СРСМНИ
ХЮ_ЖРКФХГГПЕЙБСОТИУА_ЦЗЛЙИКДОИГЖОЖЗ РЩХ_СВБМФЫРК_АНЕОФРТПНЯО
ИГНАРСАРК_ХФОМНОГСЕФЗГТТЕЦЮ_ЩРТВББЯ БОИПОНБЛДОПЙБКДМ_АПИДМ_Ц
ХТГИЕГДСЦВВДН_МБНДЩИСВЛДУЬГУУРВТТЧА ГДСЙБСУЗШСР_МУКДНИГУГТТЕ
ЖЪУББЛДОПЧБОИПОНБИЛБПФКЧМП_ЖРЗРРЖСР _МБНЙБСПКШОРМГЖОХФОЖЗРСР
ЙГУТТНЬГЩАХФОНБЗДОЕСЭ_ПВМУБСЫКТДНАХ Ю_ЦВКДА_МЧ_ЦЗППР_МБСЖЗЧЙ
ПИЙБПФКВПЗКД_ТГООЦЭЛ_МОЖБКТФОФЭЕГЙА ПЗТД_ТГДНЧФР_БМДЪИСЭ_МБВ
ЯЙЫЖВЮЦБКТТОЦМОЙБЗДОЫОВНМЗ_ЙУЛМБЭЦР _УТАЖЖАГФОГФЕФОИСБЖЧЩКМБ
ПТЖ_ОРТТТЫРБИРЗЮЦУЯГД_ЖКДЧБОЬКБОК_Ж БПФРГФВМРПЫЩБИГВПУВРДФНЯ
Ч_ХТЕИУТЖВХГМОРСЬБФЕФРВГСРМРБФЗТДЗТ ГПОЖЭЙГУМЯУЛГМОЗЖАГДСЙБЛ
ДОПЯБРДГОЦВЛМБИСИЕСЗРСЭЙГСЕФУОСВЛГО ОЗБНДУТФРИЦЮ_АПИДМ_СВ_ОВ
КЧ_НМГУИЮ_ЛВДДЩУГДРЧЩНЧ__МЙМЙПИЖБПТ ЖКП_ЧЙПИВБШЙУТ_БТЯУЯЫБПФ
РВТЖОЖБВХЗ_АФИГСРТДОИВ_УТИЩРДМНОХЮ_ ЖПОЖЮ_УЗРЙМЛБЩАЦЮ_ОРГИВ_
ЖУТДДАПВ_ИТУЗВЯГЙАИВЧДБВГТЕЬЗНМК_АФ ОНБПФРБПЗМЯБОХПОЖПУББЗДУ
ЛЧЕУГСРМСИХЭВД_ТГЖЖТПУГЦОСБНЙЛМДПУГ ВМЙТИОВНЪХ_ЖЗНЗЗРХМОЗР_У
ТОМУХТИДЙПИВББПЗСЦАЩЙОУГХЧЙПОРХ_МЙВ ЙУТСРМЧБМСРГМОИГЖОХФИКЗН
МАММБОЦБРДЙРДГОЦМИГФЕТТИМБИЗТ_ИР_ЖМ ЛДЖАГД_ХРЗИВНМЗ_ВЖЕФПОЗР
_ТТУККЯГРНГСРМЖУРВЛГУХЙОУГМОЦРРТЛ_И Р_ХКХГСОФБСПЗДЧ_ТГДСЙБЦМ
ЦРТДЫЙБКТОП__ТЙТЫГВРЩКТЙМТЧТАГЦОСБН ЙЛМДПАГМАОБЕЙБТЙСЕФЮ_СВЗ
ЯДАБФ_ЕВЗМТУЙФСВБНДБПФКНЪКПДЧ_ХЦОФО УПКРТДАСПЫЩБИРБВГКХГЩИХН
ОГДХТЖИЦБИГФАОРЙГД_ОРМУЮЮЦЗРЙБНЙБПФ КДЙФСВБИЛОЕСАТ_БПТЖКП_ЧЙ
ПИВБПФРВТЖОЖБЕХНИГДСЙБИСУТФХКЪКИГГУ ИХТГЧРДПИЦЮСВБВГЗГТБПДОЯ
ЦК_МБКДМ_ЦРЛ_МОГЯТЧБИИЗЮГДОУНОЦКЛМБ НДБПФВКЦККЙБРТЖИПУЯГУОЖТ
ЕРЗНСЭЙГМОРСЬБФЕФБ

В моноширном виде пробелы ровно- какая-то структура

[BDA]

Slym, да это автоматические форумные пробелы, которые рвут слишком длинные "слова". Добавил тег КОД в исходное сообщение ТСа.

[Slym]

Всеравно не Вижинер: пробелы, знаки препинания, цифры не преобразуются.
знак _ в алфавите - алфавит не стандартный.

[BDA]

Алфавит "АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ_" , а ключ "ДВА". Зашифрованный текст легко гуглится.

[Slym]

ПЛЯ! ключ ДВА - длинна =4 !!!
в русском языке нет буквы Ё...

[Slym]

const
  dict='АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ_';

function VIS(const Text:string;const key:string):string;
var
  i,k,idx,kdx:integer;
  ch:char;
  keyd:array of integer;
begin
  SetLength(keyd,length(key));
  for i:=Low(key) to High(key) do
    keyd[i-Low(key)]:=dict.IndexOf(key[i]);

  SetLength(result,length(Text));
  k:=Low(keyd);
  for i:=Low(Text) to High(Text) do
  begin
    ch:=Text[i];
    idx:=dict.IndexOf(ch);
    if idx<0 then
    begin
      result[i]:=ch;
      continue;
    end;
    kdx:=idx-keyd[k];
    if kdx<0 then kdx:=kdx+length(dict);

    inc(k); if k>High(keyd) then k:=Low(keyd);

    result[i]:=dict.Chars[kdx];
  end;
end;

procedure TForm1.BruteClick(Sender: TObject);
var
  c1,c2,c3:integer;
  InStr,key,res:string;
  maxO,cntO:integer;
begin
  maxO:=0;
  InStr:=InText.Lines.Text.ToUpper;
  for c1 := Low(dict) to High(dict) do
    for c2 := Low(dict) to High(dict) do
      for c3 := Low(dict) to High(dict) do
      begin
        key:=dict[c1]+dict[c2]+dict[c3];
        res:=VIS(InStr,key);
        cntO:=res.CountChar('О')+res.CountChar('А')+res.CountChar('Е')+res.CountChar('_');
        if cntO>maxO then
        begin
          maxO:=cntO;
          KeyEd.Text:=key;
          OutText.Lines.Text:=res;
          Application.ProcessMessages;
        end;
      end;
end;

[Asmodei]

Прошу прощения! Не тот текст

МЕЩИЯРЕЕЗЪУСУГКИЩТЩЛГКЮЮЪФЙ_МОЙ_ЭУЛННРУЯЗХРКЩХЛ_КВЪЕШФЩНИОЖ
НВШККЦПЪЬЕХРРИШКМЫКЕКРВШАЗНЩМЧГХТМЛЬКИШКИЗЗРННЖКВЗФРТРВМАХН
ЩВЩНУХЗГНТЦПЛТЦЕКПШИСДНВБЕФВЩТЧУЛВРХЖ_РРЯОШПЛЦРАКВЗНЩМЧЯИТН
УКЕНВШАМСКПШИЩБШГТОКГЭЬЗЕКДКСУЧХЮФ_КЛП_ИВЧА_ЛШЫЗЩУФШСНЫНВЮС
ЪУЩЙЩХНАЗЕЩЗКУЛЩИАЭ_РРЯОШПЛЦРЛКЕНВЪЕШЕЩНИЪЛЛГРЮЮЗЧЩРФЦККИЙП
ОНВЭАТСР_ЫФЭРЦМЬТКСКМЦЙШОЗТЫЕМФЭАКЛЭЬЗНЛКЗРЛБЦУКПНУРКУАБАЪИ
ЦЕСВЮПШГНЛЖАГИЭВЪОЪСХОФВЗЛННЭРЦРЩВЗ_ЭИЗТРРННЦЮЯГЭЕУЛКОЙЮБНЦ
ВУЗЛСЭАКОУВИИЧЫНВУЗЗНЫЕФРУЯЗНЫАСРР_ФГЦЫЗЛКСШГМАЪЮНАЕХКПЦЗКД
НМЬТКЛРМЗ_ЦЕТХЫИЯИЬКРШКЗИУЙДЦЕКЧШИТВВЪЛЙХСКБВФЭРЦВЭЕФВЬАФЮЧ
_КСЬПШСУЗКСПЯЗХРКЩХКНИВЗКШГШЕЗТРРЩСШАУЯШОЛСККЦПЪЬЕХРРИВЧУПЮ
ХУЗРЛ_ЧУЩИЛУЕВИХРЛНВХОФТЛКЪЗУСТСН_РВХОФГШДВВМАХНЩВЩНЩМЫВЛВЪ
СЧАЪЦККЦХЩРВМКВВЗЛЕЪВНАФВШАУЛБНЦФЭЬЗОРГТСКПШСЬЛНЗУТГВХАТВЬТ
ШСХАЗХРКЩХЛ_ЧУРВШГЭИУГЬЬЗЕКНИДЩРЗЗНОРЪШЫЭВБИЩИЦ_ЯХЩБВВЪОХБЭ
ЬЗНЛКЗТЫЕЦДЫАПЦИТЗЗЫУЛЛР_КЛПЫЗЗЛНХЮ__КВПВЦЛБНЫАКФЦУЧУЗУЛЗЙИ
ЫЕФВРЩНВЩДРРКПШЛЧЕШВТАЧЛЬЬЗРЛ_КЛШИУСНОСВЪЛИФЭИХНР_ДХЩ_ИРЛЛЦ
ЖЩВЦИКПШИПСЪГНЛНРУЕЗКНУТСНЫЭВХОУИМАХЛФ_ИЦПИЦЛШФЦУЧАЮЛЙ_ЭУЛН
РХЬЯЗРЛ_ХИФ_КВНИМИКМРНЫОЩНЩПРЪРСТЛ__ЙЦООШНЩВЗУЛСЧСЦООИШНВШК
ВЗЗЦИХРЕХЗФЪИШГЦЬХЮ__ТГШАКНЛХЗИЬЛРВН_ТГХОФХЩ_ФИЬТНВЧУПЮХАЗК
НУЯЛЭ_ЛУЩМЯИКБЫЖЩРТЛКГУЦМЖНВНРНКЛЮЪФЙ_КВХАХГНКЫВЛ_ЧУУ_КЮЬОТ
СФ_ХСЭЕЗДЮГЦУХИЗУЛСЧСЦАЛГИТЩБКТНФШЕНВЗТРВМУЛСЫКРВЙВУБИТЩБКА
ХГЦОЛГЧИЗЛЬХЦЗШЫЭВХОУИМАХЛФ_ПЕЮКЦЕЕХЗЕЩЛХВЮЛИЕЦИКГРМВШКМРНЫ
ОЬСШОФВПВРЖЛЯЩЯКПЦВХАХГНКНВУГЦОХАЗТЫОРЖЫЫКГЭЕУБКПЦТЛДИИЭ_ХГ
КБЫЖЩРТЛКИЗЕУБШЛЫУНХКЕНВНИЙУЛЦРБКВЩИКТЦВСЕЗГШАУСООКСР_ЧУРДЩ
ХЛВУИШИНВУСЭСПНЦЖЩ_ПЕЮКИВЮСРОУВИИЭСЖВУ_ПЕЮЧРХКИПВПИХГЧИТСН_
ТГХ_ФЦТЫТГКВРРУЛЦЕЩЙЗТЦАЩХУНТИКПЦЗЩБХСКВЩБХОФЦКАХГЦОЛСНОФЦК
УЩХЫОСФЭВЫВ_РИРРНРБКИХЧЩРФГАИРВЬВЦМЬТКИШ_ШБП_ХИПОЩХЛТТСН_ЧЮ
ЦЬЗФЦЕМЮКПИОЖЦНЕКИУЛКЦИУЛПРРЕ_ХГКПЦЕРРЭРЩСЪЛКПУГЬТРРХИЗПЩГЫ
ХКПШЛНОМЛЭЬЗНКННГПЕТЕЛТХЮЧ_ТСЦЕЙГШИЖПКИЛОЕ_КЮТЫКГЙ_КВПИХГЧИ
ТГ__ЧСЭРНФХИКГШИНВУ_МУЮГРИКШЫПЕ_НФЦИЗФХОШСЬТГВНРИЬРНРБКПУГЬ
ТРРХИЗШЩТЖВМЫЗРРМХСООЗСЭКУСШЯНХЬЯЗСЭ_ПГПАХРЩЙЗЕЕСЦХЛ_ПЕЮКИВ
ЬРИКЮ_ОИКМНРЙЕЪФЙ_ЧУУ_ТГСДЦПКПШСУГШЮНАХЛУ_ЧОЛСЪЛШКРВУГУГКПЦ
ФЭЕЧИШНЦВЬНИЫУВИЕЛЕЪВМУЛСЫКРВН_ТГШАКНР_РВХАЯИЬТКСКЗКЦБАХЛЙ_
ЩСЩТКИЭСЪЕРНХСКУЭЦПШИИЭСЖВРСУЛКЖНВХАТЦИНРДЮДГВЪЕЩРИ_ПГЪИЩГЭ
ЬЗФКВРРУЛЦЕЩЙЗТЦАЩХУНТЛКНИВХАЩФРТХЮФ_ФГОНРХЩФЦРКТЦВНСНВВЕШС
_ОКГЭОЩХУ_ЧИЫЕХСЬЯЪФЙ_ХГКПУИШКЫВЛ_ЩСКВШИЧЕХИЧ_ТВШИФВПОЙГНЯЪ
ФЙ_ХСНЫНВЪОЪСЧУЗЪЭОЗСМЫЯРЕЕЗПЛГХЛЭОЬСШЫЗФЛМРВЙВУБИТЩБКАХГЦО
ЛСНЫФЛКУЩХЫОСФЭВИПУ_ЪГХИФВЩБШГТОФВЪРРВХАОЗЩЙЗТРРНКЛПРФУ_РОУ
_ЧИЫЕМГБЕЗЛШФЦУЧАЮЛЙ_ЪИЫЯНХКВЗНЛЧНФЭВНВ

[Asmodei]

Сообщение от Slym

const
  dict='АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ_';

function VIS(const Text:string;const key:string):string;
var
  i,k,idx,kdx:integer;
  ch:char;
  keyd:array of integer;
begin
  SetLength(keyd,length(key));
  for i:=Low(key) to High(key) do
    keyd[i-Low(key)]:=dict.IndexOf(key[i]);

  SetLength(result,length(Text));
  k:=Low(keyd);
  for i:=Low(Text) to High(Text) do
  begin
    ch:=Text[i];
    idx:=dict.IndexOf(ch);
    if idx<0 then
    begin
      result[i]:=ch;
      continue;
    end;
    kdx:=idx-keyd[k];
    if kdx<0 then kdx:=kdx+length(dict);

    inc(k); if k>High(keyd) then k:=Low(keyd);

    result[i]:=dict.Chars[kdx];
  end;
end;

procedure TForm1.BruteClick(Sender: TObject);
var
  c1,c2,c3:integer;
  InStr,key,res:string;
  maxO,cntO:integer;
begin
  maxO:=0;
  InStr:=InText.Lines.Text.ToUpper;
  for c1 := Low(dict) to High(dict) do
    for c2 := Low(dict) to High(dict) do
      for c3 := Low(dict) to High(dict) do
      begin
        key:=dict[c1]+dict[c2]+dict[c3];
        res:=VIS(InStr,key);
        cntO:=res.CountChar('О')+res.CountChar('А')+res.CountChar('Е')+res.CountChar('_');
        if cntO>maxO then
        begin
          maxO:=cntO;
          KeyEd.Text:=key;
          OutText.Lines.Text:=res;
          Application.ProcessMessages;
        end;
      end;
end;

Спасибо! Очень было интересно как все таки вскрыть программно. Как доберусь домой - изучу.

[Asmodei]

Здравствуйте. Текст точно этот, длина ключа 4. Если можно пояснить как же все таки это делается, в идеале с примером на Python

МЕЩИЯРЕЕЗЪУСУГКИЩТЩЛГКЮЮЪФЙ_МОЙ_ЭУЛННРУЯЗХРКЩХЛ_КВЪЕШФЩНИОЖ
НВШККЦПЪЬЕХРРИШКМЫКЕКРВШАЗНЩМЧГХТМЛЬКИШКИЗЗРННЖКВЗФРТРВМАХН
ЩВЩНУХЗГНТЦПЛТЦЕКПШИСДНВБЕФВЩТЧУЛВРХЖ_РРЯОШПЛЦРАКВЗНЩМЧЯИТН
УКЕНВШАМСКПШИЩБШГТОКГЭЬЗЕКДКСУЧХЮФ_КЛП_ИВЧА_ЛШЫЗЩУФШСНЫНВЮС
ЪУЩЙЩХНАЗЕЩЗКУЛЩИАЭ_РРЯОШПЛЦРЛКЕНВЪЕШЕЩНИЪЛЛГРЮЮЗЧЩРФЦККИЙП
ОНВЭАТСР_ЫФЭРЦМЬТКСКМЦЙШОЗТЫЕМФЭАКЛЭЬЗНЛКЗРЛБЦУКПНУРКУАБАЪИ
ЦЕСВЮПШГНЛЖАГИЭВЪОЪСХОФВЗЛННЭРЦРЩВЗ_ЭИЗТРРННЦЮЯГЭЕУЛКОЙЮБНЦ
ВУЗЛСЭАКОУВИИЧЫНВУЗЗНЫЕФРУЯЗНЫАСРР_ФГЦЫЗЛКСШГМАЪЮНАЕХКПЦЗКД
НМЬТКЛРМЗ_ЦЕТХЫИЯИЬКРШКЗИУЙДЦЕКЧШИТВВЪЛЙХСКБВФЭРЦВЭЕФВЬАФЮЧ
_КСЬПШСУЗКСПЯЗХРКЩХКНИВЗКШГШЕЗТРРЩСШАУЯШОЛСККЦПЪЬЕХРРИВЧУПЮ
ХУЗРЛ_ЧУЩИЛУЕВИХРЛНВХОФТЛКЪЗУСТСН_РВХОФГШДВВМАХНЩВЩНЩМЫВЛВЪ
СЧАЪЦККЦХЩРВМКВВЗЛЕЪВНАФВШАУЛБНЦФЭЬЗОРГТСКПШСЬЛНЗУТГВХАТВЬТ
ШСХАЗХРКЩХЛ_ЧУРВШГЭИУГЬЬЗЕКНИДЩРЗЗНОРЪШЫЭВБИЩИЦ_ЯХЩБВВЪОХБЭ
ЬЗНЛКЗТЫЕЦДЫАПЦИТЗЗЫУЛЛР_КЛПЫЗЗЛНХЮ__КВПВЦЛБНЫАКФЦУЧУЗУЛЗЙИ
ЫЕФВРЩНВЩДРРКПШЛЧЕШВТАЧЛЬЬЗРЛ_КЛШИУСНОСВЪЛИФЭИХНР_ДХЩ_ИРЛЛЦ
ЖЩВЦИКПШИПСЪГНЛНРУЕЗКНУТСНЫЭВХОУИМАХЛФ_ИЦПИЦЛШФЦУЧАЮЛЙ_ЭУЛН
РХЬЯЗРЛ_ХИФ_КВНИМИКМРНЫОЩНЩПРЪРСТЛ__ЙЦООШНЩВЗУЛСЧСЦООИШНВШК
ВЗЗЦИХРЕХЗФЪИШГЦЬХЮ__ТГШАКНЛХЗИЬЛРВН_ТГХОФХЩ_ФИЬТНВЧУПЮХАЗК
НУЯЛЭ_ЛУЩМЯИКБЫЖЩРТЛКГУЦМЖНВНРНКЛЮЪФЙ_КВХАХГНКЫВЛ_ЧУУ_КЮЬОТ
СФ_ХСЭЕЗДЮГЦУХИЗУЛСЧСЦАЛГИТЩБКТНФШЕНВЗТРВМУЛСЫКРВЙВУБИТЩБКА
ХГЦОЛГЧИЗЛЬХЦЗШЫЭВХОУИМАХЛФ_ПЕЮКЦЕЕХЗЕЩЛХВЮЛИЕЦИКГРМВШКМРНЫ
ОЬСШОФВПВРЖЛЯЩЯКПЦВХАХГНКНВУГЦОХАЗТЫОРЖЫЫКГЭЕУБКПЦТЛДИИЭ_ХГ
КБЫЖЩРТЛКИЗЕУБШЛЫУНХКЕНВНИЙУЛЦРБКВЩИКТЦВСЕЗГШАУСООКСР_ЧУРДЩ
ХЛВУИШИНВУСЭСПНЦЖЩ_ПЕЮКИВЮСРОУВИИЭСЖВУ_ПЕЮЧРХКИПВПИХГЧИТСН_
ТГХ_ФЦТЫТГКВРРУЛЦЕЩЙЗТЦАЩХУНТИКПЦЗЩБХСКВЩБХОФЦКАХГЦОЛСНОФЦК
УЩХЫОСФЭВЫВ_РИРРНРБКИХЧЩРФГАИРВЬВЦМЬТКИШ_ШБП_ХИПОЩХЛТТСН_ЧЮ
ЦЬЗФЦЕМЮКПИОЖЦНЕКИУЛКЦИУЛПРРЕ_ХГКПЦЕРРЭРЩСЪЛКПУГЬТРРХИЗПЩГЫ
ХКПШЛНОМЛЭЬЗНКННГПЕТЕЛТХЮЧ_ТСЦЕЙГШИЖПКИЛОЕ_КЮТЫКГЙ_КВПИХГЧИ
ТГ__ЧСЭРНФХИКГШИНВУ_МУЮГРИКШЫПЕ_НФЦИЗФХОШСЬТГВНРИЬРНРБКПУГЬ
ТРРХИЗШЩТЖВМЫЗРРМХСООЗСЭКУСШЯНХЬЯЗСЭ_ПГПАХРЩЙЗЕЕСЦХЛ_ПЕЮКИВ
ЬРИКЮ_ОИКМНРЙЕЪФЙ_ЧУУ_ТГСДЦПКПШСУГШЮНАХЛУ_ЧОЛСЪЛШКРВУГУГКПЦ
ФЭЕЧИШНЦВЬНИЫУВИЕЛЕЪВМУЛСЫКРВН_ТГШАКНР_РВХАЯИЬТКСКЗКЦБАХЛЙ_
ЩСЩТКИЭСЪЕРНХСКУЭЦПШИИЭСЖВРСУЛКЖНВХАТЦИНРДЮДГВЪЕЩРИ_ПГЪИЩГЭ
ЬЗФКВРРУЛЦЕЩЙЗТЦАЩХУНТЛКНИВХАЩФРТХЮФ_ФГОНРХЩФЦРКТЦВНСНВВЕШС
_ОКГЭОЩХУ_ЧИЫЕХСЬЯЪФЙ_ХГКПУИШКЫВЛ_ЩСКВШИЧЕХИЧ_ТВШИФВПОЙГНЯЪ
ФЙ_ХСНЫНВЪОЪСЧУЗЪЭОЗСМЫЯРЕЕЗПЛГХЛЭОЬСШЫЗФЛМРВЙВУБИТЩБКАХГЦО
ЛСНЫФЛКУЩХЫОСФЭВИПУ_ЪГХИФВЩБШГТОФВЪРРВХАОЗЩЙЗТРРНКЛПРФУ_РОУ
_ЧИЫЕМГБЕЗЛШФЦУЧАЮЛЙ_ЪИЫЯНХКВЗНЛЧНФЭВНВ