Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

wxObfu

by Jouke (Curate)
on Sep 03, 2003 at 09:53 UTC ( #288572=obfuscated: print w/ replies, xml ) Need Help??

use Wx;sub qq{open$Wx=>$0;scalar<$Wx>=~m$;$;Wx::MessageBox($1=>$`) &&exit}@p::ISA=Wx::App,*p::OnInit=*qq;p->new->MainLoop;
If you put this obfu in a file, remove any leading whitespace or newlines and leave the linebreaks as they are, it all should work.

Jouke Visser, Perl 'Adept'
Using Perl to help the disabled: pVoice and pStory

Comment on wxObfu
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://288572]
Approved by valdez
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (3)
As of 2014-11-28 04:36 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (193 votes), past polls