Расшифровка текста (основы криптоанализа)

[Montysson]

Всем доброго времени суток!!

Необходимо расшифровать несложный текст, для этого я начал писать программу, которая выводит число разных символов в тексте и частоту, с которой они встречаются, вот скрин:



Но проблема в том, что в тексте есть символы, которых нет в таблице ascii, поэтому когда я беру

Ord('символ')

добавляю в массив символов:

var
  arCharCnt: array of integer;

  Inc(arCharCnt[Ord('символ')]);

а потом пытаюсь отобразить количество разных символов в таблицу заносятся пустые строки, тогда я написал небольшой юнит, вот часть кода:

var
  arSymbols: array [0 .. 32] of string = (
    'Ноль',
    'Начало заголовка',
    'Начало текста',
    'Конец текста',
    'Конец передачи',
    'Запрос',
    'Подтверждение',
    'Звуковой сигнал',
    'Возврат на шаг',
    'Горизонтальная табуляция',
    'Перевод строки',
    'Вертикальная табуляция',
    'Прогон страницы',
    'Возврат каретки',
    'Сдвиг наружу',
    'Сдвиг внутрь',
    'Выход из линии данных',
    'Управляющий 1',
    'Управляющий 2',
    'Управляющий 3',
    'Управляющий 4',
    'Отрицательное подтверждение',
    'Синхронизация',
    'Конец блока',
    'Отмена',
    'Конец линии передачи',
    'Замена',
    '<Escape>',
    'Разелитель файла',
    'Разделитель группы',
    'Разделитель записи',
    'Разделитель блока',
    'Пробел'
  );

implementation

function GetCharTransfer(const ACharOrd: Integer): string;
begin
  case ACharOrd of
    0 .. 32:
      Result := arSymbols[ACharOrd]
  else
    Result := Chr(ACharOrd);
  end;
end;

в этом юните как видите есть функция, которая берет

Chr('Символ')

Вообщем это не правильный подход, а как мне сделать, чтобы в таблицу заносились именно те символы, которые находятся в текстовом файле и отображаются в TRichEdit?

[Человек_Борща]

А вы учитываете одировку файла? А может там UTF-8?

[Montysson]

Я и сам догадывался что дело в кодировке, может вы дадите более конкретный совет? Что мне сделать, чтобы не было проблем с кодировкой?

[Человек_Борща]

Определите кодировку файла, а затем перебейте в нужную вам, или используйте символы из той, в которой файл.

Вот вариант: http://www.zubymplayer.com/blog/unicoder/2010-01-23-2

[Montysson]

Человек_Борща, использование того юнита ничего не дало. Не получилось подобрать нужную кодировку, какие еще можете предложить варианты?

Прикрепляю несколько файлов, может быть если будет видно что они из себя представляют, то и легче будет мне помочь.

У нас запрещено "апить" свои темы...
Карается так же, как и флуд.
Читайте правила раздела.