一个DELPHI写的AES算法源码中的问题

最新推荐文章于 2025-06-21 10:29:15 发布

原创最新推荐文章于 2025-06-21 10:29:15 发布 · 2.9k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #算法 #加密 #解密 #c

delphi 专栏收录该内容

8 篇文章

订阅专栏

本文探讨了在Delphi环境下使用AES算法时遇到的问题，即加密16字符的明文后，得到的密文在16进制表示下前缀出现额外的000。通过代码分析发现，这源于加密和解密函数中在TStream头部写入了明文长度信息。注释掉这部分代码后，密文长度得以纠正，符合AES算法的16字节预期。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

由于近来要看算法，在网上找了几个Delphi写的AES源码，其中一个在各大下载站是最常见的，由ElASE.pas和AES.pas构成，其中主要实现文件EIASE.PAS作者EldoS, Alexander Ionov，AES.PAS实现了AES算法的接口；另外下的一个演示程序实际上主要文件也是EIASE.PAS，不过是繁体的，可能是台湾那边的。两个程序得到的结果相同，但是却让初看AES算法的我很迷惑，因为"this is a test!"这样一个16字符128位的明文，用这两个程序得到的结果密文居然是（16进制数据显示的）“10000000000000005F7DF0BF103A8C4AE6FAAD9906AC3B2A”，转回字节就是24字符了，而按照AES算法，得到的结果应该是16字节的。尝试随意用几段明文作加密，得到的结果前面都会有一堆的000，这是什么原因呢？按理说结果中不会有这些的。

经过跟踪分析，原来在AES.PAS中的加密函数中有这么一段代码

[code]
begin
OutStrm := TStream.Create;
Stream.Position := 0;
Count := Stream.Size;
OutStrm.Write(Count, SizeOf(Count));
try
{ -- 128 位密匙最大长度为 16 个字符 -- }
if KeyBit = kb128 then
[/code]

解密函数中也有一段
[code]
begin
OutStrm := TStream.Create;
Stream.Position := 0;
OutPos :=OutStrm.Position;
Stream.ReadBuffer(Count, SizeOf(Count));
try
{ -- 128 位密匙最大长度为 16 个字符 -- }
if KeyBit = kb128 then
[/code]

注意到 DS.WriteBuffer(Size, SizeOf(Size));就是说在初始化DS这个TStringStream后，接口程序会首先把明文的长度占用长度的类型长度(sizeof(size))写入ds的首部，以致后来转化成密文后再转成十六进制字符显示时会把这个长度信息也输出了，但这个显示不属于AES算法本身范围内，当然最奇怪的是那个繁体版的演示程序也是如此处理了，本来实现的主程序EIASE.PAS是没有任何问题的。

现在初步的解决办法就是把 OutStrm.Write(Count, SizeOf(Count));和Stream.ReadBuffer(Count, SizeOf(Count));注释掉。这样得到的密文就应该是正确的了。