Dein Sourcecode und wohl auch die Exe enthalten kein Entfernen des Paddings und ergeben deshalb Schrott. Mit dieser meiner Änderung funktionierts
Verschlüsseln
'Edit1' -> 'zwag7rEW4OWtTLpCHdbyoA=='
Entschlüsseln:
'zwag7rEW4OWtTLpCHdbyoA==' -> 'Edit1'
Delphi-Quellcode:
function DecryptText():String;
var Cipher : TDCP_rijndael;
Data, Key, IV : ansistring;
index, dataLength, bsize, pad: integer;
begin
key := '12345678901234567890123456789012';
IV := '1234567890123456';
Data := DCPBase64.Base64DecodeStr(form1.Edit1.text);
Cipher := TDCP_rijndael.Create(NIL);
try
Cipher.Init(Key[1],128,@IV[1]);
Cipher.DecryptCBC(Data[1],Data[1],Length(Data));
pad := 16- ord(Data[length(Data)]);
for index :=1 to pad do delete(Data,length(Data),1);
finally
Cipher.Burn;
Cipher.Free;
end;
form1.Memo1.Lines.Add(Data);
end;