Einzelnen Beitrag anzeigen

Andreas L.

Registriert seit: 23. Mai 2011
Ort: Furth im Wald
308 Beiträge
 
Delphi 11 Alexandria
 
#11

AW: Verschlüsselung

  Alt 20. Sep 2014, 20:40
Ich verwende dafür das DEC. Ist OpenSource, unterstützt sehr viele Verschlüsselungs- sowie Hash-Algorithmen und ist sehr einfach in der Anwendung:

Delphi-Quellcode:
uses
  ..., DECCipher, DECUtil, DECFmt;

...

var
  Cipher: TCipher_Blowfish;
begin
  // hier z. B. der Algorithmus "Blowfish",
  // in DECCipher.pas sind noch viele weitere definiert...

  Cipher := TCipher_Blowfish.Create;
  try
    // Initialisieren mit dem Passwort und einem Salt
    Cipher.Init('Passwort', 'Salt');

    // String verschlüsseln
    StrOutput := Cipher.Encode(StrInput, TFormat_HEX);

    // Datei verschlüsseln
    Cipher.EncodeFile('C:\Quelle.dat', 'C:\Ziel.dat', nil);

    // Stream verschlüsseln
    Cipher.EncodeStream(SourceStream, DestinationStream, SourceStream.Size, nil);

    // Analog zu den Encode-Methoden gibt es natürlich auch noch Decode-Methoden ;-)
  finally
    // Zum Schluss: Speicher freigeben
    FreeAndNil(Cipher);
  end;
end;
Andreas Lauß
Blog

Geändert von Andreas L. (20. Sep 2014 um 20:47 Uhr)
  Mit Zitat antworten Zitat