CREATE OR REPLACE AND COMPILE JAVA SOURCE NAMED PACK_JAVA_MD5 AS

   import java.security.MessageDigest;
   import java.security.NoSuchAlgorithmException;
   import java.sql.Clob;
   import java.sql.Blob;

   public class PACK_JAVA_MD5 {
     public static String getMD5HashFromClob(Clob inhalt) throws Exception{
       String sChecksum = null;
   
       if (inhalt != null) {
         try {
           String data = inhalt.getSubString(1L, (int)inhalt.length());
           MessageDigest md5 = MessageDigest.getInstance("MD5");
           md5.update(data.getBytes());
           byte result[] = md5.digest();
           StringBuffer sb = new StringBuffer();
           for (int i = 0; i < result.length; i++) {
               String s = Integer.toHexString(result[i]);
               int length = s.length();
               if (length >= 2) {
                   sb.append(s.substring(length - 2, length));
               } else {
                   sb.append("0");
                   sb.append(s);
               }
           }
           sChecksum = sb.toString();
         } catch (NoSuchAlgorithmException e) {
           // do nothing
         }
       }
       return sChecksum;
     } 
   
     public static String getMD5HashFromBlob(Blob inhalt) throws Exception{
       String sChecksum = null;
   
       if (inhalt != null) {
         try {
           MessageDigest md5 = MessageDigest.getInstance("MD5");
           md5.update(inhalt.getBytes(1L, (int)inhalt.length()));
           byte result[] = md5.digest();
           StringBuffer sb = new StringBuffer();
           for (int i = 0; i < result.length; i++) {
               String s = Integer.toHexString(result[i]);
               int length = s.length();
               if (length >= 2) {
                   sb.append(s.substring(length - 2, length));
               } else {
                   sb.append("0");
                   sb.append(s);
               }
           }
           sChecksum = sb.toString();
         } catch (NoSuchAlgorithmException e) {
           // do nothing
         }
       }
       return sChecksum;
     }
   }
/  

CREATE OR REPLACE PACKAGE PACK_UTILS IS
   FUNCTION GetMD5HashFromCLOB(ACLOBValue in CLOB) RETURN varchar2 DETERMINISTIC;
   FUNCTION GetMD5HashFromBLOB(ABLOBValue in BLOB) RETURN varchar2 DETERMINISTIC;   
END PACK_UTILS;
/ 

CREATE OR REPLACE PACKAGE BODY PACK_UTILS IS
   -- //////////////////////////////////////////////////////////////
   -- [private]
   FUNCTION Java_GetMD5HashFromCLOB(inhalt CLOB) 
   RETURN varchar2
   AS LANGUAGE JAVA
   name 'PACK_JAVA_MD5.getMD5HashFromClob(java.sql.Clob) return java.lang.String';
   -- //////////////////////////////////////////////////////////////
   FUNCTION GetMD5HashFromCLOB(ACLOBValue in CLOB) 
   RETURN varchar2 DETERMINISTIC
   AS
   BEGIN
      if (ACLOBValue is NULL) or (DBMS_LOB.getlength(ACLOBValue)=0) then
         return(NULL);
      else
         return(Java_GetMD5HashFromCLOB(ACLOBValue));
      end if;
   END;
   -- //////////////////////////////////////////////////////////////
   -- [private]
   FUNCTION Java_GetMD5HashFromBLOB(inhalt BLOB) 
   RETURN varchar2 DETERMINISTIC
   AS LANGUAGE JAVA
   name 'PACK_JAVA_MD5.getMD5HashFromBlob(java.sql.Blob) return java.lang.String';
   -- //////////////////////////////////////////////////////////////
   FUNCTION GetMD5HashFromBLOB(ABLOBValue in BLOB) 
   RETURN varchar2 DETERMINISTIC
   AS
   BEGIN
      if (ABLOBValue is NULL) or (DBMS_LOB.getlength(ABLOBValue)=0) then
         return(NULL);
      else
         return(Java_GetMD5HashFromBLOB(ABLOBValue));
      end if;
   END;
   -- //////////////////////////////////////////////////////////////
END PACK_UTILS;
/