64-битное кодирование/декодирование
64-битное кодирование/декодирование
64-битное кодирование/декодирование
const
base64table='abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz0123456789+/';
function base64decode(cstr:string):string;
var resstr:string;
decstr:string;
recodeline : array [1..76] of byte;
f1,f2 : word;
l:integer;
begin
l :=length(cstr);
resstr:='';
for f1:=1 to l do
if cstr[f1]='=' then recodeline[f1]:=0
else recodeline[f1]:=pos(cstr[f1],base64table)-1;
f1:=1;
while f1
