Test code for my PL/SQL PKCS #7 Pad/Trim functions

sp_test_pkcs7.sql

DECLARE
  PROCEDURE sp_test_pkcs7 (pData IN RAW, pBlockSize IN PLS_INTEGER)
  IS
    vInData RAW(100);
    vDataPadded RAW(100);
    vDataTrimmed RAW(100);
  BEGIN
    vInData := hextoraw(pData);
    vDataPadded := fn_pkcs7_pad(vInData, pBlockSize);
    vDataTrimmed := fn_pkcs7_trim(vDataPadded);
 
    dbms_output.put_line('------------------------------------');
    dbms_output.put_line('IN:         ' || rawtohex(vInData));
    dbms_output.put_line('BLOCK SIZE: ' || pBlockSize);
    dbms_output.put_line('PADDED:     ' || rawtohex(vDataPadded));
    dbms_output.put_line('TRIMMED:    ' || rawtohex(vDataTrimmed)) ;
    dbms_output.put_line('------------------------------------');
  END;
BEGIN
  sp_test_pkcs7('AABBCC', 8); --3 bytes of data
  sp_test_pkcs7('AABBCCDDEEFF', 8); --6 byes of data
  sp_test_pkcs7('AABBCCDDEEFFAABB', 8); --8 bytes of data
END;
/

Function Gists:
fn_pkcs7_pad: https://gist.github.com/2814946
fn_pkcs7_trim: https://gist.github.com/2814959

More info on this gist: http://matthewjlittle.com/2011/07/02/plsql-pkcs-7-padding/