一个简单的加密解密算法

一米制造

于 2008-10-16 20:39:00 发布

阅读量1k

点赞数

CC 4.0 BY-SA版权

分类专栏：加密解密其他文章标签：解密加密 byte function string 算法

本文链接：https://blog.youkuaiyun.com/mitta/article/details/3087208

其他同时被 2 个专栏收录

10 篇文章

订阅专栏

加密解密

1 篇文章

订阅专栏

本文介绍了一种简单的字符串加密和解密方法，通过XOR运算和密钥更新策略实现。提供了两个核心函数：Encrypt用于加密字符串，Decrypt用于解密字符串。加密过程依赖于预先定义好的常量，并且可以通过调整这些常量来改变加密强度。

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

//前面定义好常量
const
C1 = 123456;
C2 = 234567;
PASSKEY = '66666';

//加密函数
function Encrypt(const S: String; Key: Word): String;
var
I: byte;
begin
Result:=S;
for I:= 1 to Length(S) do begin
    Result[I]:= char(byte(S[I]) xor (Key shr 8));
    Key:=(byte(Result[I]) + Key) * C1 + C2;
end;
end;

//解密函数
function Decrypt(const S: String; Key: Word): String;
var
I: byte;
begin
Result:=S;
for I := 1 to Length(S) do begin
    Result[I]:= char(byte(S[I]) xor (Key shr 8));
    Key := (byte(S[I]) + Key) * C1 + C2;
end;
end;

//使用方法------------------------------------------------

tmp := Encrypt('需要加密的内容', StrToInt(PASSKEY));
tmp := Decrypt('需要解密的内容', StrToInt(PASSKEY));