mirror of
https://github.com/horsicq/Detect-It-Easy.git
synced 2026-06-24 01:54:08 +00:00
22 lines
No EOL
603 B
Text
22 lines
No EOL
603 B
Text
// DIE's signature file
|
|
init("compiler","Delphi");
|
|
|
|
function detect(bShowType,bShowVersion,bShowOptions)
|
|
{
|
|
var nSection=MACH.getSectionNumber("__rodata");
|
|
if(nSection!=-1)
|
|
{
|
|
var nSectionOffset=MACH.getSectionFileOffset(nSection);
|
|
var nSectionSize=MACH.getSectionFileSize(nSection);
|
|
|
|
var nOffset=MACH.findSignature(nSectionOffset,nSectionSize,"'TObject'");
|
|
if(nOffset!=-1)
|
|
{
|
|
sName="Embarcadero Delphi";
|
|
sVersion="XE2-XE6"
|
|
bDetected=1;
|
|
}
|
|
}
|
|
|
|
return result(bShowType,bShowVersion,bShowOptions);
|
|
} |