findpatch.pl

Windows上的精简Linux系统

#!/usr/bin/perl
#
# Script to find the "patch area" of ldlinux.sys
#

eval { use bytes; };

open(SYS, "< ldlinux.sys") or die "$0: Cannot open ldlinux.sys\n";
eval { binmode SYS; };
if ( read(SYS,$sec1,512) != 512 ) {
    die "$0: ldlinux.sys: short read\n";
}
close(SYS);

for ( $i = 0 ; $i < 512; $i++ ) {
    $scan = substr($sec1,$i,12);

    if ( $scan eq "\032LDLINUX SYS" &&
	 substr($sec1,$i+16,2) eq "\x55\xAA" ) {
	last;
    }
}


die "$0: Did not find patch area signature\n" unless ( $i < 512 );

# Past signature, plus align to the subsequent dword.
print ((($i+18)+3) & ~3); print "\n";