在通常的server/client方式mis开发中，由于程序要与数据库服务器保持联接，为了程序的灵活和扩充性，联接参数（用户id和登录口令）又不能在程序中写死（其实写死也不是一种好的方法），一般的方法无外乎有两种：其一是把联接参数存放在注册表中；其二就是直接读ini文件。
本人找到一种方法，可以解决数据库应用的安全性问题，通过ini文件和数据库的巧妙处理，在程序中提供用户一种接口，可以随时修改数据库的联接参数，而又不给外人以蛛丝马迹，做到神不知鬼不觉。
实现方法如下：
1、创建ini文件，记录数据库联接的一些方便程序分发的参数dbms、servername、logid具体如下：
//创建成ini文件（rsgl.ini）
[database]
dbms=o84 oracle 8.0.4
servername=gxmistest //数据库服务器名
logid=rsgl //实际的数据库登录用户
然后，在数据库中创建一个中间用户pub，登录口令pub，赋予pub用户connect，resource权限，再在其中创建表create table tbl_pub_passshadow (passshadow varchar2(50) not null)用于存放实际的数据库联接的登录口令（当然要经过加密）。加密函数网上多的是，在此就不累述。
我自已创建了一个字符串加密函数f_password(string old_str,string new_str,integer jm_mode)，jm_mode参数用以区分函数的加（解）密，old_str、new_str两参数分别为加（解）密的字符串。
2、就开始编写应用程序了，在应用程序的open事件中进行数据库登录联接，程序脚本如下：
string ls_inifile,ls_starttimes
string ls_logid,ls_logpass,ls_dbms
string ls_pass,ls_sql,ls_code,ls_server
//设置ini文件
ls_inifile = 'rsgl.ini'
ls_server = profilestring (ls_inifile, "database", "servername", "")
ls_logid = profilestring (ls_inifile, "database", "logid","")
// profile pub
sqlca.dbms = profilestring (ls_inifile, "database", "dbms", "")
sqlca.logpass = 'pub'
sqlca.servername = ls_server
sqlca.logid = "pub"
sqlca.autocommit = false
sqlca.dbparm = ""
connect using sqlca;
//得到用户rsgl加过密的用户口令
select passshadow into:ls_pass from tbl_pub_passshadow;
//口令解密
ls_pass = f_password(ls_pass,0)
disconnect using sqlca;
//联接到实际的数据库用户rsgl
sqlca.servername = ls_server
sqlca.dbms = profilestring (ls_inifile, "database", "dbms","")
sqlca.dbparm = profilestring (ls_inifile, "database", "dbparm","")
sqlca.database = profilestring (ls_inifile, "database", "database","")
sqlca.userid = profilestring (ls_inifile, "database", "userid","")
sqlca.dbpass = profilestring (ls_inifile, "database", "dbpass","")
sqlca.logid = ls_logid
sqlca.logpass = ls_pass//profilestring (ls_inifile, "database", "logpass","")
sqlca.autocommit = false
connect using sqlca;
if sqlca.sqldbcode <> 0 then
choose case sqlca.sqldbcode
case 1017
messagebox (string(sqlca.sqldbcode),"不能联接数据库。~r错误：无效的用户名和口令.请与管理员联系!")
case 12154
messagebox (string(sqlca.sqldbcode),"不能联接数据库。~r错误：服务器名不存在!请与系统管理员联系.")
case 999
messagebox (string(sqlca.sqldbcode),"不能联接数据库。~r错误：数据库不支持你当前的安装!")
case else
messagebox (string(sqlca.sqldbcode),"不能联接数据库。~r错误："+ sqlca.sqlerrtext)
end choose
halt close
else
open(w_gd_frame) //打开应用程序的主窗口
end if
3、接下来，就是编写一个用户接口，让授权用户随时修改数据库联接参数。窗口界面见下图：（文件名称：dblogon.jpg）,窗口上面的控件有：
控件名称 控件属性
sle_server singlelineedit
sle_login singlelineedit
sle_oldkl singlelineedit
sle_pass singlelineedit
sle_repass singlelineedit
cb_1 commandbutton
cb_2 commandbutton
cb_1命令按钮的clicked事件如下：
string ls_inifile,ls_pass,ls_logid,ls_repass,ls_old
string ls_k,ls_user,ls_sql
ls_inifile ='rsgl.ini'
transaction pub_tr
pub_tr = create transaction
pub_tr.dbms = profilestring (ls_inifile, "database", "dbms", "")
pub_tr.logpass = 'pub'
pub_tr.servername = sle_server.text
pub_tr.logid = "pub"
pub_tr.autocommit = false
pub_tr.dbparm = ""
connect using pub_tr;
ls_old = sle_oldkl.text
ls_user = lower(trim(sle_logid.text))
//得到数据库联接原用户口令
select passshadow into :ls_k from tbl_pub_passshadow using pub_tr;
if ls_old <> f_password(ls_k,0) then
messagebox("提示","原口令不对!")
return
end if
//检查核对口令
ls_pass = sle_pass.text
ls_repass = sle_repass.text
if ls_repass <> ls_pass then
messagebox("","核对口令不对，请重新输入!")
return
end if
setprofilestring(ls_inifile, "database", "servername",sle_server.text)
setprofilestring(ls_inifile, "database", "logid",ls_user)
//修改数据库用户的联接口令
ls_sql = ' alter user '+ls_user+' identified by '+ls_pass
execute immediate :ls_sql using sqlca;
ls_pass = f_password(ls_pass,1)
update tbl_pub_passshadow set passshadow =:ls_pass using pub_tr ;
commit using pub_tr;
commit using sqlca;
disconnect using pub_tr;
close(parent)
cb_2命令按钮的clicked事件如下：close(parent)
4、到此万事ok
所有代码已在win98环境下，用powerbuilder 6.5测试通过。
Java Asp PHP .Net XML C/C++ CGI VB Jsp J2ee J2se J2me EJB Servlet Tomcat Resin Struts Weblogic Eclipse ANT GUI JMS Web servise IDEA Webphere Hibernate Spring Jboss Applet Swing Socket Javamail Perl Ajax P2P 安全 模式 框架 测试 开源 游戏
Windows XP Windows 2000 Windows 2003 Windows Me Windows 9.x Linux UNIX 注册表 操作系统 服务器 应用服务器
