xref: /minix3/crypto/external/bsd/openssl/dist/demos/sign/sign.c (revision 0a6a1f1d05b60e214de2f05a7310ddd1f0e590e7)
1ebfedea0SLionel Sambuc /* demos/sign/sign.c */
2ebfedea0SLionel Sambuc /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
3ebfedea0SLionel Sambuc  * All rights reserved.
4ebfedea0SLionel Sambuc  *
5ebfedea0SLionel Sambuc  * This package is an SSL implementation written
6ebfedea0SLionel Sambuc  * by Eric Young (eay@cryptsoft.com).
7ebfedea0SLionel Sambuc  * The implementation was written so as to conform with Netscapes SSL.
8ebfedea0SLionel Sambuc  *
9ebfedea0SLionel Sambuc  * This library is free for commercial and non-commercial use as long as
10ebfedea0SLionel Sambuc  * the following conditions are aheared to.  The following conditions
11ebfedea0SLionel Sambuc  * apply to all code found in this distribution, be it the RC4, RSA,
12ebfedea0SLionel Sambuc  * lhash, DES, etc., code; not just the SSL code.  The SSL documentation
13ebfedea0SLionel Sambuc  * included with this distribution is covered by the same copyright terms
14ebfedea0SLionel Sambuc  * except that the holder is Tim Hudson (tjh@cryptsoft.com).
15ebfedea0SLionel Sambuc  *
16ebfedea0SLionel Sambuc  * Copyright remains Eric Young's, and as such any Copyright notices in
17ebfedea0SLionel Sambuc  * the code are not to be removed.
18ebfedea0SLionel Sambuc  * If this package is used in a product, Eric Young should be given attribution
19ebfedea0SLionel Sambuc  * as the author of the parts of the library used.
20ebfedea0SLionel Sambuc  * This can be in the form of a textual message at program startup or
21ebfedea0SLionel Sambuc  * in documentation (online or textual) provided with the package.
22ebfedea0SLionel Sambuc  *
23ebfedea0SLionel Sambuc  * Redistribution and use in source and binary forms, with or without
24ebfedea0SLionel Sambuc  * modification, are permitted provided that the following conditions
25ebfedea0SLionel Sambuc  * are met:
26ebfedea0SLionel Sambuc  * 1. Redistributions of source code must retain the copyright
27ebfedea0SLionel Sambuc  *    notice, this list of conditions and the following disclaimer.
28ebfedea0SLionel Sambuc  * 2. Redistributions in binary form must reproduce the above copyright
29ebfedea0SLionel Sambuc  *    notice, this list of conditions and the following disclaimer in the
30ebfedea0SLionel Sambuc  *    documentation and/or other materials provided with the distribution.
31ebfedea0SLionel Sambuc  * 3. All advertising materials mentioning features or use of this software
32ebfedea0SLionel Sambuc  *    must display the following acknowledgement:
33ebfedea0SLionel Sambuc  *    "This product includes cryptographic software written by
34ebfedea0SLionel Sambuc  *     Eric Young (eay@cryptsoft.com)"
35ebfedea0SLionel Sambuc  *    The word 'cryptographic' can be left out if the rouines from the library
36ebfedea0SLionel Sambuc  *    being used are not cryptographic related :-).
37ebfedea0SLionel Sambuc  * 4. If you include any Windows specific code (or a derivative thereof) from
38ebfedea0SLionel Sambuc  *    the apps directory (application code) you must include an acknowledgement:
39ebfedea0SLionel Sambuc  *    "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
40ebfedea0SLionel Sambuc  *
41ebfedea0SLionel Sambuc  * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
42ebfedea0SLionel Sambuc  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
43ebfedea0SLionel Sambuc  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
44ebfedea0SLionel Sambuc  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
45ebfedea0SLionel Sambuc  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
46ebfedea0SLionel Sambuc  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
47ebfedea0SLionel Sambuc  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
48ebfedea0SLionel Sambuc  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
49ebfedea0SLionel Sambuc  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
50ebfedea0SLionel Sambuc  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
51ebfedea0SLionel Sambuc  * SUCH DAMAGE.
52ebfedea0SLionel Sambuc  *
53ebfedea0SLionel Sambuc  * The licence and distribution terms for any publically available version or
54ebfedea0SLionel Sambuc  * derivative of this code cannot be changed.  i.e. this code cannot simply be
55ebfedea0SLionel Sambuc  * copied and put under another distribution licence
56ebfedea0SLionel Sambuc  * [including the GNU Public Licence.]
57ebfedea0SLionel Sambuc  */
58ebfedea0SLionel Sambuc 
59*0a6a1f1dSLionel Sambuc /*
60*0a6a1f1dSLionel Sambuc  * sign-it.cpp - Simple test app using SSLeay envelopes to sign data
61*0a6a1f1dSLionel Sambuc  * 29.9.1996, Sampo Kellomaki <sampo@iki.fi>
62*0a6a1f1dSLionel Sambuc  */
63ebfedea0SLionel Sambuc 
64ebfedea0SLionel Sambuc /* converted to C - eay :-) */
65ebfedea0SLionel Sambuc 
66*0a6a1f1dSLionel Sambuc /*
67*0a6a1f1dSLionel Sambuc  * reformated a bit and converted to use the more common functions: this was
68ebfedea0SLionel Sambuc  * initially written at the dawn of time :-) - Steve.
69ebfedea0SLionel Sambuc  */
70ebfedea0SLionel Sambuc 
71ebfedea0SLionel Sambuc #include <stdio.h>
72ebfedea0SLionel Sambuc #include <openssl/rsa.h>
73ebfedea0SLionel Sambuc #include <openssl/evp.h>
74ebfedea0SLionel Sambuc #include <openssl/objects.h>
75ebfedea0SLionel Sambuc #include <openssl/x509.h>
76ebfedea0SLionel Sambuc #include <openssl/err.h>
77ebfedea0SLionel Sambuc #include <openssl/pem.h>
78ebfedea0SLionel Sambuc #include <openssl/ssl.h>
79ebfedea0SLionel Sambuc 
main()80ebfedea0SLionel Sambuc int main()
81ebfedea0SLionel Sambuc {
82ebfedea0SLionel Sambuc     int err;
83ebfedea0SLionel Sambuc     int sig_len;
84ebfedea0SLionel Sambuc     unsigned char sig_buf[4096];
85ebfedea0SLionel Sambuc     static char certfile[] = "cert.pem";
86ebfedea0SLionel Sambuc     static char keyfile[] = "key.pem";
87ebfedea0SLionel Sambuc     static char data[] = "I owe you...";
88ebfedea0SLionel Sambuc     EVP_MD_CTX md_ctx;
89ebfedea0SLionel Sambuc     EVP_PKEY *pkey;
90ebfedea0SLionel Sambuc     FILE *fp;
91ebfedea0SLionel Sambuc     X509 *x509;
92ebfedea0SLionel Sambuc 
93*0a6a1f1dSLionel Sambuc     /*
94*0a6a1f1dSLionel Sambuc      * Just load the crypto library error strings, SSL_load_error_strings()
95*0a6a1f1dSLionel Sambuc      * loads the crypto AND the SSL ones
96*0a6a1f1dSLionel Sambuc      */
97ebfedea0SLionel Sambuc     /* SSL_load_error_strings(); */
98ebfedea0SLionel Sambuc     ERR_load_crypto_strings();
99ebfedea0SLionel Sambuc 
100ebfedea0SLionel Sambuc     /* Read private key */
101ebfedea0SLionel Sambuc 
102ebfedea0SLionel Sambuc     fp = fopen(keyfile, "r");
103*0a6a1f1dSLionel Sambuc     if (fp == NULL)
104*0a6a1f1dSLionel Sambuc         exit(1);
105ebfedea0SLionel Sambuc     pkey = PEM_read_PrivateKey(fp, NULL, NULL, NULL);
106ebfedea0SLionel Sambuc     fclose(fp);
107ebfedea0SLionel Sambuc 
108ebfedea0SLionel Sambuc     if (pkey == NULL) {
109ebfedea0SLionel Sambuc         ERR_print_errors_fp(stderr);
110ebfedea0SLionel Sambuc         exit(1);
111ebfedea0SLionel Sambuc     }
112ebfedea0SLionel Sambuc 
113ebfedea0SLionel Sambuc     /* Do the signature */
114ebfedea0SLionel Sambuc 
115ebfedea0SLionel Sambuc     EVP_SignInit(&md_ctx, EVP_sha1());
116ebfedea0SLionel Sambuc     EVP_SignUpdate(&md_ctx, data, strlen(data));
117ebfedea0SLionel Sambuc     sig_len = sizeof(sig_buf);
118ebfedea0SLionel Sambuc     err = EVP_SignFinal(&md_ctx, sig_buf, &sig_len, pkey);
119ebfedea0SLionel Sambuc 
120ebfedea0SLionel Sambuc     if (err != 1) {
121ebfedea0SLionel Sambuc         ERR_print_errors_fp(stderr);
122ebfedea0SLionel Sambuc         exit(1);
123ebfedea0SLionel Sambuc     }
124ebfedea0SLionel Sambuc 
125ebfedea0SLionel Sambuc     EVP_PKEY_free(pkey);
126ebfedea0SLionel Sambuc 
127ebfedea0SLionel Sambuc     /* Read public key */
128ebfedea0SLionel Sambuc 
129ebfedea0SLionel Sambuc     fp = fopen(certfile, "r");
130*0a6a1f1dSLionel Sambuc     if (fp == NULL)
131*0a6a1f1dSLionel Sambuc         exit(1);
132ebfedea0SLionel Sambuc     x509 = PEM_read_X509(fp, NULL, NULL, NULL);
133ebfedea0SLionel Sambuc     fclose(fp);
134ebfedea0SLionel Sambuc 
135ebfedea0SLionel Sambuc     if (x509 == NULL) {
136ebfedea0SLionel Sambuc         ERR_print_errors_fp(stderr);
137ebfedea0SLionel Sambuc         exit(1);
138ebfedea0SLionel Sambuc     }
139ebfedea0SLionel Sambuc 
140ebfedea0SLionel Sambuc     /* Get public key - eay */
141ebfedea0SLionel Sambuc     pkey = X509_get_pubkey(x509);
142ebfedea0SLionel Sambuc     if (pkey == NULL) {
143ebfedea0SLionel Sambuc         ERR_print_errors_fp(stderr);
144ebfedea0SLionel Sambuc         exit(1);
145ebfedea0SLionel Sambuc     }
146ebfedea0SLionel Sambuc 
147ebfedea0SLionel Sambuc     /* Verify the signature */
148ebfedea0SLionel Sambuc 
149ebfedea0SLionel Sambuc     EVP_VerifyInit(&md_ctx, EVP_sha1());
150ebfedea0SLionel Sambuc     EVP_VerifyUpdate(&md_ctx, data, strlen((char *)data));
151ebfedea0SLionel Sambuc     err = EVP_VerifyFinal(&md_ctx, sig_buf, sig_len, pkey);
152ebfedea0SLionel Sambuc     EVP_PKEY_free(pkey);
153ebfedea0SLionel Sambuc 
154ebfedea0SLionel Sambuc     if (err != 1) {
155ebfedea0SLionel Sambuc         ERR_print_errors_fp(stderr);
156ebfedea0SLionel Sambuc         exit(1);
157ebfedea0SLionel Sambuc     }
158ebfedea0SLionel Sambuc     printf("Signature Verified Ok.\n");
159ebfedea0SLionel Sambuc     return (0);
160ebfedea0SLionel Sambuc }
161