Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

2nd in as many days:

by the_slycer (Chaplain)
on Jun 07, 2001 at 21:53 UTC ( [id://86662]=obfuscated: print w/replies, xml ) Need Help??

I must not have a lot to do. Similar to my last one, but better I think.

$_='a02756b636168620c62756072027568647f6e61620473757a6';split//,[q(jus +t another perl hacker)];$}='chr((ord$_)+65)';$.=join'',$_[6],$_[7];@| +=map{$..$_}(split,72,65,76,65,72,73,65);shift@|;$t=join'',map{eval'ch +r hex'}@|;$_=(join'20',(split/02/,eval $t))[0];;$$='print map{eval $} +}@]';map{push@]=>chr(eval($..$&)-65)while s/..//}$_;eval$$;print;

Replies are listed 'Best First'.
Re: 2nd in as many days:
by iamcal (Friar) on Jun 08, 2001 at 11:56 UTC
    nice. a quick breakdown:
    # # put some characters in $_ # $_='a02756b636168620c62756072027568647f6e61620473757a6'; # # split an array ref into @_ : A R R A Y ( 0 x 8 a 6 f 0 1 c ) # split//,[q(just another perl hacker)]; # # set $} to this literal string # $}='chr((ord$_)+65)'; # # set $. to '0x' (taken from @_) # $.=join'',$_[6],$_[7]; # # load @| with $. ('0x') followed by the first $_ then the literal # numbers # # @| contains 0xa0275..,0x72,0x65,0x76,0x65,0x72,0x73,0x65 # @|=map{$..$_}(split,72,65,76,65,72,73,65); # # get rid of the first value (the long one) from @| # shift@|; # # assign $t the string or chars made from the ASCII values in @| # # $t now equals 'reverse' # $t=join'',map{eval'chr hex'}@|; # # split $_ on '02', reverse the whole thing and re-join with '20' # # $_ now equals '6a75737420616e6f74686572207065726c206861636b65720a' # $_=(join'20',(split/02/,eval $t))[0]; # # an extra semi colon? # ; # # assign the literal string to $$ # $$='print map{eval $}}@]'; # # loop through $_ finding pairs of characters. append $. ('0x') # before these then eval and chr them, before pushing onto @] # map{push@]=>chr(eval($..$&)-65)while s/..//}$_; # # evaluate $$ which adds 65 to each char in @] # eval$$; # # print output # print;
      Actually your last 2 are incorrect. The eval $$ takes care of the print - remember $$ was set to 'print map{eval $}}@]' (with $} being set to 'chr((ord$_)+65)' - this is what adds the 65). The last print was there just for redirection. It works because $_ is undef at this point.
        "i am a muppet" == true

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others perusing the Monastery: (5)
As of 2024-07-24 18:32 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?
    erzuuli‥ 🛈The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.