Subliminal Japh
#!/usr/bin/perl
$| = 1;
sub v {
(!($,-=(1-$|*2))or$,>42)and$|^=1;$_="@_";
s.\W..g?$..=$_.$ ":(print$" x$,.$..$/) &&& v
}
v"This~program~contains~more~than~one~message~~See~i~~__f~you~can~locate~all"
^"rNOUXPTIGRGK^CIHRGIHUXKITE^THGHXINEXKESUGGEXXuCEXOXXyyFX_OUXEAHXJIEARCXGJL";
v"~of~them~~The~message~you~are~reading~at~this~very~moment~is~already~one~o"
^"^OFXRHCK^^rNEXKESUGGEX_OU^ARCXREGBIHA^ARXTNOS^PCRYXKOMEHR^IUXAJTEADYXINEXI";
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_ERXGNIRHETXMEUUAGEXXaNBXiXQOULDXDCR^A";
v"nyone~could~have~~_figured~that~out~~for~themselves~~But~what~is~the~third"
^"H_OHC^EIULBXHGPE^XyFIASRED^TNGT^ISTXXFOTXTNCMSCJVEUX^bURXWHGR^OU^THEXRHOTD";
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~will~give"
^"AM^A^DIFFERENT^WAY^WHICH^i^WILL^LEAVE^UP^TO^YOU^TO^FIGURE^OUT^^i^WILL^GIVE";
v"~you~one~clue~however~~Think~about~how~what~you~would~do~i~_~_f~you~wanted"
^"^_ISXINEXEJSC^NIQCPERXXtHINK^GDOURXHOQXQNAT^_ISXWOSJD^BI^OXyXyFX_ISXWANTED";
v"~#to~unra=vel~a~pa_rt*icularly~tricky~ob~~fuscation~~Perhaps~one~far~more~"
^"^sRO^SHRGXVEL^GXPA-TTFOCULARL_XTROEK_XOBXXFSUCAROOHX^vCRHGVS^ONCXFATXMORE^";
v"sophisticated~than~this~but~still~containing~a~bunch~of~complicated~Perl~t"
^"SIVHIURIEGRCD^RNGHXTHOU^BUT^SROJJXEOHRGOHONAXA^BUNENXIF^CIKVJICGREDXvERL^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~cap~as~I"
^"URXTHE^MIUT^MAURETXFUJXOF^pERJXWIXXZGTDSXXsIXPURXOHXYISR^RNINKIHA^EGP^AS^i";
v"~am~confident~you~will~discover~the~third~message~~~GOOD~LUCK~~~liverpole~"
^"^GK^CONFOBCHR^_IU^QOLJXBOUCOVCT^TNC^RNIRBXMEUUGAE^XXgoib^jsemX^XJIVCTPOLE^";
v
@ARGV=split//,"/:L"; map{print substr crypt($_,ord pop),2,3}qw"PerlyouC READPIPE provides"
Re: Subliminal Japh
created: 2006-03-04 15:55:05
Hey liverpole that is pretty cool. I found the third message, along with a fourth message!
SOA, DOA, GOA, whatever
hypknotizzed
Re^2: Subliminal Japh
created: 2006-03-05 10:43:32
Very good job, hypknotizzed! I see from your homenode that you are in middle school, so I'm doubly impressed with your sleuthing skills.
@ARGV=split//,"/:L"; map{print substr crypt($_,ord pop),2,3}qw"PerlyouC READPIPE provides"
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
created: 2006-03-05 17:00:50
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.