mac.sql

OReilly Oracle PL SQL Programming第4版源代码

declare
   l_in_val varchar2(2000) := 'CriticalData';
   l_key    varchar2(2000) := '1234567890123456';
   l_mac   raw(2000);
begin
   l_mac := dbms_crypto.mac (
      src => UTL_I18N.STRING_TO_RAW (l_in_val, 'AL32UTF8'),
      typ => dbms_crypto.hmac_sh1,
      key => UTL_I18N.STRING_TO_RAW (l_key, 'AL32UTF8')
   );
   dbms_output.put_line('MAC='||l_mac);
end;