NC1000FirmwareGenerator

#!/usr/bin/perl
 
if ($#ARGV != 1) {
        print "Usage: $0 linux.zip romfs.img > output.bin";
        die;
}
 
my $linux = $ARGV[0];
my $romfs = $ARGV[1];
 
if ( ! -f $linux or ! -f $romfs ) {
        die "both files must exist";
}
 
print "BNEG";
print pack('I', 1);
print pack('I', 1);
 
my($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
 $atime,$mtime,$ctime,$blksize,$blocks) = stat($linux);
print pack('I', $size);
 
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
 $atime,$mtime,$ctime,$blksize,$blocks) = stat($romfs);
print pack('I', $size);
 
foreach my $file (($linux, $romfs)) {
        open(FH, "<". $file);
        while(<FH>) {
                print $_;
        }
        close(FH);
}