278 end;

   278 end;

   279 

   279 

   280 

   280 

   281 function DecodeBase64(s: shortstring): shortstring;

   281 function DecodeBase64(s: shortstring): shortstring;

   282 const table = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';

   282 const table = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';

   284 begin

   284 begin

   285 c:= 0;

   285 c:= 0;

   286 for i:= 1 to Length(s) do

   286 for i:= 1 to Length(s) do

   287     begin

   287     begin

   288     t:= Pos(s[i], table);

   288     t:= Pos(s[i], table);