随机生成密码

# 随机生成密码

```SQL
--随机生成指定位数的密码
DECLARE 
    p_str VARCHAR2(1000);  --用于生成密码的字符串
    v_num NUMBER := 8;  --密码长度
    v_count NUMBER := 10;  --生成密码的个数
    v_pass VARCHAR2(100);  --密码
BEGIN
    p_str := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'||'abcdefghijklmnopqrstuvwxyz'||'0123456789'||'~!@#$^&*<>?-_=+';
    FOR i IN 1..v_count LOOP
        v_pass := '';
        FOR i IN 1..v_num LOOP
            v_pass := v_pass || SUBSTR(p_str,dbms_random.value(1,LENGTHC(p_str)+1),1);
        END LOOP;
        dbms_output.put_line(v_pass);
    END LOOP;
END;

--生成含大写字母、小写字母、数字和特殊字符的高强度密码
DECLARE 
  p_str VARCHAR2(1000);  --用于生成密码的字符串
  v_num NUMBER := 10;  --密码长度
  v_count NUMBER := 10;  --生成密码的个数
  v_pass VARCHAR2(100);  --密码
  v_c NUMBER := 1;  --计数
BEGIN
  p_str := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'||'abcdefghijklmnopqrstuvwxyz'||'0123456789'||'!#$%&()*+,-.:;<=>?@[]^_`{|}~';
  WHILE v_c <= v_count LOOP
    v_pass := '';
    FOR i IN 1..v_num LOOP
      v_pass := v_pass || SUBSTR(p_str,dbms_random.value(1,LENGTHC(p_str)+1),1);
    END LOOP;
        IF regexp_instr(v_pass,'[[:upper:]]+') > 0 --含大写字母
              AND regexp_instr(v_pass,'[[:lower:]]+') > 0 --含小写字母
            AND regexp_instr(v_pass,'[[:digit:]]+') > 0 --含数字
                AND regexp_instr(v_pass,'[^[:alnum:]]+') > 0 --含非字母和大小写数字，即特殊字符
        THEN
            dbms_output.put_line(v_pass);
            v_c := v_c + 1;
        END IF;
  END LOOP;
END;
```