ROOT:\SRC\>type base64.txt

{Разобраться надеюсь труда не составит. Она правда немного кривая, а именно на неполной строке в конце появляется мусор – максимум 2 байта. Для меня это роли не играло – поэтому оставил так{}

function TForm1.MimeEncode(s:string):string;
var
  s64: string;
  i, j: integer;
  k: extended;
  n: Integer;
  l: integer;
begin
  s64 :='ABCDEFGHIJKLMNOPQRSTUVWXYZ'
  +'abcdefghijklmnopqrstuvwxyz0123456789+/';
  k:=0;
  Result:='';
  for i:=1 to 4 do begin
    k:=k*64+Pos(Copy(s,i,1), s64)-1;
  end;
  for i:=1 to 3 do begin
    n:=0;
    l:=1;
    for j:=1 to 2 do begin
      n:=n+(Trunc((k/16-Trunc(k/16))*16))*l;
      l:=l*16;
      k:=Trunc(k/16);
    end;
    Result:=Chr(n)+Result;
  end;
end;  

ROOT:\SRC\>_

Гостевая книга и  Мыло к Вашим услугам Благодарю www.narod.ru за размещение ресурса