Registriert seit: 6. Dez 2005
999 Beiträge
|
AW: Rijndael decrypt mit Passwort & IV als Passphrase
23. Feb 2018, 21:14
Hier ein volständiges Programm analog zu C mit Ver- und Entschlüssseln (ich benutze Deinem IV in C hat man 16 0-Bytes).
Delphi-Quellcode:
program T_DCP;
{$apptype console}
uses
SysUtils,
Classes,
DCPcrypt2,
DCPblockciphers,
DCPrijndael;
var
AES: TDCP_rijndael;
var
sm_chain0: array[0..15] of Ansichar = 'Vector16_1234567';
key: array[0..15] of Ansichar = '1234567890123456';
szDataIn1: array[0..47] of Ansichar = 'ababababccccccccababababccccccccababababcccccccc';
procedure TestCBCDP;
var
i: integer;
var
tmp,szDataOut: array[0..47] of Ansichar;
begin
//fillchar(sm_chain0, sizeof(sm_chain0), 0);
//Verschlüsseln
AES.CipherMode := cmCBC;
AES.Init(key,128,@sm_chain0);
AES.EncryptCBC(szDataIn1,szDataOut,sizeof(szDataIn1));
writeln('Verschuesseln: ');
writeln(szDataOut);
//Entschlüsseln
AES.CipherMode := cmCBC;
AES.Init(key,128,@sm_chain0);
AES.DecryptCBC(szDataOut,tmp,sizeof(szDataIn1));
writeln('Ver + Entschuesseln: ',tmp);
end;
begin
AES := TDCP_rijndael.Create(nil);
TestCBCDP;
end.
Und das Ergebnis
Code:
C:\TMP\yy>T_DCP.exe
Verschuesseln:
à¤┌é┴╠7}Ê©▄ÒáÁ¬, 3{┐Wf╔♣╣[G☺
Ver + Entschuesseln: ababababccccccccababababccccccccababababcccccccc
|
|
Zitat
|