program Project3;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  windows, System.SysUtils;

function sprintf(S: PAnsiChar; const Format: PAnsiChar): Integer; cdecl; varargs;
  external 'msvcrt.dll';

function ZStartTime(var StartTime: Int64): Boolean;
begin
  Result := QueryPerformanceCounter(StartTime);
end;

function ZStopTime(const StartTime: Int64): AnsiString;
var
  iCounterPerSec, StopTime: Int64;
  time: Single;
begin
  if QueryPerformanceCounter(StopTime) then
  begin
    if QueryPerformanceFrequency(iCounterPerSec) then
    begin

      time := (0 - StartTime + StopTime) / iCounterPerSec;

      Result := '';
      SetLength(Result, 25);

      SetLength(Result, sprintf(PAnsiChar(Result), 'Result: %f sec.', time));
    end
    else
      Result := 'Error[ZStopTime(QueryPerformanceFrequency)]';
  end
  else
    Result := 'Error[ZStopTime(QueryPerformanceCounter)]';
end;

function base64_encode(const str: string): string;
const
  table: PWideChar = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';
type
  PArrayChars = ^TArrayChars;
  TArrayChars = array of Char;
  TArrayBytes = array of Byte;
var
  len, i, r, j: Integer;
  f: TArrayBytes;
  c: PWideChar;
  bb: Char;
begin
  j := 0;
  r := 0;
  len := Length(str);

  SetLength(f, len * 3);

  c := Pointer(str);
  bb := c[0];
  while bb <> #0 do
  begin
    if (WORD(bb) < $00000080) then
    begin
      f[j] := WORD(bb);
      inc(j, 1);
    end
    else if (WORD(bb) < $00000800) then
    begin
      f[j] := $C0 or ((WORD(bb) shr 6) and $FF);
      f[j + 1] := $80 or (WORD(bb) and $3F);
      inc(j, 2);
    end
    else if (WORD(bb) < $00010000) then
    begin
      f[j] := $E0 or ((WORD(bb) shr 12) and $FF);
      f[j + 1] := $80 or ((WORD(bb) shr 6) and $3F);
      f[j + 2] := $80 or (WORD(bb) and $3F);
      inc(j, 3);
    end
    else if (WORD(bb) < $00200000) then
    begin
      f[j] := $F0 or ((WORD(bb) shr 18) and $FF);
      f[j + 1] := $80 or ((WORD(bb) shr 12) and $3F);
      f[j + 2] := $80 or ((WORD(bb) shr 6) and $3F);
      f[j + 3] := $80 or (WORD(bb) and $3F);
      inc(j, 4);
    end
    else if (WORD(bb) < $04000000) then
    begin
      f[j] := $F8 or ((WORD(bb) shr 24) and $FF);
      f[j + 1] := $80 or ((WORD(bb) shr 18) and $3F);
      f[j + 2] := $80 or ((WORD(bb) shr 12) and $3F);
      f[j + 3] := $80 or ((WORD(bb) shr 6) and $3F);
      f[j + 4] := $80 or (WORD(bb) and $3F);
      inc(j, 5);
    end
    else if (WORD(bb) < $80000000) then
    begin
      f[j] := $FC or ((WORD(bb) shr 30) and $FF);
      f[j + 1] := $80 or ((WORD(bb) shr 24) and $3F);
      f[j + 2] := $80 or ((WORD(bb) shr 18) and $3F);
      f[j + 3] := $80 or ((WORD(bb) shr 12) and $3F);
      f[j + 4] := $80 or ((WORD(bb) shr 6) and $3F);
      f[j + 5] := $80 or (WORD(bb) and $3F);
      inc(j, 6);
    end;
    inc(r);
    bb := c[r];
  end;

  SetLength(Result, ((j + 2) div 3) * 4);

  i := 0;
  r := 0;
  while j >= 3 do
  begin
    PArrayChars(@Result)^[r + 0] := table[f[i] SHR 2];
    PArrayChars(@Result)^[r + 1] := table[((f[i] and 3) SHL 4) or (f[i + 1] SHR 4)];
    PArrayChars(@Result)^[r + 2] := table[((f[i + 1] and 15) SHL 2) or (f[i + 2] SHR 6)];
    PArrayChars(@Result)^[r + 3] := table[f[i + 2] and 63];
    inc(i, 3);
    inc(r, 4);
    dec(j, 3);
  end;

  case j of
    1:
      begin
        PArrayChars(@Result)^[r + 0] := table[f[i] SHR 2];
        PArrayChars(@Result)^[r + 1] := table[f[i] and 3 SHL 4];
        PArrayChars(@Result)^[r + 2] := '=';
        PArrayChars(@Result)^[r + 3] := '=';
      end;
    2:
      begin
        PArrayChars(@Result)^[r + 0] := table[f[i] SHR 2];
        PArrayChars(@Result)^[r + 1] := table[((f[i] and 3) SHL 4) or (f[i + 1] SHR 4)];
        PArrayChars(@Result)^[r + 2] := table[f[i + 1] and $0F SHL 2];
        PArrayChars(@Result)^[r + 3] := '=';
      end;
  end;
end;

var
  i: Cardinal;
  StartTime: Int64;

begin
  try
    Writeln(base64_encode('Русский Текст'));
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  Readln;

end.