在 Oracle 中生成随机密码

在我的应用中，我需要在用户首次注册时为该帐号生成一个随机密码。所生成的密码必须满足一定的要求，这些要求由系统管理员进行配置。我们提供了下面几个对密码的要求规则，这些规则可组合使用：1- 要求大写字母 UPPERCASE        =====> 缩写 [U]
2- 要求小写字母 LOWERCASE       =====> 缩写 [L]
3- 要求使用数字 NUMBER              =====> 缩写 [N]
4- 可以是任意字符 any character    =====> 缩写 [A]
5- 必须有非字母和数字的字符 NON-ALPHANUMERIC character =====> 缩写 [S]因此我想通过创建一个动态函数 "RANDOM_PASSWORD" 来根据要求返回随机的密码。系统管理员只需要传递所需密码的规则就会返回对应的随机密码。例如要求如下：首字符必须大写             ======> U
第二个字符必须小写     ======> L
第三个字符必须是数字    ======>N
第四个字符随意            ======>A
第五个字符必须是非字母和数字 ======>S
第六个字符必须是数字    ======> N

那么你可以使用 "ULNASN" 参数来获取随机密码。

所生成的密码程度跟传递的参数长度是一致的。在我们这个例子中生成的密码长度是 6。你可以使用下面方法来调用这个函数：RANDOM_PASSWORD（"ULNASN"）;该函数的源码如下：CREATE OR REPLACE FUNCTION RANDOM_PASSWORD （IN_TEMPLATE IN VARCHAR2）
RETURN VARCHAR2 IS
LC$CRITERIA VARCHAR2（1）;
LC$PASSWORD VARCHAR2（500）;
LC$PATTERN VARCHAR2（500）;
LN$INDX NUMBER;
BEGIN
/*1-Character should be UPPERCASE     =====> Abbreviation [U]
2- Character should be LOWERCASE      =====> Abbreviation [L]
3- Character should be NUMBER         =====> Abbreviation [N]
4- Character should be any character     =====> Abbreviation [A]
5- Character should be NON-ALPHANUMERIC character =====> Abbreviation [S]*/
   LC$CRITERIA := "";
   LC$PASSWORD := "";
   FOR I IN 1.. LENGTH（IN_TEMPLATE） LOOP
     LC$CRITERIA := SUBSTR（IN_TEMPLATE,I,1）;
     IF UPPER（LC$CRITERIA ） = "U" THEN
       LC$PATTERN := q"[ABCDEFGHIJKLMNOPQRSTUVWXYZ]";
     ELSIF UPPER（LC$CRITERIA ） = "L" THEN
        LC$PATTERN := q"[abcdefghijklmnopqrstuvwxyz]";
     ELSIF UPPER（LC$CRITERIA ） = "N" THEN
        LC$PATTERN := q"[0123456789]";
     ELSIF UPPER（LC$CRITERIA ） = "A" THEN
        LC$PATTERN := q"[0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz]";
     ELSIF UPPER（LC$CRITERIA ） = "S" THEN
        LC$PATTERN := q"[~！@#$%^&*（）_+-}{|":;？.,<>[]/]";
     ELSE
        LC$PATTERN := q"[ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789]";
     END IF;
     LN$INDX := TRUNC（ LENGTH（LC$PATTERN） * DBMS_RANDOM.VALUE） + 1;
     LC$PASSWORD := LC$PASSWORD || SUBSTR（LC$PATTERN,LN$INDX,1）;
   END LOOP;
   RETURN LC$PASSWORD;
END RANDOM_PASSWORD; 使用方法：SELECT RANDOM_PASSWORD （"ULNASN"） FROM DUAL;在我这里将返回的随机密码是：Pq51{0当然，你运行的结果可能不一样，因为这是随机的。英文原文，OSCHINA原创翻译SQL Server 2000 库置疑的修复在 MySQL 中根据规则生成随机密码相关资讯 Oracle基础教程

Oracle块编程返回结果集详解（11/10/2013 10:45:58）
Oracle基础教程之设置系统全局区（08/22/2013 14:24:00）
Oracle基础教程知识点总结（06/18/2013 07:43:32）

Oracle基础教程之tkprof程序详解（10/22/2013 11:49:50）
Oracle基础教程之sqlplus汉字乱码（07/18/2013 16:30:00）
Oracle 管理之 Linux 网络基础（02/16/2013 18:37:35）

本文评论查看全部评论（0）