dropbear: demos/test.c annotate

annotate demos/test.c @ 0:d7da3b1e1540 libtomcrypt

put back the 0.95 makefile which was inadvertently merged over

author	Matt Johnston <matt@ucc.asn.au>
date	Mon, 31 May 2004 18:21:40 +0000
parents
children	6362d3854bb4

rev	line source
0 d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1 /* This is the worst code you have ever seen written on purpose.... this code is just a big hack to test
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2 out the functionality of the library */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4 #ifdef SONY_PS2
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5 #include <eetypes.h>
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6 #include <eeregs.h>
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7 #include "timer.h"
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	10 #include <mycrypt.h>
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	11
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	12 int errnum;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	13
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	14
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	15 int
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	16 null_setup (const unsigned char *key, int keylen, int num_rounds,
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	17 symmetric_key * skey)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	18 {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	19 return CRYPT_OK;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	20 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	21
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	22 void
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	23 null_ecb_encrypt (const unsigned char pt, unsigned char ct,
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	24 symmetric_key * key)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	25 {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	26 memcpy (ct, pt, 8);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	27 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	28
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	29 void
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	30 null_ecb_decrypt (const unsigned char ct, unsigned char pt,
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	31 symmetric_key * key)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	32 {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	33 memcpy (pt, ct, 8);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	34 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	35
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	36 int
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	37 null_test (void)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	38 {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	39 return CRYPT_OK;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	40 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	41
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	42 int
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	43 null_keysize (int *desired_keysize)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	44 {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	45 return CRYPT_OK;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	46 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	47
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	48 const struct _cipher_descriptor null_desc = {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	49 "memcpy()",
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	50 255,
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	51 8, 8, 8, 1,
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	52 &null_setup,
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	53 &null_ecb_encrypt,
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	54 &null_ecb_decrypt,
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	55 &null_test,
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	56 &null_keysize
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	57 };
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	58
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	59
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	60 prng_state prng;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	61
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	62 void
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	63 store_tests (void)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	64 {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	65 unsigned char buf[8];
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	66 unsigned long L;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	67 ulong64 LL;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	68
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	69 printf ("LOAD32/STORE32 tests\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	70 L = 0x12345678UL;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	71 STORE32L (L, &buf[0]);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	72 L = 0;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	73 LOAD32L (L, &buf[0]);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	74 if (L != 0x12345678UL) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	75 printf ("LOAD/STORE32 Little don't work\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	76 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	77 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	78 LL = CONST64 (0x01020304050607);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	79 STORE64L (LL, &buf[0]);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	80 LL = 0;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	81 LOAD64L (LL, &buf[0])
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	82 if (LL != CONST64 (0x01020304050607)) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	83 printf ("LOAD/STORE64 Little don't work\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	84 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	85 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	86
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	87 L = 0x12345678UL;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	88 STORE32H (L, &buf[0]);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	89 L = 0;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	90 LOAD32H (L, &buf[0]);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	91 if (L != 0x12345678UL) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	92 printf ("LOAD/STORE32 High don't work, %08lx\n", L);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	93 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	94 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	95 LL = CONST64 (0x01020304050607);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	96 STORE64H (LL, &buf[0]);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	97 LL = 0;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	98 LOAD64H (LL, &buf[0])
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	99 if (LL != CONST64 (0x01020304050607)) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	100 printf ("LOAD/STORE64 High don't work\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	101 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	102 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	103 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	104
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	105 void
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	106 cipher_tests (void)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	107 {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	108 int x;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	109
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	110 printf ("Ciphers compiled in\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	111 for (x = 0; cipher_descriptor[x].name != NULL; x++) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	112 printf
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	113 (" %12s (%2d) Key Size: %4d to %4d, Block Size: %3d, Default # of rounds: %2d\n",
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	114 cipher_descriptor[x].name, cipher_descriptor[x].ID,
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	115 cipher_descriptor[x].min_key_length * 8,
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	116 cipher_descriptor[x].max_key_length * 8,
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	117 cipher_descriptor[x].block_length * 8,
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	118 cipher_descriptor[x].default_rounds);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	119 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	120
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	121 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	122
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	123 void
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	124 ecb_tests (void)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	125 {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	126 int x;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	127
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	128 printf ("ECB tests\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	129 for (x = 0; cipher_descriptor[x].name != NULL; x++) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	130 printf (" %12s: ", cipher_descriptor[x].name);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	131 if ((errnum = cipher_descriptor[x].test ()) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	132 printf (" failed Reason: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	133 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	134 } else {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	135 printf ("passed\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	136 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	137 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	138 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	139
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	140 #ifdef CBC
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	141 void
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	142 cbc_tests (void)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	143 {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	144 symmetric_CBC cbc;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	145 int x, y;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	146 unsigned char blk[32], ct[32], key[32], IV[32];
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	147 const unsigned char test[] =
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	148 { 0XFF, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 };
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	149
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	150 printf ("CBC tests\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	151 /* ---- CBC ENCODING ---- */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	152 /* make up a block and IV */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	153 for (x = 0; x < 32; x++)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	154 blk[x] = IV[x] = x;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	155
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	156 /* now lets start a cbc session */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	157 if ((errnum =
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	158 cbc_start (find_cipher ("blowfish"), IV, key, 16, 0,
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	159 &cbc)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	160 printf ("CBC Setup: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	161 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	162 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	163
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	164 /* now lets encode 32 bytes */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	165 for (x = 0; x < 4; x++) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	166 if ((errnum = cbc_encrypt (blk + 8 * x, ct + 8 * x, &cbc)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	167 printf ("CBC encrypt: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	168 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	169 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	170 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	171
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	172 zeromem (blk, sizeof (blk));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	173
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	174 /* ---- CBC DECODING ---- */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	175 /* make up a IV */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	176 for (x = 0; x < 32; x++)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	177 IV[x] = x;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	178
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	179 /* now lets start a cbc session */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	180 if ((errnum =
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	181 cbc_start (find_cipher ("blowfish"), IV, key, 16, 0,
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	182 &cbc)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	183 printf ("CBC Setup: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	184 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	185 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	186
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	187 /* now lets decode 32 bytes */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	188 for (x = 0; x < 4; x++) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	189 if ((errnum = cbc_decrypt (ct + 8 * x, blk + 8 * x, &cbc)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	190 printf ("CBC decrypt: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	191 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	192 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	193 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	194
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	195
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	196 /* print output */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	197 for (x = y = 0; x < 32; x++)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	198 if (blk[x] != x)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	199 y = 1;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	200 printf (" %s\n", y ? "failed" : "passed");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	201
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	202 /* lets actually check the bytes */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	203 memset (IV, 0, 8);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	204 IV[0] = 0xFF; /* IV = FF 00 00 00 00 00 00 00 */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	205 memset (blk, 0, 32);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	206 blk[8] = 0xFF; /* BLK = 00 00 00 00 00 00 00 00 FF 00 00 00 00 00 00 00 */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	207 cbc_start (find_cipher ("memcpy()"), IV, key, 8, 0, &cbc);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	208 cbc_encrypt (blk, ct, &cbc); /* expect: FF 00 00 00 00 00 00 00 */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	209 cbc_encrypt (blk + 8, ct + 8, &cbc); /* expect: 00 00 00 00 00 00 00 00 */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	210 if (memcmp (ct, test, 16)) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	211 printf ("CBC failed logical testing.\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	212 for (x = 0; x < 16; x++)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	213 printf ("%02x ", ct[x]);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	214 printf ("\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	215 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	216 } else {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	217 printf ("CBC passed logical testing.\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	218 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	219 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	220 #else
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	221 void
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	222 cbc_tests (void)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	223 {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	224 printf ("CBC not compiled in\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	225 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	226 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	227
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	228 #ifdef OFB
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	229 void
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	230 ofb_tests (void)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	231 {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	232 symmetric_OFB ofb;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	233 int x, y;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	234 unsigned char blk[32], ct[32], key[32], IV[32];
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	235
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	236 printf ("OFB tests\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	237 /* ---- ofb ENCODING ---- */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	238 /* make up a block and IV */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	239 for (x = 0; x < 32; x++)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	240 blk[x] = IV[x] = x;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	241
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	242 /* now lets start a ofb session */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	243 if ((errnum =
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	244 ofb_start (find_cipher ("cast5"), IV, key, 16, 0, &ofb)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	245 printf ("OFB Setup: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	246 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	247 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	248
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	249 /* now lets encode 32 bytes */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	250 for (x = 0; x < 4; x++) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	251 if ((errnum = ofb_encrypt (blk + 8 * x, ct + 8 * x, 8, &ofb)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	252 printf ("OFB encrypt: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	253 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	254 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	255 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	256
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	257 zeromem (blk, sizeof (blk));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	258
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	259 /* ---- ofb DECODING ---- */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	260 /* make up a IV */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	261 for (x = 0; x < 32; x++)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	262 IV[x] = x;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	263
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	264 /* now lets start a ofb session */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	265 if ((errnum =
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	266 ofb_start (find_cipher ("cast5"), IV, key, 16, 0, &ofb)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	267 printf ("OFB setup: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	268 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	269 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	270
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	271 /* now lets decode 32 bytes */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	272 for (x = 0; x < 4; x++) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	273 if ((errnum = ofb_decrypt (ct + 8 * x, blk + 8 * x, 8, &ofb)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	274 printf ("OFB decrypt: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	275 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	276 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	277 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	278
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	279 /* print output */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	280 for (x = y = 0; x < 32; x++)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	281 if (blk[x] != x)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	282 y = 1;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	283 printf (" %s\n", y ? "failed" : "passed");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	284 if (y)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	285 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	286 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	287 #else
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	288 void
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	289 ofb_tests (void)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	290 {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	291 printf ("OFB not compiled in\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	292 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	293 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	294
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	295 #ifdef CFB
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	296 void
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	297 cfb_tests (void)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	298 {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	299 symmetric_CFB cfb;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	300 int x, y;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	301 unsigned char blk[32], ct[32], key[32], IV[32];
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	302
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	303 printf ("CFB tests\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	304 /* ---- cfb ENCODING ---- */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	305 /* make up a block and IV */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	306 for (x = 0; x < 32; x++)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	307 blk[x] = IV[x] = x;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	308
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	309 /* now lets start a cfb session */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	310 if ((errnum =
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	311 cfb_start (find_cipher ("blowfish"), IV, key, 16, 0,
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	312 &cfb)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	313 printf ("CFB setup: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	314 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	315 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	316
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	317 /* now lets encode 32 bytes */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	318 for (x = 0; x < 4; x++) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	319 if ((errnum = cfb_encrypt (blk + 8 * x, ct + 8 * x, 8, &cfb)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	320 printf ("CFB encrypt: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	321 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	322 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	323 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	324
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	325 zeromem (blk, sizeof (blk));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	326
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	327 /* ---- cfb DECODING ---- */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	328 /* make up ahash_descriptor[prng->yarrow.hash].hashsize IV */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	329 for (x = 0; x < 32; x++)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	330 IV[x] = x;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	331
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	332 /* now lets start a cfb session */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	333 if ((errnum =
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	334 cfb_start (find_cipher ("blowfish"), IV, key, 16, 0,
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	335 &cfb)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	336 printf ("CFB Setup: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	337 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	338 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	339
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	340 /* now lets decode 32 bytes */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	341 for (x = 0; x < 4; x++) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	342 if ((errnum = cfb_decrypt (ct + 8 * x, blk + 8 * x, 8, &cfb)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	343 printf ("CFB decrypt: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	344 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	345 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	346 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	347
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	348 /* print output */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	349 for (x = y = 0; x < 32; x++)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	350 if (blk[x] != x)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	351 y = 1;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	352 printf (" %s\n", y ? "failed" : "passed");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	353 if (y)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	354 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	355 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	356 #else
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	357 void
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	358 cfb_tests (void)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	359 {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	360 printf ("CFB not compiled in\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	361 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	362 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	363
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	364 #ifdef CTR
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	365 void
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	366 ctr_tests (void)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	367 {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	368 symmetric_CTR ctr;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	369 int x, y;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	370 unsigned char blk[32], ct[32], key[32], count[32];
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	371 const unsigned char test[] =
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	372 { 0xFF, 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 0, 0 };
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	373
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	374 printf ("CTR tests\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	375 /* ---- CTR ENCODING ---- */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	376 /* make up a block and IV */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	377 for (x = 0; x < 32; x++)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	378 blk[x] = count[x] = x;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	379
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	380 /* now lets start a ctr session */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	381 if ((errnum =
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	382 ctr_start (find_cipher ("xtea"), count, key, 16, 0,
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	383 &ctr)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	384 printf ("CTR Setup: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	385 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	386 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	387
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	388 /* now lets encode 32 bytes */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	389 for (x = 0; x < 4; x++) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	390 if ((errnum = ctr_encrypt (blk + 8 * x, ct + 8 * x, 8, &ctr)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	391 printf ("CTR encrypt: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	392 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	393 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	394 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	395
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	396 zeromem (blk, sizeof (blk));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	397
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	398 /* ---- CTR DECODING ---- */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	399 /* make up a IV */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	400 for (x = 0; x < 32; x++)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	401 count[x] = x;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	402
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	403 /* now lets start a cbc session */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	404 if ((errnum =
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	405 ctr_start (find_cipher ("xtea"), count, key, 16, 0,
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	406 &ctr)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	407 printf ("CTR Setup: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	408 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	409 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	410
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	411 /* now lets decode 32 bytes */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	412 for (x = 0; x < 4; x++) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	413 if ((errnum = ctr_decrypt (ct + 8 * x, blk + 8 * x, 8, &ctr)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	414 printf ("CTR decrypt: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	415 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	416 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	417 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	418
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	419 /* print output */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	420 for (x = y = 0; x < 32; x++)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	421 if (blk[x] != x)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	422 y = 1;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	423 printf (" %s\n", y ? "failed" : "passed");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	424 if (y)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	425 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	426
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	427 /* lets actually check the bytes */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	428 memset (count, 0, 8);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	429 count[0] = 0xFF; /* IV = FF 00 00 00 00 00 00 00 */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	430 memset (blk, 0, 32);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	431 blk[9] = 2; /* BLK = 00 00 00 00 00 00 00 00 00 02 00 00 00 00 00 00 */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	432 ctr_start (find_cipher ("memcpy()"), count, key, 8, 0, &ctr);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	433 ctr_encrypt (blk, ct, 8, &ctr); /* expect: FF 00 00 00 00 00 00 00 */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	434 ctr_encrypt (blk + 8, ct + 8, 8, &ctr); /* expect: 00 03 00 00 00 00 00 00 */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	435 if (memcmp (ct, test, 16)) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	436 printf ("CTR failed logical testing.\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	437 for (x = 0; x < 16; x++)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	438 printf ("%02x ", ct[x]);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	439 printf ("\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	440 } else {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	441 printf ("CTR passed logical testing.\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	442 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	443
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	444 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	445 #else
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	446 void
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	447 ctr_tests (void)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	448 {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	449 printf ("CTR not compiled in\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	450 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	451 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	452
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	453 void
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	454 hash_tests (void)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	455 {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	456 int x;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	457 printf ("Hash tests\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	458 for (x = 0; hash_descriptor[x].name != NULL; x++) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	459 printf (" %10s (%2d) ", hash_descriptor[x].name, hash_descriptor[x].ID);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	460 if ((errnum = hash_descriptor[x].test ()) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	461 printf ("failed Reason: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	462 exit(-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	463 } else {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	464 printf ("passed\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	465 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	466 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	467 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	468
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	469 #ifdef MRSA
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	470 void
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	471 pad_test (void)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	472 {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	473 unsigned char in[100], out[100];
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	474 unsigned long x, y;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	475
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	476 /* make a dummy message */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	477 for (x = 0; x < 16; x++)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	478 in[x] = (unsigned char) x;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	479
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	480 /* pad the message so that random filler is placed before and after it */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	481 y = 100;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	482 if ((errnum =
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	483 rsa_pad (in, 16, out, &y, find_prng ("yarrow"), &prng)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	484 printf ("Error: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	485 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	486 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	487
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	488 /* depad the message to get the original content */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	489 memset (in, 0, sizeof (in));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	490 x = 100;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	491 if ((errnum = rsa_depad (out, y, in, &x)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	492 printf ("Error: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	493 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	494 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	495
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	496 /* check outcome */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	497 printf ("rsa_pad: ");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	498 if (x != 16) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	499 printf ("Failed. Wrong size.\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	500 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	501 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	502 for (x = 0; x < 16; x++)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	503 if (in[x] != x) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	504 printf ("Failed. Expected %02lx and got %02x.\n", x, in[x]);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	505 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	506 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	507 printf ("passed.\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	508 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	509 void
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	510 rsa_test (void)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	511 {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	512 unsigned char in[520], out[520];
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	513 unsigned long x, y, z, limit;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	514 int stat;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	515 rsa_key key;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	516 clock_t t;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	517
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	518 /* ---- SINGLE ENCRYPT ---- */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	519 /* encrypt a short 8 byte string */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	520 if ((errnum =
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	521 rsa_make_key (&prng, find_prng ("yarrow"), 1024 / 8, 65537,
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	522 &key)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	523 printf ("Error: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	524 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	525 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	526 for (x = 0; x < 8; x++)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	527 in[x] = (unsigned char) (x + 1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	528 y = sizeof (in);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	529 if ((errnum = rsa_exptmod (in, 8, out, &y, PK_PUBLIC, &key)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	530 printf ("Error: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	531 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	532 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	533
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	534 /* decrypt it */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	535 zeromem (in, sizeof (in));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	536 x = sizeof (out);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	537 if ((errnum = rsa_exptmod (out, y, in, &x, PK_PRIVATE, &key)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	538 printf ("Error: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	539 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	540 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	541
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	542 /* compare */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	543 printf ("RSA : ");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	544 for (x = 0; x < 8; x++)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	545 if (in[x] != (x + 1)) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	546 printf ("Failed. x==%02lx, in[%ld]==%02x\n", x, x, in[x]);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	547 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	548 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	549 printf ("passed.\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	550
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	551 /* test the rsa_encrypt_key functions */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	552 for (x = 0; x < 16; x++)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	553 in[x] = x;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	554 y = sizeof (out);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	555 if ((errnum =
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	556 rsa_encrypt_key (in, 16, out, &y, &prng, find_prng ("yarrow"),
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	557 &key)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	558 printf ("Error: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	559 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	560 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	561 zeromem (in, sizeof (in));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	562 x = sizeof (in);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	563 if ((errnum = rsa_decrypt_key (out, y, in, &x, &key)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	564 printf ("Error: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	565 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	566 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	567 printf ("RSA en/de crypt key routines: ");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	568 if (x != 16) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	569 printf ("Failed (length)\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	570 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	571 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	572 for (x = 0; x < 16; x++)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	573 if (in[x] != x) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	574 printf ("Failed (contents)\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	575 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	576 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	577 printf ("Passed\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	578
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	579 /* test sign_hash functions */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	580 for (x = 0; x < 16; x++)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	581 in[x] = x;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	582 x = sizeof (in);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	583 if ((errnum = rsa_sign_hash (in, 16, out, &x, &key)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	584 printf ("Error: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	585 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	586 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	587 printf ("RSA signed hash: %lu bytes\n", x);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	588 if ((errnum = rsa_verify_hash (out, x, in, &stat, &key)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	589 printf ("Error: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	590 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	591 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	592 printf ("Verify hash: %s, ", stat ? "passed" : "failed");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	593 in[0] ^= 1;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	594 if ((errnum = rsa_verify_hash (out, x, in, &stat, &key)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	595 printf ("Error: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	596 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	597 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	598 printf ("%s\n", (!stat) ? "passed" : "failed");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	599 if (stat)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	600 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	601 rsa_free (&key);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	602
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	603 /* make a RSA key */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	604 #ifdef SONY_PS2_NOPE
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	605 limit = 1024;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	606 #else
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	607 limit = 2048;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	608 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	609
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	610 {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	611 int tt;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	612
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	613 for (z = 1024; z <= limit; z += 512) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	614 t = XCLOCK ();
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	615 for (tt = 0; tt < 3; tt++) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	616 if ((errnum = rsa_make_key (&prng, find_prng ("yarrow"), z / 8, 65537, &key)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	617 printf ("Error: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	618 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	619 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	620
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	621 /* check modulus size */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	622 if (mp_unsigned_bin_size(&key.N) != (int)(z/8)) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	623 printf("\nRSA key supposed to be %lu bits but was %d bits\n", z, mp_count_bits(&key.N));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	624 exit(EXIT_FAILURE);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	625 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	626
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	627 if (tt < 2) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	628 rsa_free (&key);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	629 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	630 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	631 t = XCLOCK () - t;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	632 printf ("Took %.0f ms to make a %ld-bit RSA key.\n", 1000.0 * (((double) t / 3.0) / (double) XCLOCKS_PER_SEC), z);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	633
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	634 /* time encryption */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	635 t = XCLOCK ();
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	636
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	637 for (tt = 0; tt < 20; tt++) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	638 y = sizeof (in);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	639 if ((errnum = rsa_exptmod (in, 8, out, &y, PK_PUBLIC, &key)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	640 printf ("Error: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	641 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	642 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	643 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	644 t = XCLOCK () - t;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	645 printf ("Took %.0f ms to encrypt with a %ld-bit RSA key.\n",
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	646 1000.0 * (((double) t / 20.0) / (double) XCLOCKS_PER_SEC), z);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	647
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	648 /* time decryption */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	649 t = XCLOCK ();
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	650 for (tt = 0; tt < 20; tt++) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	651 x = sizeof (out);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	652 if ((errnum = rsa_exptmod (out, y, in, &x, PK_PRIVATE, &key)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	653 printf ("Error: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	654 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	655 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	656 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	657 t = XCLOCK () - t;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	658 printf ("Took %.0f ms to decrypt with a %ld-bit RSA key.\n",
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	659 1000.0 * (((double) t / 20.0) / (double) XCLOCKS_PER_SEC), z);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	660 rsa_free (&key);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	661 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	662 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	663 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	664 #else
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	665 void
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	666 pad_test (void)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	667 {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	668 printf ("MRSA not compiled in\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	669 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	670
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	671 void
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	672 rsa_test (void)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	673 {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	674 printf ("MRSA not compiled in\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	675 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	676 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	677
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	678 #ifdef BASE64
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	679 void
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	680 base64_test (void)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	681 {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	682 unsigned char buf[2][100];
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	683 unsigned long x, y;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	684
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	685 printf ("Base64 tests\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	686 zeromem (buf, sizeof (buf));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	687 for (x = 0; x < 16; x++)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	688 buf[0][x] = (unsigned char) x;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	689
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	690 x = 100;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	691 if (base64_encode (buf[0], 16, buf[1], &x) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	692 printf (" error: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	693 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	694 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	695 printf (" encoded 16 bytes to %ld bytes...[%s]\n", x, buf[1]);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	696 memset (buf[0], 0, 100);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	697 y = 100;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	698 if (base64_decode (buf[1], x, buf[0], &y) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	699 printf (" error: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	700 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	701 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	702 printf (" decoded %ld bytes to %ld bytes\n", x, y);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	703 for (x = 0; x < 16; x++)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	704 if (buf[0][x] != x) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	705 printf (" failed\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	706 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	707 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	708 printf (" passed\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	709 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	710 #else
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	711 void
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	712 base64_test (void)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	713 {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	714 printf ("Base64 not compiled in\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	715 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	716 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	717
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	718 void
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	719 time_hash (void)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	720 {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	721 clock_t t1;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	722 int x, y;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	723 unsigned long z;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	724 unsigned char input[4096], out[MAXBLOCKSIZE];
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	725 printf ("Hash Time Trials (4KB blocks):\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	726 for (x = 0; hash_descriptor[x].name != NULL; x++) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	727 t1 = XCLOCK ();
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	728 z = sizeof (out);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	729 y = 0;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	730 while (XCLOCK () - t1 < (5 * XCLOCKS_PER_SEC)) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	731 hash_memory (x, input, 4096, out, &z);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	732 hash_memory (x, input, 4096, out, &z);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	733 hash_memory (x, input, 4096, out, &z);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	734 hash_memory (x, input, 4096, out, &z);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	735 hash_memory (x, input, 4096, out, &z);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	736 hash_memory (x, input, 4096, out, &z);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	737 hash_memory (x, input, 4096, out, &z);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	738 hash_memory (x, input, 4096, out, &z);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	739 hash_memory (x, input, 4096, out, &z);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	740 hash_memory (x, input, 4096, out, &z);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	741 hash_memory (x, input, 4096, out, &z);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	742 hash_memory (x, input, 4096, out, &z);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	743 hash_memory (x, input, 4096, out, &z);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	744 hash_memory (x, input, 4096, out, &z);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	745 hash_memory (x, input, 4096, out, &z);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	746 hash_memory (x, input, 4096, out, &z);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	747 hash_memory (x, input, 4096, out, &z);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	748 hash_memory (x, input, 4096, out, &z);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	749 hash_memory (x, input, 4096, out, &z);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	750 hash_memory (x, input, 4096, out, &z);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	751 hash_memory (x, input, 4096, out, &z);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	752 hash_memory (x, input, 4096, out, &z);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	753 hash_memory (x, input, 4096, out, &z);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	754 hash_memory (x, input, 4096, out, &z);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	755 hash_memory (x, input, 4096, out, &z);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	756 hash_memory (x, input, 4096, out, &z);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	757 hash_memory (x, input, 4096, out, &z);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	758 hash_memory (x, input, 4096, out, &z);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	759 hash_memory (x, input, 4096, out, &z);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	760 hash_memory (x, input, 4096, out, &z);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	761 hash_memory (x, input, 4096, out, &z);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	762 hash_memory (x, input, 4096, out, &z);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	763 y += 32;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	764 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	765 t1 = XCLOCK () - t1;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	766 printf ("%-20s: Hash at %5.2f Mbit/sec\n", hash_descriptor[x].name,
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	767 ((8.0 * 4096.0) *
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	768 ((double) y / ((double) t1 / (double) XCLOCKS_PER_SEC))) /
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	769 1000000.0);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	770 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	771 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	772
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	773 void
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	774 time_ecb (void)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	775 {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	776 clock_t t1, t2;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	777 long x, y1, y2;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	778 unsigned char pt[32], key[32];
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	779 symmetric_key skey;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	780 void (func) (const unsigned char , unsigned char , symmetric_key );
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	781
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	782 printf ("ECB Time Trials for the Symmetric Ciphers:\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	783 for (x = 0; cipher_descriptor[x].name != NULL; x++) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	784 cipher_descriptor[x].setup (key, cipher_descriptor[x].min_key_length, 0,
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	785 &skey);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	786
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	787 #define DO1 func(pt,pt,&skey);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	788 #define DO2 DO1 DO1
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	789 #define DO4 DO2 DO2
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	790 #define DO8 DO4 DO4
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	791 #define DO16 DO8 DO8
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	792 #define DO32 DO16 DO16
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	793 #define DO64 DO32 DO32
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	794 #define DO128 DO64 DO64
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	795 #define DO256 DO128 DO128
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	796
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	797 func = cipher_descriptor[x].ecb_encrypt;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	798 y1 = 0;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	799 t1 = XCLOCK ();
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	800 while (XCLOCK () - t1 < 3 * XCLOCKS_PER_SEC) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	801 DO256;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	802 y1 += 256;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	803 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	804 t1 = XCLOCK () - t1;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	805
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	806 func = cipher_descriptor[x].ecb_decrypt;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	807 y2 = 0;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	808 t2 = XCLOCK ();
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	809 while (XCLOCK () - t2 < 3 * XCLOCKS_PER_SEC) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	810 DO256;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	811 y2 += 256;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	812 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	813 t2 = XCLOCK () - t2;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	814 printf
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	815 ("%-20s: Encrypt at %5.2f Mbit/sec and Decrypt at %5.2f Mbit/sec\n",
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	816 cipher_descriptor[x].name,
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	817 ((8.0 * (double) cipher_descriptor[x].block_length) *
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	818 ((double) y1 / ((double) t1 / (double) XCLOCKS_PER_SEC))) / 1000000.0,
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	819 ((8.0 * (double) cipher_descriptor[x].block_length) *
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	820 ((double) y2 / ((double) t2 / (double) XCLOCKS_PER_SEC))) /
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	821 1000000.0);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	822
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	823 #undef DO256
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	824 #undef DO128
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	825 #undef DO64
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	826 #undef DO32
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	827 #undef DO16
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	828 #undef DO8
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	829 #undef DO4
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	830 #undef DO2
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	831 #undef DO1
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	832 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	833 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	834
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	835 #ifdef MDH
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	836 void
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	837 dh_tests (void)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	838 {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	839 unsigned char buf[3][4096];
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	840 unsigned long x, y, z;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	841 int low, high, stat, stat2;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	842 dh_key usera, userb;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	843 clock_t t1;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	844
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	845 printf("Testing builting DH parameters...."); fflush(stdout);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	846 if ((errnum = dh_test()) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	847 printf("DH Error: %s\n", error_to_string(errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	848 exit(-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	849 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	850 printf("Passed.\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	851
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	852 dh_sizes (&low, &high);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	853 printf ("DH Keys from %d to %d supported.\n", low * 8, high * 8);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	854
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	855 /* make up two keys */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	856 if ((errnum =
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	857 dh_make_key (&prng, find_prng ("yarrow"), 96, &usera)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	858 printf ("Error: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	859 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	860 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	861 if ((errnum =
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	862 dh_make_key (&prng, find_prng ("yarrow"), 96, &userb)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	863 printf ("Error: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	864 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	865 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	866
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	867 /* make the shared secret */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	868 x = 4096;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	869 if ((errnum = dh_shared_secret (&usera, &userb, buf[0], &x)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	870 printf ("Error: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	871 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	872 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	873
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	874 y = 4096;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	875 if ((errnum = dh_shared_secret (&userb, &usera, buf[1], &y)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	876 printf ("Error: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	877 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	878 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	879 if (y != x) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	880 printf ("DH Shared keys are not same size.\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	881 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	882 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	883 if (memcmp (buf[0], buf[1], x)) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	884 printf ("DH Shared keys not same contents.\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	885 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	886 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	887
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	888 /* now export userb */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	889 y = 4096;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	890 if ((errnum = dh_export (buf[1], &y, PK_PUBLIC, &userb)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	891 printf ("Error: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	892 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	893 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	894 dh_free (&userb);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	895
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	896 /* import and make the shared secret again */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	897 if ((errnum = dh_import (buf[1], y, &userb)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	898 printf ("Error: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	899 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	900 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	901 z = 4096;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	902 if ((errnum = dh_shared_secret (&usera, &userb, buf[2], &z)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	903 printf ("Error: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	904 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	905 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	906
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	907 printf ("DH routines: ");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	908 if (z != x) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	909 printf ("failed. Size don't match?\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	910 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	911 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	912 if (memcmp (buf[0], buf[2], x)) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	913 printf ("Failed. Content didn't match.\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	914 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	915 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	916 printf ("Passed\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	917 dh_free (&usera);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	918 dh_free (&userb);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	919
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	920 /* time stuff */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	921 {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	922 static int sizes[] = { 96, 128, 160, 192, 224, 256, 320, 384, 512 };
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	923 int ii, tt;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	924
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	925 for (ii = 0; ii < (int) (sizeof (sizes) / sizeof (sizes[0])); ii++) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	926 t1 = XCLOCK ();
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	927 for (tt = 0; tt < 25; tt++) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	928 dh_make_key (&prng, find_prng ("yarrow"), sizes[ii], &usera);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	929 dh_free (&usera);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	930 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	931 t1 = XCLOCK () - t1;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	932 printf ("Make dh-%d key took %f msec\n", sizes[ii] * 8,
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	933 1000.0 * (((double) t1 / 25.0) / (double) XCLOCKS_PER_SEC));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	934 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	935 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	936
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	937 /* test encrypt_key */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	938 dh_make_key (&prng, find_prng ("yarrow"), 128, &usera);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	939 for (x = 0; x < 16; x++)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	940 buf[0][x] = x;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	941 y = sizeof (buf[1]);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	942 if ((errnum =
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	943 dh_encrypt_key (buf[0], 16, buf[1], &y, &prng, find_prng ("yarrow"),
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	944 find_hash ("md5"), &usera)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	945 printf ("Error: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	946 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	947 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	948 zeromem (buf[0], sizeof (buf[0]));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	949 x = sizeof (buf[0]);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	950 if ((errnum = dh_decrypt_key (buf[1], y, buf[0], &x, &usera)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	951 printf ("Error: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	952 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	953 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	954 printf ("DH en/de crypt key routines: ");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	955 if (x != 16) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	956 printf ("Failed (length)\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	957 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	958 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	959 for (x = 0; x < 16; x++)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	960 if (buf[0][x] != x) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	961 printf ("Failed (contents)\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	962 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	963 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	964 printf ("Passed (size %lu)\n", y);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	965
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	966 /* test sign_hash */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	967 for (x = 0; x < 16; x++)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	968 buf[0][x] = x;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	969 x = sizeof (buf[1]);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	970 if ((errnum =
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	971 dh_sign_hash (buf[0], 16, buf[1], &x, &prng, find_prng ("yarrow"),
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	972 &usera)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	973 printf ("Error: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	974 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	975 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	976 if ((errnum = dh_verify_hash (buf[1], x, buf[0], 16, &stat, &usera)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	977 printf ("Error: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	978 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	979 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	980 buf[0][0] ^= 1;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	981 if ((errnum = dh_verify_hash (buf[1], x, buf[0], 16, &stat2, &usera)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	982 printf ("Error: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	983 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	984 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	985 printf ("dh_sign/verify_hash: %s (%d,%d), %lu\n",
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	986 ((stat == 1)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	987 && (stat2 == 0)) ? "passed" : "failed", stat, stat2, x);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	988 dh_free (&usera);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	989 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	990 #else
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	991 void
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	992 dh_tests (void)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	993 {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	994 printf ("MDH not compiled in\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	995 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	996 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	997
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	998 int callback_x = 0;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	999 void
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1000 callback (void)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1001 {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1002 printf ("%c\x08", "-\\\|/"[++callback_x & 3]);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1003 #ifndef SONY_PS2
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1004 fflush (stdout);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1005 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1006 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1007
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1008 void
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1009 rng_tests (void)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1010 {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1011 unsigned char buf[16];
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1012 clock_t t1;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1013 int x, y;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1014
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1015 printf ("RNG tests\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1016 t1 = XCLOCK ();
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1017 x = rng_get_bytes (buf, sizeof (buf), &callback);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1018 t1 = XCLOCK () - t1;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1019 printf (" %f bytes per second...",
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1020 (double) x / ((double) t1 / (double) XCLOCKS_PER_SEC));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1021 printf ("read %d bytes.\n ", x);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1022 for (y = 0; y < x; y++)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1023 printf ("%02x ", buf[y]);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1024 printf ("\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1025
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1026 #ifdef YARROW
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1027 if ((errnum =
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1028 rng_make_prng (128, find_prng ("yarrow"), &prng,
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1029 &callback)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1030 printf (" starting yarrow error: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1031 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1032 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1033 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1034 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1035
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1036 #ifdef MECC
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1037 void
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1038 ecc_tests (void)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1039 {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1040 unsigned char buf[4][4096];
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1041 unsigned long x, y, z;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1042 int stat, stat2, low, high;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1043 ecc_key usera, userb;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1044 clock_t t1;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1045
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1046 if ((errnum = ecc_test ()) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1047 printf ("ecc Error: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1048 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1049 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1050
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1051 ecc_sizes (&low, &high);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1052 printf ("ecc Keys from %d to %d supported.\n", low * 8, high * 8);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1053
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1054 /* make up two keys */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1055 if ((errnum =
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1056 ecc_make_key (&prng, find_prng ("yarrow"), 24, &usera)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1057 printf ("Error: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1058 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1059 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1060 if ((errnum =
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1061 ecc_make_key (&prng, find_prng ("yarrow"), 24, &userb)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1062 printf ("Error: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1063 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1064 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1065
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1066 /* make the shared secret */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1067 x = 4096;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1068 if ((errnum = ecc_shared_secret (&usera, &userb, buf[0], &x)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1069 printf ("Error: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1070 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1071 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1072
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1073 y = 4096;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1074 if ((errnum = ecc_shared_secret (&userb, &usera, buf[1], &y)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1075 printf ("Error: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1076 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1077 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1078
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1079 if (y != x) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1080 printf ("ecc Shared keys are not same size.\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1081 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1082 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1083
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1084 if (memcmp (buf[0], buf[1], x)) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1085 printf ("ecc Shared keys not same contents.\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1086 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1087 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1088
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1089 /* now export userb */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1090 y = 4096;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1091 if ((errnum = ecc_export (buf[1], &y, PK_PUBLIC, &userb)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1092 printf ("Error: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1093 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1094 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1095 ecc_free (&userb);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1096 printf ("ECC-192 export took %ld bytes\n", y);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1097
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1098 /* import and make the shared secret again */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1099 if ((errnum = ecc_import (buf[1], y, &userb)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1100 printf ("Error: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1101 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1102 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1103
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1104 z = 4096;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1105 if ((errnum = ecc_shared_secret (&usera, &userb, buf[2], &z)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1106 printf ("Error: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1107 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1108 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1109
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1110 printf ("ecc routines: ");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1111 if (z != x) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1112 printf ("failed. Size don't match?\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1113 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1114 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1115 if (memcmp (buf[0], buf[2], x)) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1116 printf ("Failed. Content didn't match.\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1117 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1118 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1119 printf ("Passed\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1120 ecc_free (&usera);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1121 ecc_free (&userb);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1122
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1123 /* time stuff */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1124 {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1125 static int sizes[] = { 20, 24, 28, 32, 48, 65 };
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1126 int ii, tt;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1127
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1128 for (ii = 0; ii < (int) (sizeof (sizes) / sizeof (sizes[0])); ii++) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1129 t1 = XCLOCK ();
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1130 for (tt = 0; tt < 10; tt++) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1131 if ((errnum =
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1132 ecc_make_key (&prng, find_prng ("yarrow"), sizes[ii],
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1133 &usera)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1134 printf ("Error: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1135 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1136 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1137 ecc_free (&usera);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1138 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1139 t1 = XCLOCK () - t1;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1140 printf ("Make ECC-%d key took %f msec\n", sizes[ii] * 8,
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1141 1000.0 * (((double) t1 / 10.0) / (double) XCLOCKS_PER_SEC));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1142 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1143 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1144
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1145 /* test encrypt_key */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1146 ecc_make_key (&prng, find_prng ("yarrow"), 20, &usera);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1147 for (x = 0; x < 32; x++)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1148 buf[0][x] = x;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1149 y = sizeof (buf[1]);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1150 if ((errnum =
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1151 ecc_encrypt_key (buf[0], 32, buf[1], &y, &prng, find_prng ("yarrow"),
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1152 find_hash ("sha256"), &usera)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1153 printf ("Error: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1154 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1155 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1156 zeromem (buf[0], sizeof (buf[0]));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1157 x = sizeof (buf[0]);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1158 if ((errnum = ecc_decrypt_key (buf[1], y, buf[0], &x, &usera)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1159 printf ("Error: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1160 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1161 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1162 printf ("ECC en/de crypt key routines: ");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1163 if (x != 32) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1164 printf ("Failed (length)\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1165 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1166 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1167 for (x = 0; x < 32; x++)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1168 if (buf[0][x] != x) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1169 printf ("Failed (contents)\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1170 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1171 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1172 printf ("Passed (size: %lu)\n", y);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1173 /* test sign_hash */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1174 for (x = 0; x < 16; x++)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1175 buf[0][x] = x;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1176 x = sizeof (buf[1]);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1177 if ((errnum =
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1178 ecc_sign_hash (buf[0], 16, buf[1], &x, &prng, find_prng ("yarrow"),
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1179 &usera)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1180 printf ("Error: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1181 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1182 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1183 printf("Signature size: %lu\n", x);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1184 if (ecc_verify_hash (buf[1], x, buf[0], 16, &stat, &usera)) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1185 printf ("Error: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1186 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1187 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1188 buf[0][0] ^= 1;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1189 if (ecc_verify_hash (buf[1], x, buf[0], 16, &stat2, &usera)) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1190 printf ("Error: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1191 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1192 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1193 printf ("ecc_sign/verify_hash: %s (%d,%d)\n",
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1194 ((stat == 1) && (stat2 == 0)) ? "passed" : "failed", stat, stat2);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1195 ecc_free (&usera);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1196 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1197 #else
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1198 void
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1199 ecc_tests (void)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1200 {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1201 printf ("MECC not compiled in\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1202 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1203 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1204
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1205 #ifdef GF
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1206 void
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1207 gf_tests (void)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1208 {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1209 gf_int a, b, c, d;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1210 int n;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1211 unsigned char buf[1024];
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1212
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1213 printf ("GF tests\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1214 gf_zero (a);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1215 gf_zero (b);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1216 gf_zero (c);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1217 gf_zero (d);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1218
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1219 /* a == 0x18000000b */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1220 a[1] = 1;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1221 a[0] = 0x8000000bUL;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1222
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1223 /* b == 0x012345678 */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1224 b[0] = 0x012345678UL;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1225
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1226 /* find 1/b mod a */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1227 gf_invmod (b, a, c);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1228
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1229 /* find 1/1/b mod a */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1230 gf_invmod (c, a, d);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1231
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1232 /* display them */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1233 printf (" %08lx %08lx\n", c[0], d[0]);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1234
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1235 /* store as binary string */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1236 n = gf_size (a);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1237 printf (" a takes %d bytes\n", n);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1238 gf_toraw (a, buf);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1239 gf_readraw (a, buf, n);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1240 printf (" a == %08lx%08lx\n", a[1], a[0]);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1241
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1242 /* primality testing */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1243 gf_zero (a);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1244 a[0] = 0x169;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1245 printf (" GF prime: %s, ", gf_is_prime (a) ? "passed" : "failed");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1246 a[0] = 0x168;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1247 printf (" %s\n", gf_is_prime (a) ? "failed" : "passed");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1248
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1249 /* test sqrt code */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1250 gf_zero (a);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1251 a[1] = 0x00000001;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1252 a[0] = 0x8000000bUL;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1253 gf_zero (b);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1254 b[0] = 0x12345678UL;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1255
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1256 gf_sqrt (b, a, c);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1257 gf_mulmod (c, c, a, b);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1258 printf (" (%08lx)^2 = %08lx (mod %08lx%08lx) \n", c[0], b[0], a[1], a[0]);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1259 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1260 #else
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1261 void
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1262 gf_tests (void)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1263 {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1264 printf ("GF not compiled in\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1265 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1266 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1267
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1268 #ifdef MPI
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1269 void
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1270 test_prime (void)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1271 {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1272 char buf[1024];
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1273 mp_int a;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1274 int x;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1275
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1276 /* make a 1024 bit prime */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1277 mp_init (&a);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1278 rand_prime (&a, 128*8, &prng, find_prng ("yarrow"));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1279
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1280 /* dump it */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1281 mp_todecimal (&a, buf);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1282 printf ("1024-bit prime:\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1283 for (x = 0; x < (int) strlen (buf);) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1284 printf ("%c", buf[x]);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1285 if (!(++x % 60))
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1286 printf ("\\ \n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1287 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1288 printf ("\n\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1289
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1290 mp_clear (&a);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1291 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1292 #else
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1293 void
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1294 test_prime (void)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1295 {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1296 printf ("MPI not compiled in\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1297 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1298 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1299
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1300 void
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1301 register_all_algs (void)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1302 {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1303 #ifdef RIJNDAEL
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1304 register_cipher (&aes_desc);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1305 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1306 #ifdef BLOWFISH
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1307 register_cipher (&blowfish_desc);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1308 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1309 #ifdef XTEA
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1310 register_cipher (&xtea_desc);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1311 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1312 #ifdef RC5
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1313 register_cipher (&rc5_desc);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1314 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1315 #ifdef RC6
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1316 register_cipher (&rc6_desc);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1317 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1318 #ifdef SAFERP
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1319 register_cipher (&saferp_desc);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1320 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1321 #ifdef TWOFISH
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1322 register_cipher (&twofish_desc);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1323 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1324 #ifdef SAFER
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1325 register_cipher (&safer_k64_desc);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1326 register_cipher (&safer_sk64_desc);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1327 register_cipher (&safer_k128_desc);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1328 register_cipher (&safer_sk128_desc);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1329 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1330 #ifdef RC2
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1331 register_cipher (&rc2_desc);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1332 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1333 #ifdef DES
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1334 register_cipher (&des_desc);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1335 register_cipher (&des3_desc);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1336 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1337 #ifdef CAST5
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1338 register_cipher (&cast5_desc);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1339 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1340 #ifdef NOEKEON
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1341 register_cipher (&noekeon_desc);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1342 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1343 #ifdef SKIPJACK
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1344 register_cipher (&skipjack_desc);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1345 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1346 register_cipher (&null_desc);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1347
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1348 #ifdef TIGER
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1349 register_hash (&tiger_desc);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1350 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1351 #ifdef MD2
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1352 register_hash (&md2_desc);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1353 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1354 #ifdef MD4
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1355 register_hash (&md4_desc);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1356 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1357 #ifdef MD5
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1358 register_hash (&md5_desc);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1359 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1360 #ifdef SHA1
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1361 register_hash (&sha1_desc);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1362 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1363 #ifdef SHA256
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1364 register_hash (&sha256_desc);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1365 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1366 #ifdef SHA224
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1367 register_hash (&sha224_desc);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1368 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1369 #ifdef SHA384
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1370 register_hash (&sha384_desc);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1371 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1372 #ifdef SHA512
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1373 register_hash (&sha512_desc);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1374 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1375 #ifdef RIPEMD128
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1376 register_hash (&rmd128_desc);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1377 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1378 #ifdef RIPEMD160
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1379 register_hash (&rmd160_desc);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1380 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1381 #ifdef WHIRLPOOL
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1382 register_hash (&whirlpool_desc);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1383 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1384
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1385 #ifdef YARROW
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1386 register_prng (&yarrow_desc);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1387 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1388 #ifdef SPRNG
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1389 register_prng (&sprng_desc);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1390 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1391 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1392
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1393 #ifdef KR
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1394 void
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1395 kr_display (pk_key * kr)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1396 {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1397 static const char *sys[] = { "NON-KEY", "RSA", "DH", "ECC" };
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1398 static const char *type[] = { "PRIVATE", "PUBLIC", "PRIVATE_OPTIMIZED" };
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1399
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1400 while (kr->system != NON_KEY) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1401 printf ("CRC [%08lx], System [%10s], Type [%20s], %s, %s, %s\n", kr->ID,
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1402 sys[kr->system], type[kr->key_type], kr->name, kr->email,
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1403 kr->description);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1404 kr = kr->next;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1405 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1406 printf ("\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1407 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1408
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1409 void
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1410 kr_test_makekeys (pk_key ** kr)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1411 {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1412 if ((errnum = kr_init (kr)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1413 printf ("KR init error %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1414 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1415 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1416
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1417 /* make a DH key */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1418 printf ("KR: Making DH key...\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1419 if ((errnum =
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1420 kr_make_key (*kr, &prng, find_prng ("yarrow"), DH_KEY, 128, "dhkey",
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1421 "[email protected]", "dhkey one")) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1422 printf ("Make key error: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1423 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1424 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1425
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1426 /* make a ECC key */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1427 printf ("KR: Making ECC key...\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1428 if ((errnum =
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1429 kr_make_key (*kr, &prng, find_prng ("yarrow"), ECC_KEY, 20, "ecckey",
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1430 "[email protected]", "ecckey one")) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1431 printf ("Make key error: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1432 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1433 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1434
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1435 /* make a RSA key */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1436 printf ("KR: Making RSA key...\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1437 if ((errnum =
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1438 kr_make_key (*kr, &prng, find_prng ("yarrow"), RSA_KEY, 128, "rsakey",
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1439 "[email protected]", "rsakey one")) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1440 printf ("Make key error: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1441 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1442 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1443
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1444 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1445
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1446 void
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1447 kr_test (void)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1448 {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1449 pk_key kr, _kr;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1450 unsigned char buf[8192], buf2[8192], buf3[8192];
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1451 unsigned long len;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1452 int i, j, stat;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1453 #ifndef NO_FILE
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1454 FILE *f;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1455 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1456
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1457 kr_test_makekeys (&kr);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1458
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1459 printf ("The original list:\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1460 kr_display (kr);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1461
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1462 for (i = 0; i < 3; i++) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1463 len = sizeof (buf);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1464 if ((errnum = kr_export (kr, kr->ID, kr->key_type, buf, &len)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1465 printf ("Error exporting key %d, %s\n", i, error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1466 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1467 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1468 printf ("Exported key was: %lu bytes\n", len);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1469 if ((errnum = kr_del (&kr, kr->ID)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1470 printf ("Error deleting key %d, %s\n", i, error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1471 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1472 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1473 kr_display (kr);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1474 if ((errnum = kr_import (kr, buf, len)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1475 printf ("Error importing key %d, %s\n", i, error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1476 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1477 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1478 kr_display (kr);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1479 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1480
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1481 for (i = 0; i < 3; i++) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1482 len = sizeof (buf);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1483 if ((errnum = kr_export (kr, kr->ID, PK_PUBLIC, buf, &len)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1484 printf ("Error exporting key %d, %s\n", i, error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1485 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1486 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1487 printf ("Exported key was: %lu bytes\n", len);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1488 if ((errnum = kr_del (&kr, kr->ID)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1489 printf ("Error deleting key %d, %s\n", i, error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1490 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1491 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1492 kr_display (kr);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1493 if ((errnum = kr_import (kr, buf, len)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1494 printf ("Error importing key %d, %s\n", i, error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1495 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1496 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1497 kr_display (kr);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1498 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1499
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1500 if ((errnum = kr_clear (&kr)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1501 printf ("Error clearing ring: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1502 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1503 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1504
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1505
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1506 /* TEST output to file */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1507 #ifndef NO_FILE
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1508
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1509 if ((errnum = kr_init (&kr)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1510 printf ("KR init error %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1511 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1512 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1513 kr_test_makekeys (&kr);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1514
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1515 /* save to file */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1516 f = fopen ("ring.dat", "wb");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1517 if ((errnum = kr_save (kr, f, NULL)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1518 printf ("kr_save error %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1519 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1520 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1521 fclose (f);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1522
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1523 /* delete and load */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1524 if ((errnum = kr_clear (&kr)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1525 printf ("clear error: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1526 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1527 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1528
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1529 f = fopen ("ring.dat", "rb");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1530 if ((errnum = kr_load (&kr, f, NULL)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1531 printf ("kr_load error %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1532 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1533 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1534 fclose (f);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1535 remove ("ring.dat");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1536 printf ("After load and save...\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1537 kr_display (kr);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1538
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1539 if ((errnum = kr_clear (&kr)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1540 printf ("clear error: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1541 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1542 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1543 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1544
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1545 /* test the packet encryption/sign stuff */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1546 for (i = 0; i < 32; i++)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1547 buf[i] = i;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1548 kr_test_makekeys (&kr);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1549 _kr = kr;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1550 for (i = 0; i < 3; i++) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1551 printf ("Testing a key with system %d, type %d:\t", _kr->system,
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1552 _kr->key_type);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1553 len = sizeof (buf2);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1554 if ((errnum =
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1555 kr_encrypt_key (kr, _kr->ID, buf, 16, buf2, &len, &prng,
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1556 find_prng ("yarrow"),
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1557 find_hash ("md5"))) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1558 printf ("Encrypt error, %d, %s\n", i, error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1559 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1560 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1561 len = sizeof (buf3);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1562 if ((errnum = kr_decrypt_key (kr, buf2, buf3, &len)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1563 printf ("decrypt error, %d, %s\n", i, error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1564 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1565 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1566 if (len != 16 \|\| memcmp (buf3, buf, 16)) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1567 printf ("kr_decrypt_key failed, %i, %lu\n", i, len);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1568 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1569 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1570 printf ("kr_encrypt_key passed, ");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1571
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1572 len = sizeof (buf2);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1573 if ((errnum =
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1574 kr_sign_hash (kr, _kr->ID, buf, 32, buf2, &len, &prng,
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1575 find_prng ("yarrow"))) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1576 printf ("kr_sign_hash failed, %i, %s\n", i, error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1577 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1578 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1579 printf ("kr_sign_hash: ");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1580 if ((errnum = kr_verify_hash (kr, buf2, buf, 32, &stat)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1581 printf ("kr_sign_hash failed, %i, %s\n", i, error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1582 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1583 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1584 printf ("%s, ", stat ? "passed" : "failed");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1585 buf[15] ^= 1;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1586 if ((errnum = kr_verify_hash (kr, buf2, buf, 32, &stat)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1587 printf ("kr_sign_hash failed, %i, %s\n", i, error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1588 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1589 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1590 printf ("%s\n", (!stat) ? "passed" : "failed");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1591 buf[15] ^= 1;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1592
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1593 len = sizeof (buf);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1594 if ((errnum =
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1595 kr_fingerprint (kr, _kr->ID, find_hash ("sha1"), buf,
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1596 &len)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1597 printf ("kr_fingerprint failed, %i, %lu\n", i, len);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1598 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1599 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1600 printf ("Fingerprint: ");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1601 for (j = 0; j < 20; j++) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1602 printf ("%02x", buf[j]);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1603 if (j < 19)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1604 printf (":");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1605 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1606 printf ("\n\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1607
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1608 _kr = _kr->next;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1609 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1610
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1611 /* Test encrypting/decrypting to a public key */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1612 /* first dump the other two keys */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1613 kr_del (&kr, kr->ID);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1614 kr_del (&kr, kr->ID);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1615 kr_display (kr);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1616
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1617 /* now export it as public and private */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1618 len = sizeof (buf);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1619 if ((errnum = kr_export (kr, kr->ID, PK_PUBLIC, buf, &len)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1620 printf ("Error exporting key %d, %s\n", i, error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1621 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1622 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1623
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1624 /* check boundaries */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1625 memset (buf + len, 0, sizeof (buf) - len);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1626
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1627 len = sizeof (buf2);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1628 if ((errnum = kr_export (kr, kr->ID, PK_PRIVATE, buf2, &len)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1629 printf ("Error exporting key %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1630 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1631 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1632
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1633 /* check boundaries */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1634 memset (buf2 + len, 0, sizeof (buf2) - len);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1635
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1636 /* delete the key and import the public */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1637 kr_clear (&kr);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1638 kr_init (&kr);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1639 kr_display (kr);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1640 if ((errnum = kr_import (kr, buf, len)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1641 printf ("Error importing key %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1642 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1643 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1644 kr_display (kr);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1645
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1646 /* now encrypt a buffer */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1647 for (i = 0; i < 16; i++)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1648 buf[i] = i;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1649 len = sizeof (buf3);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1650 if ((errnum =
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1651 kr_encrypt_key (kr, kr->ID, buf, 16, buf3, &len, &prng,
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1652 find_prng ("yarrow"),
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1653 find_hash ("md5"))) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1654 printf ("Encrypt error, %d, %s\n", i, error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1655 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1656 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1657
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1658 /* now delete the key and import the private one */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1659 kr_clear (&kr);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1660 kr_init (&kr);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1661 kr_display (kr);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1662 if ((errnum = kr_import (kr, buf2, len)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1663 printf ("Error importing key %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1664 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1665 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1666 kr_display (kr);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1667
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1668 /* now decrypt */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1669 len = sizeof (buf2);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1670 if ((errnum = kr_decrypt_key (kr, buf3, buf2, &len)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1671 printf ("decrypt error, %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1672 exit (-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1673 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1674
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1675 printf ("KR encrypt to public, decrypt with private: ");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1676 if (len == 16 && !memcmp (buf2, buf, 16)) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1677 printf ("passed\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1678 } else {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1679 printf ("failed\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1680 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1681
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1682 kr_clear (&kr);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1683 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1684 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1685
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1686 void
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1687 test_errs (void)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1688 {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1689 #define ERR(x) printf("%25s => %s\n", #x, error_to_string(x));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1690
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1691 ERR (CRYPT_OK);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1692 ERR (CRYPT_ERROR);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1693
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1694 ERR (CRYPT_INVALID_KEYSIZE);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1695 ERR (CRYPT_INVALID_ROUNDS);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1696 ERR (CRYPT_FAIL_TESTVECTOR);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1697
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1698 ERR (CRYPT_BUFFER_OVERFLOW);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1699 ERR (CRYPT_INVALID_PACKET);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1700
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1701 ERR (CRYPT_INVALID_PRNGSIZE);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1702 ERR (CRYPT_ERROR_READPRNG);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1703
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1704 ERR (CRYPT_INVALID_CIPHER);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1705 ERR (CRYPT_INVALID_HASH);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1706 ERR (CRYPT_INVALID_PRNG);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1707
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1708 ERR (CRYPT_MEM);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1709
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1710 ERR (CRYPT_PK_TYPE_MISMATCH);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1711 ERR (CRYPT_PK_NOT_PRIVATE);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1712
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1713 ERR (CRYPT_INVALID_ARG);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1714 ERR (CRYPT_FILE_NOTFOUND);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1715
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1716 ERR (CRYPT_PK_INVALID_TYPE);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1717 ERR (CRYPT_PK_INVALID_SYSTEM);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1718 ERR (CRYPT_PK_DUP);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1719 ERR (CRYPT_PK_NOT_FOUND);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1720 ERR (CRYPT_PK_INVALID_SIZE);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1721
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1722 ERR (CRYPT_INVALID_PRIME_SIZE);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1723 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1724
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1725
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1726 void dsa_tests(void)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1727 {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1728 unsigned char msg[16], out[1024], out2[1024];
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1729 unsigned long x, y;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1730 int err, stat1, stat2;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1731 dsa_key key, key2;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1732
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1733 /* make a random key */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1734 if ((err = dsa_make_key(&prng, find_prng("yarrow"), 20, 128, &key)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1735 printf("Error making DSA key: %s\n", error_to_string(err));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1736 exit(-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1737 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1738 printf("DSA Key Made\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1739
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1740 /* verify it */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1741 if ((err = dsa_verify_key(&key, &stat1)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1742 printf("Error verifying DSA key: %s\n", error_to_string(err));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1743 exit(-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1744 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1745 printf("DSA key verification: %s\n", stat1 == 1 ? "passed" : "failed");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1746 if (stat1 == 0) exit(-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1747
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1748 /* sign the message */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1749 x = sizeof(out);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1750 if ((err = dsa_sign_hash(msg, sizeof(msg), out, &x, &prng, find_prng("yarrow"), &key)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1751 printf("Error signing with DSA key: %s\n", error_to_string(err));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1752 exit(-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1753 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1754 printf("DSA 160/1024 signature is %lu bytes long\n", x);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1755
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1756 /* verify it once */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1757 if ((err = dsa_verify_hash(out, x, msg, sizeof(msg), &stat1, &key)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1758 printf("Error verifying with DSA key 1: %s\n", error_to_string(err));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1759 exit(-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1760 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1761
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1762 /* Modify and verify again */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1763 msg[0] ^= 1;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1764 if ((err = dsa_verify_hash(out, x, msg, sizeof(msg), &stat2, &key)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1765 printf("Error verifying with DSA key 2: %s\n", error_to_string(err));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1766 exit(-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1767 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1768 msg[0] ^= 1;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1769 printf("DSA Verification: %d, %d, %s\n", stat1, stat2, (stat1 == 1 && stat2 == 0) ? "passed" : "failed");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1770 if (!(stat1 == 1 && stat2 == 0)) exit(-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1771
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1772 /* test exporting it */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1773 x = sizeof(out2);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1774 if ((err = dsa_export(out2, &x, PK_PRIVATE, &key)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1775 printf("Error export PK_PRIVATE DSA key: %s\n", error_to_string(err));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1776 exit(-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1777 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1778 printf("Exported PK_PRIVATE DSA key in %lu bytes\n", x);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1779 if ((err = dsa_import(out2, x, &key2)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1780 printf("Error importing PK_PRIVATE DSA key: %s\n", error_to_string(err));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1781 exit(-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1782 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1783 /* verify a signature with it */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1784 if ((err = dsa_verify_hash(out, x, msg, sizeof(msg), &stat1, &key2)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1785 printf("Error verifying with DSA key 3: %s\n", error_to_string(err));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1786 exit(-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1787 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1788 printf("PRIVATE Import Test: %s\n", stat1 == 1 ? "passed" : "failed");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1789 if (stat1 == 0) exit(-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1790 dsa_free(&key2);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1791
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1792 /* export as public now */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1793 x = sizeof(out2);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1794 if ((err = dsa_export(out2, &x, PK_PUBLIC, &key)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1795 printf("Error export PK_PUBLIC DSA key: %s\n", error_to_string(err));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1796 exit(-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1797 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1798 printf("Exported PK_PUBLIC DSA key in %lu bytes\n", x);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1799 if ((err = dsa_import(out2, x, &key2)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1800 printf("Error importing PK_PUBLIC DSA key: %s\n", error_to_string(err));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1801 exit(-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1802 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1803 /* verify a signature with it */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1804 if ((err = dsa_verify_hash(out, x, msg, sizeof(msg), &stat1, &key2)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1805 printf("Error verifying with DSA key 4: %s\n", error_to_string(err));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1806 exit(-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1807 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1808 printf("PUBLIC Import Test: %s\n", stat1 == 1 ? "passed" : "failed");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1809 if (stat1 == 0) exit(-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1810
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1811 dsa_free(&key2);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1812 dsa_free(&key);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1813 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1814
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1815 #ifdef PKCS_1
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1816 void pkcs1_test(void)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1817 {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1818 unsigned char buf[3][128];
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1819 int err, res1, res2, res3, prng_idx, hash_idx;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1820 unsigned long x, y, l1, l2, l3, i1, i2;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1821
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1822 /* get hash/prng */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1823 hash_idx = find_hash("sha1");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1824 prng_idx = find_prng("yarrow");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1825
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1826 /* do many tests */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1827 for (x = 0; x < 10000; x++) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1828 zeromem(buf, sizeof(buf));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1829
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1830 /* make a dummy message (of random length) */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1831 l3 = (rand() & 31) + 8;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1832 for (y = 0; y < l3; y++) buf[0][y] = rand() & 255;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1833
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1834 /* encode it */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1835 l1 = sizeof(buf[1]);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1836 if ((err = pkcs_1_oaep_encode(buf[0], l3, NULL, 0, 1024, hash_idx, prng_idx, &prng, buf[1], &l1)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1837 printf("OAEP encode: %s\n", error_to_string(err));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1838 exit(-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1839 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1840
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1841 /* decode it */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1842 l2 = sizeof(buf[2]);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1843 if ((err = pkcs_1_oaep_decode(buf[1], l1, NULL, 0, 1024, hash_idx, buf[2], &l2)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1844 printf("OAEP decode: %s\n", error_to_string(err));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1845 exit(-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1846 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1847
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1848 if (l2 != l3 \|\| memcmp(buf[2], buf[0], l3) != 0) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1849 printf("Outsize == %lu, should have been %lu, msg contents follow.\n", l2, l3);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1850 printf("ORIGINAL:\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1851 for (x = 0; x < l3; x++) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1852 printf("%02x ", buf[0][x]);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1853 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1854 printf("\nRESULT:\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1855 for (x = 0; x < l2; x++) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1856 printf("%02x ", buf[2][x]);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1857 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1858 printf("\n\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1859 exit(-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1860 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1861
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1862 /* test PSS */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1863 l1 = sizeof(buf[1]);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1864 if ((err = pkcs_1_pss_encode(buf[0], l3, l3>>2, hash_idx, prng_idx, &prng, 1024, buf[1], &l1)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1865 printf("PSS encode: %s\n", error_to_string(err));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1866 exit(-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1867 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1868
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1869 if ((err = pkcs_1_pss_decode(buf[0], l3, buf[1], l1, l3>>2, hash_idx, 1024, &res1)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1870 printf("PSS decode1: %s\n", error_to_string(err));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1871 exit(-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1872 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1873
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1874 buf[0][i1 = abs(rand()) % l3] ^= 1;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1875 if ((err = pkcs_1_pss_decode(buf[0], l3, buf[1], l1, l3>>2, hash_idx, 1024, &res2)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1876 printf("PSS decode2: %s\n", error_to_string(err));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1877 exit(-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1878 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1879
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1880 buf[0][i1] ^= 1;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1881 buf[1][i2 = abs(rand()) % l1] ^= 1;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1882 if ((err = pkcs_1_pss_decode(buf[0], l3, buf[1], l1, l3>>2, hash_idx, 1024, &res3)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1883 printf("PSS decode3: %s\n", error_to_string(err));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1884 exit(-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1885 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1886
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1887 if (!(res1 == 1 && res2 == 0 && res3 == 0)) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1888 printf("PSS failed: %d, %d, %d, %lu\n", res1, res2, res3, l3);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1889 exit(-1);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1890 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1891 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1892 printf("PKCS #1: Passed\n");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1893 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1894
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1895 #endif /* PKCS_1 */
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1896
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1897 int
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1898 main (void)
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1899 {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1900 #ifdef SONY_PS2
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1901 TIMER_Init ();
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1902 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1903 srand(time(NULL));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1904
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1905 register_all_algs ();
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1906
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1907 if ((errnum = yarrow_start (&prng)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1908 printf ("yarrow_start: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1909 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1910 if ((errnum = yarrow_add_entropy ((unsigned char *)"hello", 5, &prng)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1911 printf ("yarrow_add_entropy: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1912 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1913 if ((errnum = yarrow_ready (&prng)) != CRYPT_OK) {
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1914 printf ("yarrow_ready: %s\n", error_to_string (errnum));
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1915 }
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1916
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1917 printf (crypt_build_settings);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1918 test_errs ();
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1919
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1920 #ifdef HMAC
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1921 printf ("HMAC: %s\n", hmac_test () == CRYPT_OK ? "passed" : "failed");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1922 if (hmac_test() != CRYPT_OK) exit(EXIT_FAILURE);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1923 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1924
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1925 #ifdef OMAC
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1926 printf ("OMAC: %s\n", omac_test () == CRYPT_OK ? "passed" : "failed");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1927 if (omac_test() != CRYPT_OK) exit(EXIT_FAILURE);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1928 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1929
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1930 #ifdef PMAC
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1931 printf ("PMAC: %s\n", pmac_test () == CRYPT_OK ? "passed" : "failed");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1932 if (pmac_test() != CRYPT_OK) exit(EXIT_FAILURE);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1933 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1934
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1935 #ifdef EAX_MODE
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1936 printf ("EAX : %s\n", eax_test () == CRYPT_OK ? "passed" : "failed");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1937 if (eax_test() != CRYPT_OK) exit(EXIT_FAILURE);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1938 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1939
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1940 #ifdef OCB_MODE
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1941 printf ("OCB : %s\n", ocb_test () == CRYPT_OK ? "passed" : "failed");
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1942 if (ocb_test() != CRYPT_OK) exit(EXIT_FAILURE);
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1943 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1944
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1945 store_tests ();
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1946 cipher_tests ();
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1947 hash_tests ();
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1948
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1949 #ifdef PKCS_1
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1950 pkcs1_test();
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1951 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1952
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1953 ecb_tests ();
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1954 cbc_tests ();
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1955 ctr_tests ();
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1956 ofb_tests ();
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1957 cfb_tests ();
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1958
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1959 rng_tests ();
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1960 test_prime();
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1961
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1962 #ifdef KR
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1963 kr_test ();
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1964 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1965 dsa_tests();
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1966 rsa_test ();
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1967 pad_test ();
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1968 ecc_tests ();
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1969 dh_tests ();
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1970
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1971 gf_tests ();
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1972 base64_test ();
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1973
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1974 time_ecb ();
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1975 time_hash ();
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1976
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1977 #ifdef SONY_PS2
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1978 TIMER_Shutdown ();
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1979 #endif
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1980
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1981 return 0;
d7da3b1e1540 put back the 0.95 makefile which was inadvertently merged over Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1982 }

Mercurial > dropbear

annotate demos/test.c @ 0:d7da3b1e1540 libtomcrypt