Delphi 字符串加密和解密函数

最新推荐文章于 2024-07-28 21:24:05 发布

战石电子

最新推荐文章于 2024-07-28 21:24:05 发布

阅读量1.8k

点赞数 1

分类专栏： Delphi 文章标签： Delphi 字符串加密字符串解密函数加密解密

泰山老父神枕传承人战小东

本文链接：https://blog.csdn.net/xyzhan/article/details/115316766

版权

Delphi 专栏收录该内容

226 篇文章 115 订阅

订阅专栏

泰山老父的Delphi 字符串加密和解密函数

function Encrypt(const InString:string; Salt:string): string;
var
  i : Byte;
  StartKey, MultKey, AddKey: Word;
begin
  Result := '';
  if (Salt = '') then begin
    Result := InString;
  end
  else begin
    StartKey := Length(Salt);
    MultKey := Ord(Salt[1]);
    AddKey := 0;
    for i := 1 to Length(Salt) - 1 do AddKey := AddKey + Ord(Salt[i]);
    for i := 1 to Length(InString) do
    begin
      Result := Result + CHAR(Byte(InString[i]) xor (StartKey shr 8));
      StartKey := (Byte(Result[i]) + StartKey) * MultKey + AddKey;
    end;
  end;
end;
  
function Decrypt(const InString:string; Salt:string): string;
var
  i : Byte;
  StartKey, MultKey, AddKey: Word;
begin
  Result := '';
  if (Salt = '') then begin
    Result := InString;
  end
  else begin
    StartKey := Ord(Salt[1]);
    MultKey := Length(Salt);
    AddKey := 0;
    for i := 1 to Length(Salt) - 1 do AddKey := AddKey + Ord(Salt[i]);
    for i := 1 to Length(InString) do
    begin
      Result := Result + CHAR(Byte(InString[i]) xor (StartKey shr 8));
      StartKey := (Byte(InString[i]) + StartKey) * MultKey + AddKey;
    end;
  end;
end;</code></pre>