生成Oracle用户密码的通用小程序

　　由于所管理的小型机及数据库、应用系统较多，每月更改近百个用户的密码，不论是密码的生成，还是密码的更改，工作量均很大，尤其是密码的生成，为了加强安全性，密码不能太简单，最好为字母与数字的随机组合。但大量的密码，若不借助自动生成，则其编排是Oracle ERP 系统中应用系统用户（指各子系统的用户，非指具体应用用户）同时也是Oracle 数据库用户（如应收模块，用户为 AR，AR既是数据库用户，又是应用用户），而且，只有 applsyspub（登录系统的公用用户），applsys（应用基础用户）,apps(具体应用操作用户）为必须为应用系统中密码与数据库密码一致外，其它应用的数据库用户密码可以与应用系统中密码中不一致，只需在对应用系统进行打 patch 工作时才需将其改为一致。因而，可在打 patch 前，在应用系统中将应用系统用户密码修改为与数据库一致即可，平时不用修改其密码，这样一则减少了工作量，二则加强了系统的安全性。

　　更改数据库用户密码可通过在 sqlplus 执行 alter user identified by 密码 的命令而实现，因而，可以通过自动生成密码脚本的方式，高效地完成密码的更改工作。而 Unix 用户密码则由于需由管理员负责更改密码的并不多，故可在自动生成后，手工进行修改。

　　为了生成较为复杂的密码，同时提高工作效率，我用 Excel 自带的 VBA 编写了一个小脚本，运行该程序，则自动生成一个更改用户密码的脚本，同时，将用户密码记录在工作表上，以便于打印出来，保存在密码本中，做为记录。

　　首先，需在工作表中第一列输入各个要修改密码的数据库用户的用户名，在第三列输入各

　　然后，运行脚本 gen_pass_oracle ，则自动生成Oracle 用户的相应的密码；运行脚本gen_pass_unix ，则自动生成unix 操作系统用户的相应的密码。 生成的Oracle 数据库用户密码保存在 change_pass.sql 中，可在 sqlplus 中调用该脚本。生成的Unix 用户密码保存在change_pass.txt 中，需手工逐个地更改密码。 可通过在程序首部修改 pass_length 的值的方法，确定生成的密码的长度；可通过在程序首部修改 start_asc 的方法，确定密码的组成 0-9,A-Z还是仅 A-Z其主要实现为：通过检查工作表中每一行第1列（或第3列）是否为空，判断是否结束密码生成工作。若非空，即有用户名，则进行循环，生成在程序头部定义的指定长度的密码串。密码串中的字符为通过起始字符的 ascii 值加上随机数产生的随机值得到的新的 ascii 值，再将其转换为字符型，并加入密码串中。当密码串的长度达到指定长度时，将其组合为一个sql 语句写入文件中，同时，在该行的第2列（或第4列）中写入该密码串。

　　同时，考虑到在 Excel 中会将“=”开头的字符串当作公式对待，故，在生成密码串时，将等于"="的ascii 值过滤。用类似方法，可使生成的密码串中不包含其它不想包含的字符。