adoconnection ConnectionString 加密问题

Question

D7里面的ADOCONNECTION 的connnection 字符串有什么办法加密？普通使用winhx就可以看到连接字符串的明文。这样显然不好啊！
做三层连接不会。有没有什么办法只显示密文的?
如果加壳可以解决那也请讲讲！

Answer 1

看看我blog当中的那个DES,试一下.

Answer 2

在程序代码中动态添加ADOCONNECTION 的connnection 字符串,各项参数用变量替换,然后给变量赋值
例如:
procedure TDM.DataModuleCreate(Sender: TObject);
var
  tmpIni:TINIFile;
begin
  tmpIni:=TIniFile.Create(extractfilepath(application.exename)+'config.ini');
  server:=tmpIni.ReadString('COMMON','HostAddress','127.0.0.1');
  dm.adoconnection1.Connected:=false;
  //原连接方式
  //dm.adoconnection1.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=rongcheng;Data Source=GRSF';
  dm.adoconnection1.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=rongcheng;Data Source='+''''+ server +'''';
  dm.adoconnection1.Connected:=true;
  tmpini.Free;
end;