ORACLE密码策略非常重要,下面就为您详细介绍ORACLE密码策略验证程序,如果您对ORACLE密码策略方面感兴趣的话,不妨一看。
密码字符串要求:
-- Check if the password is same as the username
-- Check for the minimum length of the password
-- Check if the password contains at least one letter, one digit and one
-- Check if the password differs from the previous password by at least
CREATE OR REPLACE FUNCTION SYS。
verify_function
(username varchar2,
password varchar2,
old_password varchar2)
RETURN boolean IS
n boolean;
m integer;
differ integer;
isdigit boolean;
ischar boolean;
ispunct boolean;
digitarray varchar2(20);
punctarray varchar2(25);
chararray varchar2(52);
BEGIN
digitarray:= ’0123456789’;
chararray:= ’abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ’;
punctarray:=’!"#$%&()``*+,-/:;?_’;
-- Check if the password is same as the username
IF NLS_LOWER(password) = NLS_LOWER(username) THEN
raise_application_error(-20001, ’Password same as or similar to user’);
END IF;
-- Check for the minimum length of the password
IF length(password) < 8 THEN
raise_application_error(-20002, ’Password length less than 8’);
END IF;
-- Check if the password is too simple。
A dictionary of words may be
-- maintained and a check may be made so as not to allow the words
-- that are too simple for the password。
IF NLS_LOWER(password) IN (’welcome’, ’database’, ’account’, ’user’, ’password’, ’oracle’, ’computer’, ’abcd’) THEN
raise_application_error(-20002, ’Password too simple’);
END IF;
-- Check if the password contains at least one letter, one digit and one
-- punctuation mark。
-- 1。 Check for the digit
1。isdigit:=FALSE;
2。m := length(password);
3。FOR i IN 1。。10 LOOP
4。FOR j IN 1。。m LOOP
5。
IF substr(password,j,1) = substr(digitarray,i,1) THEN
6。isdigit:=TRUE;
7。GOTO findchar;
8。END IF;
9。END LOOP;
10。END LOOP;
11。
IF isdigit = FALSE THEN。
全部