mastkey.sql

OReilly Oracle PL SQL Programming第4版源代码

REM
REM Define a variable to hold the encrypted value
variable enc_val varchar2(2000);
declare
    l_key     varchar2(2000)    := '1234567890123456';
    l_master_key varchar2(2000) := '&master_key';
    l_in_val  varchar2(2000) := 'ConfidentialData';
    l_mod     number := dbms_crypto.ENCRYPT_AES128
                      + dbms_crypto.CHAIN_CBC
                      + dbms_crypto.PAD_PKCS5;
    l_enc     raw (2000);
    l_enc_key raw (2000);
begin
    l_enc_key := utl_raw.bit_xor (
       UTL_I18N.STRING_TO_RAW (l_key, 'AL32UTF8'),
       UTL_I18N.STRING_TO_RAW (l_master_key, 'AL32UTF8')
    );
    l_enc := dbms_crypto.encrypt
       (
          UTL_I18N.STRING_TO_RAW (l_in_val, 'AL32UTF8'),
          l_mod,
          l_enc_key
       );
    dbms_output.put_line ('Encrypted='||l_enc);
    :enc_val := rawtohex(l_enc);
end;
/
declare
    l_key     varchar2(2000)    := '1234567890123456';
    l_master_key varchar2(2000) := '&master_key';
    l_in_val  raw (2000) := hextoraw(:enc_val);
    l_mod     number := dbms_crypto.ENCRYPT_AES128
                      + dbms_crypto.CHAIN_CBC
                      + dbms_crypto.PAD_PKCS5;
    l_dec     raw (2000);
    l_enc_key raw (2000);
begin
    l_enc_key := utl_raw.bit_xor (
       UTL_I18N.STRING_TO_RAW (l_key, 'AL32UTF8'),
       UTL_I18N.STRING_TO_RAW (l_master_key, 'AL32UTF8')
    );
    l_dec := dbms_crypto.decrypt
       (
          l_in_val,
          l_mod,
          l_enc_key
       );
    dbms_output.put_line ('Decrypted='||utl_i18n.raw_to_char(l_dec));
end;
/