Returns true if the file specified is a real CLR type, otherwise false is returned.
function IsDotNetAssembly(const AFileName: string): Boolean; var fs: TFileStream; peHeader, peHeaderSignature, timestamp, pSymbolTable, noOfSymbol: dWord; machine, sections, optionalHeaderSize, characteristics: Word; dataDictionaryRVA: array[0..14] of dWord; dataDictionarySize: array[0..14] of dWord; i: Integer; begin fs := TFileStream.Create(AFileName, fmOpenRead or fmShareDenyWrite); try //PE Header starts @ 0x3C (60). Its a 4 byte header. fs.Seek($3C, soFromBeginning); fs.Read(peHeader, SizeOf(peHeader)); //Moving to PE Header start location... fs.Position := peHeader; fs.Read(peHeaderSignature, SizeOf(peHeaderSignature)); //We can also show all these value, but we will be //limiting to the CLI header test. fs.Read(machine, SizeOf(machine)); fs.Read(sections, SizeOf(sections)); fs.Read(timestamp, SizeOf(timestamp)); fs.Read(pSymbolTable, SizeOf(pSymbolTable)); fs.Read(noOfSymbol, SizeOf(noOfSymbol)); fs.Read(optionalHeaderSize, SizeOf(optionalHeaderSize)); fs.Read(characteristics, SizeOf(characteristics)); { Now we are at the end of the PE Header and from here, the PE Optional Headers starts... To go directly to the datadictionary, we'll increase the stream's current position to with 96 (0x60). 96 because, 28 for Standard fields 68 for NT-specific fields From here DataDictionary starts...and its of total 128 bytes. DataDictionay has 16 directories in total, doing simple maths 128/16 = 8. So each directory is of 8 bytes. In this 8 bytes, 4 bytes is of RVA and 4 bytes of Size. btw, the 15th directory consist of CLR header! if its 0, it is not a CLR file } fs.Seek($60, soFromCurrent); for i := 0 to 14 do begin fs.Read(dataDictionaryRVA[i], SizeOf(dataDictionaryRVA[i])); fs.Read(dataDictionarySize[i], SizeOf(dataDictionarySize[i])); end; finally fs.Free end; Result := (dataDictionaryRVA[14] <> 0) end;
Created in Delphi from http://www.codeproject.com/KB/cs/AutoDiagrammer.aspx