+static char *find_friendly_name(PKCS12 *p12)
+{
+ STACK_OF(PKCS7) *safes = PKCS12_unpack_authsafes(p12);
+ int n, m;
+ char *name = NULL;
+ PKCS7 *safe;
+ STACK_OF(PKCS12_SAFEBAG) *bags;
+ PKCS12_SAFEBAG *bag;
+
+ if ((safes = PKCS12_unpack_authsafes(p12)) == NULL)
+ return NULL;
+
+ for (n = 0; n < sk_PKCS7_num(safes) && name == NULL; n++) {
+ safe = sk_PKCS7_value(safes, n);
+ if (OBJ_obj2nid(safe->type) != NID_pkcs7_data
+ || (bags = PKCS12_unpack_p7data(safe)) == NULL)
+ continue;
+
+ for (m = 0; m < sk_PKCS12_SAFEBAG_num(bags) && name == NULL; m++) {
+ bag = sk_PKCS12_SAFEBAG_value(bags, m);
+ name = PKCS12_get_friendlyname(bag);
+ }
+ sk_PKCS12_SAFEBAG_pop_free(bags, PKCS12_SAFEBAG_free);
+ }
+
+ sk_PKCS7_pop_free(safes, PKCS7_free);
+
+ return name;
+}
+