plp626

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

:: seehex.bat <file>
@perl -x -S %~s0 %*&goto:eof

#!perl
open EXE,"@ARGV" or die "$!";
binmode EXE;
while (<EXE>) {
    print &asc2hex($_);
}

sub asc2hex {
    ($s = shift) =~ s/./sprintf("%02lx", ord $&)/egs;
    return $s;
}
复制代码