Password verify function with one Capital Letter check

Password verify function with following checks.

We can use password function provided by ORACLE but it contains around 9 checks like:

1.Check if the password is same as the username 
2.Check if the password is same as the username reversed 
3.Check if the password differs from the previous password by at least 3 letters 
4.Check if the password is the same as server name 
5.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. 
6.Check if the password is the same as oracle 

But it doesn't contain "One Capital Letter Check" 

Below Function with 4 checks only, customized as per customer requirement :

*minimum length of 8 characters 
* one capital letter 
* one number 
* one special character 

==========================

CREATE OR REPLACE FUNCTION verify_function_anil

(username varchar2,

  password varchar2,

  old_password varchar2)

  RETURN boolean IS

   n boolean;

   m integer;

   differ integer;

   isdigit boolean;

   ischar  boolean;

   ispunct boolean;

   isupper boolean;

   db_name varchar2(40);

   digitarray varchar2(20);

   punctarray varchar2(25);

   chararray varchar2(52);

   i_char varchar2(10);

   regular_expr varchar2(30);

   

BEGIN

   digitarray:= '0123456789';

   chararray:= 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ';

   punctarray:='!"#$%&()``*+,@-/:;<=>?_';

   regular_expr:= '[ABCDEFGHIJKLMNOPQRSTUVWXYZ]';

   

   -- Check for the minimum length of the password

   IF length(password) < 8 THEN

      raise_application_error(-20001, 'Password length less than 8');

   END IF;

   -- Check if the password contains at least one letter, one digit and one

   -- punctuation mark.

   -- 1. Check for the digit

   isdigit:=FALSE;

   m := length(password);

   FOR i IN 1..10 LOOP

      FOR j IN 1..m LOOP

         IF substr(password,j,1) = substr(digitarray,i,1) THEN

            isdigit:=TRUE;

             GOTO findchar;

         END IF;

      END LOOP;

   END LOOP;

   IF isdigit = FALSE THEN

      raise_application_error(-20003, 'Password should contain at least one digit, one character, one Capital Letter and one punctuation');

   END IF;

   -- 2. Check for the character

   <<findchar>>

   ischar:=FALSE;

   FOR i IN 1..length(chararray) LOOP

      FOR j IN 1..m LOOP

         IF substr(password,j,1) = substr(chararray,i,1) THEN

            ischar:=TRUE;

             GOTO findpunct;

         END IF;

      END LOOP;

   END LOOP;

   IF ischar = FALSE THEN

      raise_application_error(-20003, 'Password should contain at least one \

              digit, one character, one Capital Letter and one punctuation');

   END IF;

   -- 3. Check for the punctuation

   <<findpunct>>

   ispunct:=FALSE;

   FOR i IN 1..length(punctarray) LOOP

      FOR j IN 1..m LOOP

         IF substr(password,j,1) = substr(punctarray,i,1) THEN

            ispunct:=TRUE;

             GOTO findupper;

         END IF;

      END LOOP;

   END LOOP;

   IF ispunct = FALSE THEN

      raise_application_error(-20003, 'Password should contain at least one \

              digit, one character, one Capital Letter and one punctuation');

   END IF;

   -- 4. Check for the uppercase

   <<findupper>>

   isupper:=FALSE;

              IF REGEXP_INSTR(password,regular_expr) > 0 THEN

 isupper:=TRUE;

 GOTO endsearch;  

ELSIF isupper = FALSE THEN 

   raise_application_error(-20006, 'Password must contain at least one upper case letter.');    

         END IF;

   <<endsearch>>

   

   -- Everything is fine; return TRUE ;

   RETURN(TRUE);

   END;

/

==================

GRANT EXECUTE ON verify_function_anil TO PUBLIC;

alter profile default limit PASSWORD_VERIFY_FUNCTION verify_function_anil;