+
+ return gensig($data->{key}->{rsa}, $data->{uid}, $args);
+}
+
+
+# see 5.2.3.1 for tips on how to calculate the length of a subpacket:
+sub prefixsubpacket {
+ my $subpacket = shift;
+
+ my $len = length($subpacket);
+ my $prefix;
+ use bytes;
+ if ($len < 192) {
+ # one byte:
+ $prefix = pack('C', $len);
+ } elsif ($len < 16576) {
+ my $in = $len - 192;
+ my $second = $in%256;
+ my $first = ($in - $second)>>8;
+ $prefix = pack('CC', $first + 192, $second)
+ } else {
+ $prefix = pack('CN', 255, $len);
+ }
+ return $prefix.$subpacket;