文件名称：Delphi encrypt 字符加密解密实例.rar
文件大小：7KB
文件格式：RAR
更新时间：2022-07-30 06:19:53
Delphi源码-加密解密
本实例主要演示Delphi的加法和解密功能，是一个简单的字符串加密解密的例子，操作方法：在“录入加密前的字符串”，“显示加密后字符串”对应的文本框中输入字符即可，点击按钮后生成加密结果。下面来看具体的代码处理过程 ： //加密 function encrypt(AStr: string; Key: Byte): string; var i, n: Integer; begin n := Length(AStr); SetLength(Result, n); for i := 1 to n do Result[i] := Char(Byte(AStr[i]) Key); end; //解密 function open(AStr: string; Key: Byte): string; var i, n: Integer; begin n := Length(AStr); SetLength(Result, n); for i := 1 to n do Result[i] := Char(Byte(AStr[i]) - Key); end;
【文件预览】：
codesc.net
----encrypt()
--------Project1.res(876B)
--------Unit1.dfm(1KB)
--------Unit1.ddp(51B)
--------Project1.cfg(434B)
--------Unit1.pas(1KB)
--------Project1.dpr(188B)
--------Project1.dof(3KB)
--------Unit1.dcu(5KB)