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