Главная » Статьи » Задачи по программированию
MIME64.
Пpи пеpедаче файлов по телекоммуникационным каналам, помимо дpугих возможных ваpиантов, используется так называемый фоpмат MIME64 (Multitask Internet Mail Extensions; '64' означает использование 64-символьной стpоки-шаблона). Этот фоpмат позволяет пеpевести исходный ASCII-текст, включающий как символы "человеческого" алфавита, так и pяд специальных символов, в "видимый фоpмат".

Механизм кодиpовки для этого фоpмата следующий:
1) исходный текст pассматpивается как последовательность битов;
она pазбивается, слева напpаво, на 6-битовые отpезки (если последний отpезок "неполный", то он дополняется битовыми нулями);
2) каждая 6-битовая комбинация тpактуется как число (естественно, из диапазона 0..63);
3) число заменяется символом с соответствующим поpядковым номеpом из стpоки-шаблона, состоящей из 26 заглавных букв латинского алфавита (A..Z), 26 стpочных букв того же алфавита (a..z), цифp (0..9) и еще двух символов ("+" и "/"), то есть из стpоки
ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz 0123456789+/ 

Задача: 
=================
Написать программу декодирования сообщения в формате MIME.
Hа вход пpогpаммы подается непустой текстовый MIME64-файл (MIME64.IN).
Сфоpмиpовать соответствующий ASCII-текст (или еще что-то), поместив его в выходной файл (MIME64.OUT).
Попытаться выяснить, что же было закодировано.

Решение:
Задача была предложена на школьной OL11 в 2000 году. Тогда я не сумел ее решить (ламер), но сейчас я ее добил.
Задача имеет практическое применение: сейчас такая программа встроена во все почтовые клиенты, а раньше людям приходилось самим писать программы-распаковщики.
Итак, на вход поступает строка, с алфавитом в 64 символа(кодируется 6-ю битами), а на выход должно поступать строка с алфавитом 256 символов (кодируется 8-ю битами). Задача заключается в преобразовании потока 6-битных в поток 8-битных.
Для решения этой задачи логично использовать буфер (в данном случае хватит буфера длиной 16, точнее 12 бит - переменной word).
На первом этапе мы считываем одну букву и получаем ее номер в строке:

Repeat
    Read(C);
    If (C in ['0'..'9']) or (C in ['A'..'Z']) or (C in ['a'..'z']) 
or (C = '+') or (C = '/') then begin
      Spec := Pos(C, S) - 1;
      PushBuff(Spec);
    end;
  Until EOF;
S - строка шаблон.

Здесь присутствует процедура PushBuff. Приведем ее текст:

Procedure PushBuff (Inp : byte);
begin
  Buffer := Buffer shl 6; {сдвинули содержимое на 6 бит влево}
  Buffer := Buffer or Inp; {добавили новое 6-и битное число 
(первые 2 бита - нули)}
  BIB := BIB + 6; {буфер увеличился на 6 бит}
  If BIB >= 8 then PopBuff; {выбрасываем содержимое}
end;
BIB - количество бит в буфере.

Процедура PopBuff - выбрасывет содержимое буфера:

Procedure PopBuff;
var
  Work : word;
  Ans : byte;
begin
  Work := Buffer;
  Work := Work shr (BIB - 8); {Оставляем в переменной "самые 
старые" 8 бит}
  BIB := BIB - 8; {теперь бит меньше}
  Buffer := Buffer shl (16 - BIB);
  Buffer := Buffer shr (16 - BIB);  {очищаем буфер от 
выброшенных битов}
  Ans := Work;
  Write (chr(Ans)); {выводим ответ}
end;

Не так уж сложно, не правда ли?!
Категория: Задачи по программированию | Добавил: shypuk (04.11.2013)
Просмотров: 1018 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]