#!/usr/bin/perl -w use strict; # Version: 1.2 # Date: 2001.01.07 # Revised: 2005.03.22 # Author: V. Alex Brennen # http://www.cryptnet.net/people/vab/ # Author: Gerfried Fuchs # http://alfie.ist.org/alfie/ # Author: Damien Raude-Morvan # http://www.drazzib.com # License: Public Domain # Description: # This script was written as part of the gpg keysigning # party howto. It generates a checklist for individuals # participating in a keysigning party. The keysigning # howto lives at: # http://www.cryptnet.net/fdp/crypto/gpg-party.html # Damien Raude-Morvan : Ported to XHTML and UTF-8. my $keyring = "linuxnantes"; my @fps = `gpg --display-charset utf-8 --fingerprint --no-default-keyring --no-options --with-colons --keyring ./$keyring.keyring | egrep '^(pub|fpr):'`; open(FILEWRITE, "> $keyring.html"); print FILEWRITE "\n\n"; print FILEWRITE "PGP Keysigning Party Keys\n"; print FILEWRITE ""; print FILEWRITE "\n"; print FILEWRITE "

Keyring : $keyring

"; print FILEWRITE "

Global graph : $keyring

"; print FILEWRITE "\n"; print FILEWRITE ""; print FILEWRITE "\n"; while(my $line = shift(@fps)) { if($line =~ /^pub/) { my ($pub,$comptrust,$size,$type,$longid,$date,undef, undef,$settrust,$owner,undef,undef,$flags,undef) = split /:/, $line; my $id = substr($longid, 8); my ($fpr,undef,undef,undef,undef,undef,undef,undef,undef,$fingerprint) = split /:/, shift(@fps); my $fingerp = $fingerprint; if($type eq '17') { $type = 'DSA'; } elsif($type eq '20') { $type = 'El Gamal'; } elsif($type eq '1') { $type = 'RSA'; } if(length($fingerprint) == 40) { for my $i (36,32,28,24,20,16,12,8,4) { if($i != 20) { substr($fingerprint,$i,0,' '); } if($i == 20) { substr($fingerprint,$i,0,"\n"); } } } elsif (length($fingerprint) == 32) { for my $i (30,28,26,24,22,20,18,16,14,12,10,8,6,4,2) { if($i != 16) { substr($fingerprint,$i,0,' '); } if($i == 16) { substr($fingerprint,$i,0,"\n"); } } } $owner =~ s/&/&/; $owner =~ s//>\;/; print FILEWRITE "\n"; print FILEWRITE "\n"; print FILEWRITE "\n"; } } print FILEWRITE "
Key IDOwnerFingerprintSizeTypeKey Info Matches?Owner ID Matches?
$id
$owner
$fingerprint
$size$type  
\n"; print FILEWRITE ""; close FILEWRITE;