Registriert seit: 23. Mai 2011
Ort: Furth im Wald
308 Beiträge
Delphi 11 Alexandria
|
AW: Verschlüsselung
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;
Geändert von Andreas L. (20. Sep 2014 um 20:47 Uhr)
|
|
Zitat
|