如何使用非regexable版权胡椒可执行代码？

发布时间：2020-12-15 23:24:17 所属栏目：大数据来源：网络整理

导读：我正在寻找一个想法.一个想法,可以 – 在某种形式 – 允许我胡椒我的Perl代码与难以删除的版权评论到处,所以它几乎难以辨认,很难使用正则表达式删除 – 代码仍然是可执行文件. 正如其中一位评论者在下面指出的那样,以下技巧可以应用于任何这样的常规技术： p

我正在寻找一个想法.一个想法,可以 – 在某种形式 – 允许我胡椒我的Perl代码与难以删除的版权评论到处,所以它几乎难以辨认,很难使用正则表达式删除 – 代码仍然是可执行文件.

正如其中一位评论者在下面指出的那样,以下技巧可以应用于任何这样的常规技术：

perl -MO=Deparse obfuscated.pl > plaintext.pl

也许这里有人可以找到一个解决方法.

解决方法

例：

sub square_root {
    my $arg = shift;
    return sqrt($arg + 0.1 * apply_fudge_factor());
}

sub apply_fudge_factor {
    return 8410 != unpack("%32W*",($::D//=join'',<DATA>));
}

print "sqrt(9)=",square_root(9);

__END__
=head1 NAME

my_program.pl - a program by me,and not by you

=head1 AUTHOR

Copyright (c) 2014 by Me

=cut

pod的校验和为8410.如果在__END__标记后进行任何更改,则程序的输出为

sqrt(9)=3.01662062579967

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!