Mercurial > dropbear

comparison testprof/ecc_test.c @ 280:59400faa4b44 libtomcrypt-orig libtomcrypt-1.05

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Re-import libtomcrypt 1.05 for cleaner propagating. From crypt-1.05.tar.bz2, SHA1 of 88250202bb51570dc64f7e8f1c943cda9479258f
author Matt Johnston <matt@ucc.asn.au>
date Wed, 08 Mar 2006 12:58:00 +0000
parents
children d5faf4814ddb
comparison
equal deleted inserted replaced
-1:000000000000 280:59400faa4b44
1 #include <tomcrypt_test.h>
2
3 #ifdef MECC
4
5 static int sizes[] = {
6 #ifdef ECC192
7 24,
8 #endif
9 #ifdef ECC224
10 28,
11 #endif
12 #ifdef ECC256
13 32,
14 #endif
15 #ifdef ECC384
16 48,
17 #endif
18 #ifdef ECC512
19 65
20 #endif
21 };
22
23 int ecc_tests (void)
24 {
25 unsigned char buf[4][4096];
26 unsigned long x, y, z, s;
27 int stat, stat2;
28 ecc_key usera, userb, pubKey, privKey;
29
30 DO(ecc_test ());
31
32 for (s = 0; s < (int)(sizeof(sizes)/sizeof(sizes[0])); s++) {
33 /* make up two keys */
34 DO(ecc_make_key (&yarrow_prng, find_prng ("yarrow"), sizes[s], &usera));
35 DO(ecc_make_key (&yarrow_prng, find_prng ("yarrow"), sizes[s], &userb));
36
37 /* make the shared secret */
38 x = 4096;
39 DO(ecc_shared_secret (&usera, &userb, buf[0], &x));
40
41 y = 4096;
42 DO(ecc_shared_secret (&userb, &usera, buf[1], &y));
43
44 if (y != x) {
45 fprintf(stderr, "ecc Shared keys are not same size.");
46 return 1;
47 }
48
49 if (memcmp (buf[0], buf[1], x)) {
50 fprintf(stderr, "ecc Shared keys not same contents.");
51 return 1;
52 }
53
54 /* now export userb */
55 y = 4096;
56 DO(ecc_export (buf[1], &y, PK_PUBLIC, &userb));
57 ecc_free (&userb);
58
59 /* import and make the shared secret again */
60 DO(ecc_import (buf[1], y, &userb));
61
62 z = 4096;
63 DO(ecc_shared_secret (&usera, &userb, buf[2], &z));
64
65 if (z != x) {
66 fprintf(stderr, "failed. Size don't match?");
67 return 1;
68 }
69 if (memcmp (buf[0], buf[2], x)) {
70 fprintf(stderr, "Failed. Contents didn't match.");
71 return 1;
72 }
73 ecc_free (&usera);
74 ecc_free (&userb);
75
76 /* test encrypt_key */
77 DO(ecc_make_key (&yarrow_prng, find_prng ("yarrow"), sizes[s], &usera));
78
79 /* export key */
80 x = sizeof(buf[0]);
81 DO(ecc_export(buf[0], &x, PK_PUBLIC, &usera));
82 DO(ecc_import(buf[0], x, &pubKey));
83 x = sizeof(buf[0]);
84 DO(ecc_export(buf[0], &x, PK_PRIVATE, &usera));
85 DO(ecc_import(buf[0], x, &privKey));
86
87 for (x = 0; x < 32; x++) {
88 buf[0][x] = x;
89 }
90 y = sizeof (buf[1]);
91 DO(ecc_encrypt_key (buf[0], 32, buf[1], &y, &yarrow_prng, find_prng ("yarrow"), find_hash ("sha256"), &pubKey));
92 zeromem (buf[0], sizeof (buf[0]));
93 x = sizeof (buf[0]);
94 DO(ecc_decrypt_key (buf[1], y, buf[0], &x, &privKey));
95 if (x != 32) {
96 fprintf(stderr, "Failed (length)");
97 return 1;
98 }
99 for (x = 0; x < 32; x++) {
100 if (buf[0][x] != x) {
101 fprintf(stderr, "Failed (contents)");
102 return 1;
103 }
104 }
105 /* test sign_hash */
106 for (x = 0; x < 16; x++) {
107 buf[0][x] = x;
108 }
109 x = sizeof (buf[1]);
110 DO(ecc_sign_hash (buf[0], 16, buf[1], &x, &yarrow_prng, find_prng ("yarrow"), &privKey));
111 DO(ecc_verify_hash (buf[1], x, buf[0], 16, &stat, &pubKey));
112 buf[0][0] ^= 1;
113 DO(ecc_verify_hash (buf[1], x, buf[0], 16, &stat2, &privKey));
114 if (!(stat == 1 && stat2 == 0)) {
115 fprintf(stderr, "ecc_verify_hash failed %d, %d, ", stat, stat2);
116 return 1;
117 }
118 ecc_free (&usera);
119 ecc_free (&pubKey);
120 ecc_free (&privKey);
121 }
122 return 0;
123 }
124
125 #else
126
127 int ecc_tests(void)
128 {
129 fprintf(stderr, "NOP");
130 return 0;
131 }
132
133 #endif
134
135 /* $Source: /cvs/libtom/libtomcrypt/testprof/ecc_test.c,v $ */
136 /* $Revision: 1.9 $ */
137 /* $Date: 2005/06/14 19:43:29 $ */