数据加密的问题?

Question

我刚接触DELPHI,做个小东西.在连接数据库的时候,我采用的配置文件的形式.
[database]   
ServerName=192.168.1.88
UserName=sa
Password=sa
databasename=test
现在我想对上面的内容设置的时候加密,连接的时候解密,不知道如何处理?
请各位指教.
另外.还有一个问题,程序在运行的时候,能够隐藏,在需要的时候,通过按键比如是CTRL+ALT+F12
可以显示出来.不需要的时候,通过按键又可以隐藏.请问该如何处理?

Answer 1

CTRL+ALT+F12 这个注册热键即可.
加密,你只要对这个文件进行加密即可,程序读时进行解密即可.加密的方法很多,有简单的,简单的与或运算即可.
不管怎么样,只要注册热键的方法即可. 
procedure TForm1.BitBtn13Click(Sender: TObject);  
begin  
   hotkeyid:=GlobalAddAtom(   'Hotkey   ');//   'Hotkey   '名字可以随便取  
   RegisterHotKey(form1.Handle,hotkeyid,0,VK_F1);  
end;  procedure TForm1.BitBtn14Click(Sender: TObject);  
begin  
   unregisterhotkey(handle,hotkeyid);  
   DeleteAtom(hotkeyid);  
end;  procedure WMHotKey(var Msg: TWMHotKey); message wm_hotkey;  
procedure TForm1.WMHotKey(var Msg: TWMHotKey);   
begin  
  if msg.HotKey = hotkeyid then  
  begin   
    Self.Visible:= not Self.Visible;   
  end;   
end;  注册热键,按F1进行显示与隐藏.

Answer 2

可以写一个简单的加密程序保存，用的时候再解密
问题2可以通过APIHOOK实现

Answer 3

能否把APIHOOK如何使用说的具体点?
我刚接触DELPHI,有许多的东西不懂.请谅解.

Answer 4

各位,请指教.
尽量详细一点.我对DELPHI 不是很熟.
在线等.

Answer 5

有2个xxx64xx的个组件,用于加密解密的,你按F1找找帮助

Answer 6

CTRL+ALT+F12   这个注册热键即可. 
加密,你只要对这个文件进行加密即可,程序读时进行解密即可.加密的方法很多,有简单的,简单的与或运算即可. 
不管怎么样,只要注册热键的方法即可.   
procedure   TForm1.BitBtn13Click(Sender:   TObject);     
begin     
      hotkeyid:=GlobalAddAtom(       'Hotkey       ');//       'Hotkey       '名字可以随便取     
      RegisterHotKey(form1.Handle,hotkeyid,0,VK_F1);     
end;     procedure   TForm1.BitBtn14Click(Sender:   TObject);     
begin     
      unregisterhotkey(handle,hotkeyid);     
      DeleteAtom(hotkeyid);     
end;     procedure   WMHotKey(var   Msg:   TWMHotKey);   message   wm_hotkey;     
procedure   TForm1.WMHotKey(var   Msg:   TWMHotKey);       
begin     
    if   msg.HotKey   =   hotkeyid   then     
    begin       
        Self.Visible:=   not   Self.Visible;       
    end;       
end;     注册热键,按F1进行显示与隐藏.这个还不够清楚吗