[Admin]

Автор: gta126

Я искал какое-то время, как кодировать Unicode строк в base64, но не находя код на чистый я решил сделать это сам с нуля.Только коды нашел в сети, либо для кодирования ASCII строк (ANSI) является кодирование байтов в ASCII (ANSI)

Источник: http://www.delphifr.com/codes/CODAGE...ODE_53731.aspx

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113

unit untComBase64;   // Version Unicode by gta126   interface   uses SysUtils;   function encode64(s: string): string; function decode64(s: string): string;   implementation   const   tabChar = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';   function encode64(s: string): string; var   i       : Integer; // compteur   charCode: Integer; // code du caractиre dans la table Unicode   valToDec: Integer; // valeur а dйcrйmenter au fur а mesure de la conversion   nbrBits : Integer; // nombre de bits actuellement dans vaToDec (maximum 16 + 4)   charPos : Integer; // position dans le tableau de codage en base64 begin   Result   := '';   charCode := 0;   nbrBits  := 0;   valToDec := 0;     //parcours des caractиres   for i := 1 to Length(s) do   begin     charCode := Ord(s[i]);     nbrBits  := nbrBits + 16;     valToDec := (valToDec shl 16) + charCode;       // traiter les bits tant que l'on sais faire des groupements de 6     while (nbrBits - 6) >= 0 do     begin       nbrBits  := nbrBits - 6;       charPos  := valToDec shr nbrBits;       valToDec := valToDec - (charPos shl nbrBits);       Result   := Result + tabChar[charPos + 1];     end;   end;     // gestion des desniers bits + ajout des complйments   if nbrBits > 0 then   begin     charPos := valToDec shl (6 - nbrBits);     Result  := Result + tabChar[charPos + 1];       for i := 1 to (6 - nbrBits) div 2 do       Result := Result + '=';   end; end;   function decode64(s: string): string; var   i       : Integer; // compteur   charPos : Integer; // position dans le tableau de codage en base64   valToDec: Integer; // valeur а dйcrйmenter au fur а mesure de la conversion   nbrBits : Integer; // nombre de bits actuellement dans vaToDec (maximum 14 + 6)   charCode: Integer; // code du caractиre dans la table Unicode   quitLoop: Boolean; // quitter la boucle oui / non begin   Result   := '';   nbrBits  := 0;   valToDec := 0;   quitLoop := False;     // parcours des caractиres   for i := 1 to Length(s) do   begin     charPos  := Pos(s[i], tabChar) - 1;     nbrBits  := nbrBits + 6;     valToDec := (valToDec shl 6) + charPos;       // cas des derniers bits trop long ( signe = )     if (i + 1 <= Length(s)) and (s[i+1] = '=') then     begin       valToDec := valToDec shr 2;       nbrBits := nbrBits - 2;         if (i + 2 <= Length(s)) and (s[i+2] = '=') then       begin         valToDec := valToDec shr 2;         nbrBits := nbrBits - 2;       end;         quitLoop := True;     end;       // traitement des bits dиs qu'un groupe de 16 est possible     if (nbrBits - 16) >= 0 then     begin       nbrBits  := nbrBits - 16;       charCode := valToDec shr nbrBits;       valToDec := valToDec - (charCode shl nbrBits);       Result   := Result + Char(charCode);     end;       // quitter la boucle en ignorant les autres caractиres ( ignorer les = )     if quitLoop then       Break;   end;     // vйrification   if nbrBits > 0 then     Result:= ''; end;   end.