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 ( [id://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;

[download]
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

Back to Obfuscated Code

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
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? • Last hour • Other CB clients
Other Users?
Others rifling through the Monastery: (2)
As of 2024-04-25 06:05 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found