| 
######## add some ntfs specific magic numbers #####################################################################################
# read more http://sedna-soft.de/summary-information-stream/
# read www.sandersonforensics.com/Files/ZoneIdentifier.pdf
my $magic = <<EOF;
0	string	\\xfe\\xff\\x00\\x00\\x05\\x00\\x02\\x00\\x00	NTFS stream Metadata Win 5.0 (W2k)
0	string	\\xfe\\xff\\x00\\x00\\x05\\x01\\x02\\x00\\x00	NTFS stream Metadata Win 5.1 (XP)
0	string	\\xfe\\xff\\x00\\x00\\x05\\x02\\x02\\x00\\x00	NTFS stream Metadata Win x64/2003
0	string	\\xfe\\xff\\x00\\x00\\x06\\x00\\x02\\x00\\x00	NTFS stream Metadata Win Vista/2008
0	string	\\xfe\\xff\\x00\\x00				NTFS stream Metadata
0	string	[ZoneTransfer]\\x0d\\x0aZoneId=3		NTFS stream Zone.Identifier 3 (Internet) WinXP SP2 and above
0	string	[ZoneTransfer]					NTFS stream Zone.Identifier WinXP SP2 and above
EOF
if ( !-e "$ENV{HOME}/.magic" ) {
    open( MAGIC, ">$ENV{HOME}/.magic" ) or die "cannot open \$HOME/.magic $ENV{HOME} : $!";
    print MAGIC $magic;
    close MAGIC;
}
 |