- if (mpz_sizeinbase(&st->e, 256) > RSA_MAX_MODBYTES) {
- cfgfatal(loc, "rsa-public", "implausibly large public exponent\n");
- }
-
- i=list_elem(args,1);
- if (i) {
- if (i->type!=t_string) {
- cfgfatal(i->loc,"rsa-public","second argument must be a string\n");
- }
- n=i->data.string;
- if (mpz_init_set_str(&st->n,n,10)!=0) {
- cfgfatal(i->loc,"rsa-public","modulus \"%s\" is not a decimal "
- "number string\n",n);
- }
- } else {
- cfgfatal(loc,"rsa-public","you must provide a modulus\n");
- }
- if (mpz_sizeinbase(&st->n, 256) > RSA_MAX_MODBYTES) {
- cfgfatal(loc, "rsa-public", "implausibly large modulus\n");
- }
- return new_closure(&st->cl);