Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Subliminal Japh

by liverpole (Monsignor)
on Mar 04, 2006 at 19:51 UTC ( #534515=obfuscated: print w/replies, xml ) Need Help??

#!/usr/bin/perl $|++; sub v { (!($,-=(1-$|*2))or$,>42)and$|--;$_="@_"; s.\W..g?$..=$_.$ ":(print$" x$,.$..$/) &&& v } v"This~program~contains~more~than~one~message~~See~i~~__f~you~can~loca +te~all" ^"rNOUXPTIGRGK^CIHRGIHUXKITE^THGHXINEXKESUGGEXXuCEXOXXyyFX_OUXEAHXJIEA +RCXGJL"; v"~of~them~~The~message~you~are~reading~at~this~very~moment~is~already +~one~o" ^"^OFXRHCK^^rNEXKESUGGEX_OU^ARCXREGBIHA^ARXTNOS^PCRYXKOMEHR^IUXAJTEADY +XINEXI"; v"f~them~~So~VER_~_Y~good~~~That~is~one~message~you~have~__~___found~~ +I_f~yo" ^"F^TNCMXXsOXperyXyy^GOIB^^^tHGRXOUXOHCXMCUSGAE^_IU^NGVE^yyXyyyFISHB^^ +oyF^_I"; v"u~ru~n~the ~progr_am~ you~will~find~yet~another~message~~And~I~would +~bet~a" ^"U^RS4NXRHEUXPROGT,GM^T_OU^WIJJ^FOHDX_ERXGNIRHETXMEUUAGEXXaNBXiXQOULD +XDCR^A"; v"nyone~could~have~~_figured~that~out~~for~themselves~~But~what~is~the +~third" ^"H_OHC^EIULBXHGPE^XyFIASRED^TNGT^ISTXXFOTXTNCMSCJVEUX^bURXWHGR^OU^THE +XRHOTD"; v"~message~I~wonder~~Well~for~t_hat~y ou~will~h ave~t!o~inspec=t~!the~ +#progr" ^"^KCUSAGCXoXWONBCTX^wEJJ^FOR^R>HARXYNIU^QOLLXNOGVE^RUO^IHUPEEUTXDRNC^ +QVROAT"; v"am~a~different~way~which~I~will~leave~up~to~you~to~figure~out~~I~wil +l~give" ^"AM^A^DIFFERENT^WAY^WHICH^i^WILL^LEAVE^UP^TO^YOU^TO^FIGURE^OUT^^i^WIL +L^GIVE"; v"~you~one~clue~however~~Think~about~how~what~you~would~do~i~_~_f~you~ +wanted" ^"^_ISXINEXEJSC^NIQCPERXXtHINK^GDOURXHOQXQNAT^_ISXWOSJD^BI^OXyXyFX_ISX +WANTED"; v"~#to~unra=vel~a~pa_rt*icularly~tricky~ob~~fuscation~~Perhaps~one~far +~more~" ^"^sRO^SHRGXVEL^GXPA-TTFOCULARL_XTROEK_XOBXXFSUCAROOHX^vCRHGVS^ONCXFAT +XMORE^"; v"sophisticated~than~this~but~still~containing~a~bunch~of~complicated~ +Perl~t" ^"SIVHIURIEGRCD^RNGHXTHOU^BUT^SROJJXEOHRGOHONAXA^BUNENXIF^CIKVJICGREDX +vERL^T"; v"ricks~and~methods~of~deception!~well~bey_on=d~the~i magin+ation~o#~f +~all~b" ^"ROEMUXANBXMETHIBUXOF^BCCEPTIOHI^WCJLXDEY>IN^B^THE^OKKGGINNGTIONXIQXF +^ALL^B"; v"ut~the~most~master~ful~of~Perl~wi~~zards~~So~put~on~your~thinking~ca +p~as~I" ^"URXTHE^MIUT^MAURETXFUJXOF^pERJXWIXXZGTDSXXsIXPURXOHXYISR^RNINKIHA^EG +P^AS^i"; v"~am~confident~you~will~discover~the~third~message~~~GOOD~LUCK~~~live +rpole~" ^"^GK^CONFOBCHR^_IU^QOLJXBOUCOVCT^TNC^RNIRBXMEUUGAE^XXgoib^jsemX^XJIVC +TPOLE^"; v

Update:  changed $|^=1 to $|--, as per jdalbec's good suggestion below, and changed the first $| = 1 to $|++ for balance.


@ARGV=split//,"/:L"; map{print substr crypt($_,ord pop),2,3}qw"PerlyouC READPIPE provides"

Replies are listed 'Best First'.
Re: Subliminal Japh
by hypknotizzed (Beadle) on Mar 04, 2006 at 20:55 UTC
    Hey liverpole that is pretty cool. I found the third message, along with a fourth message!

    SOA, DOA, GOA, whatever

    hypknotizzed

      Very good job, hypknotizzed!  I see from your homenode that you are in middle school, so I'm doubly impressed with your sleuthing skills.

      The "fourth message" you found is, of course, very closely related to the "second message", even though it appears in the same context as the "third message".  It took me a long time to figure out how to even produce the third message, but once that was working it was fairly easy to incorporate the "first message" as well.


      @ARGV=split//,"/:L"; map{print substr crypt($_,ord pop),2,3}qw"PerlyouC READPIPE provides"
Re: Subliminal Japh
by jdalbec (Deacon) on Mar 05, 2006 at 22:00 UTC
    Minor golf - due to the special nature of $| you can replace $|^=1 with $|-- to obtain the same result with 1 less character and in somewhat more obfuscated fashion IMO.
Re: Subliminal Japh
by wulvrine (Friar) on Mar 20, 2006 at 13:35 UTC
    Watson! He's done it again! I've got 4 messages, and VER_Y impressed as per usual. Anyone have any 7% solution for my head after this one?

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://534515]
Approved by McDarren
help
Chatterbox?
[Corion]: erix: There is somebody who has hacked up some Ruby scripts to do just that, but the Ruby scripts have some hardcoded #defines (well, reimplement those), so the extraction doesn't compile for Windows...
[Corion]: libpg_query
[Corion]: ... and I think "porting" it basically means (re)implementing a C preprocessor and feeding that one with the appropriate #defines for the platforms, and/or providing stub implementations for OS-specific functions that the query parser really wants to call
[erix]: ah, interesting. Well, sounds like a good start..
[Corion]: In the long run, obviously, the parser wouldn't need/call OS-specific stuff anyway, but we're a long way from that :D
[Corion]: erix: Yeah - I think basically the solution should be a "fake_os.h", which implements just enough stub routines for any OS to make the compilation of the parser pass. But for that, the complete (relevant) source code needs to be extracted, and the ...
[Corion]: ... Ruby script only extracts parts of the source code as Windows-specific files aren't considered relevant

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (8)
As of 2018-07-23 11:36 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    It has been suggested to rename Perl 6 in order to boost its marketing potential. Which name would you prefer?















    Results (464 votes). Check out past polls.

    Notices?