偶把连数据库的密码写进DELPHI程序,但是竞然可以用UE打开可以找到该字符串,我晕倒.有没办法可以隐藏起来,或使其更安全?高手帮忙,谢了.
解决方案 »
- 当把控件底部对齐时控件怎么会不见了?
- ◎ XP中如何让服务支持多用户?
- 谁能告诉我这是怎么回事?在ADOconnectingstring中选择连接microsoft ole db for odbc drivers,出现错误提示:privder is no longer avai
- 难道这是密而不宣的范围?(问WEB环境硬件)
- 如何灵活指定owner?
- Excel报表控件
- Delphi的一个小问题,算不算Bug呢?各路英雄看过来》》》我的最后100分送给大家了。
- 请问将stringgrid的第2行第一列设置为红色该如何做。
- 菜鸟想问SetLength和Move是什么意思,什么用法,SetLength(S, BufferLength); 和Move(Buffer^, PChar(S)^, BufferLength);是什么意思,高
- host application 怎么设?
- delphi如何实现多语言支持
- 在XP下如何隐藏进程
下面例子中的'瘝悏枦殟虏枩崘寪檵训殝寻澈唤阉严幕瀷炦瑦妽湚潞牛粣湂挌憢專洑搹棖◥崝;澂崘暁湅潱洖嫐褣洕寞殟寲寢攥殰妽枊嗊稇檺鹿灀寶'是'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Documents\delphiWork\DbProject\db\date.mdb;Persist Security Info=False'加密后的字符串,使用的时候解密一下就可以了当然了,这个加密过程太简单了,你写得复杂点就可以了procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
function TransString(s: string): string;
var
i: integer;
begin
for i:=1 to Length(s) do
s[i] := char(ord(s[i]) xor $ff);
Result := s;
end;
begin
s := '瘝悏枦殟虏枩崘寪檵训殝寻澈唤阉严幕瀷炦瑦妽湚潞牛粣湂挌憢專洑搹棖◥崝;澂崘暁湅潱洖嫐褣洕寞殟寲寢攥殰妽枊嗊稇檺鹿灀寶';
With ADOQuery1 do
begin
ConnectionString := TransString(s);
Close;
SQL.Text := 'select * from main';
Open;
end;
end;
我们最终还是要以明文的方式设置给CONNECTIONSTRING,用WINHEX这类软件直接搜索内存不就一样的,所有三层就是多么的必要了,