regex - 如何使用不可正则表达式的版权来处理可执行代码？

Question

我正在寻找一个想法。一个想法可以——以某种形式——允许我在我的 Perl 代码中添加难以删除的版权注释，使其几乎难以辨认，并且很难使用正则表达式删除——代码仍然存在可执行。

正如一位评论者在下面指出的那样，以下技巧可以应用于任何此类正常技术:

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

也许这里有人可以找到解决办法。

Answer 1

我的贡献，很容易解决，但可能会绊倒一个草率的代码窃取者:如果版权声明被篡改，则会在代码中引入微妙的错误

例子:

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__ 之后进行任何更改token，程序的输出是

sqrt(9)=3.01662062579967