delphi7的加密算法与 delphi XE+加解密算法

delphi7加解密算法：

Function JiaMi(Src:String; Key:String):String;
varKeyLen :Integer;KeyPos :Integer;offset :Integer;dest :String;SrcPos :Integer;SrcAsc :Integer;Range :Integer;
beginKeyLen:=Length(Key);KeyPos:=0;Range:=1;Randomize;offset:=Random(Range);dest:=format('%1.2x',[offset]);for SrcPos := 1 to Length(Src) dobeginSrcAsc:=(Ord(Src[SrcPos]) + offset) MOD 255;if KeyPos < KeyLen then KeyPos:= KeyPos + 1 else KeyPos:=1;SrcAsc:= SrcAsc xor Ord(Key[KeyPos]);dest:=dest + format('%1.2x',[SrcAsc]);offset:=SrcAsc;end;Result:=Dest;
end;
//解密函数
Function JieMi (Src:String; Key:String):String;
varKeyLen :Integer;KeyPos :Integer;offset :Integer;dest :String;SrcPos :Integer;SrcAsc :Integer;TmpSrcAsc :Integer;Range :Integer;
beginKeyLen:=Length(Key);if KeyLen = 0 then key:='starlin';KeyPos:=0;SrcPos:=0;SrcAsc:=0;Range:=1;offset:=StrToInt('$'+ copy(src,1,2));SrcPos:=3;repeattrySrcAsc:=StrToInt('$'+ copy(src,SrcPos,2));exceptSrcAsc:=StrToInt('$00');end;if KeyPos < KeyLen Then KeyPos := KeyPos + 1 else KeyPos := 1;TmpSrcAsc := SrcAsc xor Ord(Key[KeyPos]);if TmpSrcAsc <= offset thenTmpSrcAsc := 255 + TmpSrcAsc - offsetelseTmpSrcAsc := TmpSrcAsc - offset;dest := dest + chr(TmpSrcAsc);offset:=srcAsc;SrcPos:=SrcPos + 2;until SrcPos >= Length(Src);Result:=Dest;Result:=Copy(Result,1,Length(Result)-1);
end;
end.

Delphi XE+版本：

Function JiaMi(Src:String; Key:String):String;
// Src 支持汉字，字母，数字，符号
// Key 不支持汉字；适合字母与数字
varKeyLen :Integer;KeyPos :Integer;offset :Integer;dest :String;SrcPos :Integer;SrcAsc :Integer;Range :Integer;IntTemp:integer;SrcAnsi:PAnsiChar;beginKeyLen:=Length(Key);KeyPos:=0;Range:=1;Randomize;offset:=Random(Range);dest:=format('%1.2x',[offset]);SrcAnsi:=PAnsiChar(AnsiString(Src));IntTemp:= Length(SrcAnsi);for SrcPos := 1 to IntTemp dobeginSrcAsc:=(Ord(SrcAnsi[SrcPos-1]) + offset) MOD 255;if KeyPos < KeyLen then KeyPos:= KeyPos + 1 else KeyPos:=1;SrcAsc:= SrcAsc xor Ord(Key[KeyPos]);dest:=dest + format('%1.2x',[SrcAsc]);offset:=SrcAsc;end;Result:=Dest;
end;//解密函数
Function JieMi (Src:String; Key:String):String;
// Src 支持汉字，字母，数字，符号
// Key 不支持汉字；适合字母与数字
varKeyLen :Integer;KeyPos :Integer;offset :Integer;dest :String;SrcPos :Integer;SrcAsc :Integer;TmpSrcAsc :Integer;Range :Integer;SrcAnsi:PAnsiChar;IntTemp,i:Integer;ByteArray: array of Byte;
beginKeyLen:=Length(Key);if KeyLen = 0 then key:='starlin';KeyPos:=0;SrcPos:=0;SrcAsc:=0;Range:=1;offset:=StrToInt('$'+ copy(src,1,2));SrcPos:=3;IntTemp:=Length(Src) div 2;setlength(ByteArray,IntTemp);i:=0;repeattrySrcAsc:=StrToInt('$'+ copy(src,SrcPos,2));exceptSrcAsc:=StrToInt('$00');end;    if KeyPos < KeyLen Then KeyPos := KeyPos + 1 else KeyPos := 1;    TmpSrcAsc := SrcAsc xor Ord(Key[KeyPos]);    if TmpSrcAsc <= offset thenTmpSrcAsc := 255 + TmpSrcAsc - offsetelseTmpSrcAsc := TmpSrcAsc - offset;ByteArray[i]:=TmpSrcAsc;i:=i+1;           offset:=srcAsc;SrcPos:=SrcPos + 2;until SrcPos >= Length(Src);GetMem(SrcAnsi,IntTemp+1); CopyMemory(@SrcAnsi[0],@ByteArray[0],IntTemp);dest:=string(strpas(SrcAnsi));     Result:=Dest;
end;

