x20

How can I de-obfuscate or decode this Perl code?

匿名 (未验证) 提交于 2019-12-03 01:08:02
可以将文章内容翻译成中文,广告屏蔽插件可能会导致该功能失效(如失效,请关闭广告屏蔽插件后再试): 问题: I found this code and I think it's encoded. I tried to understand how it's encoded or how can read it. Does anyone have an idea to decode this code? #!/usr/bin/perl eval unpack u=>q{_<')I;G0@(EQN7&5<>#5"7'@S,UQX,S-<>#9$7'@U-UQX-C%<>#<R7'@V15QX-CE<>#9%7'@V-UQX,C!<>#4Y_7'@V1EQX-S5<>#(P7'@T1%QX-C%<>#<Y7'@R,%QX-$5<>#8U7'@V-5QX-C1<>#(P7'@U-%QX-D9<>#(P7'@T_.5QX-D5<>#<S7'@W-%QX-C%<>#9#7'@V0UQX,C!<>#<S7'@V1EQX-D1<>#8U7'@P05QX,C!<>#(P7'@R,%QX_,C!<>#(P7'@R,%QX,C!<>#(P7'@R,%QX-$1<>#9&7'@V-%QX-S5<>#9#7'@V-5QX-S-<>#!!7'@R,%QX,C!<_>#(P7'@R,%QX,C!<>#(P7'@R

/scripts/bin2c.c

主宰稳场 提交于 2019-11-29 21:40:54
/* * Unloved program to convert a binary on stdin to a C include on stdout * * Jan 1999 Matt Mackall < mpm@selenic.com > * * This software may be used and distributed according to the terms * of the GNU General Public License, incorporated herein by reference. */ /* *此函数用于将一个二进制文件转化为一个C字符串数组,如可将图像文件转化为一个字符数组形式 *运行例子如下: *cat bin2c | ./bin2c test *将得到如下结果: *const char test[] = "/x7f/x45/x4c/x46/x01/x01/x01/x00/x00/x00/x00/x00/x00/x00/x00/x00" "/x02/x00/x03/x00/x01/x00/x00/x00/x50/x83/x04/x08/x34/x00/x00/x00" "/xa8/x09/x00/x00/x00/x00/x00/x00/x34/x00/x20/x00/x08/x00/x28/x00" "/x1e/x00/x1b/x00/x06