Shell Programming and Scripting

OpenSSL 0.9.8g 19 Oct 2007

void DES_encrypt3(DES_LONG *data, DES_key_schedule *ks1,
                  DES_key_schedule *ks2, DES_key_schedule *ks3)
        {
        register DES_LONG l,r;

        l=data[0];
        r=data[1];
        IP(l,r);
        data[0]=l;
        data[1]=r;
        DES_encrypt2((DES_LONG *)data,ks1,DES_ENCRYPT);
        DES_encrypt2((DES_LONG *)data,ks2,DES_DECRYPT);
        DES_encrypt2((DES_LONG *)data,ks3,DES_ENCRYPT);
        l=data[0];
        r=data[1];
        FP(r,l);
        data[0]=l;
        data[1]=r;
        }

$ cat plain.txt
Now is the time for all
$ openssl enc -des-ede3 -nosalt -nopad -K '0123456789abcdef' -iv '00000000' -in plain.txt | xxd
0000000: 3fa4 0e8a 984d 4815 6a27 1787 ab88 83f9  ?....MH.j'......
0000010: 893d 51ec 4b56 3b53                      .=Q.KV;S
$

#include <stdio.h>
#include <string.h>
#include <tomcrypt.h>

int main(void)
{
    unsigned char pt[9], ct[60], sugkey[60], key[60];
    symmetric_key skey;
    int err;
    int keysize;
    int i;

    /* zeroize */
    memset(&pt, 0, sizeof(pt));
    memset(&ct, 0, sizeof(ct));
    memset(&sugkey, 0, sizeof(sugkey));
    memset(&key, 0, sizeof(key));

    strcpy(pt, "Now is the time for all");                         /* block to encrypt */
    strcpy(sugkey, "012345678012345678012345678");                 /* suggested key */

    /* first perform self test */
    if ((err = des3_test()) != CRYPT_OK) {
       printf("Self test failed: %s\n", error_to_string(err));
       return 1;
    }
    /* then check key length */
    keysize = strlen(sugkey);
    if ((err = des3_keysize(&keysize)) != CRYPT_OK) {
       printf("Error getting key size: %s\n", error_to_string(err));
       return 1;
    }
    memcpy(&key, &sugkey, (size_t) keysize);

    printf("Input text block = %s\n", pt);
    printf("Suggested key = %s\n", sugkey);
    printf("Recommended keysize = %d\n", keysize);
    printf("Adjusted key = %s\n", key);

    /* schedule the key */
    if ((err = des3_setup(key, keysize, 0, &skey)) != CRYPT_OK) {
        printf("Setup error: %s\n", error_to_string(err));
        return 1;
    }

    /* encrypt the block using triple-DES-ECB */
    des3_ecb_encrypt(pt, ct, &skey);

    printf("Encrypted block = ");
    for (i = 0; i < 8; i++)
        printf("[%2x]", ct[i]);
    printf("\n");    

     /* ct holds the encrypted version of pt. now decrypt it using triple-DES-ECB */
    des3_ecb_decrypt(ct, pt, &skey);

    printf("Output text block = %s\n", pt);

    /* free cipher key */
    des3_done(&skey);

    return 0;
}

#include <stdio.h>
#include <string.h>
#include <openssl/des.h>

#define BUFSIZE 512

int main(void)
{
    int i;

    char in[BUFSIZE], out[BUFSIZE], back[BUFSIZE];
    char keystr[32];
    char tmp[30];

    des_cblock k1, k2, k3;
    des_key_schedule ks1, ks2, ks3;

    memset(&in, 0, sizeof(in));
    memset(&out, 0, sizeof(out));
    memset(&back, 0, sizeof(back));
    memset(&keystr, 0, sizeof(keystr));
    memset(&tmp, 0, sizeof(tmp));

    strcpy(in, "Now is the time for all");
    strcpy(keystr, "0123456789abcdef01234567");

    memcpy(&tmp, keystr, 8);
    des_string_to_key(tmp, &k1);
    des_set_key_unchecked(&k1, ks1);
    memcpy(&tmp, keystr + 8, 8);
    des_string_to_key(tmp, &k2);
    des_set_key_unchecked(&k2, ks2);
    memcpy(&tmp, keystr + 16, 8);
    des_string_to_key(tmp, &k3);
    des_set_key_unchecked(&k3, ks3);

    des_ecb3_encrypt((C_Block *)in, (C_Block *)out, ks1, ks2, ks3, DES_ENCRYPT);

    printf("Input text block = %s\n", in);
    printf("Encrypted block = ");
    for (i = 0; i < 8; i++)
        printf("[%x]", out[i]);
    printf("\n");

    des_ecb3_encrypt((C_Block *)out, (C_Block *)back, ks1, ks2, ks3, DES_DECRYPT);

    printf("Output text block = %s\n", back);

    return(0);
}