这个Perl代码如何工作？

发布时间：2020-12-15 21:48:37 所属栏目：大数据来源：网络整理

导读：我找到了这个Perl程序： ''=~('(?{'.(']])@+}'^'-/@._]').'"'.('/[*-_+?}{]@}+@}]])@+}@[*-_+?}{]@^'^'`^=_^]_[[]+[/,]_/]-/@._]/^=_^]_[[]+[/,|').',$/})') 它打

我找到了这个Perl程序：

''=~('(?{'.(']])@+}'^'-/@._]').'"'.('/<[*-_<+>?}{>]@}+@}]])@+}@<[*-_<+>?}{>]@^'^'`^=_^<]_[[]+[/,]_/]-/@._]/^=_^<]_[[]+[/,|').',$/})')

它打印“Obfuscated Perl打印混淆的Perl”

我想知道它是如何打印出来的.

它正在充分利用 bitwise string XOR operator ^.

']])@+}' ^ '-/@._]'

评估打印,

'/<[*-_<+>?}{>]@}+@}]])@+}@<[*-_<+>?}{>]@^' 
    ^ '`^=_^<]_[[]+[/,|'

评估为Obfuscated Perl以打印混淆的Perl“并且整个程序缩减为

$perl -MO=Deparse ...
'' =~ m[(?{print "Obfuscated Perl to print obfuscated Perl",$/})];
... syntax OK