Delphi关于改进AES算法的加解密文件功能

最新推荐文章于 2024-07-28 21:24:05 发布

张含韵去哪里了

最新推荐文章于 2024-07-28 21:24:05 发布

阅读量990

点赞数

本文链接：https://blog.csdn.net/qq_43666994/article/details/87812352

版权

本文介绍了一位作者在杨泽晖的AES算法接口基础上改进的Delphi加解密文件功能，虽然代码可能较为混乱，但欢迎有兴趣的读者留言交流。此外，作者还分享了其老师的人工智能教程链接。

摘要由CSDN通过智能技术生成

以下代码出自http://blog.csdn.net/hellogv/,引用请注明出处！

代码有点乱，想要具体实现方法的朋友，可以给我留言

附：以下代码在杨泽晖 (Jorlen Young)所开发的AES算法接口上改进！

function StrToHex(Value: string): string;var  I: Integer;begin  Result := '';  for I := 1 to Length(Value) do    Result := Result + IntToHex(Ord(Value[I]), 2);end; function EncryptString(Value: string; Key: string): string;var  SS, DS: TStringStream;  Size: Int64;  AESKey256: TAESKey256;begin  Result := '';  SS := TStringStream.Create(Value);  DS := TStringStream.Create('');  try    Size := SS.Size;    DS.