Re: DES3Encrypt

From: Ruslan R. Laishev <Laishev{at}DeltaTelecom{dot}RU>
Date: Thu, 11 Mar 2004 11:26:59 +0300
Message-ID: <F9851595752EE884101522CAE676339F@nntp>

Hi !

        I playing with the follows piece of code is supposed to encrypt/decrypt data encrypted/decrypted with the ORACLE DES3Encrypt/Decrypt function:

{

unsigned        status,i, len = ibuflen;
des_key_schedule        ks1,ks2,ks3;
unsigned char   *pblock = ibuf, padding_char,
                 ivec1 [] = "0123456789ABCDEF",
                 ivec2 [] = "0123456789ABCDEF",
                 ivec3 [] = "0123456789ABCDEF";




         *retlen = 0;


         /*


         ** Check all keys for weakness

         */

         if ( status = des_key_sched((C_Block *)key1,ks1) )
                 wr2_3des__log(status,"des_key_sched(k1)");
         if ( status = des_key_sched((C_Block *)key2,ks2) )
                 wr2_3des__log(status,"des_key_sched(k2)");
         if ( status = des_key_sched((C_Block *)key3,ks3) )
                 wr2_3des__log(status,"des_key_sched(k3)");


         if ( doEncrypt == DES_ENCRYPT )
                 {
                 des_cbc_encrypt(ibuf,obuf,ibuflen,ks1,ivec1,DES_ENCRYPT);
                 des_cbc_encrypt(obuf,obuf,ibuflen,ks2,ivec2,DES_DECRYPT);
                 des_cbc_encrypt(obuf,obuf,ibuflen,ks1,ivec1,DES_ENCRYPT);
                 }
         else    {
                 des_cbc_encrypt(ibuf,obuf,ibuflen,ks1,ivec1,DES_DECRYPT);
                 des_cbc_encrypt(obuf,obuf,ibuflen,ks2,ivec2,DES_ENCRYPT);
                 des_cbc_encrypt(obuf,obuf,ibuflen,ks1,ivec1,DES_DECRYPT);
                 }



         *retlen = ibuflen;

         return  0;

}

Frank van Bortel wrote:

> Ruslan R. Laishev wrote:
> 
>> Hello All!
>>     I looking for a way to decrypt data encrypted with the 
>> DBMS_OBFUSCATION_TOOLKIT.DES3Encrypt with the OpenSSL/DES routines set.
>>
>>
>>     Thanks in advance.
>>
> See asktom.oracle.com

" Sorry I have a large backlog right now, please ask a question later To ask a question click on the "Submit a New Question" button or Ask A Question."

-- 
+ WBR, OpenVMS [Sys|Net] HardWorker .................................+
Delta Telecom Inc., NMT-450i, IMT-MC-450(CDMA2000) cellular operator
Russia,191119,St.Petersburg,Transportny per. 3 Cel: +7 (812) 116-3222
+http://starlet.deltatelecom.ru ............. Frying on OpenVMS only +

Received on Thu Mar 11 2004 - 02:26:59 CST