PL SQL版MD5加密

CREATE OR REPLACE FUNCTION Md5(Input_String VARCHAR2) RETURN VARCHAR2 IS
  Raw_Input     RAW(128) := Utl_Raw.Cast_To_Raw(Input_String);
  Decrypted_Raw RAW(2048);
  Error_In_Input_Buffer_Length EXCEPTION;
BEGIN
  Sys.Dbms_Obfuscation_Toolkit.Md5(Input => Raw_Input, Checksum => Decrypted_Raw);
  RETURN Lower(Rawtohex(Decrypted_Raw));
END;