TEUUGCGWTBRFQOCV3FMRXSXDAPSZMI5ODJ2G6E6PNMYRXIKR75BAC
5US6TQ2N6EVVXSQHGJB4VVRTQCIDMLDCJSP3PSVLHUR3CA2XHTVAC
IDT3SO3P52TCB4IWV3LYZJ5JLJACNQ26X65VXUTUD227PRE2UZUAC
my $s = readFile $secretKeyFile; chomp $s; my ($keyName, $secretKey) = split ":", $s; die "invalid secret key file\n" unless defined $keyName && defined $secretKey;
my $s = readFile $secretKeyFile;
chomp $s;
my ($keyName, $secretKey) = split ":", $s;
die "invalid secret key file\n" unless defined $keyName && defined $secretKey;
my $secretKey = readFile $secretKeyFile;
my $sig = encode_base64(signString(decode_base64($secretKey), $fingerprint), ""); $info .= "Sig: $keyName:$sig\n";
my $sig = encode_base64(signString(decode_base64($secretKey), $fingerprint), "");
$info .= "Sig: $keyName:$sig\n";
my $sig = signString($secretKey, $fingerprint); $info .= "Sig: $sig\n";
my $sig = signString($secretKey, $fingerprint);
$info .= "Sig: $sig\n";