Wenn ich mich recht entsinne, brauchst Du nur das Projekt (DCPCrypt) kompilieren (installieren der Komponenten funktioniert eh nicht in der Freeware Version des Turbo Explorer's). Natürlich müssen die Pfade zu den DCPCrypt-Verzeichnissen in den Optionen vom TE (Blibliothekspfad und Suchpfad) bzw. in den Projekt-Optionen deines Prog's gesetzt werden.
Anschliessend bindest Du nur noch die benötigten Units in ein entspr. Modul Deines Projekts ein:
Im folgenden wird zum Beispiel RC4 mit SHA1 verwendet:
Delphi-Quellcode:
unit MyCrypt;
interface
uses
..., DCPcrypt2, DCPrc4, DCPsha1;
...
implementation
...
function TCrypt.CodeData(
const TheData:
string; DoEncrypt:Boolean):
string;
var
Cipher: TDCP_rc4;
begin
Result := '
';
if Trim(TheData) = '
'
then Exit;
Cipher:= TDCP_rc4.Create(
nil);
Cipher.InitStr(myKeyPhrase, TDCP_sha1);
// initialize the cipher with a hash of the passphrase
...
FreeAndNil(Cipher);
end;
Eine Verwendung der Komponenten aus entspr. Palette ist also nicht notwendig.