blob: 1819efbbd5705182379849a85bb860b749836789 (
plain)
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
|
unit Base64;
interface
uses windows;
{ Base64 encode and decode a string }
function BASE64Encode(src:pByte;len:integer):PAnsiChar;
function BASE64Decode(src:PAnsiChar;var dst:pByte):integer;
{******************************************************************************}
{******************************************************************************}
implementation
uses common;
const
base64chars{:array [0..63] of AnsiChar}:PAnsiChar =
'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';
function BASE64Encode(src:pByte;len:integer):PAnsiChar;
var
dst:PAnsiChar;
begin
if (src=nil) or (len<=0) then
begin
result:=nil;
exit;
end;
mGetMem(result,((len*4+11) div (12*4))+1);
dst:=result;
while len>0 do
begin
dst^:=base64chars[src^ shr 2]; inc(dst);
if len=1 then
begin
dst^:=base64chars[(src^ and 3) shl 4]; inc(dst);
dst^:='='; inc(dst);
dst^:='='; inc(dst);
break;
end;
dst^:=base64chars[((src^ and 3) shl 4) or (pbyte(PAnsiChar(src)+1)^ shr 4)]; inc(dst); inc(src);
if len=2 then
begin
dst^:=base64chars[(src^ and $F) shl 2]; inc(dst);
dst^:='='; inc(dst);
break;
end;
dst^:=base64chars[((src^ and $F) shl 2) or (pbyte(PAnsiChar(src)+1)^ shr 6)]; inc(dst); inc(src);
dst^:=base64chars[src^ and $3F]; inc(dst); inc(src);
dec(len,3);
end;
dst^:=#0;
end;
function Base64CharToInt(c:AnsiChar):byte;
begin
case c of
'A'..'Z': result:=ord(c)-ord('A');
'a'..'z': result:=ord(c)-ord('a')+26;
'0'..'9': result:=ord(c)-ord('0')+52;
'+': result:=62;
'/': result:=63;
'=': result:=64;
else
result:=255;
end;
end;
function BASE64Decode(src:PAnsiChar;var dst:pByte):integer;
var
slen:integer;
ptr:pByte;
b1,b2,b3,b4:byte;
begin
if (src=nil) or (src^=#0) then
begin
result:=0;
dst:=nil;
exit;
end;
pAnsiChar(ptr):=src;
while ptr^<>0 do inc(ptr);
slen:=PAnsiChar(ptr)-src;
mGetMem(ptr,(slen*3) div 4);
dst:=ptr;
result:=0;
while slen>0 do
begin
b1:=Base64CharToInt(src^); inc(src);
b2:=Base64CharToInt(src^); inc(src);
b3:=Base64CharToInt(src^); inc(src);
b4:=Base64CharToInt(src^); inc(src);
dec(slen,4);
if (b1=255) or (b1=64) or (b2=255) or (b2=64) or (b3=255) or (b4=255) then
break;
ptr^:=(b1 shl 2) or (b2 shr 4); inc(ptr); inc(result);
if b3=64 then
break;
ptr^:=(b2 shl 4) or (b3 shr 2); inc(ptr); inc(result);
if b4=64 then
break;
ptr^:=b4 or (b3 shl 6); inc(ptr); inc(result);
end;
end;
end.
|
