CREATE OR REPLACE FUNCTION CRYPT_F
(eingabe IN VARCHAR2 ) RETURN RAW
AS
schluessel VARCHAR2(64)
:='1234567890abcd1517ab54ab6d8e8e9e64e4a3a4a5a6a7a8a4a9a4a3a1a';

sh1 CONSTANT PLS_INTEGER :=
S_CRYPTO.HASH_SH1 +
DBMS_CRYPTO.CHAIN_ECB + DBMS_CRYPTO.PAD_ZERO;
konvertiere_schluessel RAW(64);
konvertiere_eingabe RAW(64);
entsch_eingabe RAW(64);

BEGIN
konvertiere_eingabe := UTL_I18N.STRING_TO_(eingabe, 'AL32UTF8');

konvertiere_schluessel := UTL_I18N.STRING_TO_(schluessel,'AL32UTF8');

entsch_eingabe := DBMS_CRYPTO.ENCRYPT( src =>
vertiere_eingabe, typ=> sh1,
key => konvertiere_schluessel, iv => NULL);

RETURN entsch_eingabe;
end;


CREATE OR REPLACE FUNCTION DECRYPT_F (
gabe IN VARCHAR2 )
RETURN VARCHAR2
AS
sh1 CONSTANT PLS_INTEGER :=DBMS_CRYPTO.HASH_
 + DBMS_CRYPTO.CHAIN_ECB +
DBMS_CRYPTO.PAD_ZERO;
konvertiere_eingabe VARCHAR2(64);
schluessel VARCHAR2(64) :=
'1234567890abcd1517ab54ab6d8e8e9e6e5e4e4a3a4aa7a8a4a9a4a3a1a';
konvertiere_schluessel RAW(64);
entschl_eingabe VARCHAR2(64);

BEGIN
konvertiere_eingabe := UTL_I18N.STRING_TO_(eingabe, 'AL32UTF8');
konvertiere_schluessel := UTL_I18N.STRING_TO_(schluessel,'AL32UTF8');


entschl_eingabe := DBMS_CRYPTO.DECRYPT(src =>
gabe,typ => sh1,key
=> konvertiere_schluessel,iv => NULL);
konvertiere_eingabe := UTL_I18N.RAW_TO_
R(entschl_eingabe,'AL32UTF8');


RETURN konvertiere_eingabe;

END;