So, hier ein kurzes Beispiel zur Nutzung der
DEC für den betreffenden Anwendungsfall.
Die relativen Pfade kommen aus dem Umstricken eines Demoprogramms auf den Anwendungsfall.
Braucht also mit Objekterzeugung und Freigabe 5 Zeilen. Dateien werden als Binärdateien
betrachtet, auch wenn das Beispiel eine Textdatei benutzt.
Delphi-Quellcode:
program Cipher_File;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils,
DECBaseClass
in '
..\..\Source\DECBaseClass.pas',
DECCipherBase
in '
..\..\Source\DECCipherBase.pas',
DECCipherModes
in '
..\..\Source\DECCipherModes.pas',
DECCiphers
in '
..\..\Source\DECCiphers.pas',
DECCRC
in '
..\..\Source\DECCRC.pas',
DECFormat
in '
..\..\Source\DECFormat.pas',
DECFormatBase
in '
..\..\Source\DECFormatBase.pas',
DECTypes
in '
..\..\Source\DECTypes.pas',
DECUtil
in '
..\..\Source\DECUtil.pas',
DECData
in '
..\..\Source\DECData.pas',
DECCipherFormats
in '
..\..\Source\DECCipherFormats.pas',
DECUtilRawByteStringHelper
in '
..\..\Source\DECUtilRawByteStringHelper.pas',
DECCipherInterface
in '
..\..\Source\DECCipherInterface.pas',
DECDataCipher
in '
..\..\Source\DECDataCipher.pas';
var
Cipher : TCipher_AES;
begin
Cipher := TCipher_AES.Create;
try
try
// Schlüssel, Initialisierungsvektor, Füllwert um auf Blockgröße aufzufüllen
Cipher.Init('
Passwort', #1#2#3#4#5#6#7#64, 0);
Cipher.Mode := cmCBCx;
// Klartextdatei, verschlüsselte Datei
Cipher.EncodeFile('
test.txt', '
test.encr');
ReadLn;
except
on E:
Exception do
Writeln(E.ClassName, '
: ', E.
Message);
end;
finally
Cipher.Free;
end;
end.