Perl怎样查看可执行文件的十六进制编码？

Perl

比如，我有一个可执行文件：
C:\Windows\System32\clip.exe
怎样查看它的十六进制编码？就像用UE打开那样

plp626

cmd命令行下 "seehex C:\Windows\System32\clip.exe"

1. :: seehex.bat <file>
   
2. @perl -x -S %~s0 %*&goto:eof
   
3. 
   
4. #!perl
   
5. open EXE,"@ARGV" or die "$!";
   
6. binmode EXE;
   
7. while (<EXE>) {
   
8.     print &asc2hex($_);
   
9. }
   
10. 
    
11. sub asc2hex {
    
12.     ($s = shift) =~ s/./sprintf("%02lx", ord $&)/egs;
    
13.     return $s;
    
14. }

复制代码

sxw

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. open(FH,"<",'C:\Windows\System32\clip.exe') or die;
   
6. my $a;
   
7. my $buffer;
   
8. while (read(FH,$buffer,16)) {
   
9.     $a=unpack("H*",$buffer);
   
10.         $a=~s/../$& /g;
    
11.         print $a;
    
12.         }
    
13. close(FH);
    

复制代码

Perl

回复 3# sxw


多谢。用unpack和ord得到的结果有点差异，请问是为什么？

1. open EXE,'C:\Windows\System32\clip.exe';
   
2. binmode EXE;
   
3. while (<EXE>) {
   
4.     print &asc2hex($_);
   
5. }
   
6. 
   
7. sub asc2hex {
   
8.     ($s = shift) =~ s/./sprintf("%02lx ", ord $&)/egs;
   
9.     return $s;
   
10. }

复制代码

sxw

回复 4# Perl


    呵呵，不清楚，plp26的结果比3楼的多了1kb，下面的也可以吧

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. open(FH,"<",'C:\Windows\System32\clip.exe') or die;
   
6. my @a;
   
7. my $buffer;
   
8. while (read(FH,$buffer,16)) {
   
9.     @a=unpack("H*",$buffer);#@a中只有一个元素
   
10.          print $a[0],"\n";
    
11.         }
    
12. close(FH);
    

复制代码

lllsoslll

把2楼精简下：

1. :: seehex.bat <file>
   
2. @perl -x -S %~s0 %*&goto:eof
   
3. 
   
4. #!perl
   
5. open EXE,"@ARGV" or die $!;
   
6. binmode EXE;
   
7. while (<EXE>) {
   
8.    $_ =~ s/./sprintf("%02lx", ord $&)/egs;
   
9.    print;
   
10. }

复制代码

lllsoslll

1. open EXE,'C:\Windows\System32\clip.exe' or die $!;
   
2. binmode EXE;
   
3. while (<EXE>) {
   
4.    $_ =~ s/./sprintf("%02lx", ord $&)/egs;
   
5.    print;
   
6. }

复制代码