Update mechanism: split update.c
[vlc.git] / src / misc / update_crypto.c
1 /*****************************************************************************
2  * update_crypto.c: DSA/SHA1 related functions used for updating
3  *****************************************************************************
4  * Copyright © 2008-2009 the VideoLAN team
5  * $Id$
6  *
7  * Authors: Rafaël Carré <funman@videolanorg>
8  *
9  * This program is free software; you can redistribute it and/or modify
10  * it under the terms of the GNU General Public License as published by
11  * the Free Software Foundation; either release 2 of the License, or
12  * (at your option) any later release.
13  *
14  * This program is distributed in the hope that it will be useful,
15  * but WITHOUT ANY WARRANTY; without even the implied warranty of
16  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
17  * GNU General Public License for more details.
18  *
19  * You should have received a copy of the GNU General Public License
20  * along with this program; if not, write to the Free Software
21  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111, USA.
22  *****************************************************************************/
23
24 /**
25  *   \file
26  *   This file contains functions related to OpenPGP in VLC update management
27  */
28
29 /*****************************************************************************
30  * Preamble
31  *****************************************************************************/
32
33 #ifdef HAVE_CONFIG_H
34 # include "config.h"
35 #endif
36
37 #include <gcrypt.h>
38 #include <assert.h>
39
40 #include "vlc_common.h"
41 #include <vlc_stream.h>
42 #include <vlc_strings.h>
43 #include <vlc_charset.h>
44
45 #include "update.h"
46
47
48 /*****************************************************************************
49  * OpenPGP functions
50  *****************************************************************************/
51
52 #define packet_type( c ) ( ( c & 0x3c ) >> 2 )      /* 0x3C = 00111100 */
53 #define packet_header_len( c ) ( ( c & 0x03 ) + 1 ) /* number of bytes in a packet header */
54
55
56 static inline int scalar_number( uint8_t *p, int header_len )
57 {
58     assert( header_len == 1 || header_len == 2 || header_len == 4 );
59
60     if( header_len == 1 )
61         return( p[0] );
62     else if( header_len == 2 )
63         return( (p[0] << 8) + p[1] );
64     else if( header_len == 4 )
65         return( (p[0] << 24) + (p[1] << 16) + (p[2] << 8) + p[3] );
66     else
67         abort();
68 }
69
70
71 /* number of data bytes in a MPI */
72 #define mpi_len( mpi ) ( ( scalar_number( mpi, 2 ) + 7 ) / 8 )
73
74
75 /*
76  * fill a public_key_packet_t structure from public key packet data
77  * verify that it is a version 4 public key packet, using DSA
78  */
79 static int parse_public_key_packet( public_key_packet_t *p_key, uint8_t *p_buf,
80                                     size_t i_packet_len )
81 {
82
83     if( i_packet_len > 418 || i_packet_len < 6 )
84         return VLC_EGENERIC;
85
86     size_t i_read = 0;
87
88     p_key->version   = *p_buf++; i_read++;
89     if( p_key->version != 4 )
90         return VLC_EGENERIC;
91
92     /* XXX: warn when timestamp is > date ? */
93     memcpy( p_key->timestamp, p_buf, 4 ); p_buf += 4; i_read += 4;
94
95     p_key->algo      = *p_buf++; i_read++;
96     if( p_key->algo != PUBLIC_KEY_ALGO_DSA )
97         return VLC_EGENERIC;
98
99     /* read p */
100     if( i_read + 2 > i_packet_len )
101         return VLC_EGENERIC;
102
103     int i_p_len = mpi_len( p_buf );
104
105     if( i_p_len > 128 || i_read + 2 + i_p_len > i_packet_len )
106         return VLC_EGENERIC;
107
108     memcpy( p_key->p, p_buf, 2+i_p_len );
109     p_buf += 2+i_p_len; i_read += 2+i_p_len;
110
111     /* read q */
112     if( i_read + 2 > i_packet_len )
113         return VLC_EGENERIC;
114
115     int i_q_len = mpi_len( p_buf );
116
117     if( i_q_len > 20 || i_read+2+i_q_len > i_packet_len )
118         return VLC_EGENERIC;
119
120     memcpy( p_key->q, p_buf, 2+i_q_len );
121     p_buf += 2+i_q_len; i_read += 2+i_q_len;
122
123     /* read g */
124     if( i_read + 2 > i_packet_len )
125         return VLC_EGENERIC;
126
127     int i_g_len = mpi_len( p_buf );
128
129     if( i_g_len > 128 || i_read+2+i_g_len > i_packet_len )
130         return VLC_EGENERIC;
131
132     memcpy( p_key->g, p_buf, 2+i_g_len );
133     p_buf += 2+i_g_len; i_read += 2+i_g_len;
134
135     /* read y */
136     if( i_read + 2 > i_packet_len )
137         return VLC_EGENERIC;
138
139     int i_y_len = mpi_len( p_buf );
140
141
142     if( i_y_len > 128 || i_read+2+i_y_len > i_packet_len )
143         return VLC_EGENERIC;
144
145     memcpy( p_key->y, p_buf, 2+i_y_len );
146     i_read += 2+i_y_len;
147
148     if( i_read != i_packet_len ) /* some extra data eh ? */
149         return VLC_EGENERIC;
150
151     return VLC_SUCCESS;
152 }
153
154
155 static size_t parse_signature_v3_packet( signature_packet_t *p_sig,
156                                       uint8_t *p_buf, size_t i_sig_len )
157 {
158     size_t i_read = 1; /* we already read the version byte */
159
160     if( i_sig_len < 19 ) /* signature is at least 19 bytes + the 2 MPIs */
161         return 0;
162
163     p_sig->specific.v3.hashed_data_len = *p_buf++; i_read++;
164     if( p_sig->specific.v3.hashed_data_len != 5 )
165         return 0;
166
167     p_sig->type = *p_buf++; i_read++;
168
169     memcpy( p_sig->specific.v3.timestamp, p_buf, 4 );
170     p_buf += 4; i_read += 4;
171
172     memcpy( p_sig->issuer_longid, p_buf, 8 );
173     p_buf += 8; i_read += 8;
174
175     p_sig->public_key_algo = *p_buf++; i_read++;
176
177     p_sig->digest_algo = *p_buf++; i_read++;
178
179     p_sig->hash_verification[0] = *p_buf++; i_read++;
180     p_sig->hash_verification[1] = *p_buf++; i_read++;
181
182     assert( i_read == 19 );
183
184     return i_read;
185 }
186
187
188 /*
189  * fill a signature_packet_v4_t from signature packet data
190  * verify that it was used with a DSA public key, using SHA-1 digest
191  */
192 static size_t parse_signature_v4_packet( signature_packet_t *p_sig,
193                                       uint8_t *p_buf, size_t i_sig_len )
194 {
195     size_t i_read = 1; /* we already read the version byte */
196
197     if( i_sig_len < 10 ) /* signature is at least 10 bytes + the 2 MPIs */
198         return 0;
199
200     p_sig->type = *p_buf++; i_read++;
201
202     p_sig->public_key_algo = *p_buf++; i_read++;
203
204     p_sig->digest_algo = *p_buf++; i_read++;
205
206     memcpy( p_sig->specific.v4.hashed_data_len, p_buf, 2 );
207     p_buf += 2; i_read += 2;
208
209     size_t i_hashed_data_len =
210         scalar_number( p_sig->specific.v4.hashed_data_len, 2 );
211     i_read += i_hashed_data_len;
212     if( i_read + 4 > i_sig_len )
213         return 0;
214
215     p_sig->specific.v4.hashed_data = (uint8_t*) malloc( i_hashed_data_len );
216     if( !p_sig->specific.v4.hashed_data )
217         return 0;
218     memcpy( p_sig->specific.v4.hashed_data, p_buf, i_hashed_data_len );
219     p_buf += i_hashed_data_len;
220
221     memcpy( p_sig->specific.v4.unhashed_data_len, p_buf, 2 );
222     p_buf += 2; i_read += 2;
223
224     size_t i_unhashed_data_len =
225         scalar_number( p_sig->specific.v4.unhashed_data_len, 2 );
226     i_read += i_unhashed_data_len;
227     if( i_read + 2 > i_sig_len )
228         return 0;
229
230     p_sig->specific.v4.unhashed_data = (uint8_t*) malloc( i_unhashed_data_len );
231     if( !p_sig->specific.v4.unhashed_data )
232         return 0;
233
234     memcpy( p_sig->specific.v4.unhashed_data, p_buf, i_unhashed_data_len );
235     p_buf += i_unhashed_data_len;
236
237     memcpy( p_sig->hash_verification, p_buf, 2 );
238     p_buf += 2; i_read += 2;
239
240     uint8_t *p, *max_pos;
241     p = p_sig->specific.v4.unhashed_data;
242     max_pos = p + scalar_number( p_sig->specific.v4.unhashed_data_len, 2 );
243
244     for( ;; )
245     {
246         if( p > max_pos )
247             return 0;
248
249         size_t i_subpacket_len;
250         if( *p < 192 )
251         {
252             if( p + 1 > max_pos )
253                 return 0;
254             i_subpacket_len = *p++;
255         }
256         else if( *p < 255 )
257         {
258             if( p + 2 > max_pos )
259                 return 0;
260             i_subpacket_len = (*p++ - 192) << 8;
261             i_subpacket_len += *p++ + 192;
262         }
263         else
264         {
265             if( p + 4 > max_pos )
266                 return 0;
267             i_subpacket_len = *++p << 24;
268             i_subpacket_len += *++p << 16;
269             i_subpacket_len += *++p << 8;
270             i_subpacket_len += *++p;
271         }
272
273         if( *p == ISSUER_SUBPACKET )
274         {
275             if( p + 9 > max_pos )
276                 return 0;
277
278             memcpy( &p_sig->issuer_longid, p+1, 8 );
279
280             return i_read;
281         }
282
283         p += i_subpacket_len;
284     }
285 }
286
287
288 static int parse_signature_packet( signature_packet_t *p_sig,
289                                    uint8_t *p_buf, size_t i_sig_len )
290 {
291     if( !i_sig_len ) /* 1st sanity check, we need at least the version */
292         return VLC_EGENERIC;
293
294     p_sig->version = *p_buf++;
295
296     size_t i_read;
297     switch( p_sig->version )
298     {
299         case 3:
300             i_read = parse_signature_v3_packet( p_sig, p_buf, i_sig_len );
301             break;
302         case 4:
303             p_sig->specific.v4.hashed_data = NULL;
304             p_sig->specific.v4.unhashed_data = NULL;
305             i_read = parse_signature_v4_packet( p_sig, p_buf, i_sig_len );
306             break;
307         default:
308             return VLC_EGENERIC;
309     }
310
311     if( i_read == 0 ) /* signature packet parsing has failed */
312         goto error;
313
314     if( p_sig->public_key_algo != PUBLIC_KEY_ALGO_DSA )
315         goto error;
316
317     if( p_sig->digest_algo != DIGEST_ALGO_SHA1 )
318         goto error;
319
320     switch( p_sig->type )
321     {
322         case BINARY_SIGNATURE:
323         case TEXT_SIGNATURE:
324         case GENERIC_KEY_SIGNATURE:
325         case PERSONA_KEY_SIGNATURE:
326         case CASUAL_KEY_SIGNATURE:
327         case POSITIVE_KEY_SIGNATURE:
328             break;
329         default:
330             goto error;
331     }
332
333     p_buf--; /* rewind to the version byte */
334     p_buf += i_read;
335
336     if( i_read + 2 > i_sig_len )
337         goto error;
338
339     size_t i_r_len = mpi_len( p_buf ); i_read += 2;
340     if( i_read + i_r_len > i_sig_len || i_r_len > 20 )
341         goto error;
342
343     memcpy( p_sig->r, p_buf, 2 + i_r_len );
344     p_buf += 2 + i_r_len;
345     i_read += i_r_len;
346
347     if( i_read + 2 > i_sig_len )
348         goto error;
349
350     size_t i_s_len = mpi_len( p_buf ); i_read += 2;
351     if( i_read + i_s_len > i_sig_len || i_s_len > 20 )
352         goto error;
353
354     memcpy( p_sig->s, p_buf, 2 + i_s_len );
355     p_buf += 2 + i_s_len;
356     i_read += i_s_len;
357
358     assert( i_read == i_sig_len );
359     if( i_read < i_sig_len ) /* some extra data, hm ? */
360         goto error;
361
362     return VLC_SUCCESS;
363
364 error:
365
366     if( p_sig->version == 4 )
367     {
368         free( p_sig->specific.v4.hashed_data );
369         free( p_sig->specific.v4.unhashed_data );
370     }
371
372     return VLC_EGENERIC;
373 }
374
375
376 /*
377  * crc_octets() was lamely copied from rfc 2440
378  * Copyright (C) The Internet Society (1998).  All Rights Reserved.
379  */
380 #define CRC24_INIT 0xB704CEL
381 #define CRC24_POLY 0x1864CFBL
382
383 static long crc_octets( uint8_t *octets, size_t len )
384 {
385     long crc = CRC24_INIT;
386     int i;
387     while (len--)
388     {
389         crc ^= (*octets++) << 16;
390         for (i = 0; i < 8; i++)
391         {
392             crc <<= 1;
393             if (crc & 0x1000000)
394                 crc ^= CRC24_POLY;
395         }
396     }
397     return crc & 0xFFFFFFL;
398 }
399
400
401 /*
402  * Transform an armored document in binary format
403  * Used on public keys and signatures
404  */
405 static int pgp_unarmor( char *p_ibuf, size_t i_ibuf_len,
406                         uint8_t *p_obuf, size_t i_obuf_len )
407 {
408     char *p_ipos = p_ibuf;
409     uint8_t *p_opos = p_obuf;
410     int i_end = 0;
411     int i_header_skipped = 0;
412
413     while( !i_end && p_ipos < p_ibuf + i_ibuf_len && *p_ipos != '=' )
414     {
415         if( *p_ipos == '\r' || *p_ipos == '\n' )
416         {
417             p_ipos++;
418             continue;
419         }
420
421         size_t i_line_len = strcspn( p_ipos, "\r\n" );
422         if( i_line_len == 0 )
423             continue;
424
425         if( !i_header_skipped )
426         {
427             if( !strncmp( p_ipos, "-----BEGIN PGP", 14 ) )
428                 i_header_skipped = 1;
429
430             p_ipos += i_line_len + 1;
431             continue;
432         }
433
434         if( !strncmp( p_ipos, "Version:", 8 ) )
435         {
436             p_ipos += i_line_len + 1;
437             continue;
438         }
439
440         if( p_ipos[i_line_len - 1] == '=' )
441         {
442             i_end = 1;
443             p_ipos[i_line_len - 1] = '\0';
444         }
445         else
446             p_ipos[i_line_len] = '\0';
447
448         p_opos += vlc_b64_decode_binary_to_buffer(  p_opos,
449                         p_obuf - p_opos + i_obuf_len, p_ipos );
450         p_ipos += i_line_len + 1;
451     }
452
453     /* XXX: the CRC is OPTIONAL, really require it ? */
454     if( p_ipos + 5 > p_ibuf + i_ibuf_len || *p_ipos++ != '=' )
455         return 0;
456
457     uint8_t p_crc[3];
458     if( vlc_b64_decode_binary_to_buffer( p_crc, 3, p_ipos ) != 3 )
459         return 0;
460
461     long l_crc = crc_octets( p_obuf, p_opos - p_obuf );
462     long l_crc2 = ( 0 << 24 ) + ( p_crc[0] << 16 ) + ( p_crc[1] << 8 ) + p_crc[2];
463
464     return l_crc2 == l_crc ? p_opos - p_obuf : 0;
465 }
466
467
468 /*
469  * Verify an OpenPGP signature made on some SHA-1 hash, with some DSA public key
470  */
471 int verify_signature( uint8_t *p_r, uint8_t *p_s, public_key_packet_t *p_key,
472                       uint8_t *p_hash )
473 {
474     /* the data to be verified (a SHA-1 hash) */
475     const char *hash_sexp_s = "(data(flags raw)(value %m))";
476     /* the public key */
477     const char *key_sexp_s = "(public-key(dsa(p %m)(q %m)(g %m)(y %m)))";
478     /* the signature */
479     const char *sig_sexp_s = "(sig-val(dsa(r %m )(s %m )))";
480
481     size_t erroff;
482     gcry_mpi_t p, q, g, y, r, s, hash;
483     p = q = g = y = r = s = hash = NULL;
484     gcry_sexp_t key_sexp, hash_sexp, sig_sexp;
485     key_sexp = hash_sexp = sig_sexp = NULL;
486
487     int i_p_len = mpi_len( p_key->p );
488     int i_q_len = mpi_len( p_key->q );
489     int i_g_len = mpi_len( p_key->g );
490     int i_y_len = mpi_len( p_key->y );
491     if( gcry_mpi_scan( &p, GCRYMPI_FMT_USG, p_key->p + 2, i_p_len, NULL ) ||
492         gcry_mpi_scan( &q, GCRYMPI_FMT_USG, p_key->q + 2, i_q_len, NULL ) ||
493         gcry_mpi_scan( &g, GCRYMPI_FMT_USG, p_key->g + 2, i_g_len, NULL ) ||
494         gcry_mpi_scan( &y, GCRYMPI_FMT_USG, p_key->y + 2, i_y_len, NULL ) ||
495         gcry_sexp_build( &key_sexp, &erroff, key_sexp_s, p, q, g, y ) )
496         goto problem;
497
498     int i_r_len = mpi_len( p_r );
499     int i_s_len = mpi_len( p_s );
500     if( gcry_mpi_scan( &r, GCRYMPI_FMT_USG, p_r + 2, i_r_len, NULL ) ||
501         gcry_mpi_scan( &s, GCRYMPI_FMT_USG, p_s + 2, i_s_len, NULL ) ||
502         gcry_sexp_build( &sig_sexp, &erroff, sig_sexp_s, r, s ) )
503         goto problem;
504
505     int i_hash_len = 20;
506     if( gcry_mpi_scan( &hash, GCRYMPI_FMT_USG, p_hash, i_hash_len, NULL ) ||
507         gcry_sexp_build( &hash_sexp, &erroff, hash_sexp_s, hash ) )
508         goto problem;
509
510     if( gcry_pk_verify( sig_sexp, hash_sexp, key_sexp ) )
511         goto problem;
512
513     return VLC_SUCCESS;
514
515 problem:
516     if( p ) gcry_mpi_release( p );
517     if( q ) gcry_mpi_release( q );
518     if( g ) gcry_mpi_release( g );
519     if( y ) gcry_mpi_release( y );
520     if( r ) gcry_mpi_release( r );
521     if( s ) gcry_mpi_release( s );
522     if( hash ) gcry_mpi_release( hash );
523     if( key_sexp ) gcry_sexp_release( key_sexp );
524     if( sig_sexp ) gcry_sexp_release( sig_sexp );
525     if( hash_sexp ) gcry_sexp_release( hash_sexp );
526     return VLC_EGENERIC;
527 }
528
529
530 /*
531  * fill a public_key_t with public key data, including:
532  *   * public key packet
533  *   * signature packet issued by key which long id is p_sig_issuer
534  *   * user id packet
535  */
536 int parse_public_key( const uint8_t *p_key_data, size_t i_key_len,
537                       public_key_t *p_key, const uint8_t *p_sig_issuer )
538 {
539     uint8_t *pos = (uint8_t*) p_key_data;
540     uint8_t *max_pos = pos + i_key_len;
541
542     int i_status = 0;
543 #define PUBLIC_KEY_FOUND    0x01
544 #define USER_ID_FOUND       0x02
545 #define SIGNATURE_FOUND     0X04
546
547     uint8_t *p_key_unarmored = NULL;
548
549     p_key->psz_username = NULL;
550     p_key->sig.specific.v4.hashed_data = NULL;
551     p_key->sig.specific.v4.unhashed_data = NULL;
552
553     if( !( *pos & 0x80 ) )
554     {   /* first byte is ASCII, unarmoring */
555         p_key_unarmored = (uint8_t*)malloc( i_key_len );
556         if( !p_key_unarmored )
557             return VLC_ENOMEM;
558         int i_len = pgp_unarmor( (char*)p_key_data, i_key_len,
559                                  p_key_unarmored, i_key_len );
560
561         if( i_len == 0 )
562             goto error;
563
564         pos = p_key_unarmored;
565         max_pos = pos + i_len;
566     }
567
568     while( pos < max_pos )
569     {
570         if( !(*pos & 0x80) || *pos & 0x40 )
571             goto error;
572
573         int i_type = packet_type( *pos );
574
575         int i_header_len = packet_header_len( *pos++ );
576         if( pos + i_header_len > max_pos ||
577             ( i_header_len != 1 && i_header_len != 2 && i_header_len != 4 ) )
578             goto error;
579
580         int i_packet_len = scalar_number( pos, i_header_len );
581         pos += i_header_len;
582
583         if( pos + i_packet_len > max_pos )
584             goto error;
585
586         switch( i_type )
587         {
588             case PUBLIC_KEY_PACKET:
589                 i_status |= PUBLIC_KEY_FOUND;
590                 if( parse_public_key_packet( &p_key->key, pos, i_packet_len ) != VLC_SUCCESS )
591                     goto error;
592                 break;
593
594             case SIGNATURE_PACKET: /* we accept only v4 signatures here */
595                 if( i_status & SIGNATURE_FOUND || !p_sig_issuer )
596                     break;
597                 int i_ret = parse_signature_packet( &p_key->sig, pos,
598                                                     i_packet_len );
599                 if( i_ret == VLC_SUCCESS )
600                 {
601                     if( p_key->sig.version != 4 )
602                         break;
603                     if( memcmp( p_key->sig.issuer_longid, p_sig_issuer, 8 ) )
604                     {
605                         free( p_key->sig.specific.v4.hashed_data );
606                         free( p_key->sig.specific.v4.unhashed_data );
607                         p_key->sig.specific.v4.hashed_data = NULL;
608                         p_key->sig.specific.v4.unhashed_data = NULL;
609                         break;
610                     }
611                     i_status |= SIGNATURE_FOUND;
612                 }
613                 break;
614
615             case USER_ID_PACKET:
616                 if( p_key->psz_username ) /* save only the first User ID */
617                     break;
618                 i_status |= USER_ID_FOUND;
619                 p_key->psz_username = (uint8_t*)malloc( i_packet_len + 1);
620                 if( !p_key->psz_username )
621                     goto error;
622
623                 memcpy( p_key->psz_username, pos, i_packet_len );
624                 p_key->psz_username[i_packet_len] = '\0';
625                 break;
626
627             default:
628                 break;
629         }
630         pos += i_packet_len;
631     }
632     free( p_key_unarmored );
633
634     if( !( i_status & ( PUBLIC_KEY_FOUND | USER_ID_FOUND ) ) )
635         return VLC_EGENERIC;
636
637     if( p_sig_issuer && !( i_status & SIGNATURE_FOUND ) )
638         return VLC_EGENERIC;
639
640     return VLC_SUCCESS;
641
642 error:
643     if( p_key->sig.version == 4 )
644     {
645         free( p_key->sig.specific.v4.hashed_data );
646         free( p_key->sig.specific.v4.unhashed_data );
647     }
648     free( p_key->psz_username );
649     free( p_key_unarmored );
650     return VLC_EGENERIC;
651 }
652
653
654 /* hash a text
655  *   * provided as a buffer (\0 terminated)
656  *   * with "\r\n" line endings if it's a text signature, else use UNIX line
657  *   *  endings
658  */
659 static int hash_from_string( const char *psz_string, gcry_md_hd_t hd,
660         bool text_signature )
661 {
662     while( *psz_string )
663     {
664         size_t i_len = strcspn( psz_string, "\r\n" );
665         if( !i_len )
666             break;
667
668         gcry_md_write( hd, psz_string, i_len );
669         if( text_signature )
670             gcry_md_putc( hd, '\r' );
671         gcry_md_putc( hd, '\n' );
672
673         psz_string += i_len;
674         while( *psz_string == '\r' || *psz_string == '\n' )
675             psz_string++;
676     }
677
678     return 0;
679 }
680
681
682 /* hash a binary file */
683 static int hash_from_binary_file( const char *psz_file, gcry_md_hd_t hd )
684 {
685     uint8_t buffer[4096];
686     size_t i_read;
687
688     FILE *f = utf8_fopen( psz_file, "r" );
689     if( !f )
690         return -1;
691
692     while( ( i_read = fread( buffer, 1, sizeof(buffer), f ) ) > 0 )
693         gcry_md_write( hd, buffer, i_read );
694
695     fclose( f );
696
697     return 0;
698 }
699
700
701 /* final part of the hash */
702 static uint8_t *hash_finish( gcry_md_hd_t hd, signature_packet_t *p_sig )
703 {
704     if( p_sig->version == 3 )
705     {
706         gcry_md_putc( hd, p_sig->type );
707         gcry_md_write( hd, &p_sig->specific.v3.timestamp, 4 );
708     }
709     else if( p_sig->version == 4 )
710     {
711         gcry_md_putc( hd, p_sig->version );
712         gcry_md_putc( hd, p_sig->type );
713         gcry_md_putc( hd, p_sig->public_key_algo );
714         gcry_md_putc( hd, p_sig->digest_algo );
715         gcry_md_write( hd, p_sig->specific.v4.hashed_data_len, 2 );
716         size_t i_len = scalar_number( p_sig->specific.v4.hashed_data_len, 2 );
717         gcry_md_write( hd, p_sig->specific.v4.hashed_data, i_len );
718
719         gcry_md_putc( hd, 0x04 );
720         gcry_md_putc( hd, 0xFF );
721
722         i_len += 6; /* hashed data + 6 bytes header */
723
724         gcry_md_putc( hd, (i_len >> 24) & 0xff );
725         gcry_md_putc( hd, (i_len >> 16) & 0xff );
726         gcry_md_putc( hd, (i_len >> 8) & 0xff );
727         gcry_md_putc( hd, (i_len) & 0xff );
728     }
729     else
730     {   /* RFC 4880 only tells about versions 3 and 4 */
731         return NULL;
732     }
733
734     gcry_md_final( hd );
735
736     uint8_t *p_tmp = (uint8_t*) gcry_md_read( hd, GCRY_MD_SHA1);
737     uint8_t *p_hash = malloc( 20 );
738     if( p_hash )
739         memcpy( p_hash, p_tmp, 20 );
740     gcry_md_close( hd );
741     return p_hash;
742 }
743
744
745 /*
746  * return a sha1 hash of a text
747  */
748 uint8_t *hash_sha1_from_text( const char *psz_string,
749         signature_packet_t *p_sig )
750 {
751     gcry_md_hd_t hd;
752     if( gcry_md_open( &hd, GCRY_MD_SHA1, 0 ) )
753         return NULL;
754
755     if( hash_from_string( psz_string, hd, p_sig->type == TEXT_SIGNATURE ) < 0 )
756     {
757         gcry_md_close( hd );
758         return NULL;
759     }
760
761     return hash_finish( hd, p_sig );
762 }
763
764
765 /*
766  * return a sha1 hash of a file
767  */
768 uint8_t *hash_sha1_from_file( const char *psz_file, signature_packet_t *p_sig )
769 {
770     gcry_md_hd_t hd;
771     if( gcry_md_open( &hd, GCRY_MD_SHA1, 0 ) )
772         return NULL;
773
774     if( hash_from_binary_file( psz_file, hd ) < 0 )
775     {
776         gcry_md_close( hd );
777         return NULL;
778     }
779
780     return hash_finish( hd, p_sig );
781 }
782
783
784 /*
785  * Generate a SHA1 hash on a public key, to verify a signature made on that hash
786  * Note that we need the signature (v4) to compute the hash
787  */
788 uint8_t *hash_sha1_from_public_key( public_key_t *p_pkey )
789 {
790     if( p_pkey->sig.version != 4 )
791         return NULL;
792
793     if( p_pkey->sig.type < GENERIC_KEY_SIGNATURE ||
794         p_pkey->sig.type > POSITIVE_KEY_SIGNATURE )
795         return NULL;
796
797     gcry_error_t error = 0;
798     gcry_md_hd_t hd;
799
800     error = gcry_md_open( &hd, GCRY_MD_SHA1, 0 );
801     if( error )
802         return NULL;
803
804     gcry_md_putc( hd, 0x99 );
805
806     size_t i_p_len = mpi_len( p_pkey->key.p );
807     size_t i_g_len = mpi_len( p_pkey->key.g );
808     size_t i_q_len = mpi_len( p_pkey->key.q );
809     size_t i_y_len = mpi_len( p_pkey->key.y );
810
811     size_t i_size = 6 + 2*4 + i_p_len + i_g_len + i_q_len + i_y_len;
812
813     gcry_md_putc( hd, (i_size >> 8) & 0xff );
814     gcry_md_putc( hd, i_size & 0xff );
815
816     gcry_md_putc( hd, p_pkey->key.version );
817     gcry_md_write( hd, p_pkey->key.timestamp, 4 );
818     gcry_md_putc( hd, p_pkey->key.algo );
819
820     gcry_md_write( hd, (uint8_t*)&p_pkey->key.p, 2 );
821     gcry_md_write( hd, (uint8_t*)&p_pkey->key.p + 2, i_p_len );
822
823     gcry_md_write( hd, (uint8_t*)&p_pkey->key.q, 2 );
824     gcry_md_write( hd, (uint8_t*)&p_pkey->key.q + 2, i_q_len );
825
826     gcry_md_write( hd, (uint8_t*)&p_pkey->key.g, 2 );
827     gcry_md_write( hd, (uint8_t*)&p_pkey->key.g + 2, i_g_len );
828
829     gcry_md_write( hd, (uint8_t*)&p_pkey->key.y, 2 );
830     gcry_md_write( hd, (uint8_t*)&p_pkey->key.y + 2, i_y_len );
831
832     gcry_md_putc( hd, 0xb4 );
833
834     size_t i_len = strlen((char*)p_pkey->psz_username);
835
836     gcry_md_putc( hd, (i_len >> 24) & 0xff );
837     gcry_md_putc( hd, (i_len >> 16) & 0xff );
838     gcry_md_putc( hd, (i_len >> 8) & 0xff );
839     gcry_md_putc( hd, (i_len) & 0xff );
840
841     gcry_md_write( hd, p_pkey->psz_username, i_len );
842
843     uint8_t *p_hash = hash_finish( hd, &p_pkey->sig );
844     if( !p_hash ||
845         p_hash[0] != p_pkey->sig.hash_verification[0] ||
846         p_hash[1] != p_pkey->sig.hash_verification[1] )
847     {
848         return NULL;
849     }
850
851     return p_hash;
852 }
853
854
855 /*
856  * download a public key (the last one) from videolan server, and parse it
857  */
858 public_key_t *download_key( vlc_object_t *p_this,
859                     const uint8_t *p_longid, const uint8_t *p_signature_issuer )
860 {
861     char *psz_url;
862     if( asprintf( &psz_url, "http://download.videolan.org/pub/keys/%.2X%.2X%.2X%.2X%.2X%.2X%.2X%.2X.asc",
863                     p_longid[0], p_longid[1], p_longid[2], p_longid[3],
864                     p_longid[4], p_longid[5], p_longid[6], p_longid[7] ) == -1 )
865         return NULL;
866
867     stream_t *p_stream = stream_UrlNew( p_this, psz_url );
868     free( psz_url );
869     if( !p_stream )
870         return NULL;
871
872     int64_t i_size = stream_Size( p_stream );
873     if( i_size < 0 )
874     {
875         stream_Delete( p_stream );
876         return NULL;
877     }
878
879     uint8_t *p_buf = (uint8_t*)malloc( i_size );
880     if( !p_buf )
881     {
882         stream_Delete( p_stream );
883         return NULL;
884     }
885
886     int i_read = stream_Read( p_stream, p_buf, (int)i_size );
887     stream_Delete( p_stream );
888
889     if( i_read != (int)i_size )
890     {
891         msg_Dbg( p_this, "Couldn't read full GPG key" );
892         free( p_buf );
893         return NULL;
894     }
895
896     public_key_t *p_pkey = (public_key_t*) malloc( sizeof( public_key_t ) );
897     if( !p_pkey )
898     {
899         free( p_buf );
900         return NULL;
901     }
902
903     memcpy( p_pkey->longid, p_longid, 8 );
904
905     int i_error = parse_public_key( p_buf, i_read, p_pkey, p_signature_issuer );
906     free( p_buf );
907
908     if( i_error != VLC_SUCCESS )
909     {
910         msg_Dbg( p_this, "Couldn't parse GPG key" );
911         free( p_pkey );
912         return NULL;
913     }
914
915     return p_pkey;
916 }
917
918
919 /*
920  * Download the signature associated to a document or a binary file.
921  * We're given the file's url, we just append ".asc" to it and download
922  */
923 int download_signature( vlc_object_t *p_this, signature_packet_t *p_sig,
924                         const char *psz_url )
925 {
926     char *psz_sig = (char*) malloc( strlen( psz_url ) + 4 + 1 ); /* ".asc" + \0 */
927     if( !psz_sig )
928         return VLC_ENOMEM;
929
930     strcpy( psz_sig, psz_url );
931     strcat( psz_sig, ".asc" );
932
933     stream_t *p_stream = stream_UrlNew( p_this, psz_sig );
934     free( psz_sig );
935
936     if( !p_stream )
937         return VLC_ENOMEM;
938
939     int64_t i_size = stream_Size( p_stream );
940
941     msg_Dbg( p_this, "Downloading signature (%"PRId64" bytes)", i_size );
942     uint8_t *p_buf = (uint8_t*)malloc( i_size );
943     if( !p_buf )
944     {
945         stream_Delete( p_stream );
946         return VLC_ENOMEM;
947     }
948
949     int i_read = stream_Read( p_stream, p_buf, (int)i_size );
950
951     stream_Delete( p_stream );
952
953     if( i_read != (int)i_size )
954     {
955         msg_Dbg( p_this,
956             "Couldn't download full signature (only %d bytes)", i_read );
957         free( p_buf );
958         return VLC_EGENERIC;
959     }
960
961     if( (uint8_t)*p_buf < 0x80 ) /* ASCII */
962     {
963         msg_Dbg( p_this, "Unarmoring signature" );
964
965         uint8_t* p_unarmored = (uint8_t*) malloc( ( i_size * 3 ) / 4 + 1 );
966         if( !p_unarmored )
967         {
968             free( p_buf );
969             return VLC_EGENERIC;
970         }
971
972         int i_bytes = pgp_unarmor( (char*)p_buf, i_size, p_unarmored, i_size );
973         free( p_buf );
974
975         p_buf = p_unarmored;
976         i_size = i_bytes;
977
978         if( i_bytes < 2 )
979         {
980             free( p_buf );
981             msg_Dbg( p_this, "Unarmoring failed : corrupted signature ?" );
982             return VLC_EGENERIC;
983         }
984     }
985
986     if( packet_type( *p_buf ) != SIGNATURE_PACKET )
987     {
988         free( p_buf );
989         msg_Dbg( p_this, "Not a signature: %d", *p_buf );
990         return VLC_EGENERIC;
991     }
992
993     size_t i_header_len = packet_header_len( *p_buf );
994     if( ( i_header_len != 1 && i_header_len != 2 && i_header_len != 4 ) ||
995         i_header_len + 1 > (size_t)i_size )
996     {
997         free( p_buf );
998         msg_Dbg( p_this, "Invalid signature packet header" );
999         return VLC_EGENERIC;
1000     }
1001
1002     size_t i_len = scalar_number( p_buf+1, i_header_len );
1003     if( i_len + i_header_len + 1 != (size_t)i_size )
1004     {
1005         free( p_buf );
1006         msg_Dbg( p_this, "Invalid signature packet" );
1007         return VLC_EGENERIC;
1008     }
1009
1010     int i_ret = parse_signature_packet( p_sig, p_buf+1+i_header_len, i_len );
1011     free( p_buf );
1012     if( i_ret != VLC_SUCCESS )
1013     {
1014         msg_Dbg( p_this, "Couldn't parse signature" );
1015         return i_ret;
1016     }
1017
1018     if( p_sig->type != BINARY_SIGNATURE && p_sig->type != TEXT_SIGNATURE )
1019     {
1020         msg_Dbg( p_this, "Invalid signature type: %d", p_sig->type );
1021         if( p_sig->version == 4 )
1022         {
1023             free( p_sig->specific.v4.hashed_data );
1024             free( p_sig->specific.v4.unhashed_data );
1025         }
1026         return VLC_EGENERIC;
1027     }
1028
1029     return VLC_SUCCESS;
1030 }