Source code of Windows XP (NT5)
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

94 lines
2.0 KiB

#----------------------------------------------------------------#
# Script: webbblade.pl
#
# (c) 2001 Microsoft Corporation. All rights reserved.
#
# Purpose: This script has the effect of updating the hash array
# WebBladeDisallowedHashes in webbladehashesp.h with the hash
# value for the exe specified as an argument.
# webbladehashesp.h should be writable (opened for edit).
# usage: perl webbpade.pl
# <g:\nt\base\win32\client\webbladehashesp.h>
# <c:\disallow\candidate1.exe>...
# <c:\disallow\candidaten.exe>
#
#
# Version: <1.00> 06/04/2001 : VishnuP
#----------------------------------------------------------------#
$VERSION = '1.00';
if ($#ARGV < 1) {
die "usage: perl webbblade.pl <webbladehashesp.h> <candidate1.exe> <candidate2.exe> ...\n";
}
$headerfile = shift;
open(WEBBLADE, $headerfile) || die "cannot open file for reading\n";
@hasharray = ();
%hashes = ();
foreach $candidate (@ARGV) {
if (-e $candidate) {
#
# first calculate the hash for each candidate.exe etc.
# even if one fails, exit
#
$hashcmd = "hash.exe $candidate";
$output = `$hashcmd`;
if ($output =~ m/Hashing Succeeded:([0-9a-fA-F]{32,32})/){
$hash = $1;
}
else {
print "\nHashing failed for file $candidate with the following message ... $output\n";
die "\n Please remove the offending files and rerun the script\n";
}
$hashquote = "\"$hash\"";
$hashes{$hashquote} = 1;
}
else {
die "\n$candidate not found\n";
}
}
$firstline = 1;
while (<WEBBLADE>){
if (/([\"0-9a-fA-F]{34,34})/){
if ($firstline == 0){
$hashes{$1} = 1;
}
}
else {
$poundDefine = $_;
}
$firstline = 0;
}
close(WEBBLADE);
#
# then sort it
#
@sortedHasharray = sort (keys %hashes);
#
# for atomicity, make a temp file and copy it onto webbladehashesp.h
#
open(TMP, ">$headerfile.tmp") || die "cannot open temporary file for writing\n";
$allhashes = join(",\\\n", @sortedHasharray);
print TMP "$poundDefine";
print TMP "$allhashes";
close(TMP);
$copycmd = "copy /Y $headerfile.tmp $headerfile";
print `$copycmd`;
unlink("$headerfile.tmp");