← Back to branch summary

~ubuntu-branches/ubuntu/quantal/gnutls26/quantal

« back to all changes in this revision

Viewing changes to tests/pkcs12_encode.c

  • Committer: Bazaar Package Importer
  • Author(s): Steve Langasek
  • Date: 2011-05-20 13:07:18 UTC
  • mfrom: (12.1.11 sid)
  • Revision ID: james.westby@ubuntu.com-20110520130718-db41dybbanzfvlji
Tags: 2.10.5-1ubuntu1
* Merge from Debian unstable, remaining changes:
  - Fix build failure with --no-add-needed.
  - Build for multiarch.

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/pkcs12_encode.c
 
1
/*
 
2
 * Copyright (C) 2009, 2010 Free Software Foundation, Inc.
 
3
 *
 
4
 * Author: Simon Josefsson
 
5
 *
 
6
 * This file is part of GnuTLS.
 
7
 *
 
8
 * GnuTLS is free software; you can redistribute it and/or modify it
 
9
 * under the terms of the GNU General Public License as published by
 
10
 * the Free Software Foundation; either version 3 of the License, or
 
11
 * (at your option) any later version.
 
12
 *
 
13
 * GnuTLS is distributed in the hope that it will be useful, but
 
14
 * WITHOUT ANY WARRANTY; without even the implied warranty of
 
15
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 
16
 * General Public License for more details.
 
17
 *
 
18
 * You should have received a copy of the GNU General Public License
 
19
 * along with GnuTLS; if not, write to the Free Software Foundation,
 
20
 * Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA
 
21
 */
 
22
 
 
23
#ifdef HAVE_CONFIG_H
 
24
# include <config.h>
 
25
#endif
 
26
 
 
27
#include <gnutls/gnutls.h>
 
28
#include <gnutls/x509.h>
 
29
#include <gnutls/pkcs12.h>
 
30
 
 
31
#include "utils.h"
 
32
 
 
33
#include <error.h>
 
34
#include <stdio.h>
 
35
#include <stdlib.h>
 
36
 
 
37
static char client_pem[] =
 
38
  "-----BEGIN CERTIFICATE-----\n"
 
39
  "MIICHjCCAYmgAwIBAgIERiYdNzALBgkqhkiG9w0BAQUwGTEXMBUGA1UEAxMOR251\n"
 
40
  "VExTIHRlc3QgQ0EwHhcNMDcwNDE4MTMyOTI3WhcNMDgwNDE3MTMyOTI3WjAdMRsw\n"
 
41
  "GQYDVQQDExJHbnVUTFMgdGVzdCBjbGllbnQwgZwwCwYJKoZIhvcNAQEBA4GMADCB\n"
 
42
  "iAKBgLtmQ/Xyxde2jMzF3/WIO7HJS2oOoa0gUEAIgKFPXKPQ+GzP5jz37AR2ExeL\n"
 
43
  "ZIkiW8DdU3w77XwEu4C5KL6Om8aOoKUSy/VXHqLnu7czSZ/ju0quak1o/8kR4jKN\n"
 
44
  "zj2AC41179gAgY8oBAOgIo1hBAf6tjd9IQdJ0glhaZiQo1ipAgMBAAGjdjB0MAwG\n"
 
45
  "A1UdEwEB/wQCMAAwEwYDVR0lBAwwCgYIKwYBBQUHAwIwDwYDVR0PAQH/BAUDAweg\n"
 
46
  "ADAdBgNVHQ4EFgQUTLkKm/odNON+3svSBxX+odrLaJEwHwYDVR0jBBgwFoAU6Twc\n"
 
47
  "+62SbuYGpFYsouHAUyfI8pUwCwYJKoZIhvcNAQEFA4GBALujmBJVZnvaTXr9cFRJ\n"
 
48
  "jpfc/3X7sLUsMvumcDE01ls/cG5mIatmiyEU9qI3jbgUf82z23ON/acwJf875D3/\n"
 
