diff --git a/tools/bin/AesDecrypter.exe b/tools/bin/AesDecrypter.exe
deleted file mode 100644
index 33c1b413..00000000
Binary files a/tools/bin/AesDecrypter.exe and /dev/null differ
diff --git a/tools/bin/FakeRomHeader.launcher.exe b/tools/bin/FakeRomHeader.launcher.exe
deleted file mode 100755
index 3533c69d..00000000
Binary files a/tools/bin/FakeRomHeader.launcher.exe and /dev/null differ
diff --git a/tools/bin/FakeRomHeader.secure.exe b/tools/bin/FakeRomHeader.secure.exe
deleted file mode 100755
index 4110c767..00000000
Binary files a/tools/bin/FakeRomHeader.secure.exe and /dev/null differ
diff --git a/tools/bin/FakeRomHeader.sys.exe b/tools/bin/FakeRomHeader.sys.exe
deleted file mode 100755
index 2dbfd86e..00000000
Binary files a/tools/bin/FakeRomHeader.sys.exe and /dev/null differ
diff --git a/tools/bin/FakeRomHeader.user.exe b/tools/bin/FakeRomHeader.user.exe
deleted file mode 100755
index 97e4c1dd..00000000
Binary files a/tools/bin/FakeRomHeader.user.exe and /dev/null differ
diff --git a/tools/bin/TXLib.dll b/tools/bin/TXLib.dll
deleted file mode 100644
index 7e1dc0bd..00000000
Binary files a/tools/bin/TXLib.dll and /dev/null differ
diff --git a/tools/bin/genFontTable.plx b/tools/bin/genFontTable.plx
deleted file mode 100644
index ff715208..00000000
--- a/tools/bin/genFontTable.plx
+++ /dev/null
@@ -1,260 +0,0 @@
-#!/usr/bin/perl
-
-######################################################################
-#   genFontTable.pl
-#
-#   generate Secure Shared Font Data Table
-#   
-#   [[ HEADER FORMAT ]]
-#   security code           (128 bytes) : RSA signature of Header
-#
-#   Header                  ( 32 bytes)
-#       TimeStamp           (  4 bytes) : date %y%m%d%H
-#       number              (  2 bytes) : number of font files
-#       region_code         (  1 bytes) : font region code
-#       padding             (  6 bytes) : 
-#       padding             ( 20 bytes) : SHA1 digest of Font info table
-# 
-#   Font info table         ( 64 bytes * number)
-#       fileName            ( 32 bytes) : font file name
-#       comp_length         (  4 bytes) : length of the compression file
-#       file offset         (  4 bytes) : file offset of Font data
-#       length              (  4 bytes) : length of file (bytes)
-#       digest              ( 20 bytes) : SHA1 digest of Font data
-#
-#   note: each section image is aligned to 32 bytes.
-#
-######################################################################
-
-use POSIX 'strftime';
-use File::Basename;
-
-if ($#ARGV < 3) {
-    printf STDOUT ("Usage: %s [genFontTable] timestamp region_code [Target font files...]\n", $0);
-    exit(-1);
-}
-
-my $outFile    = "TWLFontTable.dat";
-my $infoFile   = "info.bin";
-my $headerFile = "header.bin";
-my $digestFile = "sha1.bin";
-my $signFile   = "sign.bin";
-my $tempFile   = "temp.bin";
-my $compprog   = "compBLZ.exe";    # 圧縮プログラム
-my $compoption = "-e \"\"";
-#my $compprog   = "./ntrcomp/gcc/ntrcomp.exe";
-#my $compoption = "-h8 -A32 -s";
-
-# 後始末
-sub deleteTemp {
-    system ("rm -f $infoFile");
-    system ("rm -f $headerFile");
-    system ("rm -f $digestFile");
-    system ("rm -f $signFile");
-    system ("rm -f $tempFile");
-}
-
-# 環境変数からSDKのルートをサーチして(ntrcompの場所特定に必要)
-foreach ( sort keys ( %ENV ) ){
-    if ($_ =~ m/TWLSDK_ROOT/s) {
-        $SDKROOT = $ENV{$_};
-    }
-}
-printf "TWLSDK_ROOT is ${SDKROOT}\n";
-$compprog = "${SDKROOT}/tools/bin/" . $compprog;
-
-my $signSize   = 0x80;
-my $headerSize = 0x20;
-my @files;
-
-# 要素数算出
-my $num = 0;
-foreach ( @ARGV ) {
-    next if( $_ eq $ARGV[0] );
-    next if( $_ eq $ARGV[1] );
-    $files[ $num ] = $_;
-    $num++;
-}
-
-# 情報テーブルの出力
-{
-    my $elementSize = 0x40;
-    my $fileNameMax = 0x20;
-    my $padLen      = 0x04;
-    # offset length = 0x04;
-    # file length   = 0x04;
-    my $sha1Len     = 0x14;
-    
-    open INFO, ">$infoFile" or die;
-    binmode INFO;
-    
-    # オフセット算出
-    my $offset = $signSize + $headerSize + $num * $elementSize;
-    if( ( $offset % 32 ) > 0 ) { $offset += 32 - ( $offset % 32 ); }
-    
-    printf "---------------------------------------------------------------\n";
-    printf "filename\toffset  \torig_size\tcompressed_size\n";
-    foreach ( @files ) {
-        # NULL指定時は、NULL出力
-        if( "NULL" eq basename( $_ ) ) {
-            syswrite( INFO, pack( "x$elementSize") );
-            next;
-        }
-        
-        # ファイルネームの出力
-        if( !( -e $_ ) ) {
-            close( INFO );
-            deleteTemp();
-            die "file not exist. : $_\n";
-        }
-        my $name = basename( $_ );
-        if( length $name >= $fileNameMax ) {
-            close( INFO );
-            deleteTemp();
-            die "file name length must be smaller than $fileNameMax. : $_\n";
-        }
-        my $data = pack( "a$fileNameMax", $name );
-        syswrite( INFO, $data, $fileNameMax );
-        
-        # 圧縮
-        my $compfile = "$_.comp";
-        system ("${compprog} $compoption $_ -o $compfile");
-
-        # パディングの出力
-        #syswrite( INFO, pack( "x$padLen") );
-
-        # 圧縮ファイル長を出力(もともとはpadding)
-        $data = pack( "L", -s $compfile );
-        syswrite( INFO, $data, 4 );
-
-        # ファイルオフセットの出力
-        $data = pack( "L", $offset );
-        syswrite( INFO, $data, 4 );
-        
-        # ファイル長の出力
-        $data = pack( "L", -s $_ );
-        syswrite( INFO, $data, 4 );
-        
-        # ファイルのSHA1ハッシュの出力
-        {
-            my $digest;
-            #system ("openssl dgst -sha1 -binary -out $digestFile $_");
-            system ("openssl dgst -sha1 -binary -out $digestFile $compfile");   # 圧縮後のファイルにハッシュをつける
-            open DIGEST, $digestFile or die;
-            binmode DIGEST;
-            sysread( DIGEST, $digest, $sha1Len );
-            close DIGEST;
-            syswrite( INFO, $digest, $sha1Len );
-        }
-        
-        printf "%s\t0x%08x\t0x%08x\t0x%08x\n", $_, $offset, -s $_, -s $compfile;
-        
-        # オフセット加算
-        #$offset += -s $_;
-        $offset += -s $compfile;
-        if( ( $offset % 32 ) > 0 ) { $offset += 32 - ( $offset % 32 ); }
-    }
-    close INFO;
-    printf "---------------------------------------------------------------\n";
-}
-
-# ヘッダの出力
-{
-    # timestampLen  = 0x08;
-    # elementNumLen = 0x02;
-    my $padLen      = 0x05;
-    my $sha1Len     = 0x14;
-    
-    open HEADER, ">$headerFile" or die;
-    binmode HEADER;
-    
-    # タイムスタンプの出力
-#   my $timestamp = strftime "%y%m%d%H", localtime;
-    my $timestamp = $ARGV[ 0 ];
-	my $region_code = $ARGV[ 1 ];
-    printf "timestamp = %s\n", $timestamp;
-    syswrite( HEADER, pack( "N", unpack( "L", pack( "H8", $timestamp ) ) ) );
-    
-    # 要素数の出力
-    syswrite( HEADER, pack( "S", $num ) );
-	
-	# リージョンコードの出力
-	syswrite( HEADER, pack( "C", $region_code ) );
-	
-    # パディングの出力
-    syswrite( HEADER, pack( "x$padLen") );
-    
-    # 情報テーブルのSHA1ハッシュの出力
-    {
-        my $digest;
-        system ("openssl dgst -sha1 -binary -out $digestFile $infoFile");
-        open DIGEST, $digestFile or die;
-        binmode DIGEST;
-        sysread( DIGEST, $digest, $sha1Len );
-        close DIGEST;
-        syswrite( HEADER, $digest, $sha1Len );
-    }
-    close HEADER;
-}
-
-# 環境変数サーチ
-foreach ( sort keys ( %ENV ) ){
-    if ($_ =~ m/TWL_IPL_RED_PRIVATE_ROOT/s) {
-        $KEYROOT = $ENV{$_};
-    }
-}
-if (!$KEYROOT) {
-    deleteTemp();
-    die "No TWL_IPL_RED_PRIVATE_ROOT is found.\n";
-}
-
-# ヘッダへの署名付加
-{
-    system ( "openssl dgst -sha1 -binary -out $digestFile $headerFile" );
-    system ( "openssl rsautl -sign -in $digestFile -inkey $KEYROOT/keys/rsa/private_sharedFont.der -keyform DER -out $signFile" );
-    system ( "cat $signFile $headerFile >$tempFile" );
-    system ( "cat $tempFile $infoFile >$outFile" );
-    deleteTemp();
-}
-
-
-# フォントの出力
-{
-    open FONTTABLE, ">>$outFile" or die;
-    binmode FONTTABLE;
-    
-    {
-        # パディング出力
-        my $fileLen = -s $outFile;
-        my $padNum = ( $fileLen % 32 ) ? ( 32 - ( $fileLen % 32 ) ) : 0;
-        my $padding = pack( "x$padNum" );
-        syswrite( FONTTABLE, $padding, $padNum );
-    }
-
-    foreach ( @files ) {
-        # NULL指定時はスキップ
-        if( "NULL" eq basename( $_ ) ) {
-            next;
-        }
-        
-        # フォント出力
-        #my $fileLen = -s $_;
-        #open TEST, $_ or die;
-        my $compfile = "$_.comp";       # 圧縮ファイルを出力
-        $fileLen = -s $compfile;
-        open TEST, $compfile or die;
-        binmode TEST;
-        sysread ( TEST, $buffer, $fileLen );
-        close TEST;
-        syswrite( FONTTABLE, $buffer, $fileLen );
-        
-        # パディング出力
-        my $padNum = ( $fileLen % 32 ) ? ( 32 - ( $fileLen % 32 ) ) : 0;
-        my $padding = pack( "x$padNum" );
-        syswrite( FONTTABLE, $padding, $padNum );
-
-        # 圧縮ファイルを削除
-        system ("rm -rf $compfile");
-    }
-    close FONTTABLE;
-}
diff --git a/tools/bin/genVersion.plx b/tools/bin/genVersion.plx
deleted file mode 100644
index 35e50ae3..00000000
--- a/tools/bin/genVersion.plx
+++ /dev/null
@@ -1,185 +0,0 @@
-#!/usr/bin/perl
-
-######################################################################
-#	genVersion.pl
-#
-#	generate SystemMenu Version Data
-#   
-#   [[ FILE FORMAT ]]
-#
-#   Security code           (128 bytes) : RSA signature of Header
-#   Header + Data                       : NitroSystemArchive Format
-#
-######################################################################
-
-use POSIX 'strftime';
-use File::Basename;
-
-if ($#ARGV < 8) {
-    printf STDOUT ("Usage: %s [genVersion] dir timestamp strVersion majorVersion minorVersion userAreaSize NUPHostName EULAURL outFile\n", $0);
-    exit(-1);
-}
-
-# アーカイブにまとめるデータファイル
-my $dataDir                   = $ARGV[0];
-my $versionFile               = "$dataDir/version.bin";
-my $timeStampFile             = "$dataDir/time_stamp.bin";
-my $userAreaSizeFile          = "$dataDir/user_area_size.bin";
-my $nupHostFile               = "$dataDir/nup_host.bin";
-my $urlEULAFile               = "$dataDir/eula_url.bin";
-
-# 証明書および鍵はIPL_privateで作成したものをそのまま使うのでここでは作成しない
-#my $cert4SSLClientFile        = "$dataDir/cert4ssl";
-#my $privKeyCert4SSLClientFile = "$dataDir/priv_key_cert4ssl";
-#my $rootCACert4SSLFile1       = "$dataDir/root_ca_cert4ssl1";
-#my $rootCACert4SSLFile2       = "$dataDir/root_ca_cert4ssl2";
-#my $rootCACert4SSLFile3       = "$dataDir/root_ca_cert4ssl3";
-#my $rootCACert4SSLFile4       = "$dataDir/root_ca_cert4ssl4";
-#my $rootCACert4SSLFile5       = "$dataDir/root_ca_cert4ssl5";
-#my $rootCACert4SSLFile6       = "$dataDir/root_ca_cert4ssl6";
-
-# 出力ファイル
-my $outFile = $ARGV[8];
-
-# 中間ファイル
-my $archiveFile      = "archive.narc";
-my $digestFile       = "digest.bin";
-my $signFile         = "sign.bin";
-
-# 後始末
-sub deleteTemp {
-	system ("rm -f $digestFile");
-	system ("rm -f $signFile");
-	system ("rm -f $archiveFile");
-	system ("rm -f $versionFile");
-	system ("rm -f $timeStampFile");
-	system ("rm -f $userAreaSizeFile");
-	system ("rm -f $nupHostFile");
-	system ("rm -f $urlEULAFile");
-}
-
-# 事前のテンポラリクリア
-
-
-# 環境変数サーチ
-foreach ( sort keys ( %ENV ) ){
-    if ($_ =~ m/TWL_IPL_RED_PRIVATE_ROOT/s) {
-        $KEYROOT = $ENV{$_};
-    }
-}
-if (!$KEYROOT) {
-	die "No TWL_IPL_RED_PRIVATE_ROOT is found.\n";
-}
-
-my $TWLIPLRED_ROOT;
-
-# 環境変数のキーにTWL_IPL_RED_ROOTがあるか
-if (exists($ENV{"TWL_IPL_RED_ROOT"}) ){
-    $TWLIPLRED_ROOT = $ENV{"TWL_IPL_RED_ROOT"};
-}else
-{
-	die "No TWL_IPL_RED_ROOT is found.\n";
-}
-
-# システムメニューバージョンの出力
-{
-	my $length = 0x1c;
-	my $sysMenuVersion = $ARGV[2];
-	if( length $sysMenuVersion >= $length ) {
-		printf "ERROR: SystemMenu version length less than %d.\n", $length;
-		die;
-	}
-	open VERSION, ">$versionFile" or die "File Open Error.\n";
-	binmode VERSION;
-#	my $ver = ( ( $ARGV[ 3 ] & 0xffff ) << 16 ) | ($ARGV[ 4 ] & 0xffff);
-#	printf "version = %d.%d\n", ($ver >> 16), ($ver & 0xffff);
-#	syswrite( VERSION, pack( "L", $ver ) );
-	printf "SysMenu version = %s\n", $sysMenuVersion;
-	$length /= 2;	# to UTF16 length
-	syswrite( VERSION, pack( "SSS$length", $ARGV[ 3 ], $ARGV[ 4 ], unpack( "C*", $sysMenuVersion ) ) );
-#	pack "S*", unpack( "C*", $ascii ), 0;
-
-	close VERSION;
-}
-
-# タイムスタンプの出力
-{
-	open TIMESTAMP, ">$timeStampFile" or die "File Open Error.\n";
-	binmode TIMESTAMP;
-#	my $timestamp = strftime "%y%m%d%H", localtime;
-	my $timestamp = $ARGV[ 1 ];
-	printf "timestamp = %s\n", $timestamp;
-	syswrite( TIMESTAMP, pack( "N", unpack( "L", pack( "H8", $timestamp ) ) ) );
-	close TIMESTAMP;
-}
-
-# ユーザエリアサイズの出力
-{
-	open USERAREA, ">$userAreaSizeFile" or die "File Open Error.\n";
-	binmode USERAREA;
-	my $userAreaSize = $ARGV[ 5 ];
-	printf "userAreaSize = $userAreaSize\n";
-	syswrite( USERAREA, pack( "L", $userAreaSize ) );
-	close USERAREA;
-}
-
-# NUP_HOSTNAMEの出力
-{
-	my $length = 0x40;
-	my $nupHostName = $ARGV[ 6 ];
-	if( length $nupHostName >= $length ) {
-		printf "ERROR: NUP Host Name length less than %d.\n", $length;
-		die;
-	}
-	if( $nupHostName ne "NULL" ) {
-		open NUPHOSTNAME, ">$nupHostFile" or die "File Open Error.\n";
-		binmode NUPHOSTNAME;
-		printf "NUPHostName = $nupHostName\n";
-		syswrite( NUPHOSTNAME, pack( "a$length", $nupHostName ) );
-		close NUPHOSTNAME;
-	}
-}
-
-# EULA_URLの出力
-{
-	my $length = 0x80;
-	my $urlEULA = $ARGV[ 7 ];
-	if( length $urlEULA >= $length ) {
-		printf "ERROR: EULA URL length less than %d.\n", $length;
-		die;
-	}
-	open EULAURL, ">$urlEULAFile" or die "File Open Error.\n";
-	binmode EULAURL;
-	printf "EULAURL = $urlEULA\n";
-	syswrite( EULAURL, pack( "a$length", $urlEULA ) );
-	close EULAURL;
-}
-
-my $TWLSYSTEM_ROOT;
-
-# 環境変数のキーにTWLSYSTEM_ROOTがあるか
-if (exists($ENV{"TWLSYSTEM_ROOT"}) ){
-    $TWLSYSTEM_ROOT = $ENV{"TWLSYSTEM_ROOT"};
-}else
-{
-	deleteTemp();
-	die "No TWLSYSTEM_ROOT is found.\n";
-}
-
-# アーカイブ作成
-{
-    system ( "$TWLSYSTEM_ROOT/tools/bin/nnsarc.exe -c $archiveFile -A 16 -a $dataDir -s -E .svn" );
-}
-
-# アーカイブのハッシュの出力
-{
-	my $digest;
-	system ("openssl dgst -sha1 -binary -out $digestFile $archiveFile");
-}
-
-# 署名付加
-{
-    system ( "openssl rsautl -sign -in $digestFile -inkey $KEYROOT/keys/rsa/private_sharedFont.der -keyform DER -out $signFile" );
-	system ( "cat $signFile $archiveFile >$outFile" );
-	deleteTemp();
-}
diff --git a/tools/bin/makeTitleIdDir.plx b/tools/bin/makeTitleIdDir.plx
deleted file mode 100644
index acd35971..00000000
--- a/tools/bin/makeTitleIdDir.plx
+++ /dev/null
@@ -1,42 +0,0 @@
-#!/usr/bin/perl
-
-######################################################################
-#	genFontTable.pl
-#
-#	generate Secure Shared Font Data Table
-#
-######################################################################
-
-if ($#ARGV < 1) {
-    printf STDOUT ("Usage: %s SRL_file tgtDir\n", $0);
-    exit(-1);
-}
-
-open SRL, "<$ARGV[0]" or die;
-binmode SRL;
-
-
-# TitleID_Lo取得
-sysseek SRL, 0x230, SEEK_SET;
-my $data;
-sysread( SRL, $data, 4 );
-
-my @id = unpack( "cccc", $data);
-my $titleID_Lo = pack( "cccc", $id[3], $id[2], $id[1], $id[0] );
-#printf "%s\n", $titleID_Lo;
-
-
-# ROMバージョン取得
-sysseek SRL, 0x1e, SEEK_SET;
-sysread( SRL, $data, 1 );
-my $version = sprintf "%d\n", unpack( "c", $data );
-#printf "%s\n", $version;
-
-system( "mkdir -p $ARGV[1]/$titleID_Lo" );
-system( "mkdir -p $ARGV[1]/$titleID_Lo/V$version" );
-
-#TAD格納ディレクトリprint
-printf "$ARGV[1]/$titleID_Lo/V$version";
-
-close SRL
-
diff --git a/tools/bin/makerom.TWL.launcher.exe b/tools/bin/makerom.TWL.launcher.exe
deleted file mode 100755
index 0e8ed921..00000000
Binary files a/tools/bin/makerom.TWL.launcher.exe and /dev/null differ
diff --git a/tools/bin/nor_header.sbin b/tools/bin/nor_header.sbin
deleted file mode 100644
index 2865df12..00000000
Binary files a/tools/bin/nor_header.sbin and /dev/null differ
diff --git a/tools/bin/remaketad.pl b/tools/bin/remaketad.pl
deleted file mode 100755
index 108b8313..00000000
--- a/tools/bin/remaketad.pl
+++ /dev/null
@@ -1,196 +0,0 @@
-#!/bin/perl
-
-use strict;
-use Crypt::Rijndael;
-use Digest::SHA1 qw(sha1);
-
-my $tad = $ARGV[0] or die "split_tad <tad>\n";
-my $outdir = "out";
-
-my $buf;
-my $common_key    = pack("H*", "A1604A6A7123B529AE8BEC32C816FCAA");		# dev
-
-open(F, $tad) or die "cant open $tad\n";
-binmode(F);
-read(F, $buf, -s $tad);
-close(F);
-
-mkdir $outdir;
-
-
-my $offset = 0;
-my $size = 32;
-my( $hdrSize, $tadType, $tadVersion, $certSize, 
-	$crlSize, $ticketSize, $tmdSize, $contentSize, $metaSize)
-		= unpack("Na2nNNNNNN", substr($buf, $offset, $size));
-$offset += $size;
-
-print <<__REPORT__;
-=============================
- hdrSize     $hdrSize
- tadType     $tadType
- tadVersion  $tadVersion
- certSize    $certSize
- crlSize     $crlSize
- ticketSize  $ticketSize
- tmdSize     $tmdSize
- contentSize $contentSize
- metaSize    $metaSize
-=============================
-__REPORT__
-
-my $certOffset 		= &round_up($hdrSize, 64);
-my $crlOffset  		= &round_up($certOffset 	+ $certSize, 	64);
-my $ticketOffset 	= &round_up($crlOffset 		+ $crlSize, 	64);
-my $tmdOffset  		= &round_up($ticketOffset 	+ $ticketSize, 	64);
-my $contentOffset	= &round_up($tmdOffset 		+ $tmdSize, 	64);
-my $metaOffset 		= &round_up($contentOffset	+ $contentSize, 64);
-my $fileSize		= &round_up($metaOffset 	+ $metaSize, 	64);
-
-die "file size is not expected size(=$fileSize)\n" if $fileSize != -s $tad;
-
-my $ticket  = substr($buf, $ticketOffset, 	$ticketSize);
-my $tmd     = substr($buf, $tmdOffset, 		$tmdSize);
-my $content = substr($buf, $contentOffset, 	$contentSize);
-
-&save_file("$outdir/cert.bin", 		substr($buf, $certOffset, 		$certSize));
-&save_file("$outdir/crl.bin", 		substr($buf, $crlOffset, 		$crlSize));
-&save_file("$outdir/ticket.bin", 	$ticket);
-&save_file("$outdir/tmd.bin", 		$tmd);
-#&save_file("$outdir/content.bin", 	substr($buf, $contentOffset, 	$contentSize));
-&save_file("$outdir/meta.bin",		substr($buf, $metaOffset, 		$metaSize));
-
-
-my $title_key = &read_title_key($ticket);
-my $rci = &read_content_info($tmd);
-
-print unpack("H*", $title_key), "\n";
-
-my $offset = 0;
-foreach my $i ( @$rci )
-{
-	my $size = &round_up($i->[3], 16);
-	my $enc_content_x = substr($content, $offset, $size);
-	my $content_x_iv = pack("n", $i->[1]) . pack("x14");
-	my $dec_content_x = &dec_cbc($title_key, $content_x_iv, $enc_content_x);
-	my $dec_content = substr($dec_content_x, 0, $i->[3]);
-	my $hash = &sha1($dec_content);
-
-	print unpack("H*", $hash), "  ";
-	print((($hash eq $i->[4]) ? "OK": "hash mismatch"), "\n");
-	&save_file("$outdir/content_$i->[1].encrypted.bin", $enc_content_x);
-	&save_file("$outdir/content_$i->[1].bin", $dec_content);
-
-	$offset += &round_up($size, 64);
-}
-
-my $cfg = read_cfg($tmd);
-save_cfg("$outdir/config.txt", $cfg);
-
-print <<__REPORT__;
-=============================
- dataflg   $cfg->[0]
- titleid   $cfg->[1]
- groupid   $cfg->[2]
- major_ver $cfg->[3]
- minor_ver $cfg->[4]
-=============================
-__REPORT__
-
-maketad($tad, $cfg);
-system("/bin/rm -rf $outdir");
-
-
-sub round_up
-{	my( $x, $align ) = @_;
-
-	return int( ($x + $align - 1)/$align ) * $align;
-}
-
-sub save_file
-{	my( $name, $data ) = @_;
-
-	open(OUT, ">$name") or die "cant open $name\n";
-	binmode(OUT);
-	print OUT $data;
-	close(OUT);
-}
-
-sub read_content_info
-{	my( $tmd ) = @_;
-	my @ci = ();
-
-	my $nContent = unpack("n", substr($tmd, 0x1DE, 2));
-
-	for( my $i = 0; $i < $nContent; ++$i )
-	{
-		my( $cid, $idx, $type, $size, $hash )
-			= unpack("Nnnx4Na20", substr($tmd, 0x1E4 + 36 * $i, 36));
-
-		push @ci, [$cid, $idx, $type, $size, $hash];
-	}
-
-	return \@ci;
-}
-
-sub maketad
-{	my( $tad, $cfg ) = @_;
-
-	my $maketad = "$ENV{TWL_IPL_RED_PRIVATE_ROOT}/tools/bin/maketad.updater.exe";
-	$tad =~ s/tad/updater.tad/;
-
-	my $option = "";
-	if( $cfg->[0] )
-	{
-		$option = "-d $cfg->[1] $cfg->[2] $cfg->[3] $tad -v $cfg->[4]";
-	} else {
-		$option = "-v $cfg->[4]";
-	}
-
-	my $cmd = "$maketad $outdir/content_0.bin $option -s -o $tad";
-	system("/bin/echo $cmd");
-	system("$cmd");
-}
-
-sub read_cfg
-{	my( $tmd ) = @_;
-
-	my( $titleid_h, $titleid_l ) = unpack("NN", substr($tmd, 0x18C, 8));
-	my $groupid  = sprintf("%04X", unpack("n", substr($tmd, 0x198, 2)));
-	my( $major_ver, $minor_ver ) = unpack("CC", substr($tmd, 0x1DC, 2));
-
-	my $titleid  = sprintf("%08X%08X", $titleid_h, $titleid_l);
-	my $dataflg  = ($titleid_h & 0x08) >> 3;
-
-	return [ $dataflg, $titleid, $groupid, $major_ver, $minor_ver ]
-}
-
-sub save_cfg
-{	my( $name, $cfg ) = @_;
-
-	open(OUT, ">$name") or die "cant open $name\n";
-	print OUT sprintf("dataflg = $cfg->[0]\n");
-	print OUT sprintf("titleid = $cfg->[1]\n");
-	print OUT sprintf("groupid = $cfg->[2]\n");
-	print OUT sprintf("major_ver = $cfg->[3]\n");
-	print OUT sprintf("minor_ver = $cfg->[4]\n");
-	close(OUT);
-}
-
-sub read_title_key
-{	my( $ticket ) = @_;
-
-	my $enc_title_key = substr($ticket, 0x1BF, 16);
-	my $title_key_iv = substr($ticket, 0x1DC, 8) . pack("x8");
-
-	return &dec_cbc($common_key, $title_key_iv, $enc_title_key);
-}
-
-sub dec_cbc
-{	my( $key, $iv, $data ) = @_;
-
-	my $cbc = Crypt::Rijndael->new($key, Crypt::Rijndael::MODE_CBC);
-	$cbc->set_iv($iv);
-	return $cbc->decrypt($data);
-}
-
diff --git a/tools/bin/rom_header.template.sbin b/tools/bin/rom_header.template.sbin
deleted file mode 100644
index 11b30bab..00000000
Binary files a/tools/bin/rom_header.template.sbin and /dev/null differ