sys@9i > @restrict_password

Function created.


Profile dropped.


Profile created.


User dropped.


User created.


User altered.


Grant succeeded.

sys@9i > connect sample/sample
Connected.
sys@9i > password
Changing password for SAMPLE
Old password:
New password:
Retype new password:
ERROR:
ORA-28003: password verification for the specified password failed
ORA-20001: password policy: Password should be greater than 4 characters


Password unchanged
sys@9i > get restrict_password
  1  CREATE OR REPLACE FUNCTION check_new_password  (username VARCHAR2,
  2                                             password VARCHAR2,
  3                                             old_password VARCHAR2) RETURN boolean IS
  4  BEGIN
  5  if length(password) < 4  then
  6     raise_application_error(-20001, 'password policy: Password should be greater than 4 characters') ;
  7  END if;
  8  end;
  9  /
 10  drop profile restrict_user cascade;
 11  CREATE  PROFILE restrict_user  LIMIT PASSWORD_VERIFY_FUNCTION check_new_password;
 12  drop user sample;
 13  create user sample identified by sample;
 14  alter user sample profile restrict_user;
 15* grant connect to sample;