Fatal: memory at 0x804a3dc corrupted (underflow=40)

[Ruediger Sonderfeld]

On Tuesday, 22. October 2002 16:31, you wrote:
> Correcte me if I'm wrong but...if you use RSA, the list is released at ++.
> Then the next if statement is not used (it's RSA) and then you release
> the list *again* at **. I would say this is not right.
>
> Only free the list again, if ELG is used.

Oh I'm an idiot. Thanks for your help.

But now I have another problem. I want to decrypt some data with RSA I use a 
function which I extracted and modified from gnupg-1.1.2 too

But now I recive this error and the program recives a SIGABRT

Fatal error: out of core in secure memory

What is now wrong?

(encrypted_data is a typedef for MPI and pkkey is the structur
typedef struct
{
  pk_key *pubkey; //public key
  pk_key *prikey; //private key
} pkkey;
)

int wcrypt_pkdecrypt(pkalgo algo,const encrypted_data *data,unsigned char* 
to,size_t tn,pkkey key)
{
  GCRY_SEXP s_skey,s_data,s_plain;
  int rc;
  MPI *result=NULL,*skey=key.prikey;

  switch(algo)
  {
  case GCRY_PK_ELG:
  case GCRY_PK_ELG_E:
    /* make a sexp from skey */
    if(gcry_sexp_build(&s_skey,NULL,
		       "(private-key(elg(p%m)(g%m)(y%m)(x%m)))",
		       skey[0], skey[1], skey[2], skey[3]))
      return -1;
    /* put data into a S-Exp s_data */
    
if(gcry_sexp_build(&s_data,NULL,"(enc-val(elg(a%m)(b%m)))",data[0],data[1]))
      return -1;
    break;
  case GCRY_PK_RSA:
    /* make a sexp from skey */
    if(gcry_sexp_build(&s_skey,NULL,
		       "(private-key(rsa(n%m)(e%m)(d%m)(p%m)(q%m)(u%m)))", 
		       skey[0], skey[1], skey[2], skey[3], skey[4], skey[5]))
    /* put data into a S-Exp s_data */  return -1;
    
    if(gcry_sexp_build(&s_data,NULL,"(enc-val(rsa(a%m)))",data[0])) 
//<----here the error occures
      return -1;
    break;
  default:
    return -1;
  }
  
  rc=gcry_pk_decrypt(&s_plain,s_data,s_skey);
  gcry_sexp_release(s_skey);
  gcry_sexp_release(s_data);
  if(rc)
    return rc;
  
  if(! (*result=gcry_sexp_nth_mpi(s_plain,0,0)))
  {
     gcry_sexp_release(s_plain);
     return -1;
  }

  gcry_mpi_print(GCRYMPI_FMT_USG,to,&tn,*result);
  gcry_sexp_release(s_plain);
  return 0;
}