Avoid "incomprehensible" errors when required definitions are missing.

[oweals/openssl.git] / crypto / asn1 / p5_pbe.c

diff --git a/crypto/asn1/p5_pbe.c b/crypto/asn1/p5_pbe.c
index a94d6c14d8d8d54728aa5834ac4862d945257b83..950d5650c18de6654c8ce18e9bea8db493873f53 100644 (file)
--- a/crypto/asn1/p5_pbe.c
+++ b/crypto/asn1/p5_pbe.c
@@ -58,18 +58,19 @@
 
 #include <stdio.h>
 #include "cryptlib.h"
-#include "asn1_mac.h"
+#include <openssl/asn1_mac.h>
+#include <openssl/rand.h>
 
 /* PKCS#5 password based encryption structure */
 
+#define PKCS5_SALT_LEN 8
+
 /*
- *ASN1err(ASN1_F_PBEPARAM_NEW,ASN1_R_DEOCDE_ERROR)
- *ASN1err(ASN1_F_D2I_PBEPARAM,ASN1_R_DEOCDE_ERROR)
+ *ASN1err(ASN1_F_PBEPARAM_NEW,ASN1_R_DECODE_ERROR)
+ *ASN1err(ASN1_F_D2I_PBEPARAM,ASN1_R_DECODE_ERROR)
  */
 
-int i2d_PBEPARAM(a, pp)
-PBEPARAM *a;
-unsigned char **pp;
+int i2d_PBEPARAM(PBEPARAM *a, unsigned char **pp)
 {
        M_ASN1_I2D_vars(a);
        M_ASN1_I2D_len (a->salt, i2d_ASN1_OCTET_STRING);
@@ -82,7 +83,7 @@ unsigned char **pp;
        M_ASN1_I2D_finish();
 }
 
-PBEPARAM *PBEPARAM_new()
+PBEPARAM *PBEPARAM_new(void)
 {
        PBEPARAM *ret=NULL;
        ASN1_CTX c;
@@ -93,10 +94,7 @@ PBEPARAM *PBEPARAM_new()
        M_ASN1_New_Error(ASN1_F_PBEPARAM_NEW);
 }
 
-PBEPARAM *d2i_PBEPARAM(a,pp,length)
-PBEPARAM **a;
-unsigned char **pp;
-long length;
+PBEPARAM *d2i_PBEPARAM(PBEPARAM **a, unsigned char **pp, long length)
 {
        M_ASN1_D2I_vars(a,PBEPARAM *,PBEPARAM_new);
        M_ASN1_D2I_Init();
@@ -106,11 +104,72 @@ long length;
        M_ASN1_D2I_Finish(a, PBEPARAM_free, ASN1_F_D2I_PBEPARAM);
 }
 
-void PBEPARAM_free (a)
-PBEPARAM *a;
+void PBEPARAM_free (PBEPARAM *a)
 {
        if(a==NULL) return;
        ASN1_OCTET_STRING_free(a->salt);
        ASN1_INTEGER_free (a->iter);
        Free ((char *)a);
 }
+
+/* Return an algorithm identifier for a PKCS#5 PBE algorithm */
+
+X509_ALGOR *PKCS5_pbe_set(int alg, int iter, unsigned char *salt,
+            int saltlen)
+{
+       unsigned char *pdata, *ptmp;
+       int plen;
+       PBEPARAM *pbe;
+       ASN1_OBJECT *al;
+       X509_ALGOR *algor;
+       ASN1_TYPE *astype;
+
+       if (!(pbe = PBEPARAM_new ())) {
+               ASN1err(ASN1_F_ASN1_PBE_SET,ERR_R_MALLOC_FAILURE);
+               return NULL;
+       }
+       ASN1_INTEGER_set (pbe->iter, iter);
+       if (!saltlen) saltlen = PKCS5_SALT_LEN;
+       if (!(pbe->salt->data = Malloc (saltlen))) {
+               ASN1err(ASN1_F_ASN1_PBE_SET,ERR_R_MALLOC_FAILURE);
+               return NULL;
+       }
+       pbe->salt->length = saltlen;
+       if (salt) memcpy (pbe->salt->data, salt, saltlen);
+       else RAND_bytes (pbe->salt->data, saltlen);
+       if (!(plen = i2d_PBEPARAM (pbe, NULL))) {
+               ASN1err(ASN1_F_ASN1_PBE_SET,ASN1_R_ENCODE_ERROR);
+               return NULL;
+       }
+       if (!(pdata = Malloc (plen))) {
+               ASN1err(ASN1_F_ASN1_PBE_SET,ERR_R_MALLOC_FAILURE);
+               return NULL;
+       }
+       ptmp = pdata;
+       i2d_PBEPARAM (pbe, &ptmp);
+       PBEPARAM_free (pbe);
+
+       if (!(astype = ASN1_TYPE_new())) {
+               ASN1err(ASN1_F_ASN1_PBE_SET,ERR_R_MALLOC_FAILURE);
+               return NULL;
+       }
+
+       astype->type = V_ASN1_SEQUENCE;
+       if (!(astype->value.sequence=ASN1_STRING_new())) {
+               ASN1err(ASN1_F_ASN1_PBE_SET,ERR_R_MALLOC_FAILURE);
+               return NULL;
+       }
+       ASN1_STRING_set (astype->value.sequence, pdata, plen);
+       Free (pdata);
+       
+       al = OBJ_nid2obj(alg); /* never need to free al */
+       if (!(algor = X509_ALGOR_new())) {
+               ASN1err(ASN1_F_ASN1_PBE_SET,ERR_R_MALLOC_FAILURE);
+               return NULL;
+       }
+       ASN1_OBJECT_free(algor->algorithm);
+       algor->algorithm = al;
+       algor->parameter = astype;
+
+       return (algor);
+}