Regarding small help

Question

Hi,
I have a requirment is basically to piece together a URL string in a message and encode it in the following way.
You would have a user authentication string that is made up of key/value pairs, for example:
“date=2007-05-27&userid=ID12345” (string needs to be UTF8 encoded)
To encode the string these are the steps they want us to follow and we will need to use a shared key: 8uNDf!sVC
1.     Generate hex MD5 hash of the shared key concatenated with the user authentication string (should = 32 characthers)
2.     Hex encode user authentication string
3.     Concatenate result of step 1 with step 2
Here’s the pseudo code for this:
userStr = “date=YYYYMMDD&userid=123456”
sharedKey = “8uNDf!sVC”
encUser = md5(sharedKey + userStr) + hex(userStr)
•     Note the “userid” value is the Encrypted Keycode we will be receiving in this import
below are the two fields to import the data into a table
a.email
b.productkeycodeenc
can you please anybody help me out.
Thanks in advance

Answer 1

Hi, I need help to encyrpt the data coming in a table. I have a table like this
encryptionbatch
=========
contains two columns email,list_productkeycodeenc
email|list_productkeycodeenc
[email protected]|ppc'dpcb^^aem_qw
[email protected]|ppc'__cb^^aeptmn
[email protected]|ppc'''cb^^aenlht
So based on that i need to encrypt the list_productkeycodeenc and insert into another table like this.
/* Formatted on 2009/08/20 12:15 (Formatter Plus v4.8.8) */
DECLARE
CURSOR stagingtablerecords
IS
SELECT *
FROM encryptionbatch;
r stagingtablerecords%ROWTYPE;
u users%ROWTYPE;
input_string VARCHAR2 (128);
raw_input RAW (128);
key_string VARCHAR2 (16) := '8uNDf!sVC';
raw_key RAW (128) := UTL_RAW.cast_to_raw (key_string);
encrypted_raw RAW (2048);
encrypted_string VARCHAR2 (2048);
Procedure AccountInsert
PROCEDURE accountinsert (UID IN users.ID%TYPE, keycodevar IN VARCHAR2)
IS
BEGIN
-- Insert a user record
INSERT INTO encryptiondata
(userid, list_productkeycodeenc
VALUES (UID, keycodevar
END accountinsert;
Begin main program block
BEGIN
FOR r IN stagingtablerecords
LOOP
BEGIN
SELECT *
INTO u
FROM users
WHERE email = r.email;
input_string :=
'date='
|| TO_CHAR (SYSDATE, 'YYYYMMDD')
|| '&'
|| 'userid='
|| r.list_productkeycodeenc;
raw_input := UTL_RAW.cast_to_raw (input_string);
BEGIN
DBMS_OBFUSCATION_TOOLKIT.desencrypt
(input => raw_input,
KEY => raw_key,
encrypted_data => encrypted_raw
DBMS_OUTPUT.put_line ( '> encrypted hex value : '
|| RAWTOHEX (encrypted_raw)
EXCEPTION
WHEN OTHERS
THEN
DBMS_OUTPUT.put_line (SQLERRM);
END;
accountinsert (u.ID, RAWTOHEX (encrypted_raw));
EXCEPTION
WHEN NO_DATA_FOUND
THEN
DBMS_OUTPUT.put_line (SQLERRM);;
WHEN OTHERS
THEN
DBMS_OUTPUT.put_line (SQLERRM);
END;
END LOOP;
COMMIT;
END;
exit;
I tried to run this block but am failed due to the error
ORA-28232: invalid input length for obfuscation toolkit
can you please anybody help me out on this. client using oracle 9i version.
thanks in advance