#!/usr/bin/perl -w ###################################################################### # # $Id: test_harness.local,v 1.2 2006/05/30 21:08:29 mavrik Exp $ # ###################################################################### use strict; ###################################################################### # # GetPlatformName # ###################################################################### sub GetPlatformName { return "common"; } ###################################################################### # # ExtractDsaTestCertificate # ###################################################################### sub ExtractDsaTestCertificate { my ($sFile) = @_; if (!open(FH, "> $sFile")) { return undef; } print FH < $sFile")) { return undef; } print FH < $sFile")) { return undef; } if ($sWithPassphrase) { print FH < $sFile")) { return undef; } if ($sWithPassphrase) { print FH < "", 'junk_payload' => "junk\n", 'good_payload_dsa' => "dsa_1024_sig_fvm\n", 'good_payload_rsa' => "rsa_1024_sig_fvm\n", ); return $hPayloads{$sKey}; } ###################################################################### # # GetTestSignature # ###################################################################### sub GetTestSignature { my ($sKey) = @_; my %hSignatures = ( 'null_signature' => "", 'junk_signature' => "junk\n", 'good_signature_rsa' => "kKYtdIKArTB896XLNlRTzK8xDDJsh1EErK+o7V6I0Ad3qE5liazIsS8Qvafni9Z3WpJkHmgHUWJoUkQ4daMk+tOSTb8zUptkzM2TUmtyd41bqsSF1h8fntpjaHyaEiSn/Oh49iMMrzNRQuu89e85Di5+4Mq728y7QLafEhK587g=\n", 'good_signature_dsa' => "MC0CFBAYRFJEhYRvlzjtVBWxFK+jUCI8AhUAqfC/B1dNum2C53ft6NvoiRbZIR8=\n", ); return $hSignatures{$sKey}; } 1;