Software components for data protection, secure storage and transfer
Crypto : TEl3DESSymmetricCrypto;
Key : TElSymmetricKeyMaterial;
InF, OutF, KeyF : TFileStream;
testkey : ByteArray;
keystring : string;
//Convert some random strings into a 192 bit array.
keystring := '4d89g13j4j91j27c582ji123';
for i := 0 to length(keystring) - 1 do
testkey[i] := Ord(keystring[i]);
//Instantiate the Key object
Key := TElSymmetricKeyMaterial.Create();
Key.Algorithm := SB_PGP_ALGORITHM_SK_3DES;
Key.Key := testkey;
Crypto := TEl3DESSymmetricCrypto.Create(cmCBC);
Crypto.KeyMaterial := Key;
InF := TFileStream.Create('C:\Projects\testencrypt\test.txt', fmOpenRead);
OutF := TFileStream.Create('C:\Projects\testencrypt\encrypted.txt', fmCreate);
Number of guests: 1, registered members: 0,
in total hidden: 0
Copyright (c) 2017, /n software, inc.
As of July 15, 2016 EldoS business operates as a division of /n software, inc. For more information, please read the announcement.