Delete keys directory

keys/dummy/rsa/private9_0.pem

@@ -1,15 +0,0 @@
------BEGIN RSA PRIVATE KEY-----
-MIICXQIBAAKBgQC3BwxSGFBaRoOE1TQkMjRoDjhU9nmydzl6m3kubdy0ZzxMb/fd
-NLMyRvtsMjxjmrEKYImhPfRBtXH6TE2RW5izpxtgQ5rYqE02omHZwhIafpg4lhNT
-ZWROD0904XelD2nIcn9TpRzXncjsRCc8dpHbTziJj3K8VchQuSywNLKP0wIDAQAB
-AoGBAJTgwc/hgTL9mqupNYGf6OsfbgkGeJWHz5SA9QCkUtvYAb93cJpZ7M2f2ZH4
-BxFKWmpDfpBPMellK3JbMNllNX7DIxjBgXElomcyysQUf5l/cVCRaKoBg/dFQ0U7
-9TyD4BdmlE14LGgXYjd+MjQVrIhrDK4rOyJ2URdDoV1PZawxAkEA73mByR0z+/gJ
-og03JIL46tS2dsO5mjCYvCdvaneBXuWlUYRc3zrJJrwX9FOm8NmUWKFKYOwg7Ylx
-lptHcY4BSwJBAMOoXLS7FsXajXnzeR0Y5EIAo9+ZYmn9ylLe0u9iaL/RXV8S9w8P
-NdHrpZRoddLb+LCFhVeY9SwiSAkR9ZjnHpkCQC5oAXqTqis92cAJh5IPv2Tia6mA
-LEtw92gezDx5hBx7rBmr6MNphOl4sburKkKqJ1E1kFBP8eGWLOjelm2u8xkCQQCf
-jHFcp5ugZ+IqahJ/Wcb405DOS0Pnbp9ICJA1ySfmE5JybwKscxjOP7zcUnqSIfKf
-76GWlxKGlMXtL4n4z68xAkBJJWrZvuGe0ha2wF0NVLURVWXctwFgEStNfWQqD+PM
-DwVE6dHERFSO0ZPrfiZVUl/onk6H2ILEfdkSNzs75FSM
------END RSA PRIVATE KEY-----

keys/dummy/rsa/pubkey9_0.pem

@@ -1,6 +0,0 @@
------BEGIN PUBLIC KEY-----
-MIGfMA0GCSqGSIb3DQEBAQUAA4GNADCBiQKBgQC3BwxSGFBaRoOE1TQkMjRoDjhU
-9nmydzl6m3kubdy0ZzxMb/fdNLMyRvtsMjxjmrEKYImhPfRBtXH6TE2RW5izpxtg
-Q5rYqE02omHZwhIafpg4lhNTZWROD0904XelD2nIcn9TpRzXncjsRCc8dpHbTziJ
-j3K8VchQuSywNLKP0wIDAQAB
------END PUBLIC KEY-----

keys/makeHWInfo.pl

@@ -1,105 +0,0 @@
-#!/bin/perl
-
-use strict;
-
-
-if( @ARGV != 8 ) {
-	die "usage: makeHWInfo.pl -r <RegionName> -s <SerialNo> -k <RSA PrivKey> -o <outName>\n";
-}
-
-#引数チェック
-my $cmd = &analyze_argv;
-
-if( !exists($cmd->{"-r"}) or
-	!exists($cmd->{"-s"}) or
-	!exists($cmd->{"-k"}) or
-	!exists($cmd->{"-o"}) ) {
-	die "parameter error.\n";
-}
-
-
-#リージョン
-my @regionNameList = qw/ JAPAN AMERICA EUROPE AUSTRALIA CHINA KOREA /;
-my $i = 0;
-my $region = 0xff;
-foreach ( @regionNameList ) {
-	if( $cmd->{"-r"} eq $_ ) {
-		$region	= $i;
-		last;
-	}
-	$i++;
-}
-if( $region == 0xff ) {
-	die "region error.\n", $cmd->{"-r"};
-}
-
-
-#シリアルNo.
-my $serialNo = $cmd->{"-s"};
-if( !( 11 == length($serialNo) or ( 12 == length($serialNo) ) ) ) {
-	die "serialNo length error. needs length \"11\" or \"12\"\n";
-}
-
-
-#Bodyファイル
-open(OUT, ">body.bin");
-binmode(OUT);
-print OUT pack( "C", $region );
-print OUT pack( "A16", $serialNo );
-close(OUT);
-
-
-#Headerファイル
-my $version = 1;
-my $length  = 17;
-open(OUT, ">header.bin");
-binmode(OUT);
-print OUT pack( "C", $version );
-print OUT pack( "CCC", 0, 0, 0 );
-print OUT pack( "L", $length );
-close(OUT);
-
-#コンソール出力
-print "[Header]\n";
-printf " version  : %d\n", $version;
-printf " length   : %d\n", $length;
-print "[Body]\n";
-printf " region   : %d (%s)\n", $region, $regionNameList[$region];
-printf " serialNo : %s (%d)\n", $serialNo, length($serialNo);
-
-#RSA署名
-my $key = $cmd->{"-k"};
-my $outName = $cmd->{"-o"};
-system "openssl dgst -sha1 -binary -out tgt.dgst body.bin";
-system "openssl rsautl -sign -in tgt.dgst -inkey $key -out tgt.sgn";
-system "cat tgt.sgn header.bin body.bin >$outName";
-system "rm header.bin body.bin tgt.dgst tgt.sgn";
-
-exit;
-
-
-sub analyze_argv
-{
-	my $opt;
-	my %cmd = ();
-
-	foreach my $token ( @ARGV )
-	{
-		if( substr($token, 0, 1) eq "-" )
-		{
-			$opt = $token;
-		}
-		elsif( $opt )
-		{
-			$cmd{$opt} = $token;
-			$opt = "";
-		}
-		else
-		{
-			push @{$cmd{""}}, $token;
-		}
-	}
-
-	return \%cmd;
-}
-