|
| 盒子资源分类 |
![]() |
|
|
|
|
| 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 |
语 种：简体中文 |
| 分 类：安全 |
下载浏览：4301/20065 |
|
|
|
|
|
(**********)
(* *)
(* 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 位密匙加密和解密字符串。 |
![]() |
| 本站原创作品，未经作者许可，严禁任何方式转载；转载作品，如果侵犯了您的权益，请联系我们！ |
| 相关文章 |
|
![]() |
|
|
| 相关评论 |
![]() |
|
|
|
|
