String ver-/ entschlüssel - einfach ohne Sonderzeichen

[Andreas L.]

Ich verwende zum verschlüsseln das DEC (Delphi Encryption Compedium) von Hagen Redman. Kostenloser Download:

• https://github.com/decfpc/DelphiEncryptionCompendium (Auf "Clone or download" und dann auf "download zip" klicken) (von 2017)
• https://github.com/winkelsdorf/Delph...3/DEC_v5.2.zip (von 2015)

Ich verwende DEC 5.2. Die obere Variante ist für neuere Delphi-Versionen.

Beispiel-Code:

Delphi-Quellcode:

function TfrmStringEncrypter.Crypt(
  AText: RawByteString;
  APassword: RawByteString;
  AAlgorithm: TCipherAlgorithm = caBlowfish;
  AEncrypt: Boolean = True): RawByteString;
var
  Cipher: TDECCipher;
begin
  // Cipher erzeugen
  Cipher := Self.GetCipherClass(AAlgorithm).Create;

  // initialisieren
  Cipher.Init(APassword);

  // String ent-/ver-schlüsseln
  if AEncrypt then
    Result := Cipher.EncodeBinary(AText)
  else
    Result := Cipher.DecodeBinary(AText);

  // Speicher freigeben
  FreeAndNil(Cipher);
end;

Komplettes Demo-Projekt im Anhang!