个人中心
文章发布
退出
作者热门文章
- html - 出于某种原因，IE8 对我的 Sass 文件中继承的 html5 CSS 不友好？
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景？
25
4
我在使用 DCP Crypt 库加密和解密某些信息时遇到问题。我正在使用 Delphi XE 和发布在 PHP to Delphi and back Encryption-Decryption using Rijndael 上的函数，但它不起作用。
我认为我的问题是因为我使用的 key 是十六进制模式而不是二进制。
var
Key, IV: ansiString;
Data: ansiString;
begin
Key := '09CB0785F13CD0D557C0940E72E0DCDC86CDC89769044E95DB51A782E7D996FFF3';
Iv := '09CB0785F13CD0D557C0940E72E0DCDC';
Data := <?xml version="1.0" encoding="UTF-8"?><MyNode><Head><CustNo>...';
EncryptData函数，我必须以二进制还是十六进制传递公钥？
asCryptBody := EncryptData(asXMLBody, Public_Key, Init_vector);
asCryptBody := EncryptData(asXMLBody, HexToStrBin(Public_Key), HexToStrBin(Init_vector));
function StrBinToHex(const s: AnsiString): AnsiString;
var
i:integer;
begin
result := '';
for i := 1 to length(s) do
result := result + inttohex(Ord(s[i]),1);
end;
function HexToStrBin(const s: AnsiString): AnsiString;
var
i:integer;
begin
result := '';
for i := 1 to (length(s) div 2) do
result := result + char( strtoint('$'+ copy(s,(i*2)-1,2)) );
end;
最佳答案
非常感谢大家的回答。
现在解决了。
问题是:
- 我的键和 ini.vector 是一个带有十六进制值的字符串
- 然后我必须使用自己的函数将 key 和初始化向量从具有十六进制 key 值的 ansistring 转换为 TByte:StrHexToTBytes
- 在地穴之前，不要添加填充。
- 不要对加密的 TBytes 结果进行 base64decode 并将其放入带有 TEncoding.Default.GetString 的字符串中
- 然后为了我的使用，我将此字符串结果传递给具有十六进制值的字符串。
正如我在标题中发布的那样，Delphi 版本是 XE。
function StrHexToTBytes(const Hexstr: AnsiString): TBytes;
var
i: Integer;
begin
SetLength(Result, Length(Hexstr) div 2);
for i:=0 to (Length(Hexstr) div 2 - 1) do
Result[i]:= StrToInt('$' + Copy(Hexstr, (i * 2) + 1, 2));
end;
function EncryptData(const Data, AHexKey, AHexIv: AnsiString): Ansistring;
var
cipher: TDCP_rijndael;
key, iv, src, dest : TBytes;
slen: integer;
begin
/// La clau pública és una cadena de valors Hexadecimals, i s'ha de convertir a un array de Bytes.
/// The Key and IV are an Hex ansistring, and must converted to TBytes
key := StrHexToTBytes(AHexKey);
iv := StrHexToTBytes(AHexIv);
/// Les dades estan en una cadena de caracters i s'ha de passar directament a un array de bytes
/// The Data is plain text in a string and must converted to TBytes
src := TEncoding.UTF8.GetBytes(Data);
cipher := TDCP_rijndael.Create(nil);
try
cipher.CipherMode := cmCBC;
slen := Length(src);
/// Ull No s'ha de fer cap padding del text rebut!!!
/// Attention, the pading is not necessary!!!
{
// Add padding.
// Resize the Value array to make it a multiple of the block length.
// If it's already an exact multiple then add a full block of padding.
slen := Length(src);
bsize := (cipher.BlockSize div 8);
pad := bsize - (slen mod bsize);
Inc(slen, pad);
SetLength(src, slen);
for index := pad downto 1 do
begin
src[slen - index] := pad;
end;
}
SetLength(dest, slen);
cipher.Init(key[0], 256, @iv[0]); // DCP uses key size in BITS not BYTES
cipher.Encrypt(src[0], dest[0], slen);
/// El resultat no s'ha de codificar en base 64, es un binary que només s'ha de passar a Hexadecimal
/// The result does'nt must be converted to based 64, is a binary that must be puttd into a string.
// b64 := Base64EncodeBytes(dest);
// result := TEncoding.Default.GetString(b64);
result := TEncoding.Default.GetString(dest);
finally
cipher.Free;
end;
end;
关于delphi - 我的 key 的二进制和十六进制字符串表示之间的差异是 DCPCrypt 意外输出的原因吗？，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/17062511/
25
4
0
查看“mysqldump -d”并看到一个键是 KEY，而不是“PRIMARY KEY”或“FOREIGN KEY” 什么是关键？ 示例: CREATE TABLE IF NOT EXISTS `TA
在我开始使用 Python 的过程中尝试找出最佳编码实践。我用 Pandas 写了一个 csv 到数据框阅读器。它使用格式: dataframe = read_csv(csv_input, useco
在 Flutter 中，用一个例子可以清楚地解释什么？ 我的困惑是关于 key，如下面的代码所示。 MyHomepage({Key key, this.title}) : super(key: key
我在我的 Android 应用程序中使用 GCM。要使用 GCM 服务，我们需要创建 Google API key 。因此，我为 android、服务器和浏览器 key 创建了 API key 。似乎
我想在 azure key 保管库中创建一个 secret ，该 key 将具有多个 key (例如 JSON)。 例如- { "storageAccountKey":"XXXXX", "Co
尝试通过带有 encodeforURL() 的 url 发送 key 时，我不断收到错误消息和 decodefromUrl() .代码示例如下。 这是我的入口页面: key = generateSec
是否有检查雪花变体字段中是否存在键的函数？ 最佳答案 您可以使用 IS_NULL_VALUE 来查看 key 是否存在。如果键不存在，则结果将为 NULL。如果键存在，如果值为 JSON null，则
我正在尝试运行此命令: sudo apt-key adv --keyserver keys.gnupg.net --recv-keys 1C4CBDCDCD2EFD2A 但我收到一个错误: Execu
我有一个 csv 文件，我正在尝试对 row[3] 进行计数，然后将其与 row[0] 连接 row[0] row[3] 'A01' 'a' 'B02'
如何编写具有这种形式的函数: A(key, B(key, C(key, ValFactory(key)))) 其中 A、B 和 C 具有此签名: TResult GetOrAdd(string key
审查 this method我很好奇为什么它使用 Object.keys(this).map(key => (this as any)[key])? 只调用 Object.keys(this).ind
我有一个奇怪的情况。我有一个字典，self.containing_dict。使用调试器，我看到了字典的内容，并且可以看到 self 是其中的一个键。但是看看这个: >>> self in self.c
我需要在我的 Google Apps 脚本中使用 RSA-SHA256 和公钥签署消息。 我正在尝试使用 Utilities.computeRsaSha256Signature(value, key)
我是 React 的初学者开发人员，几天前我看到了一些我不理解的有趣语法。 View组件上有{...{key}}，我会写成 key={key} ，它完全一样吗？你有链接或解释吗？ render()
代理 key 、合成 key 和人工 key 之间有什么区别吗？ 我不清楚确切的区别。 最佳答案 代理键、合成键和人工键是同义词。技术关键是另一个。它们都表示“没有商业意义的主键”。它们不同于具有超出
问题陈述:在 Web/控制台 C# 应用程序中以编程方式检索并使用存储在 Azure Key Vault 中的敏感值(例如数据库连接字符串)。 据我所知，您可以在 AAD 中注册应用，并使用其客户端
问题陈述:在 Web/控制台 C# 应用程序中以编程方式检索并使用存储在 Azure Key Vault 中的敏感值(例如数据库连接字符串)。 据我所知，您可以在 AAD 中注册应用，并使用其客户端
我正在寻找 Perl 警告的解决方案 “引用键是实验性的” 我从这样的代码中得到这个: foreach my $f (keys($normal{$nuc}{$e})) {#x, y, and z 我在
我正在为 HSM 实现 JCE 提供程序 JCE中有没有机制指定 key 生成类型例如: session key 或永久 key KeyGenerator keygen = KeyGener
我在 Facebook 上创建了一个应用程序。我已经正确添加了 keyhash 并且应用程序运行良好但是当我今天来并尝试再次运行它时它给了我这个错误。 这已经是第二次了。 Previsouly 当我收
我是一名优秀的程序员,十分优秀！