㈠ 怎麼解密ini 文件
用delphi
//寫Ini
Procere WriteIniFile(sSection,sIndent,sValue:String);
Var
TmpIni:TIniFile;
Begin
TmpIni:=TIniFile.Create(SysInfo.AppDir+'\SysConfig.ini');
Try
TmpIni.WriteString(sSection,sIndent,sValue);
Finally
TmpIni.Free;
End;
End;
//讀取INI
Function ReadFromIniFile(sSection,sIndent,sDefault:String):String;
Var
TmpIni:TIniFile;
Begin
TmpIni:=TIniFile.Create(SysInfo.AppDir+'\SysConfig.ini');
Try
Result:=TmpIni.ReadString(sSection,sIndent,sDefault);
Finally
TmpIni.Free;
End;
End;
//取得連接串
function GetDBCnstr:String;
begin
Result:=Format('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Persist Security Info=False;'+
'Jet OLEDB:Database Password=%s',[123.mdb','你的密碼'])
end;
//機密解密
function UncrypStr(sInput:String):String;
begin
//具體代碼網上找
end;
function EncrypStr(sInput:String): String;
Begin
End;
//可以了巴，函數體都給你了，自己組合去，^_^。
你可以把ConnectionString加密一下，得出的字元串設在INI裡面，不用把INI整個文件加密了。