Boa tarde Carlos,
sua dica foi muito útil para que eu conseguisse solucionar o problema. Adaptei
essa função para o que eu precisava mas la no sistema web não conseguiam
descriptografar a informação gerada por min.
Consegui resolver isso da seguinte forma:
DECLARE
input_string VARCHAR2 (200) := 'Texto Secreto da Camila';
output_string VARCHAR2 (200);
encrypted_raw RAW (2000);
decrypted_raw RAW (2000);
num_key_bytes NUMBER := 128/8;
key_bytes_raw RAW (32);
encryption_type PLS_INTEGER :=
DBMS_CRYPTO.ENCRYPT_AES128
+ DBMS_CRYPTO.CHAIN_ECB
+ DBMS_CRYPTO.PAD_PKCS5;
BEGIN
key_bytes_raw := UTL_ENCODE.BASE64_DECODE(UTL_I18N.STRING_TO_RAW ('PASSO
MINHA CHAVE RECEBIDA DO SISTEMA WEB AQUI', 'AL32UTF8'));
encrypted_raw := DBMS_CRYPTO.ENCRYPT
(
src => UTL_I18N.STRING_TO_RAW (input_string, 'AL32UTF8'),
typ => encryption_type,
key => key_bytes_raw
);
-- Transforma o valor criptografado em Base64
DBMS_OUTPUT.PUT_LINE (UTL_I18N.RAW_TO_CHAR
(UTL_ENCODE.BASE64_ENCODE(encrypted_raw), 'AL32UTF8'));
END;
No final eu terei : KXr9lvj7SotnR58gCE6Qpm7onx37QnD5zL0PpViV3bM=
Obrigada pela ajuda pessoal.
