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

First time obfuscation

by rdw (Curate)
on Jul 21, 2000 at 07:49 UTC ( #23537=obfuscated: print w/replies, xml ) Need Help??

#! /usr/bin/perl -w use strict;$,='er'x12;$/=$;=ord(' ');map{s/(.)//;map{substr ($,,-$/+ord,1)=chr($;)}split//;$;+=ord($1)-$/;}split/9/, 'H$1,9"29& 91-9"%39%49#)9!59"09!&9#\'9!9!"9!#(9!!';print$,;
Have fun,

Rich

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (9)
As of 2021-01-28 13:13 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?