Интернет-решения от доктора Боба




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




Содержание  Назад  Вперед