New example program testecc.c

New advice for Texas DSP implementation - specifically C6713 DSP

config.c

@@ -93,9 +93,9 @@ int main()
     printf("enter the native wordlength of your computer\n\n");
     printf("For your information:-\n");
     printf("The size of a char  is %d bits\n",bitsinchar);
-    printf("The size of a short is %ld bits\n",bitsinchar*sizeof(short));
-    printf("The size of an int  is %ld bits\n",bitsinchar*sizeof(int));
-    printf("The size of a long  is %ld bits\n",bitsinchar*sizeof(long));
+    printf("The size of a short is %d bits\n",bitsinchar*sizeof(short));
+    printf("The size of an int  is %d bits\n",bitsinchar*sizeof(int));
+    printf("The size of a long  is %d bits\n",bitsinchar*sizeof(long));
 
     eps=1.0;
     for (dmant=0;;dmant++)
@@ -106,7 +106,7 @@ int main()
         eps/=2.0;
     }
 
-    printf("The size of a double is %ld bits, its mantissa is %d bits\n",bitsinchar*sizeof(double),dmant);
+    printf("The size of a double is %d bits, its mantissa is %d bits\n",bitsinchar*sizeof(double),dmant);
 
     leps=1.0; 
     for (lmant=0;;lmant++) 
@@ -116,7 +116,7 @@ int main()
         if (lx==ly) break; 
         leps/=2.0; 
     } 
-    printf("The size of a long double is %ld bits, its mantissa is %d bits\n",bitsinchar*sizeof(long double),lmant);
+    printf("The size of a long double is %d bits, its mantissa is %d bits\n",bitsinchar*sizeof(long double),lmant);
 
 
     fp=fopen("mirdef.tst","wt");
@@ -147,7 +147,7 @@ int main()
     no64=0;
     if (double_type)
     {
-      fprintf(fp,"#define MIRACL %ld\n",bitsinchar*sizeof(double));
+      fprintf(fp,"#define MIRACL %d\n",bitsinchar*sizeof(double));
       fprintf(fp,"#define mr_utype double\n");
       fprintf(fp,"#define mr_dltype long double\n");
       fprintf(fp,"#define MR_NOFULLWIDTH\n");
@@ -235,8 +235,8 @@ int main()
       }
     }
 
-    fprintf(fp,"#define MR_IBITS %ld\n",bitsinchar*sizeof(int));
-    fprintf(fp,"#define MR_LBITS %ld\n",bitsinchar*sizeof(long)); 
+    fprintf(fp,"#define MR_IBITS %d\n",bitsinchar*sizeof(int));
+    fprintf(fp,"#define MR_LBITS %d\n",bitsinchar*sizeof(long)); 
 
 /* Now try to find 32-bit unsigned types */
 
@@ -488,6 +488,7 @@ int main()
     fprintf(fpl,"mrshs256.c\n");
     fprintf(fpl,"mraes.c\n");
 	fprintf(fpl,"mrgcm.c\n");
+	fprintf(fpl,"mrfpe.c\n");
     fprintf(fpl,"mrstrong.c\n");
     fprintf(fpl,"mrcurve.c\n");
     fprintf(fpl,"mrbrick.c\n");
@@ -502,8 +503,11 @@ int main()
         fprintf(fpl,"mrfast.c\n");
         fprintf(fpl,"mralloc.c\n");
     }
