int
main (int argc, char *argv[])
{
/*
* DES Maintenance Test
*/
{
int i;
char key[8] = { 0x55, 0x55, 0x55, 0x55, 0x55, 0x55, 0x55, 0x55 };
char input[8] = { 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff };
char result[8] = { 0x24, 0x6e, 0x9d, 0xb9, 0xc5, 0x50, 0x38, 0x1a };
char temp1[8], temp2[8], temp3[8];
gl_des_ctx des;
for (i = 0; i < 64; ++i)
{
gl_des_setkey (&des, key);
gl_des_ecb_encrypt (&des, input, temp1);
gl_des_ecb_encrypt (&des, temp1, temp2);
gl_des_setkey (&des, temp2);
gl_des_ecb_decrypt (&des, temp1, temp3);
memcpy (key, temp3, 8);
memcpy (input, temp1, 8);
}
if (memcmp (temp3, result, 8))
return 1;
}
/*
* Self made Triple-DES test (Does somebody know an official test?)
*/
{
int i;
char input[8] = { 0xfe, 0xdc, 0xba, 0x98, 0x76, 0x54, 0x32, 0x10 };
char key1[8] = { 0x12, 0x34, 0x56, 0x78, 0x9a, 0xbc, 0xde, 0xf0 };
char key2[8] = { 0x11, 0x22, 0x33, 0x44, 0xff, 0xaa, 0xcc, 0xdd };
char result[8] = { 0x7b, 0x38, 0x3b, 0x23, 0xa2, 0x7d, 0x26, 0xd3 };
gl_3des_ctx des3;
for (i = 0; i < 16; ++i)
{
gl_3des_set2keys (&des3, key1, key2);
gl_3des_ecb_encrypt (&des3, input, key1);
gl_3des_ecb_decrypt (&des3, input, key2);
gl_3des_set3keys (&des3, key1, input, key2);
gl_3des_ecb_encrypt (&des3, input, input);
}
if (memcmp (input, result, 8))
return 1;
}
/*
* More Triple-DES test. These are testvectors as used by SSLeay,
* thanks to Jeroen C. van Gelderen.
*/
{
struct
{
char key[24];
char plain[8];
char cipher[8];
} testdata[] =
{
{
{
0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01,
0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01,
0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01},
{
0x95, 0xF8, 0xA5, 0xE5, 0xDD, 0x31, 0xD9, 0x00},
{
0x80, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00}},
{
{
0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01,
0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01,
0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01},
{
0x9D, 0x64, 0x55, 0x5A, 0x9A, 0x10, 0xB8, 0x52,},
{
0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x00}
},
{
{
0x38, 0x49, 0x67, 0x4C, 0x26, 0x02, 0x31, 0x9E,
0x38, 0x49, 0x67, 0x4C, 0x26, 0x02, 0x31, 0x9E,
0x38, 0x49, 0x67, 0x4C, 0x26, 0x02, 0x31, 0x9E},
{
0x51, 0x45, 0x4B, 0x58, 0x2D, 0xDF, 0x44, 0x0A},
{
0x71, 0x78, 0x87, 0x6E, 0x01, 0xF1, 0x9B, 0x2A}
},
{
{
0x04, 0xB9, 0x15, 0xBA, 0x43, 0xFE, 0xB5, 0xB6,
0x04, 0xB9, 0x15, 0xBA, 0x43, 0xFE, 0xB5, 0xB6,
0x04, 0xB9, 0x15, 0xBA, 0x43, 0xFE, 0xB5, 0xB6},
{
0x42, 0xFD, 0x44, 0x30, 0x59, 0x57, 0x7F, 0xA2},
{
0xAF, 0x37, 0xFB, 0x42, 0x1F, 0x8C, 0x40, 0x95}
},
{
{
0x01, 0x23, 0x45, 0x67, 0x89, 0xAB, 0xCD, 0xEF,
0x01, 0x23, 0x45, 0x67, 0x89, 0xAB, 0xCD, 0xEF,
0x01, 0x23, 0x45, 0x67, 0x89, 0xAB, 0xCD, 0xEF},
{
0x73, 0x6F, 0x6D, 0x65, 0x64, 0x61, 0x74, 0x61},
{
0x3D, 0x12, 0x4F, 0xE2, 0x19, 0x8B, 0xA3, 0x18}
},
{
{
0x01, 0x23, 0x45, 0x67, 0x89, 0xAB, 0xCD, 0xEF,
0x55, 0x55, 0x55, 0x55, 0x55, 0x55, 0x55, 0x55,
0x01, 0x23, 0x45, 0x67, 0x89, 0xAB, 0xCD, 0xEF},
{
0x73, 0x6F, 0x6D, 0x65, 0x64, 0x61, 0x74, 0x61},
{
0xFB, 0xAB, 0xA1, 0xFF, 0x9D, 0x05, 0xE9, 0xB1}
},
{
{
0x01, 0x23, 0x45, 0x67, 0x89, 0xAB, 0xCD, 0xEF,
0x55, 0x55, 0x55, 0x55, 0x55, 0x55, 0x55, 0x55,
0xFE, 0xDC, 0xBA, 0x98, 0x76, 0x54, 0x32, 0x10},
{
0x73, 0x6F, 0x6D, 0x65, 0x64, 0x61, 0x74, 0x61},
{
0x18, 0xd7, 0x48, 0xe5, 0x63, 0x62, 0x05, 0x72}
},
{
{
0x03, 0x52, 0x02, 0x07, 0x67, 0x20, 0x82, 0x17,
0x86, 0x02, 0x87, 0x66, 0x59, 0x08, 0x21, 0x98,
0x64, 0x05, 0x6A, 0xBD, 0xFE, 0xA9, 0x34, 0x57},
{
0x73, 0x71, 0x75, 0x69, 0x67, 0x67, 0x6C, 0x65},
{
0xc0, 0x7d, 0x2a, 0x0f, 0xa5, 0x66, 0xfa, 0x30}
},
{
{
0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01,
0x80, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01,
0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x02},
{
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00},
{
0xe6, 0xe6, 0xdd, 0x5b, 0x7e, 0x72, 0x29, 0x74}
},
{
{
0x10, 0x46, 0x10, 0x34, 0x89, 0x98, 0x80, 0x20,
0x91, 0x07, 0xD0, 0x15, 0x89, 0x19, 0x01, 0x01,
0x19, 0x07, 0x92, 0x10, 0x98, 0x1A, 0x01, 0x01},
{
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00},
{
0xe1, 0xef, 0x62, 0xc3, 0x32, 0xfe, 0x82, 0x5b}
}
};
char result[8];
int i;
gl_3des_ctx des3;
for (i = 0; i < sizeof (testdata) / sizeof (*testdata); ++i)
{
gl_3des_set3keys (&des3, testdata[i].key,
testdata[i].key + 8, testdata[i].key + 16);
gl_3des_ecb_encrypt (&des3, testdata[i].plain, result);
if (memcmp (testdata[i].cipher, result, 8))
{
return 1;
}
gl_3des_ecb_decrypt (&des3, testdata[i].cipher, result);
if (memcmp (testdata[i].plain, result, 8))
{
return 1;
}
}
}
return 0;
}
Gc_rc
gc_cipher_decrypt_inline (gc_cipher_handle handle, size_t len, char *data)
{
_gc_cipher_ctx *ctx = handle;
switch (ctx->alg)
{
#ifdef GNULIB_GC_ARCTWO
case GC_ARCTWO40:
switch (ctx->mode)
{
case GC_ECB:
arctwo_decrypt (&ctx->arctwoContext, data, data, len);
break;
case GC_CBC:
for (; len >= ARCTWO_BLOCK_SIZE; len -= ARCTWO_BLOCK_SIZE,
data += ARCTWO_BLOCK_SIZE)
{
char tmpIV[ARCTWO_BLOCK_SIZE];
size_t i;
memcpy (tmpIV, data, ARCTWO_BLOCK_SIZE);
arctwo_decrypt (&ctx->arctwoContext, data, data,
ARCTWO_BLOCK_SIZE);
for (i = 0; i < ARCTWO_BLOCK_SIZE; i++)
data[i] ^= ctx->arctwoIV[i];
memcpy (ctx->arctwoIV, tmpIV, ARCTWO_BLOCK_SIZE);
}
break;
default:
return GC_INVALID_CIPHER;
}
break;
#endif
#ifdef GNULIB_GC_ARCFOUR
case GC_ARCFOUR128:
case GC_ARCFOUR40:
arcfour_stream (&ctx->arcfourContext, data, data, len);
break;
#endif
#ifdef GNULIB_GC_DES
case GC_DES:
for (; len >= 8; len -= 8, data += 8)
gl_des_ecb_decrypt (&ctx->desContext, data, data);
break;
#endif
#ifdef GNULIB_GC_RIJNDAEL
case GC_AES128:
case GC_AES192:
case GC_AES256:
{
int nblocks;
nblocks = rijndaelBlockDecrypt (&ctx->aesContext, &ctx->aesDecKey,
data, 8 * len, data);
if (nblocks < 0)
return GC_INVALID_CIPHER;
}
break;
#endif
default:
return GC_INVALID_CIPHER;
}
return GC_OK;
}
int main(int argc, char *argv[])
{
int s,i; //server socket
int port;
struct sockaddr_in server;
char *ptr;
struct hostent *host;
char buf[length]; //get server message
char my_buf[128];
int len;
unsigned char deskey[80]={0}; //the DES key
unsigned char plaintext[80]={0};
unsigned char ciphertext[80]={0};
unsigned char recoverd[80]={0}; //get decrypt ciphertext
gl_des_ctx context;
if (argc != 4 )
usage(argv[0]);
port = strtol(argv[2], &ptr, 10);
if(ptr == argv[2] || *ptr != '\0')
usage(argv[0]);
//set des key
strncpy(deskey,argv[3],strlen(argv[3]));
if((host = gethostbyname(argv[1])) == NULL)
{
fprintf(stderr,"gethostbyname(): %s\n", hstrerror(h_errno));
exit(1);
}
server.sin_family = AF_INET;
server.sin_port = htons(port);
server.sin_addr = *((struct in_addr *)host->h_addr);
if((s = socket(PF_INET,SOCK_STREAM, 0)) <0)
{
fprintf(stderr,"socket(): %s\n",strerror(errno));
exit(1);
}
if(connect(s, (struct sockaddr *)&server, sizeof(server))<0)
{
fprintf(stderr,"connect(): %s\n",strerror(errno));
exit(1);
}
//read prompt
if(readline(s, buf, length)<0)
{
fprintf(stderr, "read error\n");
exit(1);
}
len = sprintf(buf, "%s\n", argv[3]);
if(write(s, buf, len) != len)
{
fprintf(stderr, "write(): %s\n", strerror(errno));
exit(1);
}
/* 1. Server send a plain to client */
if((len = readline(s, buf, length))<0)
{
fprintf(stderr, "read error\n");
exit(1);
}
strncpy(plaintext,buf,strlen(buf)-1);
/******** 2. Client encrypt string *******/
//step 1. use gl_des_setkey to define DES encryption/decryption key
//step 2. use gl_des_ecb_encrypt to encrypt plaintext
//step 3. convert hex value to ascii value,
// ex: one byte hex value "ab" convert to two byte hex value "61 62"
//step 4. save convert result to my_buf
/***********End encrypt string***********/
gl_des_setkey(&context, deskey);
gl_des_ecb_encrypt(&context, plaintext, ciphertext);
//printf("%s\n",plaintext);
//printf("%s\n",ciphertext);
for(i=0;i<strlen(ciphertext);i++)
ch2asc(ciphertext[i],my_buf+2*i,my_buf+2*i+1);
my_buf[2*strlen(ciphertext)]='\0';
//printf("%s\n",my_buf);
//exit(1);
/* 3. Client send reply ciphertext to server*/
strcat(my_buf,"\r\n");
if (write(s,my_buf,strlen(my_buf)) != strlen(my_buf)) {
fprintf(stderr, "write(): %s\n",strerror(errno));
exit(1);
}
/* 4. Server send response */
if((len = readline(s, buf, length))<0)
{
fprintf(stderr, "read error\n");
exit(1);
}
fprintf(stderr,"About the Encryption Part, the Answer is: %s\n", buf);
/* 5. Server send a ciphertext to client */
memset(buf,0,length);
if((len = readline(s, buf, length))<0)
{
fprintf(stderr, "read error\n");
exit(1);
}
fprintf(stderr," CipherText is %s \n",buf);
/********* 6. Client decrypt string *********/
//step 1. convert ascii value to hex value
//step 2. use gl_des_ecb_decrypt to decrypt ciphertext
//step 3. save plaintext in recoverd
/***********End decrypt string **************/
for(i=0;i<strlen(buf);i+=2)
asc2ch(buf[i],buf[i+1],ciphertext+(i/2));
ciphertext[strlen(buf)/2]='\0';
gl_des_ecb_decrypt(&context, ciphertext, recoverd);
/* 7. Client send reply plaintext to server*/
strcat(recoverd,"\r\n");
if(write(s,recoverd,strlen(recoverd)) != strlen(recoverd))
{
fprintf(stderr, "write(): %s\n",strerror(errno));
exit(1);
}
/* 8. Server send response */
if((len = readline(s, buf, length ))<0)
{
fprintf(stderr, "read error\n");
exit(1);
}
printf("Server says: %s\n", buf);
close(s);
exit(0);
}
