-- Ejemplo de validación de entrada
CREATE OR REPLACE PROCEDURE validate_user_input(p_input IN VARCHAR2) IS
BEGIN
    IF p_input IS NULL OR LENGTH(p_input) > 100 THEN
        RAISE_APPLICATION_ERROR(-20001, 'Entrada no válida');
    END IF;
END;
/

-- Ejemplo de uso de variables vinculadas
CREATE OR REPLACE PROCEDURE get_user_info(p_user_id IN NUMBER) IS
    v_user_name VARCHAR2(100);
BEGIN
    SELECT user_name INTO v_user_name
    FROM users
    WHERE user_id = p_user_id;
    
    DBMS_OUTPUT.PUT_LINE('User Name: ' || v_user_name);
END;
/

-- Ejemplo de encriptación de datos
CREATE OR REPLACE FUNCTION encrypt_data(p_data IN VARCHAR2) RETURN RAW IS
    v_encrypted_data RAW(2000);
BEGIN
    v_encrypted_data := DBMS_CRYPTO.ENCRYPT(
        src => UTL_I18N.STRING_TO_RAW(p_data, 'AL32UTF8'),
        typ => DBMS_CRYPTO.DES_CBC_PKCS5,
        key => UTL_I18N.STRING_TO_RAW('my_secret_key', 'AL32UTF8')
    );
    RETURN v_encrypted_data;
END;
/

-- Ejemplo de máscara de datos
CREATE OR REPLACE FUNCTION mask_credit_card(p_card_number IN VARCHAR2) RETURN VARCHAR2 IS
BEGIN
    RETURN 'XXXX-XXXX-XXXX-' || SUBSTR(p_card_number, -4);
END;
/

-- Ejemplo de asignación de roles
GRANT read_only_role TO user1;
GRANT read_write_role TO user2;

-- Ejemplo de auditoría
AUDIT SELECT, INSERT, UPDATE, DELETE ON users BY ACCESS;

CREATE OR REPLACE PROCEDURE validate_phone_number(p_phone IN VARCHAR2) IS
BEGIN
    IF LENGTH(p_phone) != 10 OR NOT REGEXP_LIKE(p_phone, '^[0-9]+$') THEN
        RAISE_APPLICATION_ERROR(-20002, 'Número de teléfono no válido');
    END IF;
END;
/

CREATE OR REPLACE FUNCTION encrypt_text(p_text IN VARCHAR2) RETURN RAW IS
    v_encrypted_text RAW(2000);
BEGIN
    v_encrypted_text := DBMS_CRYPTO.ENCRYPT(
        src => UTL_I18N.STRING_TO_RAW(p_text, 'AL32UTF8'),
        typ => DBMS_CRYPTO.DES_CBC_PKCS5,
        key => UTL_I18N.STRING_TO_RAW('my_secret_key', 'AL32UTF8')
    );
    RETURN v_encrypted_text;
END;
/

CREATE OR REPLACE FUNCTION decrypt_text(p_encrypted_text IN RAW) RETURN VARCHAR2 IS
    v_decrypted_text VARCHAR2(2000);
BEGIN
    v_decrypted_text := UTL_I18N.RAW_TO_CHAR(
        DBMS_CRYPTO.DECRYPT(
            src => p_encrypted_text,
            typ => DBMS_CRYPTO.DES_CBC_PKCS5,
            key => UTL_I18N.STRING_TO_RAW('my_secret_key', 'AL32UTF8')
        ),
        'AL32UTF8'
    );
    RETURN v_decrypted_text;
END;
/