Definitely don't run this random #perl code my@a=sub{my@a=@_; map{(-10, -12, 86, ...

[serpent7776]

... 56, -82, -5, -82, 1, 73, 54, -13, -70)[$]+$a[$]} 0..11
}->((unpack("C", 'rm -rf')) x 2);my@w=(0x64, 0x61, 0x79);
print eval "'" . pack("C", @a) . pack("C*", @w) . "\n'";


Posted via D.Buzz

Comments

[mehmetfix]

What exactly does this code do?

Posted via D.Buzz

[serpent7776]

Who knows ¯_(ツ)_/¯

Posted via D.Buzz