| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 5391 人关注过本帖
标题:判断是否是 pe 文件
只看楼主 加入收藏
zhu224039
Rank: 8Rank: 8
等 级:贵宾
威 望:17
帖 子:862
专家分:792
注 册:2012-7-29
结帖率:59.52%
  问题点数:0  回复次数:0   
判断是否是 pe 文件
#!/usr/bin/perl
#$filename='D:\cs\counter-strike\hl.exe'  ;
print "please insert a file name,and i will tell you it is a pe file?\n",":";
chomp ($filename=<STDIN>);
open CDFD , '<' ,$filename or die $!;
read CDFD,$dir,400;
$mzdos=substr $dir,0,2;
if($mzdos ge 'MZ')
{
  #print $dir,"\n";
  $elname=substr $dir,60,4;
  $elname=unpack "l",$elname;
  #print $elname,"\n";
  $peHEAD=substr $dir,$elname-1,4;
  if($peHEAD ge "PE"){
      print "this is a pe file\n";
  }
  else{
       print "NO";
       exit 0;
  }

}
else{
     print "NO";
     exit 1;
}
搜索更多相关主题的帖子: file insert please 
【推荐】大型监控、工控、组态VC++./C#源码组件库2019下载!
【推荐】超50万数控、建模仿真、电力VC++/.NET图形源码库下载!
【推荐】专业CAD\GIS\业务流程VC++/C#可视化图形软件源码库下载!
2014-07-13 08:31
快速回复:判断是否是 pe 文件
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.079510 second(s), 7 queries.
Copyright©2004-2019, BCCN.NET, All Rights Reserved