简单的Delphi字符串加密解密函数

最新推荐文章于 2025-07-06 15:52:43 发布

转载最新推荐文章于 2025-07-06 15:52:43 发布 · 3.5k 阅读

文章标签：

#加密 #delphi #解密 #string #byte #function

Delphi 专栏收录该内容

66 篇文章

订阅专栏

本文介绍了一种简单的字符串加密方法——异或加密，并提供了加密和解密的函数实现。通过使用预定义的XorKey数组，该方法能够对输入的字符串进行加密，将每个字符与密钥进行异或操作，并转换为十六进制表示；同样地，也提供了解密函数以恢复原始字符串。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

const XorKey:array[0..7] of Byte=($B2,$09,$AA,$55,$93,$6D,$84,$47); //字符串加密用 function Enc(Str:String):String;//字符加密函數這是用的一個異或加密 var i,j:Integer; begin Result:=''; j:=0; for i:=1 to Length(Str) do begin Result:=Result+IntToHex(Byte(Str[i]) xor XorKey[j],2); j:=(j+1) mod 8; end; end; function Dec(Str:String):String;//字符解密函數 var i,j:Integer; begin Result:=''; j:=0; for i:=1 to Length(Str) div 2 do begin Result:=Result+Char(StrToInt('$'+Copy(Str,i*2-1,2)) xor XorKey[j]); j:=(j+1) mod 8; end; end;