Base64ToBin

function TdmNAVUtil.NAVTokenDecode(aToken: string): string;
var bytes:TBytes;
    iCikl:integer;
    key:THash128;
    aesecb:TAESECB;
    token:string;
begin
  bytes := TEncoding.UTF8.GetBytes(FTechUser.XMLChange);

  for iCikl := 0 to 15 do
    key[iCikl] := bytes[iCikl];

  aesecb := TAESECB.Create(key);

  token := Base64ToBin(aToken);

  Result := aesecb.DecryptPKCS7(token);
end;