在运行时调用LockBox3例程

时间:2015-10-08 11:06:42

标签: lockbox-3

我已经从GitHub下载并安装了TurboPack LockBox3到RAD Studio XE6。如果我将必要的组件放在表单上,​​那么一切正常。但是,我需要能够在运行时调用我的加密例程,因此为了测试目的,创建了一个带有几个编辑框和一个按钮的表单。按钮事件处理程序包含以下内容:

RewriteRule ^([^/]*)/?$ /full_posts.php?permalink=$1 [L]
RewriteRule ^category/([^/]*)/?$ /search.php?category=$1 [L]

它编译得很好,但在运行时我得到一条错误消息'TSimpleCodec.Begin_EncryptMemory - Algorithms not set。'我假设我没有正确初始化,但看不到什么。有人能指出我正确的方向吗?

1 个答案:

答案 0 :(得分:1)

我拥有它。正确的代码应该是:

    Codec1 := TCodec.Create(nil);
    CLib := TCryptographicLibrary.Create(nil);
    Codec1.CryptoLibrary := CLib;
    Codec1.StreamCipherId := uTPLb_Constants.BlockCipher_ProgId;
    Codec1.BlockCipherId := 'native.AES-256';
    Codec1.ChainModeID := uTPLb_Constants.CBC_ProgId;
    Codec1.AsymetricKeySizeInBits := 1024;
    Codec1.Password := Password;

我已经初始化了Cipher,而不是上面的BlockCipherID。