-    if (chosen64) fprintf(fpl,"mrshs512.c\n");
-
+    if (chosen64)
+	{
+		fprintf(fpl,"mrshs512.c\n");
+		fprintf(fpl,"mrsha3.c\n");
+	}
     port=0;
     if (chosen && double_length_type)
     {

readme.txt

@@ -15,6 +15,7 @@ The distribution media contains the following files
   FASTGF2M.TXT    -    How to speed up methods based on the field GF(2^m)
   WIN64.TXT       -    64-bit Windows advice
   DEVCPP.TXT      -    DEV-CPP quick-start instructions
+  TEXASDSP.TXT    -    Texas C6713 DSP advice
   AMD64.TXT       -    AMD64 processor advice
   SSE2.TXT        -    SSE2 extensions advice
   PIC32.TXT       -    PIC32 processor advice
@@ -242,6 +243,11 @@ In the subdirectory SOURCE
   P1363.C      - P1363 implementation file
   TEST1363.c   - test driver for P1363 implementation
   RSA.C        - quick start RSA application
+  OCTET.C      - OCTET string handler
+  OCTET.H      - OCTET header
+  ECDH.C       - Elliptic Curve Code
+  ECDH.H       - Elliptic Curve Header
+  TESTECC.C    - Typical MIRACL Elliptic Curve API Implementation - thread-safe - no heap
 
   In the subdirectory SOURCE\CURVE\PAIRING
 

source/mrcomba.tpl

@@ -596,7 +596,7 @@ void comba_redc(_MIPD_ big t,big z)
     }
     if (z->w[MR_COMBA-1]>=modulus->w[MR_COMBA-1])
     {
-        if (compare(z,modulus)>=0)
+        if (mr_compare(z,modulus)>=0)
         {
 /*** DECREMENT ***/
         }
@@ -957,7 +957,7 @@ comba_sub(z,w,z);
     }
     if (z->w[MR_COMBA-1]>=modulus->w[MR_COMBA-1])
     {
-        if (compare(z,modulus)>=0)
+        if (mr_compare(z,modulus)>=0)
         {
 /*** DECREMENT ***/
         }

source/mrsha3.c

@@ -48,12 +48,12 @@ the CertiVox MIRACL Crypto SDK with a closed source product.               *
 /* round constants */
 
 static const mr_unsign64 RC[24]={
-0x0000000000000001,0x0000000000008082,0x800000000000808A,0x8000000080008000,
-0x000000000000808B,0x0000000080000001,0x8000000080008081,0x8000000000008009,
-0x000000000000008A,0x0000000000000088,0x0000000080008009,0x000000008000000A,
-0x000000008000808B,0x800000000000008B,0x8000000000008089,0x8000000000008003,
-0x8000000000008002,0x8000000000000080,0x000000000000800A,0x800000008000000A,
-0x8000000080008081,0x8000000000008080,0x0000000080000001,0x8000000080008008};
+0x0000000000000001LL,0x0000000000008082LL,0x800000000000808ALL,0x8000000080008000LL,
+0x000000000000808BLL,0x0000000080000001LL,0x8000000080008081LL,0x8000000000008009LL,
+0x000000000000008ALL,0x0000000000000088LL,0x0000000080008009LL,0x000000008000000ALL,
+0x000000008000808BLL,0x800000000000008BLL,0x8000000000008089LL,0x8000000000008003LL,
+0x8000000000008002LL,0x8000000000000080LL,0x000000000000800ALL,0x800000008000000ALL,
+0x8000000080008081LL,0x8000000000008080LL,0x0000000080000001LL,0x8000000080008008LL};
 
 /* functions  */
 

source/mrshs512.c

@@ -48,8 +48,6 @@ the CertiVox MIRACL Crypto SDK with a closed source product.               *
 
 #ifdef mr_unsign64
 
-
-#ifdef __GNUC__ 
 #define H0 0x6a09e667f3bcc908LL
 #define H1 0xbb67ae8584caa73bLL
 #define H2 0x3c6ef372fe94f82bLL
@@ -67,28 +65,9 @@ the CertiVox MIRACL Crypto SDK with a closed source product.               *
 #define HD 0x8eb44a8768581511LL
 #define HE 0xdb0c2e0d64f98fa7LL
 #define HF 0x47b5481dbefa4fa4LL
-#else
-#define H0 0x6a09e667f3bcc908
-#define H1 0xbb67ae8584caa73b
-#define H2 0x3c6ef372fe94f82b
-#define H3 0xa54ff53a5f1d36f1
-#define H4 0x510e527fade682d1
-#define H5 0x9b05688c2b3e6c1f
-#define H6 0x1f83d9abfb41bd6b
-#define H7 0x5be0cd19137e2179
-
-#define H8 0xcbbb9d5dc1059ed8
-#define H9 0x629a292a367cd507
-#define HA 0x9159015a3070dd17
-#define HB 0x152fecd8f70e5939
-#define HC 0x67332667ffc00b31
-#define HD 0x8eb44a8768581511
-#define HE 0xdb0c2e0d64f98fa7
-#define HF 0x47b5481dbefa4fa4
-#endif
+
 /* */
 
