修改Oracle用户密码的方法

如何修改Oracle用户密码呢？这是很多人都提到过的问题，下面就教您一个Oracle用户密码的方法，希望对您能有所帮助。

创新互联建站服务项目包括龙湾网站建设、龙湾网站制作、龙湾网页制作以及龙湾网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，龙湾网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到龙湾省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！

做为Unix 系统管理员，Oracle 数据库管理员，Oracle ERP 应用系统管理员，需要不定期地更改各系统中重要用户的密码，以保证系统及数据的安全。 

但是，由于所管理的小型机及数据库、应用系统较多，每月更改近百个用户的密码，不论是密码的生成，还是密码的更改，工作量均很大，尤其是密码的生成，为了加强安全性，密码不能太简单，***为字母与数字的随机组合。但大量的密码，若不借助自动生成，则其编排是Oracle ERP 系统中应用系统用户（指各子系统的用户，非指具体应用用户）同时也是Oracle 数据库用户（如应收模块，用户为 AR，AR既是数据库用户，又是应用用户），而且，只有 applsyspub（登录系统的公用用户），applsys（应用基础用户）,apps(具体应用操作用户）为必须为应用系统中密码与数据库密码一致外，其它应用的Oracle用户密码可以与应用系统中密码中不一致，只需在对应用系统进行打 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 值过滤。用类似方法，可使生成的密码串中不包含其它不想包含的字符。

通过使用这种方式，生成并修改密码的工作量得到大大减少，安全性得到提高。 
实际上，这种方法产生的密码不限于 unix 与 Oracle, 可用于各种操作系统中重要用户

 
 
 
    
  
  
  
  1. Sub gen_pass_app()    
    2. 
  
  
  
  2. Dim bit_count as integer ’循环变量, 密码中位数计数器    
    3. 
  
  
  
  3. dim row_num as integer ’需生成密码的用户名信息开始的行号    
    4. 
  
  
  
  4. dim rnd_base As Integer ’随机数种子    
    5. 
  
  
  
  5. Dim char_value As Integer ’密码中每个字符的 ascii 值    
    6. 
  
  
  
  6. Dim temp_str As String ’密码串    
    7. 
  
  
  
  7. Dim username(50) As String ’用户名    
    8. 
  
  
  
  8. dim pass_length as integer ’定义生成的密码的长度    
    9. 
  
  
  
  9. dim start_asc as integer ’ 定义从哪个字符开始生成    
    10. 
  
  
  
  10. pass_length = 8 ’ 设定密码长度为 8 位    
    11. 
  
  
  
  11. Rem start_asc = 48 ’ 设定密码从 0 开始    
    12. 
  
  
  
  12. start_asc = 65 ’ 设定密码从 A 开始    
    13. 
  
  
  
  13. rem 由于 Oracle 数据库用户密码不区分大小写，故，视所选择的起始字母，决定随机数   
    14. 
  
  
  
  14. rnd_base = 90 - start_asc    
    15. 
  
  
  
  15. ?    
    16. 
  
  
  
  16. rem 打开文件，用于输出生成的改密码的脚本    
    17. 
  
  
  
  17. Open "c:change_pass.sql" For Output As #1    
    18. 
  
  
  
  18. rem 同时，在工作表上记录相应的密码，以便打印出来备作为记录，此处为先写标题    
    19. 
  
  
  
  19. Cells(1, 1) = "Username": Cells(1, 2) = "Password"    
    20. 
  
  
  
  20. Cells(1, 3) = "Username": Cells(1, 4) = "Password"    
    21. 
  
  
  
  21. rem 先生成 apps 的密码，但脚本中加上注释，因 apps密码必须与应用程序一起改    
    22. 
  
  
  
  22. rem 先初始化密码串为空白    
    23. 
  
  
  
  23. temp_str = ""    
    24. 
  
  
  
  24. For bit_count = 1 To pass_length    
    25. 
  
  
  
  25. char_value = start_asc + Int(Rnd(1) * rnd_base)    
    26. 
  
  
  
  26. rem 此处为为防=号引起 excel 误认为是公式，从而程序出错。    
    27. 
  
  
  
  27. If char_value = 61 Then    
    28. 
  
  
  
  28. char_value = 62    
    29. 
  
  
  
  29. End If    
    30. 
  
  
  
  30. rem 组合成密码    
    31. 
  
  
  
  31. temp_strtemp_str = temp_str + Chr$(char_value)    
    32. 
  
  
  
  32. Next bit_count    
    33. 
  
  
  
  33. rem 将生成的 apps 密码输出到脚本文件    
    34. 
  
  
  
  34. Print #1, "REM alter user apps" + " identified by " + temp_str + ";"    
    35. 
  
  
  
  35. rem 同时，记录在工作表上    
    36. 
  
  
  
  36. Cells(2, 3) = "APPS": Cells(2, 4) = temp_str    
    37. 
  
  
  
  37. rem 需生成密码的用户名从 row_num 行开始    
    38. 
  
  
  
  38. row_num = 2    
    39. 
  
  
  
  39. rem 若***列非空，则创建密码，否则退出 　　Do While Cells(row_num, 1) <> ""    
    40. 
  
  
  
  40. temp_str = ""    
    41. 
  
  
  
  41. For bit_count = 1 To pass_length    
    42. 
  
  
  
  42. char_value = start_asc + Int(Rnd(1) * rnd_base)    
    43. 
  
  
  
  43. If char_value = 61 Then    
    44. 
  
  
  
  44. char_value = 62    
    45. 
  
  
  
  45. End If    
    46. 
  
  
  
  46. temp_strtemp_str = temp_str + Chr$(char_value)    
    47. 
  
  
  
  47. Next bit_count    
    48. 
  
  
  
  48. Print #1, "alter user " + Cells(row_num, 1) + " identified by " + temp_str +    
    49. 
  
  
  
  49. Cells(row_num, 2) = temp_str    
    50. 
  
  
  
  50. rem 获取下一行    
    51. 
  
  
  
  51. row_numrow_num = row_num + 1    
    52. 
  
  
  
  52. Loop    
    53. 
  
  
  
  53. rem 所有用户的密码已生成，关闭文件    
    54. 
  
  
  
  54. Close #1    
    55. 
  
  
  
  55. End Sub    
    56. 
  
  
  
  56. ?    
    57. 
  
  
  
  57. Sub gen_pass_unix()    
    58. 
  
  
  
  58. 　 Dim bit_count as integer ’循环变量, 密码中位数计数器    
    59. 
  
  
  
  59. dim row_num as integer ’需生成密码的用户名信息开始的行号    
    60. 
  
  
  
  60. dim rnd_base As Integer ’随机数种子    
    61. 
  
  
  
  61. Dim char_value As Integer ’密码中每个字符的 ascii 值    
    62. 
  
  
  
  62. Dim temp_str As String ’密码串    
    63. 
  
  
  
  63. Dim username(50) As String ’用户名    
    64. 
  
  
  
  64. dim pass_length as integer ’定义生成的密码的长度    
    65. 
  
  
  
  65. dim start_asc as integer ’ 定义从哪个字符开始生成    
    66. 
  
  
  
  66. pass_length = 8    
    67. 
  
  
  
  67. start_asc = 48 ’ 0    
    68. 
  
  
  
  68. Rem start_asc = 65 ’ A    
    69. 
  
  
  
  69. rem 由于 unix 密码支持大小写，故，视所选择的起始字母，决定随机数的范围，以确保   
    70. 
  
  
  
  70. rnd_base = 122 - start_asc    
    71. 
  
  
  
  71. ?    
    72. 
  
  
  
  72. rem 打开文件，用于输出生成的改密码的脚本    
    73. 
  
  
  
  73. Open "c:change_pass.txt" For Output As #1    
    74. 
  
  
  
  74. 　　rem 同时，在工作表上记录相应的密码，以便打印出来备作为记录，此处为先写标题    
    75. 
  
  
  
  75. Cells(1, 3) = "Username": Cells(1, 4) = "Password"    
    76. 
  
  
  
  76. row_num = 2    
    77. 
  
  
  
  77. rem 若第三列非空，则创建密码，否则退出 　　Do While Cells(row_num, 3) <> ""    
    78. 
  
  
  
  78. temp_str = ""    
    79. 
  
  
  
  79. For bit_count = 1 To pass_length    
    80. 
  
  
  
  80. char_value = start_asc + Int(Rnd(1) * rnd_base)    
    81. 
  
  
  
  81. 　　rem 91-94 为 [ ] ^ _ `    
    82. 
  
  
  
  82. rem 因不愿在unix 密码串中包含该类字符，故，通过减少已增大的计数器以保证密码的长度，同时，不将其计入密码串中，以排除它们    
    83. 
  
  
  
  83. If (char_value >= 58 And char_value <= 64) Or (char_value >= 91 And char_value <= 96) Then    
    84. 
  
  
  
  84. bit_countbit_count = bit_count - 1    
    85. 
  
  
  
  85. Else    
    86. 
  
  
  
  86. temp_strtemp_str = temp_str + Chr$(char_value)    
    87. 
  
  
  
  87. End If    
    88. 
  
  
  
  88. Next bit_count    
    89. 
  
  
  
  89. Print #1, "user " + Cells(row_num, 1) + " : " + temp_str    
    90. 
  
  
  
  90. Cells(row_num, 4) = temp_str    
    91. 
  
  
  
  91. rem 获取下一行    
    92. 
  
  
  
  92. row_numrow_num = row_num + 1    
    93. 
  
  
  
  93. Loop    
    94. 
  
  
  
  94. rem 所有用户的密码已生成，关闭文件    
    95. 
  
  
  
  95. Close #1    
    96. 
  
  
  
  96. End Sub  
    97.

当前文章：修改Oracle用户密码的方法
标题网址：http://www.shufengxianlan.com/qtweb/news0/255700.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联

猜你还喜欢下面的内容

网站内链知识

分类信息网

一元广告　　 　全网整合营销　　 　企业网站建设公司　　 　云服务器　　 　成都封阳台　　 　微信公众号开发　　 　富顺网站建设　　 　宇仓仓储　　 　成都企业网站维护　　 　成都LED显示屏　　 　成都网站推广　　 　广西弘博建站　　 　四川鸿达　　 　遂宁做网站　　 　成都网站维护　　 　网站建设开发　　 　网站开发　　 　企业官网建设　　 　关键词排名优化　　 　成都纯水机