高校问答海口美兰政府网:delphi 程序中读取ini文件的问题
来源：百度文库 编辑：高校问答 时间：2024/05/04 14:35:04
数据库是sql server2000 在连接数据库时，
使用的是ADOConnection1.ConnectionString，
把与数据库相关的（数据库名、服务器名、用户、密码）写到ini文件中去，问题是：要再写入时密，
读取时解密，具体方法。谢谢帮助！
我要的是ini文件加密、解密方法！谢谢！
//写Ini
Procedure 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整个文件加密了。