Japhy New Year
Try running this first without arguments (or with an argument of '0'). Then try it with a numeric argument of '1' or '2'. (Update: The values '2005' and '2006' also work in place of '1' and '2').
@ARGV=split//,"/:L"; map{print substr crypt($_,ord pop),2,3}qw"PerlyouC READPIPE provides"
Happy New Year to all at Perlmonks!
#!/usr/bin/perl -w
$_=q/
```````````````````````````````````````````````````````````````````````````
````````````````````''````''``xp(EM((x<``''````````````````````````````````
```````` ''`.... '````''pMMMMMMMMMME<''````````````````````````````````
````````' '~>pxaaao~````~FMME(xxMMMMMMM{~```''``''''''''~><<<````````````
`````````..=p(pppqqqb{b>'oWWW{>'~(MWWWWWWWW~'''''`'''''~b{F{((EE(x`````````
```````'' cqbbbbpqqqbbbbFWWWo'~bWMMMMMMMWWM(``''``''`;(((({{((((((E<```````
```````''qqqbbo>;=adbbppMMW{`>((((((((p;`````
````````xdddx;`;))(((((((p`````
```````;(dda.=addqqqbbb}WW@@@@W####MM##@WM###|>>!!|F(()a!x{{)((((((((E<````
```````xbqqc~bbppqqqbbb{WWW@@@WM###MMM@@#MM#@c';;=c}{{}}}{{{)((((((((((````
```````(bqqqbbbppqqdppp{W####@WM###MMM@@#MW@@ ```=::x(())){}((((((((((E;```
```````(pdddpppppqqdppp}@MM##@WM###MMW@##MM@@.```.==;<()))()((((((((((Ex```
```````(bqqqbbbppqqqbbqqHWW@@@WM###MWW##WWW@c:~~~::~~~>F}))(((((((((((Ex```
```````pbqqqbbbppqqqbbqq}WW@@@WM###@W##MWWMG=.=`..;;;;;b}))(((((((((((E````
```````<)ddddpppdddddppqq)#M###M######MMWWE=.....;`;;`;~}))((((((((((((````
````````(pppppppbbbbbbbbbb{WWWWW@##MMMMMWF>: ''''~''~~~{)((((((((((((<````
````````~{bbbbbpbbbbbbbbbb{>FWWW@##MMMMEb~;=..````;```;~b)(((((((((((p`````
````````'~(ppbbppppppppbb(b((bb{{bo~'{b'~bFH###G=;;`''......``;;`==qF((((((E(x`````````
````````''```''`;o{F''''{{~~{FFFFEEEp;`;'~`````;`````;FEEEEEFFEEEEEEx;~';;'~``;;;~~>```(EE(``````````````
````````'''''' . '>''''{HHHFFFFFFEEEEEE(<`;~~~';;;;x;''''`;<```````````````
````````''```''. '>'''oFHFFFFFFFFEEEEEEE{bo>~;' 'oHHHFFGGGEEGGGb'....x`.``````````p;`````````````
````````''''''' '''' !q ' '':qHHHGGGEEEd: `....;!````````'``<;`````````````
``````````'````.````;a q..``...;(EEpx<`. '' q''''''''''`;<`````````````
``````````''```.`'''x; :a.``...EEEx```` '' >>'''''''''';x`````````````
```````````''``.`''`x`' =a```..!(p;.```' .````. 'b``````````;p`````````````
```````````''`.. '`x;`''..p```.d...```''..````. 'o;`````````;x`````````````
```````````''```''`p``''```p```>'`````''```````''~x`````````x;`````````````
````````'''''''''''o'`''''''b~o'''```''````````'''x``````'``p``````````````
````````'''''''''''o'`'''''''oo'''``''`````````'''E`````'''(```````````````
`````````````''````x``''````'>x;```''```''''''''''F''''''~o'```````````````
`````````````''..``p;`''.```'>`x;``'````''`````'''x`..`;p;`````````````````
````````''''' '>~`' ````'b``x```````''`````''~<..!<<```````````````````
````````''''''' ''`' ````~>```p``````''`````''ox!!.`````````````````````
`````````````''`...``` '````~~```;x`````''`````>ob`...`````'```````````````
````````````'''' ..`` '````~~````<;````''```~'/)[$;];$;&&s
/[$,]/@/gm;$;&&s/[^\n@]/ /gm;print
@ARGV=split//,"/:L"; map{print substr crypt($_,ord pop),2,3}qw"PerlyouC READPIPE provides"
Re: Japhy New Year
created: 2006-01-01 04:26:22
very, very nice :)
I checked with my wife (a native chinese), and she tells me that the characters are "old-style" chinese, usually referred to as Traditional Chinese (as opposed to Simplified, which is more commonly used). Although I think I saw you mention something in the CB about them being Japanese. I think Japanese and Traditional Chinese characters are very similar.
Re: Japhy New Year
created: 2006-01-01 18:08:56
Errr, on my fedora box with Perl 5.8.5, I just get everything up to the p; line printed. Am I missing something?
cLive ;-)
Re: Japhy New Year
created: 2006-01-01 18:48:22
It's not exactly a "spoiler" in the usual sense, but for anyone interested, here is the program I used to generate the obfuscation.
@ARGV=split//,"/:L"; map{print substr crypt($_,ord pop),2,3}qw"PerlyouC READPIPE provides"
@ARGV=split//,"/:L"; map{print substr crypt($_,ord pop),2,3}qw"PerlyouC READPIPE provides"
Re: Japhy New Year
created: 2006-01-02 00:31:10