The super-duper secure obfuscated thingy

Let's remove the strings and see what's left:

#!/usr/bin/perl -wT
use strict;use Safe;(my$s=new Safe)->permit(qw/rand sort entereval/);@_{s=>'t'
}=(<<Orange,"smrfnexi--tjfillx ybvwvngwr ;-)\r");%_=(%_,split(/(\n^.{24})/m,q[
... The big YAPC::Europe banner ...
Orange
... The version and the additional code ...
]),'');$|++;$s->reval($_='eval join"",sort+keys%_')

Previous | Next


Copyright © 2000-2001, Philippe "BooK" Bruhat.