CREATE OR REPLACE FUNCTION F_GET_SENSITIVE(IN_STR VARCHAR, IN_TYPE NUMBER) RETURN VARCHAR2 IS V_STR_LENGTH NUMBER; V_NAME    VARCHAR2(1000); V_N     NUMBER; V_HID    VARCHAR2(200); V_SQL    VARCHAR2(200); V_NUM_FLAG  NUMBER; /**** N_TYPE 脫敏字段類型 1 ：名稱 11:地址 2 ：證件 3 ：銀行賬號 4 ：聯系電話 5 ：接入號碼 ***/BEGIN V_STR_LENGTH := LENGTH(IN_STR); V_N     := 0; IF V_STR_LENGTH=0 THEN   RETURN(NULL); END IF; /**********名稱和地址脫敏規則**********/ IF IN_TYPE = 1 OR IN_TYPE=11 THEN  IF V_STR_LENGTH = 2 OR V_STR_LENGTH = 3 THEN   V_NAME := REGEXP_REPLACE(IN_STR, '(.)', '*', 2, 1);  ELSIF V_STR_LENGTH < 2 THEN   V_NAME :=IN_STR;  ELSE   WHILE V_N < V_STR_LENGTH / 2 LOOP    V_N  := V_N + 1;    V_HID := V_HID || '*';   END LOOP;   V_NAME := SUBSTR(IN_STR, 0, V_STR_LENGTH / 2) || V_HID;  END IF;  RETURN(V_NAME); END IF; /**********證件脫敏規則**********/ IF IN_TYPE = 2 THEN  IF V_STR_LENGTH = 15 THEN   V_NAME := SUBSTR(IN_STR, 0, 6) || '******' || SUBSTR(IN_STR, -3, 3);  ELSIF V_STR_LENGTH = 18 THEN   V_NAME := SUBSTR(IN_STR, 0, 6) || '********' || SUBSTR(IN_STR, -4, 4);  ELSE   WHILE V_N < V_STR_LENGTH / 3 LOOP    V_N  := V_N + 1;    V_HID := V_HID || '*';   END LOOP;   V_NAME := SUBSTR(IN_STR, 0, V_STR_LENGTH / 3) || V_HID ||        SUBSTR(IN_STR, -V_STR_LENGTH / 3, V_STR_LENGTH / 3);  END IF;  RETURN(V_NAME); END IF; /**********銀行賬號脫敏規則**********/ IF IN_TYPE = 3 THEN  IF V_STR_LENGTH > 15 THEN   V_NAME := SUBSTR(IN_STR, 0, 4) || '********' || SUBSTR(IN_STR, -4, 4);  ELSE   V_NAME :=IN_STR;  END IF;   RETURN(V_NAME); END IF; /**********聯系電話脫敏規則**********/ IF IN_TYPE = 4 THEN  V_NAME := SUBSTR(IN_STR, 0, V_STR_LENGTH - 4) || '****';  RETURN(V_NAME); END IF; /**********接入號碼脫敏規則**********/ IF IN_TYPE = 5 THEN  V_SQL := 'SELECT COUNT(1) FROM DUAL WHERE LENGTH(''' || IN_STR ||       ''') = LENGTH(REGEXP_REPLACE(''' || IN_STR || ''', ''[^0-9]''))';  EXECUTE IMMEDIATE V_SQL   INTO V_NUM_FLAG;  IF V_NUM_FLAG = 1 AND (V_STR_LENGTH = 7 OR V_STR_LENGTH = 8) THEN   V_NAME := SUBSTR(IN_STR, 0, 2) || '****' || SUBSTR(IN_STR, -2, 2);  ELSIF V_NUM_FLAG = 1 AND V_STR_LENGTH = 11 THEN   V_NAME := SUBSTR(IN_STR, 0, 3) || '*****' || SUBSTR(IN_STR, -3, 3);  ELSE   V_NAME := IN_STR;  END IF;   RETURN(V_NAME); END IF; RETURN(IN_STR);EXCEPTION WHEN OTHERS THEN  -- DBMS_OUTPUT.PUT_LINE('1'||V_SQL);  V_NAME := '-1';  RETURN V_NAME;END F_GET_SENSITIVE;