lllsoslll 当前离线
二级士官
:: seehex.bat <file> @perl -x -S %~s0 %*&goto:eof #!perl open EXE,"@ARGV" or die $!; binmode EXE; while (<EXE>) { $_ =~ s/./sprintf("%02lx", ord $&)/egs; print; }复制代码
TOP
open EXE,'C:\Windows\System32\clip.exe' or die $!; binmode EXE; while (<EXE>) { $_ =~ s/./sprintf("%02lx", ord $&)/egs; print; }复制代码