*pL = atoi(line);
*pdsa2 = 0;
*pN = 160;
- *pmd = EVP_sha1();
+ if (pmd)
+ *pmd = EVP_sha1();
return 1;
}
*pdsa2 = 1;
*p = 0;
- if (!parse_line(&keyword, &value, lbuf, line))
+ if (!parse_line2(&keyword, &value, lbuf, line, 0))
return 0;
if (strcmp(keyword, "L"))
return 0;
if (!p)
return 0;
*p = 0;
- if (!parse_line(&keyword, &value, lbuf, line))
+ if (!parse_line2(&keyword, &value, lbuf, line, 0))
return 0;
if (strcmp(keyword, "N"))
return 0;
return 1;
}
-
-
-static void pbn(const char *name, BIGNUM *bn)
- {
- int len, i;
- unsigned char *tmp;
- len = BN_num_bytes(bn);
- tmp = OPENSSL_malloc(len);
- if (!tmp)
- {
- fprintf(stderr, "Memory allocation error\n");
- return;
- }
- BN_bn2bin(bn, tmp);
- printf("%s = ", name);
- for (i = 0; i < len; i++)
- printf("%02X", tmp[i]);
- fputs("\n", stdout);
- OPENSSL_free(tmp);
- return;
- }
-
-static void primes()
+static void primes(FILE *in, FILE *out)
{
char buf[10240];
char lbuf[10240];
char *keyword, *value;
- while(fgets(buf,sizeof buf,stdin) != NULL)
+ while(fgets(buf,sizeof buf,in) != NULL)
{
- fputs(buf,stdout);
+ fputs(buf,out);
if (!parse_line(&keyword, &value, lbuf, buf))
continue;
if(!strcmp(keyword,"Prime"))
pp=BN_new();
do_hex2bn(&pp,value);
- printf("result= %c\n",
+ fprintf(out, "result= %c\n",
BN_is_prime_ex(pp,20,NULL,NULL) ? 'P' : 'F');
}
}
unsigned char *seed_out,
int *counter_ret, unsigned long *h_ret, BN_GENCB *cb);
-static void pqg()
+static void pqg(FILE *in, FILE *out)
{
char buf[1024];
char lbuf[1024];
int dsa2, L, N;
const EVP_MD *md = NULL;
- while(fgets(buf,sizeof buf,stdin) != NULL)
+ while(fgets(buf,sizeof buf,in) != NULL)
{
if (!parse_line(&keyword, &value, lbuf, buf))
{
- fputs(buf,stdout);
+ fputs(buf,out);
continue;
}
if(!strcmp(keyword,"[mod"))
{
- fputs(buf,stdout);
+ fputs(buf,out);
if (!parse_mod(value, &dsa2, &L, &N, &md))
{
fprintf(stderr, "Mod Parse Error\n");
exit(1);
}
- pbn("P",dsa->p);
- pbn("Q",dsa->q);
- pbn("G",dsa->g);
- pv("Seed",seed, M_EVP_MD_size(md));
- printf("c = %d\n",counter);
- printf("H = %lx\n",h);
- putc('\n',stdout);
+ do_bn_print_name(out, "P",dsa->p);
+ do_bn_print_name(out, "Q",dsa->q);
+ do_bn_print_name(out, "G",dsa->g);
+ OutputValue("Seed",seed, M_EVP_MD_size(md), out, 0);
+ fprintf(out, "c = %d\n",counter);
+ fprintf(out, "H = %lx\n\n",h);
}
}
else
- fputs(buf,stdout);
+ fputs(buf,out);
}
}
-static void pqgver()
+static void pqgver(FILE *in, FILE *out)
{
char buf[1024];
char lbuf[1024];
char *keyword, *value;
BIGNUM *p = NULL, *q = NULL, *g = NULL;
- int counter, counter2;
- unsigned long h, h2;
+ int counter=-1, counter2;
+ unsigned long h=0, h2;
DSA *dsa=NULL;
- int dsa2, L, N;
+ int dsa2, L, N, part_test = 0;
const EVP_MD *md = NULL;
- int seedlen;
+ int seedlen=-1;
unsigned char seed[1024];
- while(fgets(buf,sizeof buf,stdin) != NULL)
+ while(fgets(buf,sizeof buf,in) != NULL)
{
if (!parse_line(&keyword, &value, lbuf, buf))
{
- fputs(buf,stdout);
+ if (p && q)
+ {
+ part_test = 1;
+ goto partial;
+ }
+ fputs(buf,out);
continue;
}
- fputs(buf, stdout);
+ fputs(buf, out);
if(!strcmp(keyword,"[mod"))
{
if (!parse_mod(value, &dsa2, &L, &N, &md))
}
else if(!strcmp(keyword,"c"))
counter =atoi(buf+4);
- else if(!strcmp(keyword,"H"))
+ partial:
+ if(!strcmp(keyword,"H") || part_test)
{
- h = atoi(value);
- if (!p || !q || !g)
+ if (!part_test)
+ h = atoi(value);
+ if (!p || !q || (!g && !part_test))
{
fprintf(stderr, "Parse Error\n");
exit (1);
fprintf(stderr, "Parameter Generation error\n");
exit(1);
}
- if (BN_cmp(dsa->p, p) || BN_cmp(dsa->q, q) || BN_cmp(dsa->g, g)
- || (counter != counter2) || (h != h2))
- printf("Result = F\n");
+ if (BN_cmp(dsa->p, p) || BN_cmp(dsa->q, q) ||
+ (!part_test &&
+ ((BN_cmp(dsa->g, g) || (counter != counter2) || (h != h2)))))
+ fprintf(out, "Result = F\n");
else
- printf("Result = P\n");
+ fprintf(out, "Result = P\n");
BN_free(p);
BN_free(q);
BN_free(g);
g = NULL;
FIPS_dsa_free(dsa);
dsa = NULL;
+ if (part_test)
+ {
+ fputs(buf,out);
+ part_test = 0;
+ }
}
}
}
return 1;
}
-static void keyver()
+static void keyver(FILE *in, FILE *out)
{
char buf[1024];
char lbuf[1024];
ctx = BN_CTX_new();
Y2 = BN_new();
- while(fgets(buf,sizeof buf,stdin) != NULL)
+ while(fgets(buf,sizeof buf,in) != NULL)
{
if (!parse_line(&keyword, &value, lbuf, buf))
{
- fputs(buf,stdout);
+ fputs(buf,out);
continue;
}
if(!strcmp(keyword,"[mod"))
fprintf(stderr, "Parse Error\n");
exit (1);
}
- pbn("P",p);
- pbn("Q",q);
- pbn("G",g);
- pbn("X",X);
- pbn("Y",Y);
+ do_bn_print_name(out, "P",p);
+ do_bn_print_name(out, "Q",q);
+ do_bn_print_name(out, "G",g);
+ do_bn_print_name(out, "X",X);
+ do_bn_print_name(out, "Y",Y);
if (!paramcheck)
{
if (dss_paramcheck(L, N, p, q, g, ctx))
paramcheck = -1;
}
if (paramcheck != 1)
- printf("Result = F\n");
+ fprintf(out, "Result = F\n");
else
{
if (!BN_mod_exp(Y2, g, X, p, ctx) || BN_cmp(Y2, Y))
- printf("Result = F\n");
+ fprintf(out, "Result = F\n");
else
- printf("Result = P\n");
+ fprintf(out, "Result = P\n");
}
BN_free(X);
BN_free(Y);
BN_free(Y2);
}
-static void keypair()
+static void keypair(FILE *in, FILE *out)
{
char buf[1024];
char lbuf[1024];
char *keyword, *value;
int dsa2, L, N;
- while(fgets(buf,sizeof buf,stdin) != NULL)
+ while(fgets(buf,sizeof buf,in) != NULL)
{
if (!parse_line(&keyword, &value, lbuf, buf))
{
fprintf(stderr, "Mod Parse Error\n");
exit (1);
}
- fputs(buf,stdout);
+ fputs(buf,out);
}
else if(!strcmp(keyword,"N"))
{
fprintf(stderr, "Parameter Generation error\n");
exit(1);
}
- pbn("P",dsa->p);
- pbn("Q",dsa->q);
- pbn("G",dsa->g);
- putc('\n',stdout);
+ do_bn_print_name(out, "P",dsa->p);
+ do_bn_print_name(out, "Q",dsa->q);
+ do_bn_print_name(out, "G",dsa->g);
+ fputs("\n", out);
while(n--)
{
if (!DSA_generate_key(dsa))
exit(1);
- pbn("X",dsa->priv_key);
- pbn("Y",dsa->pub_key);
- putc('\n',stdout);
+ do_bn_print_name(out, "X",dsa->priv_key);
+ do_bn_print_name(out, "Y",dsa->pub_key);
+ fputs("\n", out);
}
}
}
}
-static void siggen()
+static void siggen(FILE *in, FILE *out)
{
char buf[1024];
char lbuf[1024];
const EVP_MD *md = NULL;
DSA *dsa=NULL;
- while(fgets(buf,sizeof buf,stdin) != NULL)
+ while(fgets(buf,sizeof buf,in) != NULL)
{
if (!parse_line(&keyword, &value, lbuf, buf))
{
- fputs(buf,stdout);
+ fputs(buf,out);
continue;
}
- fputs(buf,stdout);
+ fputs(buf,out);
if(!strcmp(keyword,"[mod"))
{
if (!parse_mod(value, &dsa2, &L, &N, &md))
fprintf(stderr, "Parameter Generation error\n");
exit(1);
}
- pbn("P",dsa->p);
- pbn("Q",dsa->q);
- pbn("G",dsa->g);
- putc('\n',stdout);
+ do_bn_print_name(out, "P",dsa->p);
+ do_bn_print_name(out, "Q",dsa->q);
+ do_bn_print_name(out, "G",dsa->g);
+ fputs("\n", out);
}
else if(!strcmp(keyword,"Msg"))
{
int n;
EVP_MD_CTX mctx;
DSA_SIG *sig;
- EVP_MD_CTX_init(&mctx);
+ FIPS_md_ctx_init(&mctx);
n=hex2bin(value,msg);
if (!DSA_generate_key(dsa))
exit(1);
- pbn("Y",dsa->pub_key);
+ do_bn_print_name(out, "Y",dsa->pub_key);
- EVP_DigestInit_ex(&mctx, md, NULL);
- EVP_DigestUpdate(&mctx, msg, n);
+ FIPS_digestinit(&mctx, md);
+ FIPS_digestupdate(&mctx, msg, n);
sig = FIPS_dsa_sign_ctx(dsa, &mctx);
- pbn("R",sig->r);
- pbn("S",sig->s);
- putc('\n',stdout);
- DSA_SIG_free(sig);
- EVP_MD_CTX_cleanup(&mctx);
+ do_bn_print_name(out, "R",sig->r);
+ do_bn_print_name(out, "S",sig->s);
+ fputs("\n", out);
+ FIPS_dsa_sig_free(sig);
+ FIPS_md_ctx_cleanup(&mctx);
}
}
if (dsa)
FIPS_dsa_free(dsa);
}
-static void sigver()
+static void sigver(FILE *in, FILE *out)
{
DSA *dsa=NULL;
char buf[1024];
sig->r = NULL;
sig->s = NULL;
- while(fgets(buf,sizeof buf,stdin) != NULL)
+ while(fgets(buf,sizeof buf,in) != NULL)
{
if (!parse_line(&keyword, &value, lbuf, buf))
{
- fputs(buf,stdout);
+ fputs(buf,out);
continue;
}
- fputs(buf,stdout);
+ fputs(buf,out);
if(!strcmp(keyword,"[mod"))
{
if (!parse_mod(value, &dsa2, &L, &N, &md))
{
EVP_MD_CTX mctx;
int r;
- EVP_MD_CTX_init(&mctx);
+ FIPS_md_ctx_init(&mctx);
sig->s=hex2bn(value);
- EVP_DigestInit_ex(&mctx, md, NULL);
- EVP_DigestUpdate(&mctx, msg, n);
+ FIPS_digestinit(&mctx, md);
+ FIPS_digestupdate(&mctx, msg, n);
no_err = 1;
r = FIPS_dsa_verify_ctx(dsa, &mctx, sig);
no_err = 0;
- EVP_MD_CTX_cleanup(&mctx);
+ FIPS_md_ctx_cleanup(&mctx);
- printf("Result = %c\n", r == 1 ? 'P' : 'F');
- putc('\n',stdout);
+ fprintf(out, "Result = %c\n\n", r == 1 ? 'P' : 'F');
}
}
}
int main(int argc,char **argv)
{
- if(argc != 2)
+ FILE *in, *out;
+ if (argc == 4)
+ {
+ in = fopen(argv[2], "r");
+ if (!in)
+ {
+ fprintf(stderr, "Error opening input file\n");
+ exit(1);
+ }
+ out = fopen(argv[3], "w");
+ if (!out)
+ {
+ fprintf(stderr, "Error opening output file\n");
+ exit(1);
+ }
+ }
+ else if (argc == 2)
+ {
+ in = stdin;
+ out = stdout;
+ }
+ else
{
fprintf(stderr,"%s [prime|pqg|pqgver|keypair|keyver|siggen|sigver]\n",argv[0]);
exit(1);
}
- fips_set_error_print();
- if(!FIPS_mode_set(1))
- exit(1);
+ fips_algtest_init();
if(!strcmp(argv[1],"prime"))
- primes();
+ primes(in, out);
else if(!strcmp(argv[1],"pqg"))
- pqg();
+ pqg(in, out);
else if(!strcmp(argv[1],"pqgver"))
- pqgver();
+ pqgver(in, out);
else if(!strcmp(argv[1],"keypair"))
- keypair();
+ keypair(in, out);
else if(!strcmp(argv[1],"keyver"))
- keyver();
+ keyver(in, out);
else if(!strcmp(argv[1],"siggen"))
- siggen();
+ siggen(in, out);
else if(!strcmp(argv[1],"sigver"))
- sigver();
+ sigver(in, out);
else
{
fprintf(stderr,"Don't know how to %s.\n",argv[1]);
exit(1);
}
+ if (argc == 4)
+ {
+ fclose(in);
+ fclose(out);
+ }
+
return 0;
}