diff options
author | Daniel Kahn Gillmor <dkg@fifthhorseman.net> | 2009-01-07 15:02:05 -0500 |
---|---|---|
committer | Daniel Kahn Gillmor <dkg@fifthhorseman.net> | 2009-01-07 15:02:05 -0500 |
commit | c71c0212bc36ed18d6df60c7a1dc0c3f6c541339 (patch) | |
tree | 4abbef1eb8ec6e259e3117095a7d45ea25740877 /src | |
parent | ad8c2c433a163b9b29281b80fb1390bfcd9756bd (diff) |
clarifying make_rsa_key_body() to make_rsa_pub_key_body()
Diffstat (limited to 'src')
-rwxr-xr-x | src/keytrans/pem2openpgp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/keytrans/pem2openpgp b/src/keytrans/pem2openpgp index 3fdc469..c5277cd 100755 --- a/src/keytrans/pem2openpgp +++ b/src/keytrans/pem2openpgp @@ -78,7 +78,7 @@ sub mpi_pack { } # FIXME: genericize this to accept either RSA or DSA keys: -sub make_rsa_key_body { +sub make_rsa_pub_key_body { my $key = shift; my $timestamp = shift; @@ -97,7 +97,7 @@ sub fingerprint { my $key = shift; my $timestamp = shift; - my $rsabody = make_rsa_key_body($key, $timestamp); + my $rsabody = make_rsa_pub_key_body($key, $timestamp); return Digest::SHA1::sha1_hex(pack('Cn', 0x99, length($rsabody)).$rsabody); } @@ -176,7 +176,7 @@ my $sig_data_to_be_hashed = $subpacket_octets. $subpackets_to_be_hashed; -my $pubkey = make_rsa_key_body($rsa, $timestamp); +my $pubkey = make_rsa_pub_key_body($rsa, $timestamp); #open(KEYFILE, "</home/wt215/gpg-test/key-data"); my $key_data = make_packet(6, $pubkey); |