~rdoering/ubuntu/karmic/erlang/fix-535090

#include <openssl/rsa.h>

#include <openssl/aes.h>

#include <openssl/md5.h>

#include <openssl/sha.h>

#include <openssl/bn.h>

#include <openssl/objects.h>

#define DRV_RAND_UNIFORM        20

#define DRV_MOD_EXP             21

#define DRV_DSS_VERIFY          22

#define DRV_CBC_AES128_ENCRYPT  24

#define DRV_CBC_AES128_DECRYPT  25

#define DRV_XOR                 26

#define DRV_CBC_AES256_ENCRYPT  32

#define DRV_CBC_AES256_DECRYPT  33

#define DRV_INFO_LIB            34

/* #define DRV_CBC_IDEA_ENCRYPT    34 */

/* #define DRV_CBC_IDEA_DECRYPT    35 */

 

 

#define MD5_CTX_LEN     (sizeof(MD5_CTX))

#define MD5_LEN         16

#define MD5_LEN_96      12

#define SHA_CTX_LEN     (sizeof(SHA_CTX))

#define SHA_LEN         20

#define SHA_LEN_96      12

#define HMAC_IPAD       0x36

#define HMAC_OPAD       0x5c

 

 

/* INITIALIZATION AFTER LOADING */

 

static int control(ErlDrvData drv_data, unsigned int command, char *buf, 

                   int len, char **rbuf, int rlen)

{

    int base_len, exponent_len, modulo_len;

    int data_len, dsa_p_len, dsa_q_len;

    int or_mask;

    char *key, *key2, *dbuf, *p;

    const_DES_cblock *des_key, *des_key2, *des_key3;

    const unsigned char *des_dbuf;

    BIGNUM *bn_from, *bn_to, *bn_rand, *bn_result;

    BIGNUM *bn_base, *bn_exponent, *bn_modulo;

    DES_cblock *des_ivec;

    ErlDrvBinary *bin;

    DES_key_schedule schedule, schedule2, schedule3;

/*     IDEA_KEY_SCHEDULE idea, idea2; */

    unsigned char hmacbuf[SHA_DIGEST_LENGTH];

    /* char hmacbuf[SHA_LEN]; */

    MD5_CTX md5_ctx;

    SHA_CTX sha_ctx;

    int new_ivlen = 0;

    BN_CTX *bn_ctx;

    DSA *dsa;

    RSA *rsa;

    AES_KEY aes_key;

    RC4_KEY rc4_key;

    RC2_KEY rc2_key;

 

    case DRV_INFO:

        *rbuf = (char*)(bin = driver_alloc_binary(NUM_CRYPTO_FUNCS));

        for (i = 0; i < NUM_CRYPTO_FUNCS; i++) {

            bin->orig_bytes[i] = i + 1;

        }

        return NUM_CRYPTO_FUNCS;

 

    case DRV_MD5:

        return MD5_LEN;

        break;

 

    case DRV_MD5_INIT:

        *rbuf = (char*)(bin = driver_alloc_binary(MD5_CTX_LEN));

        MD5_Init((MD5_CTX *)bin->orig_bytes);

        return MD5_CTX_LEN;             

        break;

        if (len < MD5_CTX_LEN)

            return -1;

        *rbuf = (char*)(bin = driver_alloc_binary(MD5_CTX_LEN));

        memcpy(bin->orig_bytes, buf, MD5_CTX_LEN);

        MD5_Update((MD5_CTX *)bin->orig_bytes, buf + MD5_CTX_LEN, 

                   len - MD5_CTX_LEN);

            return -1;

        memcpy(&md5_ctx, buf, MD5_CTX_LEN); /* XXX Use buf only? */

        *rbuf = (char *)(bin = driver_alloc_binary(MD5_LEN));

        MD5_Final(bin->orig_bytes, &md5_ctx);

        return MD5_LEN;         

        break;