Delphi 字符串加密和解密函数

心已赠人 2022-11-14 14:46 267阅读 0赞

[泰山老父][Link 1]的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>

[Link 1]: http://www.taishanlaofu.com

发表评论取消回复

表情：

评论列表（有 0 条评论，267人围观）

还没有评论，来说两句吧...

相关阅读

相关 MySQL 加密解密函数

MySQL的加密和解密函数个人分为两类： 1.只支持正向加密不支持反向解密的函数： MD5()、SHA1()|SHA()、SHA2() 针对此类

超、凢脫俗/ 2023年05月29日 06:46/ 0 赞/ 35 阅读

相关 Delphi 字符串加密和解密函数

[泰山老父][Link 1]的Delphi 字符串加密和解密函数 function Encrypt(const InString:string; Salt:strin

心已赠人/ 2022年11月14日 14:46/ 0 赞/ 268 阅读

相关 java des 加密字符串_[Java]通过DES加密和解密工具，对字符串进行加密和解密操作...

原文：http://www.open-open.com/lib/view/open1381634490973.html 分享一个非常不错的字符串加密和解密的程序。可以指定

我就是我/ 2022年11月02日 13:16/ 0 赞/ 55 阅读

相关加密解密 Delphi C# 兼容互转

http://blog.csdn.net/qdseashore/article/details/52321820 Delphi： function st

我就是我/ 2022年10月01日 00:35/ 0 赞/ 16 阅读

相关 c# 使用DES加密和解密字符串

转自：http://www.great-code.com/show/119 /// <summary> /// 使用DES加密字符串 /// </summary> //

小鱼儿/ 2022年09月30日 04:57/ 0 赞/ 175 阅读

相关 Oracle的加密函数和解密函数

加密函数 CREATE OR REPLACE FUNCTION ENCRYPT_FUNCTION( V_STR VARCHA

以你之姓@/ 2022年05月13日 06:52/ 0 赞/ 839 阅读

相关 Delphi 字符串函数

转发：[https://www.cnblogs.com/gameking/archive/2012/11/08/2760206.html][https_www.cnblogs.

￡神魔★判官ぃ/ 2022年04月14日 20:37/ 0 赞/ 235 阅读

相关字符串的 Base64 加密和解密

base64加密： FORM encode_base64 USING p_business “字符串string

不念不忘少年蓝@/ 2021年12月20日 06:39/ 0 赞/ 292 阅读

相关 Java字符串的加密解密

为了保证程序的安全，经常采用数据加密的方法。[Java][] 中提供了专门用于加密运算的类和接口。除了使用加密类和接口外，还可以通过多种方式实现字符串的加密。其中常

待我称王封你为后i/ 2021年12月14日 19:23/ 0 赞/ 276 阅读

相关 Delphi 字符串函数大全

Delphi 字符串函数大全引用单元： StrUtils; 首部 function AnsiResemblesText(const AText, AOther: str

谁践踏了优雅/ 2021年11月22日 12:00/ 0 赞/ 410 阅读