Specification
BODY
Dependencies
Errors
Grants
REST

CREATE OR REPLACE PACKAGE BODY GSY_auth_apex
AS
​
  PROCEDURE ajouter_utilisateur (
    p_username IN VARCHAR2,
    p_password IN VARCHAR2)
  AS
    v_username EX_UTILISATEUR.USERNAME%TYPE;
​
    BEGIN
​
      v_username := TRIM (UPPER (p_username));
​
      INSERT INTO EX_UTILISATEUR (username, password)
      VALUES (v_username,
              get_hash (v_username, p_password));
      COMMIT;
​
      EXCEPTION
        WHEN OTHERS THEN ROLLBACK;
        RAISE;
​
  END ajouter_utilisateur;
​
​
  -- One-way hash du mot de passe. DBMS_OBFUSCATION_TOOLKIT est
  -- maintenant obsol�te -- vous pouvez am�liorer cette fonction
  -- avec DBMS_CYPTO. Cette fonction devrait �tre "wrapped" car
  -- l'algorithme est expos�.
​
  FUNCTION get_hash (
    p_username IN VARCHAR2,
    p_password IN VARCHAR2)
  RETURN VARCHAR2
​
  AS
​
    v_password_hash EX_UTILISATEUR.PASSWORD%TYPE;
    v_salt VARCHAR2(100) := '8VQH6NS8RK14PK8UPJ2HOA11Q5ICBL';
    v_username EX_UTILISATEUR.USERNAME%TYPE;
​
  BEGIN
​
    v_username := TRIM (UPPER (p_username));
​
    v_password_hash := UTL_RAW.cast_to_raw(DBMS_OBFUSCATION_TOOLKIT.md5
      (input_string => p_password || SUBSTR(v_salt,10,13) || v_username ||
        SUBSTR(v_salt, 4,10)));
​
    RETURN v_password_hash;
​
  END get_hash;
​
​
  -- Voici la fonction appel�e par le mod�le d'authentification
  -- Cr��e � partir de "CUSTOM_AUTH". Peut �tre modifi�e pour ajouter
  -- date d'expiration, etc.
​
  FUNCTION utilisateur_valide (
    p_username IN VARCHAR2,
    p_password IN VARCHAR2)
  RETURN BOOLEAN