unigui中实现加密ini配置文件内容读取

Delphi读取并解密INI配置

原创

于 2020-02-06 22:12:22 发布 · 752 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#ini #解密

本文介绍如何在Delphi中使用TIniFile组件读取INI配置文件，并通过AES解密敏感信息如数据库连接字符串。展示了如何设置数据库参数并建立连接。

1、加入以下三个pas文件。

2、在MainModule中UniGUIMainModuleCreate事件中读取ini配置。

uses
System.IniFiles;

var

  myfile: string;
  Ini: TIniFile;
  dbstren, dbuseren, dbpassen: string;
 
begin
  myfile := UniServerModule.StartPath + 'sysSetting.ini';
  Ini := TIniFile.Create(myfile);  
  dbstren := Ini.ReadString('application', 'dbHost', '127.0.0.1');
  dbuseren := Ini.ReadString('application', 'dbuser', 'root');
  dbpassen := Ini.ReadString('application', 'dbpassword', 'root');
end;

3、解密读取的相关变量。

var
  KeyBit: TKeyBit;
  APaddingMode: TPaddingMode;
  myfile, dbconnstr: string;
  Ini: TIniFile;
  dbstren, dbuseren, dbpassen: string;
  dbstr, dbuser, dbpass: string;
begin
  myfile := UniServerModule.StartPath + 'sysSetting.ini';

  Ini := TIniFile.Create(myfile);

最低0.47元/天解锁文章