|
| 盒子资源分类 |
![]() |
|
|
|
|
| AES 加密算法函数包及演示文件 v1.3 |
![]() |
| 关键字：AES Advanced Encryption 加密 函数 演示 |
| 来 自：原创 |
| 平 台：Win9x,Win2k/XP/NT,Win2003,Linux |
下载所需：0 火柴 |
| 深浅度：高级 |
完成时间：2004/12/4 |
| 发布者：corbie8205 |
发布时间：2004/12/5 |
| 编辑器：D4/6/7/CB5/Ky1 |
语 种：简体中文 |
| 分 类：安全 |
下载浏览：4329/20756 |
|
|
|
|
|
(**********)
(* *)
(* Advanced Encryption Standard (AES) *)
(* Interface Unit v1.3 *)
(* *)
(* History.txt 版本历史 2004.12.04 *)
(* *)
(**********)
{ -- v1.3 - 2004.12.04 -- }
重新修改加密模式，支持 128、192 和 256 位密匙加密。
改动函数参数表，添加 KeyBit 参数。
但是可以不带此参数，默认情况按照 128 位操作。
添加了新例程，支持对流和文件的操作。
包含 4 个函数：
function EncryptString(Value: string; Key: string;
KeyBit: TKeyBit = kb128): string;
function DecryptString(Value: string; Key: string;
KeyBit: TKeyBit = kb128): string;
function EncryptStream(Stream: TStream; Key: string;
KeyBit: TKeyBit = kb128): TStream;
function DecryptStream(Stream: TStream; Key: string;
KeyBit: TKeyBit = kb128): TStream;
包含 2 个过程：
procedure EncryptFile(SourceFile, DestFile: string;
Key: string; KeyBit: TKeyBit = kb128);
procedure DecryptFile(SourceFile, DestFile: string;
Key: string; KeyBit: TKeyBit = kb128);
{ -- v1.0 - 2004.12.03 -- }
包含 2 个函数：
function EncryptString(Value: string; Key: string): string;
function DecryptString(Value: string; Key: string): string;
支持 128 位密匙加密和解密字符串。 |
![]() |
| 本站原创作品，未经作者许可，严禁任何方式转载；转载作品，如果侵犯了您的权益，请联系我们！ |
| 相关文章 |
|
![]() |
|
|
| 相关评论 |
![]() |
|
共有评论9条
当前显示最后6条评论
|
| zmz2050 |
2004/12/15 21:03:21 |
| 好，谢谢！ |
| liumazi |
2004/12/17 21:13:32 |
| 很不错!! |
| ysq8101 |
2006/1/14 10:40:44 |
昨晚用了一下有bug
字符串解密后后面带有#0
流加密，文件加密的我还没有测试过 |
| delphi_lp |
2006/4/20 10:34:44 |
| 挺有用！ |
| cfanlgl |
2011/6/7 16:36:24 |
| 不支持Delphi Xe |
| dodge |
2019/4/23 10:35:43 |
| 你好，请问有没XE版本？？ |
| 我要发表评论 |
查看全部评论 |
|
|
|
