partial DSA support
[gnupg.git] / cipher / dsa.c
1 /* dsa.c  -  DSA signature scheme
2  *      Copyright (C) 1998 Free Software Foundation, Inc.
3  *
4  * This file is part of GNUPG.
5  *
6  * GNUPG is free software; you can redistribute it and/or modify
7  * it under the terms of the GNU General Public License as published by
8  * the Free Software Foundation; either version 2 of the License, or
9  * (at your option) any later version.
10  *
11  * GNUPG is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14  * GNU General Public License for more details.
15  *
16  * You should have received a copy of the GNU General Public License
17  * along with this program; if not, write to the Free Software
18  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
19  */
20
21 #include <config.h>
22 #include <stdio.h>
23 #include <stdlib.h>
24 #include <string.h>
25 #include "util.h"
26 #include "mpi.h"
27 #include "cipher.h"
28 #include "dsa.h"
29
30
31 void
32 dsa_free_public_key( DSA_public_key *pk )
33 {
34     mpi_free( pk->p ); pk->p = NULL;
35     mpi_free( pk->q ); pk->q = NULL;
36     mpi_free( pk->g ); pk->g = NULL;
37     mpi_free( pk->y ); pk->y = NULL;
38 }
39
40 void
41 dsa_free_secret_key( DSA_secret_key *sk )
42 {
43     mpi_free( sk->p ); sk->p = NULL;
44     mpi_free( sk->q ); sk->q = NULL;
45     mpi_free( sk->g ); sk->g = NULL;
46     mpi_free( sk->y ); sk->y = NULL;
47     mpi_free( sk->x ); sk->x = NULL;
48 }
49
50
51 /****************
52  * Test wether the secret key is valid.
53  * Returns: if this is a valid key.
54  */
55 int
56 dsa_check_secret_key( DSA_secret_key *sk )
57 {
58     int rc;
59     MPI y = mpi_alloc( mpi_get_nlimbs(sk->y) );
60
61     mpi_powm( y, sk->g, sk->x, sk->p );
62     rc = !mpi_cmp( y, sk->y );
63     mpi_free( y );
64     return rc;
65 }
66
67
68
69 /****************
70  * Make a DSA signature out of INPUT
71  */
72
73 void
74 dsa_sign(MPI r, MPI s, MPI input, DSA_secret_key *skey )
75 {
76 }
77
78
79 /****************
80  * Returns true if the signature composed from R and S is valid.
81  */
82 int
83 dsa_verify(MPI r, MPI s, MPI input, DSA_public_key *pkey )
84 {
85     int rc;
86     MPI w, u1, u2, v;
87     MPI base[3];
88     MPI exp[3];
89
90     if( !(mpi_cmp_ui( r, 0 ) > 0 && mpi_cmp( r, pkey->q ) < 0) )
91         return 0; /* assertion  0 < r < q  failed */
92     if( !(mpi_cmp_ui( s, 0 ) > 0 && mpi_cmp( s, pkey->q ) < 0) )
93         return 0; /* assertion  0 < s < q  failed */
94
95     w  = mpi_alloc( mpi_get_nlimbs(pkey->q) );
96     u1 = mpi_alloc( mpi_get_nlimbs(pkey->q) );
97     u2 = mpi_alloc( mpi_get_nlimbs(pkey->q) );
98     v  = mpi_alloc( mpi_get_nlimbs(pkey->p) );
99
100     /* w = s^(-1) mod q */
101     mpi_invm( w, s, pkey->q );
102
103     /* u1 = (input * w) mod q */
104     mpi_mulm( u1, input, w, pkey->q );
105
106     /* u2 = r * w mod q  */
107     mpi_mulm( u2, r, w, pkey->q );
108
109     /* v =  g^u1 * y^u2 mod p mod q */
110     base[0] = pkey->g; exp[0] = u1;
111     base[1] = pkey->y; exp[1] = u2;
112     base[2] = NULL;    exp[2] = NULL;
113     mpi_mulpowm( v, base, exp, pkey->p );
114     mpi_fdiv_r( v, v, pkey->q );
115
116     rc = !mpi_cmp( v, r );
117
118     mpi_free(w);
119     mpi_free(u1);
120     mpi_free(u2);
121     mpi_free(v);
122     return rc;
123 }
124