aaa

CREATE OR REPLACE FUNCTION SYS.VALIDATE_PASSW
(username IN VARCHAR2,
     new_password IN VARCHAR2,
     old_password IN VARCHAR2)
     RETURN BOOLEAN  AS valid BOOLEAN;
     n INTEGER;
     m CHAR(1);
     BEGIN
       IF old_password <> NULL THEN
       IF new_password = old_password
              THEN raise_application_error(-20004, 'New password cannot be equal to the last one');
       END IF;
       END IF;

       IF new_password = username THEN
       raise_application_error(-20001, 'Username not found');
       END IF;
       IF LENGTH(new_password) < 8
               THEN raise_application_error(-20002, 'New password should have at least 8 character');
       END IF;
       n:=LENGTH(new_password);
       FOR i IN 1..n  LOOP
               m:=SUBSTR(new_password,i,1);
               IF m = '\ù' THEN raise_application_error(-20003,'New password shouldn'' t contain special character'); END IF;
               IF m = '!' THEN raise_application_error(-20003, 'New password shouldn t contain special character'); END IF;
               IF m = '"' THEN raise_application_error(-20003, 'New password shouldn t contain special character'); END IF;
               IF m = '$' THEN raise_application_error(-20003, 'New password shouldn t contain special character'); END IF;
               IF m = '%' THEN raise_application_error(-20003, 'New password shouldn t contain special character'); END IF;
               IF m = '&' THEN raise_application_error(-20003, 'New password shouldn t contain special character'); END IF;
               IF m = '(' THEN raise_application_error(-20003, 'New password shouldn t contain special character'); END IF;
               IF m = ')' THEN raise_application_error(-20003, 'New password shouldn t contain special character'); END IF;
               IF m = '=' THEN raise_application_error(-20003, 'New password shouldn t contain special character'); END IF;
               IF m = '?' THEN raise_application_error(-20003, 'New password shouldn t contain special character'); END IF;
               IF m = '^' THEN raise_application_error(-20003, 'New password shouldn t contain special character'); END IF;
               IF m = '''' THEN raise_application_error(-20003, 'New password shouldn t contain special character'); END IF;
               IF m = '\' then raise_application_error(-20003, 'NEW password shouldn t contain special character'); end if;
               if m = '|' then raise_application_error(-20003, 'NEW password shouldn t contain special character'); end if;
               if m = '.' then raise_application_error(-20003, 'NEW password shouldn t contain special character'); end if;
               if m = ',' then raise_application_error(-20003, 'NEW password shouldn t contain special character'); end if;
               if m = ';' then raise_application_error(-20003, 'NEW password shouldn t contain special character'); end if;
               if m = ':' then raise_application_error(-20003, 'NEW password shouldn t contain special character'); end if;
               if m = 'º' then raise_application_error(-20003, 'NEW password shouldn t contain special character'); end if;
               if m = '*' then raise_application_error(-20003, 'NEW password shouldn t contain special character'); end if;
               if m = '+' then raise_application_error(-20003, 'NEW password shouldn t contain special character'); end if;
               if m = '#' then raise_application_error(-20003, 'NEW password shouldn t contain special character'); end if;
               if m = '@' then raise_application_error(-20003, 'NEW password shouldn t contain special character'); end if;
               if m = ' ' then raise_application_error(-20003, 'NEW password shouldn t contain special character'); end if;
      end loop;
       valid:=TRUE;
       RETURN valid;
 end;