Einzelnen Beitrag anzeigen

amigage

Registriert seit: 11. Nov 2005
Ort: Leipzig
256 Beiträge
 
Delphi 11 Alexandria
 
#3

AW: DCPCrypt in RAD Studio 10.3/10.4

  Alt 17. Nov 2020, 17:40
Danke für die schnelle Antwort.
Hier ist der interface Teil.
Delphi-Quellcode:
uses
  {$ifdef NEXTGEN_FIXES}
    ORawByteString,
  {$endif}
     Sysutils;

function Base64EncodeStr(const Value: AnsiString): AnsiString; overload;
  { Encode a string into Base64 format }
function Base64DecodeStr(const Value: AnsiString): AnsiString; overload;
  { Decode a Base64 format string }
{$IFDEF UNICODE}
function Base64EncodeStr(const Value: UnicodeString): UnicodeString; overload;
  { Encode a Unicode string into Base64 format }
function Base64DecodeStr(const Value: UnicodeString): UnicodeString; overload;
  { Decode a Base64 format Unicode string }
{$ENDIF}
function Base64Encode(pInput: pointer; pOutput: pointer; Size: longint): longint;
  { Encode a lump of raw data (output is (4/3) times bigger than input) }
function Base64Decode(pInput: pointer; pOutput: pointer; Size: longint): longint;
  { Decode a lump of raw data }
  Mit Zitat antworten Zitat