Delphi encrypt 字符加密解密实例.rar

本实例主要演示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(By