我找到了这个Perl程序:
''=~('(?{'.(']])@+}'^'-/@._]').'"'.('/<[*-_<+>?}{>]@}+@}]])@+}@<[*-_<+>?}{>]@^'^'`^=_^<]_[[]+[/,]_/]-/@._]/^=_^<]_[[]+[/,|').',$/})')
它打印出"Obfuscated Perl to print obfuscated Perl"
我想知道它是如何实际打印出这个的。
']])@+}' ^ '-/@._]'
添加详细的解释,那就太好了。 - Umair Ayubord("]")
是93,ord("-")
是45,93 xor 45 等于112。chr(112)
是p
。 - mobuse re 'eval';
。 - Sinan Ünür