Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

The good old days

by Ryszard (Priest)
on Dec 01, 2002 at 14:55 UTC ( [id://216765]=obfuscated: print w/replies, xml ) Need Help??

A nasty looking, but relativly simple bit of code.
#!/usr/bin/perl $splice="Just Another Perl Hacker ";$p='-42)=splice(map($_."\n"){@z},-85 )=splice(map($_."\n"){@z},-83)=splice(ma p($_."\n"){@z},-84)=splice(map($_."\n"){@z },10)=spl ice(map($_."\n"){@z},-23)=splice( map($_."\n"){@ z,-68)=spli ce(map($_."\n") {@z},-69)=splic e(map($_."\n"){ @z},-84)=spli ce(map($_."\n") {@z},-37)=spli ce(map($_."\n") {@z},-22)=splic e(map($_."\n"){ @z},-37)=splic e(map($_."\n"){ @z},45)=splic e(map($_."\n"){ @z},-1)=splice( map($_."\n"){@z },-33)=splic e(map($_."\n"){@z},-35)=splice(map( $_."\n"){ @z},-26)=splice(map($_."\n"){@z},37)=splice(map ($_."\n"){@z},-40)=splice(map($_."\n"){@z},-43 )=splice(map($_."\n"){@z},-47)=splice(map($_." \n"){@z},-75)=splice(map($_."\n"){@z}, -35)=splic e(map($_." \n") {@z}, -49)=splic e(map($_." \n"){@z},9 )=splice(m ap($_."\n" ){@z},-44) =splice (m a p($."\n" ){@z}, -48) =splice(ma p($_."\n"){ @z},-84) = splice(map ($_."\n"){@ z},54)=spl ice(map($_."\n"){@z},-15)=s plice(map($ _."\n"){@z },-78)=splice(map($_."\n"){@ z},-69)=spl ice(map($_."\n") {@z}, -74)=splice(map($_."\n"){@z} ,-62)=splic e(map($_."\n"){@z},-59 )=splice (map($_. "\n") {@z}, -104)=splice(map($_."\ +n "){@z},0 )=splice (map($_."\n "){@z},-26)=splice(map +( $_."\n"){@z},-49)=splice(map ($_."\n"){@z},-39)=splice(map($_."\n" +) {@z},-76)=splice(map($_."\n" ){@z},50)=splice(map($_." \n"){@z},-7)=splice(map($_." \n"){@z},-20)=splice(map( $_."\n"){@z},-67)=splice(m ap($_."\n "){@z},-24 )=splice(m ap($_."\n" ){@z},-12) =splice(map($_."\n"){@z},-31)=splice(map($_."\n"){@z},10)=splice(map($ +_. "\n"){@z},-48)=splice(map($_."\n"){@z},-38)=splice(map($_."\n"){@z},-8 +4) =splice(map($_."\n"){@z},0)=splice(map($_."\n"){@z},-14)=splice(map($_ +." \n"){@z},-54)=splice(map($_."\n"){@z},-54)=splice(map($_."\n"){@z},-67 +)= splice(map($_."\n"){@z},-55)=splice(map($_."\n"){@z},-69)=splice(map($ +_. "\n"){@z},-48)=splice(map($_."\n"){@z},33)=splice(map($_."\n"){@z},3)= +sp lice(map($_."\n"){@z},-28)=splice(map($_."\n"){@z},-47)=splice(map($_. +"\ n"){@z},-76)=splice(map($_."\n"){@z},34)=splice(map($_."\n"){@z},17)=s +pl ice(map($_."\n"){@z},-13)=splice(map($_."\n"){@z},-30)=splice(map($_." +\n "){@z},-24)=splice(map($_."\n"){@z},-69)=splice(map($_."\n"){@z},-44)= +sp lice(map($_."\n"){@z},8)=splice(map($_."\n"){@z},-48)=splice(map($_."\ +n" ){@z},-46)=splice(map($_."\n"){@z},-106)=splice(map($_."\n"){@z},50)=s +pl ice(map($_."\n"){@z},4)=splice(map($_."\n"){@z},-45)=splice(map($_."\n +") {@z},-43)=splice(map($_."\n"){@z},-27)=splice(map($_."\n"){@z},-58)=sp +li ce(map($_."\n"){@z},-91)=splice(map($_."\n"){@z},-104)=splice(map($_." +\n "){@z},17)=splice(map($_."\n"){@z},-32)=splice(map($_."\n"){@z},-69)=s +pl ice(map($_."\n"){@z},-34)=splice(map($_."\n"){@z},-26)=splice(map($_." +\n "){@z},41)=splice(map($_."\n"){@z},6)=splice(map($_."\n"){@z},-13)=spl +ic e(map($_."\n"){@z},-67)=splice(map($_."\n"){@z},-73)=splice(map($_."\n +") {@z},-27)=splice(map($_."\n"){@z},3)=splice(map($_."\n"){@z},41)=splic +e( map($_."\n"){@z},-1)=splice(map($_."\n"){@z},-83)=splice(map($_."\n"){ +@z },-51)=splice(map($_."\n"){@z},78)=splice(map($_."\n"){@z},46)=splice( +ma p($_. "\n"){@z},6)=splice(map( $_."\n"){@z},-7)=splice(map($_."\n"){@z +}, -15)=splice(map($_."\n"){@z},10)=splice(map($_."\n"){@z},-69)=splice(m +ap ($_."\n"){@z},-34)=splice( map($_."\n"){@z},69)=splice(map($_."\n"){@z +}, 34)=splice(map($_."\n"){@z},7)=splice(map($_."\n"){@z},-82)=splice(map +($ _."\n"){@z},-36)=splice(map($_."\n"){@z},65)=splice(map($_."\n"){@z},2 +7) =splice(map($_."\n"){@z},10)=splice(map($_."\n"){@z},2)=splice(map($_. +"\ n"){@z},7)=splice(map($_."\n"){@z},-67)=splice(map($_."\n"){@z},-104)= +sp lice(map($_."\n"){@z},-74,';$/=')=splice(map($_."\n"){@z},';$p=~s/\=sp +li ce\(map\(\$_.\"\\n\"//g;$p=~s/@//g;$p=~s/{//g;$p=~s/}//g;$p=~s/z//g;$p +=~ s/\(//g; $p=~s/\)//g;@q= split(/,/,$p);$i=0;for($k=0;$k<=$#q;$k++){pri +nt chr($q[$k]+ord(substr($splice,$i,1)));$i++;if($i>23){$i=0}};

Replies are listed 'Best First'.
Re: The good old days
by cecil36 (Pilgrim) on Dec 04, 2002 at 14:35 UTC
    Pretty awesome! I could have swore that I was running a C64 emulator on my Win2000 box.

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others browsing the Monastery: (5)
As of 2024-03-28 11:06 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found