delphi中如何用代码对数据库中的密码进行加密?

Question

在考虑系统的安全问题时,需要对数据库中"权限表"里的密码进行加密,请问各位高手指点指点了,在此先谢过了!!

Answer 1

这个太简单了，完全可以自己写。网上也有许多现成的字串加密解密算法。给你写个最简单的你参考一下（仅供参考，实际应用中你需要更复杂的计算）function EnCode(pswd:string):string;//加密函数
var i:integer; tempStr:string;
begin
  tempStr:=pswd;
  for i := 1 to length(tempStr) do
      tempStr[i]:=char(integer(tempStr[i])+i);
  result:=tempStr;
end;function DeCode(pswd:string):string;//解密函数
var i:integer; tempStr:string;
begin
  tempStr:=pswd;
  for i := 1 to length(tempStr) do
      tempStr[i]:=char(integer(tempStr[i])-i);
  result:=tempStr;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.Text:=EnCode(edit1.Text);//把edit1的text加密放在edit2里
end;procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text:=DeCode(edit2.Text);//把edit2里的加密字串还原为原字串放到edit1里
end;

Answer 2

另外，你可以参阅一下此贴：
http://community.csdn.net/Expert/topic/5202/5202426.xml?temp=.5576593

Answer 3

现在存放密码通常都是用MD5，MD5在DELPHI内有人家写好的现成的单元，你引用就可以了。

Answer 4

请问"bellab"你的意思是在delphi内部就有现成的单元引用了是吗,那到底在哪个组件页里呢?
帮忙说一下,非常感谢
~

Answer 5

这个单元delphi没有自带，是别人写的，网上一搜索一大把的。