delphi 对字符串进行加密实现
2013-11-28 11:11
239 查看
首先有两个自定的转换函数:
function myStrToHex(s:string):string; //字串转16进制
var
TmpStr:string;
i:integer;
begin
TmpStr:='';
for i:=1 to Length(s)do
TmpStr:=TmpStr+IntToHex(ord(s[i]),2);
Result:=TmpStr;
end;
function myHexToStr(S:string):string; //16进制转字串
var
HexS,TmpStr:string;
i:Integer;
a:Byte;
begin
HexS:=s;
if Length(HexS) mod 2=1 then
HexS:=HexS+'0';
TmpStr:='';
for i:=1 to(Length(HexS)div 2)do
begin
a:=StrToInt('$'+HexS[2*i-1]+HexS[2*i]);
TmpStr:=TmpStr+Chr(a);
end;
Result:=TmpStr;
end;
然后就是加密、解密函数了:
{两个函数的参数相同,s为要加密、解密的字串;sKey为密匙}
function EncryptStr(const s:string;sKey:string):string; //加密
var
i,j:Integer;
HexS,HexsKey,MidS,TmpStr:string;
a,b,c:byte;
begin
HexS:=myStrToHex(s);
HexsKey:=myStrToHex(sKey);
MidS:=HexS;
for i:=1 to(Length(HexsKey)div 2)do
begin
if i<>1 then MidS:=TmpStr;
TmpStr:=''; //下面要用到TmpStr,所以要清空
for j:=1 to (Length(MidS)div 2)do
begin
a:=StrToInt('$'+midS[2*j-1]+midS[2*j]);
b:=StrToInt('$'+HexsKey[2*i-1]+HexsKey[2*i]);
c:=a xor b;
tmpstr:=TmpStr+myStrToHex(Chr(c));
end;
end;
Result:=TmpStr;
end;
function DecryptStr(const s:string;sKey:string):string; //解密
var
i,j:Integer;
HexS,HexsKey,MidS,TmpStr:string;
a,b,c:Byte;
begin
HexS:=s;
if Length(HexS)mod 2=1 then //检查是否为字符串
begin
ShowMessage('密文错误!');
Exit;
end;
HexsKey:=myStrToHex(sKey);
TmpStr:=HexS;
MidS:=HexS;
for i:=(length(HexsKey) div 2) downto 1 do
begin
if i<>(length(HexsKey) div 2)then
MidS:=TmpStr;
TmpStr:=''; //下面要用到TmpStr,所以要清空
for j:=1 to(length(MidS) div 2)do
begin
a:=StrToInt('$'+MidS[2*j-1]+MidS[2*j]);
b:=StrToInt('$'+HexsKey[2*i-1]+HexsKey[2*i]);
c:=a xor b;
TmpStr := TmpStr+myStrToHex(Chr(c));
end;
end;
Result:=myHexToStr(TmpStr);
end;
现在已经可以使用了,调用EncryptStr和DecryptStr分别加密、解密
例:
[delphi] view plaincopyprint?Edit1.Text:=EncryptStr('Hello','delphi');
////////////////////////////////////////
Edit1.Text:=DecryptStr(Edit1.Text,'delphi');
Edit1.Text:=EncryptStr('Hello','delphi');
////////////////////////////////////////
Edit1.Text:=DecryptStr(Edit1.Text,'delphi');
function myStrToHex(s:string):string; //字串转16进制
var
TmpStr:string;
i:integer;
begin
TmpStr:='';
for i:=1 to Length(s)do
TmpStr:=TmpStr+IntToHex(ord(s[i]),2);
Result:=TmpStr;
end;
function myHexToStr(S:string):string; //16进制转字串
var
HexS,TmpStr:string;
i:Integer;
a:Byte;
begin
HexS:=s;
if Length(HexS) mod 2=1 then
HexS:=HexS+'0';
TmpStr:='';
for i:=1 to(Length(HexS)div 2)do
begin
a:=StrToInt('$'+HexS[2*i-1]+HexS[2*i]);
TmpStr:=TmpStr+Chr(a);
end;
Result:=TmpStr;
end;
然后就是加密、解密函数了:
{两个函数的参数相同,s为要加密、解密的字串;sKey为密匙}
function EncryptStr(const s:string;sKey:string):string; //加密
var
i,j:Integer;
HexS,HexsKey,MidS,TmpStr:string;
a,b,c:byte;
begin
HexS:=myStrToHex(s);
HexsKey:=myStrToHex(sKey);
MidS:=HexS;
for i:=1 to(Length(HexsKey)div 2)do
begin
if i<>1 then MidS:=TmpStr;
TmpStr:=''; //下面要用到TmpStr,所以要清空
for j:=1 to (Length(MidS)div 2)do
begin
a:=StrToInt('$'+midS[2*j-1]+midS[2*j]);
b:=StrToInt('$'+HexsKey[2*i-1]+HexsKey[2*i]);
c:=a xor b;
tmpstr:=TmpStr+myStrToHex(Chr(c));
end;
end;
Result:=TmpStr;
end;
function DecryptStr(const s:string;sKey:string):string; //解密
var
i,j:Integer;
HexS,HexsKey,MidS,TmpStr:string;
a,b,c:Byte;
begin
HexS:=s;
if Length(HexS)mod 2=1 then //检查是否为字符串
begin
ShowMessage('密文错误!');
Exit;
end;
HexsKey:=myStrToHex(sKey);
TmpStr:=HexS;
MidS:=HexS;
for i:=(length(HexsKey) div 2) downto 1 do
begin
if i<>(length(HexsKey) div 2)then
MidS:=TmpStr;
TmpStr:=''; //下面要用到TmpStr,所以要清空
for j:=1 to(length(MidS) div 2)do
begin
a:=StrToInt('$'+MidS[2*j-1]+MidS[2*j]);
b:=StrToInt('$'+HexsKey[2*i-1]+HexsKey[2*i]);
c:=a xor b;
TmpStr := TmpStr+myStrToHex(Chr(c));
end;
end;
Result:=myHexToStr(TmpStr);
end;
现在已经可以使用了,调用EncryptStr和DecryptStr分别加密、解密
例:
[delphi] view plaincopyprint?Edit1.Text:=EncryptStr('Hello','delphi');
////////////////////////////////////////
Edit1.Text:=DecryptStr(Edit1.Text,'delphi');
Edit1.Text:=EncryptStr('Hello','delphi');
////////////////////////////////////////
Edit1.Text:=DecryptStr(Edit1.Text,'delphi');
相关文章推荐
- c语言实现对密码(字符串)进行加密,并解密
- c++实现aes加密算法,对字符串进行加密
- c++实现aes加密算法,对字符串进行加密
- c++实现aes加密算法,对字符串进行加密
- c++实现aes加密算法,对字符串进行加密
- c++实现aes加密算法,对字符串进行加密
- python学习:实现将字符串进行加密
- json对象转为字符串,当做参数传递时加密解密的实现方法
- 使用python3的base64编解码实现字符串的简易加密解密
- Delphi中如何给一个字符串从左边进行补0
- 解决linux c利用openssl进行3des和安卓封装的接口加密解密出的字符串不一样的问题
- 如何使用Java对密码进行加密 Java Sah加密方式帮你实现加密
- 如何实现对单个字段进行加密
- 使用delphi+intraweb进行微信开发5—准备实现微信API,先从获取AccessToken开始
- 在xslt中实现split方法对查询字符串进行分隔
- 【Java学习笔记】实现Comparator接口来进行字符串逆向排序
- 使用MessageDigest 对字符串进行 MD5 或者 SHA1 SHA2 加密。
- Java中使用异或运算符实现加密字符串
- Delphi字符串 消息机制实现消息传递字符串
- md5 对字符串进行加密的方法 简单好用