-#ifdef __GNUC__ 
 static const mr_unsign64 K[80]=
 {0x428a2f98d728ae22LL,0x7137449123ef65cdLL,0xb5c0fbcfec4d3b2fLL,0xe9b5dba58189dbbcLL,
 0x3956c25bf348b538LL,0x59f111f1b605d019LL,0x923f82a4af194f9bLL,0xab1c5ed5da6d8118LL,
@@ -110,29 +89,6 @@ static const mr_unsign64 K[80]=
 0x06f067aa72176fbaLL,0x0a637dc5a2c898a6LL,0x113f9804bef90daeLL,0x1b710b35131c471bLL,
 0x28db77f523047d84LL,0x32caab7b40c72493LL,0x3c9ebe0a15c9bebcLL,0x431d67c49c100d4cLL,
 0x4cc5d4becb3e42b6LL,0x597f299cfc657e2aLL,0x5fcb6fab3ad6faecLL,0x6c44198c4a475817LL};
-#else
-static const mr_unsign64 K[80]=
-{0x428a2f98d728ae22,0x7137449123ef65cd,0xb5c0fbcfec4d3b2f,0xe9b5dba58189dbbc,
-0x3956c25bf348b538,0x59f111f1b605d019,0x923f82a4af194f9b,0xab1c5ed5da6d8118,
-0xd807aa98a3030242,0x12835b0145706fbe,0x243185be4ee4b28c,0x550c7dc3d5ffb4e2,
-0x72be5d74f27b896f,0x80deb1fe3b1696b1,0x9bdc06a725c71235,0xc19bf174cf692694,
-0xe49b69c19ef14ad2,0xefbe4786384f25e3,0x0fc19dc68b8cd5b5,0x240ca1cc77ac9c65,
-0x2de92c6f592b0275,0x4a7484aa6ea6e483,0x5cb0a9dcbd41fbd4,0x76f988da831153b5,
-0x983e5152ee66dfab,0xa831c66d2db43210,0xb00327c898fb213f,0xbf597fc7beef0ee4,
-0xc6e00bf33da88fc2,0xd5a79147930aa725,0x06ca6351e003826f,0x142929670a0e6e70,
-0x27b70a8546d22ffc,0x2e1b21385c26c926,0x4d2c6dfc5ac42aed,0x53380d139d95b3df,
-0x650a73548baf63de,0x766a0abb3c77b2a8,0x81c2c92e47edaee6,0x92722c851482353b,
-0xa2bfe8a14cf10364,0xa81a664bbc423001,0xc24b8b70d0f89791,0xc76c51a30654be30,
-0xd192e819d6ef5218,0xd69906245565a910,0xf40e35855771202a,0x106aa07032bbd1b8,
-0x19a4c116b8d2d0c8,0x1e376c085141ab53,0x2748774cdf8eeb99,0x34b0bcb5e19b48a8,
-0x391c0cb3c5c95a63,0x4ed8aa4ae3418acb,0x5b9cca4f7763e373,0x682e6ff3d6b2b8a3,
-0x748f82ee5defb2fc,0x78a5636f43172f60,0x84c87814a1f0ab72,0x8cc702081a6439ec,
-0x90befffa23631e28,0xa4506cebde82bde9,0xbef9a3f7b2c67915,0xc67178f2e372532b,
-0xca273eceea26619c,0xd186b8c721c0c207,0xeada7dd6cde0eb1e,0xf57d4f7fee6ed178,
-0x06f067aa72176fba,0x0a637dc5a2c898a6,0x113f9804bef90dae,0x1b710b35131c471b,
-0x28db77f523047d84,0x32caab7b40c72493,0x3c9ebe0a15c9bebc,0x431d67c49c100d4c,
-0x4cc5d4becb3e42b6,0x597f299cfc657e2a,0x5fcb6fab3ad6faec,0x6c44198c4a475817};
-#endif
 
 #define PAD  0x80
 #define ZERO 0