49
  "U7jyOsBJ44SEQITbin2yUeJMIm1tievvdNXBDfW95AM507ShzP12sfiJkJfjjdhy\n"
 
50
  "dc8Siq5JojruiMizAf0pA7in\n" "-----END CERTIFICATE-----\n";
 
51
const gnutls_datum_t client_dat = { client_pem, sizeof (client_pem) };
 
52
 
 
53
static char ca_pem[] =
 
54
  "-----BEGIN CERTIFICATE-----\n"
 
55
  "MIIB5zCCAVKgAwIBAgIERiYdJzALBgkqhkiG9w0BAQUwGTEXMBUGA1UEAxMOR251\n"
 
56
  "VExTIHRlc3QgQ0EwHhcNMDcwNDE4MTMyOTExWhcNMDgwNDE3MTMyOTExWjAZMRcw\n"
 
57
  "FQYDVQQDEw5HbnVUTFMgdGVzdCBDQTCBnDALBgkqhkiG9w0BAQEDgYwAMIGIAoGA\n"
 
58
  "vuyYeh1vfmslnuggeEKgZAVmQ5ltSdUY7H25WGSygKMUYZ0KT74v8C780qtcNt9T\n"
 
59
  "7EPH/N6RvB4BprdssgcQLsthR3XKA84jbjjxNCcaGs33lvOz8A1nf8p3hD+cKfRi\n"
 
60
  "kfYSW2JazLrtCC4yRCas/SPOUxu78of+3HiTfFm/oXUCAwEAAaNDMEEwDwYDVR0T\n"
 
61
  "AQH/BAUwAwEB/zAPBgNVHQ8BAf8EBQMDBwQAMB0GA1UdDgQWBBTpPBz7rZJu5gak\n"
 
62
  "Viyi4cBTJ8jylTALBgkqhkiG9w0BAQUDgYEAiaIRqGfp1jPpNeVhABK60SU0KIAy\n"
 
63
  "njuu7kHq5peUgYn8Jd9zNzExBOEp1VOipGsf6G66oQAhDFp2o8zkz7ZH71zR4HEW\n"
 
64
  "KoX6n5Emn6DvcEH/9pAhnGxNHJAoS7czTKv/JDZJhkqHxyrE1fuLsg5Qv25DTw7+\n"
 
65
  "PfqUpIhz5Bbm7J4=\n" "-----END CERTIFICATE-----\n";
 
66
const gnutls_datum_t ca_dat = { ca_pem, sizeof (ca_pem) };
 
67
 
 
68
void
 
69
doit (void)
 
