XXEncode и XXDecode
UUкодирование было наиболее популярным форматом 64 битного кодирования. Ограничение состояло в том, что набор символов не мог транслироваться между наборами ASCII и EBCDIC (IBM мейнфреймы). XXencode очень похож на UUEncode, просто используется другой набор символов, что более удобно между различными типами систем, например как указано выше между EBCDIC и ASCII.
| Набор символов XXEncode | |||||||||||||||||
| 0 + | 8 6 | 16 E
| 24 M | 32 U | 40 c | 48 k | 56 s | ||||||||||
| 1 - | 9 7 | 17 F | 25 N | 33 V | 41 d | 49 l | 57 t | ||||||||||
| 2 0 | 10 8 | 18 G | 26 O | 34 W | 42 e | 50 m | 58 u | ||||||||||
| 3 1 | 11 9 | 19 H | 27 P | 35 X | 43 f | 51 n | 59 v | ||||||||||
| 4 2 | 12 A | 20 I | 28 Q | 36 Y | 44 g | 52 o | 60 w | ||||||||||
| 5 3 | 13 B | 21 J | 29 R | 37 Z | 45 h | 53 p | 61 x | ||||||||||
| 6 4 | 14 C | 22 K | 30 S | 38 a | 46 i | 54 q | 62 y | ||||||||||
| 7 5 | 15 D | 23 L | 31 T | 39 b | 47 j | 55 r | 63 z | ||||||||||
Заметим что если для UUEncode используется подмножество набора символов ASCII (32..96), то для XXEncode это не так.
Для преобразования процедур Triplet2Kwartet и Kwartet2Triplet для поддержки мы вводим дополнительный массив из 64 символов.
Нам также необходимо модифицировать процедуры Triplet2Kwartet и Kwartet2Triplet следующим образом.
const
XX: Array[0..63] of Char =
'+-0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz';
procedure
Triplet2Kwartet(const Triplet: TTriplet;
var
Kwartet: TKwartet);
var
i: Integer;
begin
Kwartet[0] := (Triplet[0] SHR
2);
Kwartet[1] := ((Triplet[0] SHL
4) AND $30) +
((Triplet[1] SHR
4) AND $0F);
Kwartet[2] := ((Triplet[1] SHL
2) AND $3C) +
((Triplet[2] SHR
6) AND $03);
Kwartet[3] := (Triplet[2] AND
$3F);
for i:=0 to 3 do
if Kwartet[i] = 0 then
Kwartet[i] := $40 + Ord(SP)
else
Inc(Kwartet[i],Ord(SP));
if XXCode then
for i:=0 to 3 do
Kwartet[i] := Ord(XX[(Kwartet[i] - Ord(SP)) mod $40])
end {Triplet2Kwartet};
Последние несколько строк новые для процедуры Triplet2Kwartet и мы используем набор символов XXencode для возврата правильно закодированных символов. Помните, что UUEncode возвращает индекс кодированного символа, после чего мы к нему добавляем код #32, так что если XXencode используется после преобразования в UUEncode, то мы должны вычесть 32 и использовать результат как индекс в таблицу символов XXencode.
То же самое относится и к процедуре Kwartet2Triplet, где мы должны преобразовать XXencode символы перед использованием алгоритма UUdecode (заметим, что мы теперь не передаем Kwartet как const).
procedure Kwartet2Triplet(Kwartet: TKwartet;
var Triplet: TTriplet);
var
i: Integer;
begin
if
XXCode then
begin
for
i:=0 to 3 do
begin
case
Chr(Kwartet[i]) of
'+': Kwartet[i] := 0 + Ord(SP);
'-': Kwartet[i] := 1 + Ord(SP);
'0'..'9': Kwartet[i] := 2 + Kwartet[i]
- Ord('0') + Ord(SP);
'A'..'Z': Kwartet[i] := 12 + Kwartet[i]
- Ord('A') + Ord(SP);
'a'..'z': Kwartet[i] := 38 + Kwartet[i]
- Ord('a') + Ord(SP)
end
end
end;
Triplet[0] := ((Kwartet[0] - Ord(SP)) SHL 2) +
(((Kwartet[1] - Ord(SP)) AND $30) SHR
4);
Triplet[1] := (((Kwartet[1] - Ord(SP)) AND $0F) SHL
4) +
(((Kwartet[2] - Ord(SP)) AND $3C) SHR
2);
Triplet[2] := (((Kwartet[2] - Ord(SP)) AND $03) SHL
6) +
((Kwartet[3] - Ord(SP)) AND $3F)
end
{Kwartet2Triplet};
Заметим, что в новой версии этих процедур используется глобальная переменная XXCode логического типа для определения типа кодирования.
