Delphi 字符串加密和解密函数

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

function Encrypt(const InString:string; Salt:string): string;
vari : Byte;StartKey, MultKey, AddKey: Word;
beginResult := '';if (Salt = '') then beginResult := InString;endelse beginStartKey := 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) dobeginResult := 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;
vari : Byte;StartKey, MultKey, AddKey: Word;
beginResult := '';if (Salt = '') then beginResult := InString;endelse beginStartKey := 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) dobeginResult := Result + CHAR(Byte(InString[i]) xor (StartKey shr 8));StartKey := (Byte(InString[i]) + StartKey) * MultKey + AddKey;end;end;
end;</code></pre>

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

Discuz 的加密与解密函数authcode
Discuz 的加密与解密函数authcode 分类:Discuz| 浏览:705 分享到:0 authcode()并不是PHP的内置函数,它是康盛开发的一个使用异或运算进行加密和解密的函数,可以说这 ...
字符串加密、解密算法
字符串加密.解密算法包括: MD5.Des.Base64三种方式,详情如下所示:using System; using System.Collections.Generic; using System ...
Java代码：字符串加密与解密
Java代码:字符串加密与解密获取字符串的长度length() 把字符串转为字节数组getBytes() 字节数组转换为字符串String(b) /* *java代码:字符串加密与解密 **/ pa ...
字符串加密与解密_一种可以用在程序加密的功能
本篇博客会有两篇代码,均为C# 编写而成.其中一篇为先行的各种加密技术如何使用(转载出处会在文末注明):另一篇为利用以上加密技术做出的一个类库,可以使程序捆绑在运行此程序的硬件并限定使用时间,十分高效 ...
php 自带加密、解密函数
php 自带的加密函数不可逆的加密函数为:md5().crypt() md5() 用来计算 MD5 哈稀.语法为:string md5(string str); crypt() 将字符串用 UNI ...
JavaScript 字符串加密和解密
使用CryptoJS 加密和解密 JavaScript 字符串使用NcryptJS 加密和解密 JavaScript 字符串使用CryptoJS 加密和解密 JavaScript 字符串 Cry ...
c语言字符串加密和解密算法实现
#include <stdio.h> #include <string.h> #define KEY 5 //偏移量/** 加密和解密字符串* 加密规则:字符串每个字符加上其在 ...
web.config 中connectionStrings连接字符串加密、解密问题
注意:是对虚拟目录下还是物理目录下的文件加密加密网站中的配置信息,我们不需要写任何代码,也不需要修改任何代码,只需要使用 aspnet_regiis 工具修改配置文件即可.比如我们有下面一个配置文件 ...
mysql aes_MYSQL AES加密与解密函数使用
最近在做项目的时候,需要对一个数字串进行加密,但是加密密文又需要可以可以逆转,因此不能使用md5或sha之类的,只能用aes或des.翻了资料,尝试了在php层进行加密解密,用到了php的加密函数库, ...

Delphi 字符串加密和解密函数

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

最新文章

热门文章