我使用Delphi XE6和LockBox 3.4.3来运行代码actEncryptStringExecute。此代码是作为问题的答案发布的,如何使用delphi'在密码箱3中使用AES-256加密。 我得到的错误是TSimpleCodec.Begin_EncryptMemory - 错误的模式。
还有另一个问题' TSimpleCodec.Begin_EncryptMemory - 错误的模式'答案是"如果您使用设计时值设置编解码器,则不需要这样做。在设计时这样做容易得多。只需根据需要设置已发布的属性"。
TCodec properties are :-
AdvancedOptions2 = []
AsymetricKeySizeInBits = 1024
ChainMode = ECB (with block padding)
Cipher = Base64
CryptoLibrary = CryptographicLibrary1
Encoding = (TEncoding)
TCryptographicLibrary properties are :-
CustomCipher = (TCustomStreamCipher)
Name = CryptographicLibrary1
ParentLibrary =
代码是: -
var
base64CipherText : String;
PlainTextStr : String;
ReconstructedPlainTextStr : String;
procedure TForm1.btnEncryptClick(Sender: TObject);
begin
PlainTextStr := edtPlainText.Text;
Codec1.EncryptString(PlainTextStr, base64CipherText, TEncoding.Unicode);
lblEncrypted.Caption := base64CipherText;
Codec1.DecryptString(ReconstructedPlainTextStr, base64CipherText, TEncoding.Unicode);
lblReconstructed.Caption := base64CipherText;
end;
在设计时需要更改哪些内容才能让这个最简单的示例正常工作?