测试：
str1 :=jiemi(jiami(‘学习ABC123’,‘uabd123’),‘uabd123’);
//返回值：学习ABC123

delphi7的加密算法与 delphi XE+加解密算法相关推荐

加解密算法的概述和总结
加解密算法的概述和总结一.单向散列算法也称为Hash(哈希)算法.是一种将任意长度的消息压缩到某一固定长度(消息摘要)的函数(该过程不可逆).Hash函数可用于数字签名.消息的完整性检测.消息起源 ...
Python中的AES加解密算法
AES加密的参数及其条件:这个AES加密的主要坑就在于这些条件,首先AES加密有几个参数秘钥:加密的时候用秘钥,解密的时候需要同样的秘钥才能解出来明文:需要加密的内容模式:aes 加密常用的有E ...
python中凯撒密码_python实现凯撒密码、凯撒加解密算法
凯撒密码的原理:计算并输出偏移量为3的凯撒密码的结果注意:密文是大写字母,在变换加密之前把明文字母都替换为大写字母 def casar(message): # *************begin* ...
kotlin写的加解密算法，包括模式和填充方式
DES加密 DES是一种对称加密(Data Encryption Standard)算法. DES算法一般有两个关键点,第一个是加密算法,第二个是数据补位. 加密算法常见的有ECB模式和CBC模式: ...
php aes 256 加解密,PHP完整的AES加解密算法使用及例子（256位）
依赖PHP自身的mcrypt扩展 class aes { // CRYPTO_CIPHER_BLOCK_SIZE 32 private $_secret_key = 'default_secret_k ...
AES加解密算法详解
0 AES简介美国国家标准技术研究所在2001年发布了高级加密标准(AES).AES是一个对称分组密码算法,旨在取代DES成为广泛使用的标准. 根据使用的密码长度,AES最常见的有3种方案,用以适应 ...
DES加解密算法原理详解与实现
[DES密码编写] 1. Equipment (1) operating system version :WIN 10 (2) CPU instruction set: x 64 (3) softwa ...
凯撒加密的python语言程序_python实现凯撒密码、凯撒加解密算法
凯撒密码的原理:计算并输出偏移量为3的凯撒密码的结果注意:密文是大写字母,在变换加密之前把明文字母都替换为大写字母 def casar(message): # *************begin* ...
各种加解密算法分类及其各自的安全性能对比
常用的加解密算法分三大类:非对称密钥加密算法.对称密钥加密算法.Hash加密算法一.非对称密钥加密算法(RSA.DSA.ECC.DH等): 非对称加密又叫公开密钥算法(public key algo ...
程序猿成长之路番外篇之前后端加解密（rsa+aes混合加解密算法)
今年国庆前夕接手一个外部项目,说是要保障接口数据安全,数据安全相对容易些,接口安全嘛emmmmm, 这个要考虑加解密算法.白名单之类的问题了.于是打算今天搞一期接口安全为题的成长之路番外篇. 为什么要 ...

delphi7的加密算法与 delphi XE+加解密算法

delphi7的加密算法与 delphi XE+加解密算法相关推荐

最新文章

热门文章