网上查了不少加密和解密的方法,能够简单地进行加密解密的基本上都是对ascii字符进行的,如果有汉字的话运行就会出错了,怎样才能对有汉字的字符串进行加密和解密呢?谢谢
解决方案 »
- Excel导入语句在Delphi中不可用
- COM+的继承问题和类工厂问题--具体看里面。
- 急,有没有高手帮我看一下这段程序(在线等)
- 关于fastreport动态更新的问题
- webbrowser的问题------在窗口中的位置
- 各位!小弟近日装了DELPHI7却怎么也注册不了!帮,谢了!
- 登入数据库对话框的小问题!
- 如何设置delphi默认的字体为宋体,大小为9?
- 如何使数据集将所有字段全部值全部封装到XML文件中?
- 消息WM_GETTEXT 在用SendMessag........
- 如何解析二进制文件(无符号长整型)具体请参见!急!(xzwsun)
- indy的TCPclient下载文件,怎么让它支持代理?
function Crypt_DeCrypt(text:string):string;var longkey,key:string;
i:integer;
ch:char;
begin
key:='85670541';
for i := 0 to (length(text) div length(key)) do
longkey := longkey + key; for i := 1 to length(text) do begin
ch:= chr((ord(text[i]) XOR ord(longkey[i]))); // XOR algorithm
result:= result + ch;
end;
end;
Var
I,Q:Integer;
O:String[255];
begin
Q := 1;
O := '';
For I := 1 to Length(S) Do
begin
O := O + Chr(Ord(S[I]) Xor Ord(K[Q]));
Inc(Q); If Q > Length(K) Then Q := 1;
end;
EncryptDecrypt := O;
end;procedure TForm1.Button3Click(Sender: TObject);
begin
Edit2.Text:=EncryptDecrypt(Edit1.Text,'111');
end;procedure TForm1.Button4Click(Sender: TObject);
begin
Edit3.Text:=EncryptDecrypt(Edit2.Text,'111');
end;用这个吧,又能加密又能解密的。
MD5加密或者HASH都可以