我找到了这个Perl程序：
@H_301_2@''=~('(?{'.(']])@+}'^'-/@._]').'"'.('/<[*-_<+>?}{>]@}+@}]])@+}@<[*-_<+>?}{>]@^'^'`^=_^<]_[[]+[/,]_/]-/@._]/^=_^<]_[[]+[/,|').',$/})')
它打印“Obfuscated Perl打印混淆的Perl”
我想知道它是如何打印出来的.
解决方法
它正在充分利用
bitwise string XOR operator ^.
@H_301_2@']])@+}' ^ '-/@._]'
评估打印,
@H_301_2@'/<[*-_<+>?}{>]@}+@}]])@+}@<[*-_<+>?}{>]@^' ^ '`^=_^<]_[[]+[/,|'评估为Obfuscated Perl以打印混淆的Perl“并且整个程序缩减为
@H_301_2@$perl -MO=Deparse ... '' =~ m[(?{print "Obfuscated Perl to print obfuscated Perl",$/})]; ... Syntax OK