70
{
 
71
  gnutls_pkcs12_t pkcs12;
 
72
  gnutls_x509_crt_t client;
 
73
  gnutls_x509_crt_t ca;
 
74
  gnutls_pkcs12_bag_t bag;
 
75
  char key_id_buf[20];
 
76
  gnutls_datum_t key_id;
 
77
  int ret, indx;
 
78
  char outbuf[10240];
 
79
  size_t size;
 
80
  int i;
 
81
 
 
82
  ret = gnutls_global_init ();
 
83
  if (ret < 0)
 
84
    error (EXIT_FAILURE, 0, "gnutls_global_init %d", ret);
 
85
 
 
86
  /* Read certs. */
 
87
  ret = gnutls_x509_crt_init (&client);
 
88
  if (ret < 0)
 
89
    error (EXIT_FAILURE, 0, "crt_init: %d", ret);
 
90
 
 
91
  ret = gnutls_x509_crt_import (client, &client_dat, GNUTLS_X509_FMT_PEM);
 
92
  if (ret < 0)
 
93
    error (EXIT_FAILURE, 0, "crt_import: %d", ret);
 
94
 
 
95
  ret = gnutls_x509_crt_init (&ca);
 
96
  if (ret < 0)
 
97
    error (EXIT_FAILURE, 0, "ca_init: %d", ret);
 
98
 
 
99
  ret = gnutls_x509_crt_import (ca, &ca_dat, GNUTLS_X509_FMT_PEM);
 
100
  if (ret < 0)
 
101
    error (EXIT_FAILURE, 0, "ca_import: %d", ret);
 
102
 
 
103
  /* Create PKCS#12 structure. */
 
104
  ret = gnutls_pkcs12_init (&pkcs12);
 
105
  if (ret < 0)
 
106
    error (EXIT_FAILURE, 0, "pkcs12_init: %d", ret);
 
107
 
 
108
  /* Generate and add PKCS#12 cert bags. */
 
109
  for (i = 0; i < 2; i++)
 
110
    {
 
111
      ret = gnutls_pkcs12_bag_init (&bag);
 
112
      if (ret < 0)
 
113
        error (EXIT_FAILURE, 0, "bag_init: %d", ret);
 
114
 
 
115
      ret = gnutls_pkcs12_bag_set_crt (bag, i == 0 ? client : ca);
 
116
      if (ret < 0)
 
117
        error (EXIT_FAILURE, 0, "set_crt: %d", ret);
 
118
 
 
119
      indx = ret;
 
120
 
 
121
      ret = gnutls_pkcs12_bag_set_friendly_name (bag, indx,
 
122
                                                 i == 0 ? "client" : "ca");
 
123
      if (ret < 0)
 
124
        error (EXIT_FAILURE, 0, "set_friendly_name: %d", ret);
 
125
 
 
126
      size = sizeof (key_id_buf);
 
127
      ret = gnutls_x509_crt_get_key_id (i == 0 ? client : ca, 0,
 
128
                                        key_id_buf, &size);
 
129
      if (ret < 0)
 
130
        error (EXIT_FAILURE, 0, "get_key_id: %d", ret);
 
131
 
 
132
      key_id.data = key_id_buf;
 
133
      key_id.size = size;
 
134
 
 
135
      ret = gnutls_pkcs12_bag_set_key_id (bag, indx, &key_id);
 
136
      if (ret < 0)
 
137
        error (EXIT_FAILURE, 0, "bag_set_key_id: %d", ret);
 
138
 
 
139
      ret = gnutls_pkcs12_bag_encrypt (bag, "pass",
 
140
                                       i == 0 ? GNUTLS_PKCS8_USE_PKCS12_3DES
 
141
                                       : GNUTLS_PKCS_USE_PKCS12_RC2_40);
 
142
      if (ret < 0)
 
143
        error (EXIT_FAILURE, 0, "bag_encrypt: %d", ret);
 
144
 
 
145
      ret = gnutls_pkcs12_set_bag (pkcs12, bag);
 
146
      if (ret < 0)
 
147
        error (EXIT_FAILURE, 0, "set_bag: %d", ret);
 
148
 
 
149
      gnutls_pkcs12_bag_deinit (bag);
 
150
    }
 
151
 
 
152
  /* MAC the structure, export and print. */
 
153
  ret = gnutls_pkcs12_generate_mac (pkcs12, "pass");
 
154
  if (ret < 0)
 
155
    error (EXIT_FAILURE, 0, "generate_mac: %d", ret);
 
156
 
 
157
  size = sizeof (outbuf);
 
158
  ret = gnutls_pkcs12_export (pkcs12, GNUTLS_X509_FMT_PEM, outbuf, &size);
 
159
  if (ret < 0)
 
160
    error (EXIT_FAILURE, 0, "pkcs12_export: %d", ret);
 
161
 
 
162
  if (debug)
 
163
    fwrite (outbuf, size, 1, stdout);
 
164
 
 
165
  /* Cleanup. */
 
166
  gnutls_pkcs12_deinit (pkcs12);
 
167
  gnutls_x509_crt_deinit (client);
 
168
  gnutls_x509_crt_deinit (ca);
 
169
  gnutls_global_deinit ();
 
170
 
 
171
}