X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: f996b,c41350f111057a73,start X-Google-Attributes: gidf996b,public X-Google-Thread: fa0ae,eb66a30df04c6a5c X-Google-Attributes: gidfa0ae,public X-Google-ArrivalTime: 2001-08-18 13:45:40 PST Path: archiver1.google.com!newsfeed.google.com!newsfeed.stanford.edu!news.tele.dk!small.news.tele.dk!194.213.69.151!news.algonet.se!newsfeed1.telenordia.se!algonet!newsfeed1.funet.fi!newsfeeds.funet.fi!news.cc.tut.fi!uutiset.saunalahti.fi!not-for-mail From: Ilmari Karonen Newsgroups: comp.lang.perl.misc,alt.ascii-art Subject: Re: This is not a question ... call me slow if you like... Date: 18 Aug 2001 20:45:35 GMT Organization: (dis)Order of the Holy Spoon (or whatever) Lines: 53 Message-ID: <998164032.16642@itz.pp.sci.fi> References: <997446825.1634.0.nnrp-13.d4f094e4@news.demon.co.uk> <9l19mr$9ug$1@mamenchi.zrz.TU-Berlin.DE> <3B7B7E29.E1423382@earthlink.net> Reply-To: Ilmari Karonen NNTP-Posting-Host: simpukka.saunalahti.fi X-Trace: tron.sci.fi 998167535 10813 195.74.0.20 (18 Aug 2001 20:45:35 GMT) X-Complaints-To: newsmaster@saunalahti.fi NNTP-Posting-Date: 18 Aug 2001 20:45:35 GMT User-Agent: postit.pl 0.05 Xref: archiver1.google.com comp.lang.perl.misc:65015 alt.ascii-art:7019 [Crossposted to alt.ascii-art. For those reading this there, the blocks of line noise we're discussing are obfuscated Perl programs.] In article <3B7B7E29.E1423382@earthlink.net>, Benjamin Goldberg wrote: >Anno Siegel wrote: >> >> We can compress better than that. The banner uses only two characters, so >> a single bit can tell which. It's less true than yours (I had to unify the >> line length) but it fits in four lines: >> >> use MIME::Base64; $vec = decode_base64( q( vMj5OCHni76DRBEhGkVEFCQkMghfKSK+ry >> IRQ/hSERF9k4giQh SLiCgog+MQopBDRF8CAAAAAAAAAAAAAAAAAAAAAM93gshx0ncGiIIURFFUgj >> RA9JXg+4LxlQGebwTRF4xvDBAEJYiiqAQFgOBLTxQ5 6UsDAA==));for($i=0;$i<8*length >> $vec;$i++) { print "\n" unless $i % 67; print vec( $vec, $i, 1) ? '8' : '_' } > >And using just uuencoding works even better, and doesn't require an >external module: > >$u=q{M``````````#@1<['"3E?]!TDB@C1*"*B("&10?A*$?%]%8D8PI>*B.B;1!01 >}. q{MHEA$1$$9'(<0A1PB^A(``````````/!\)X@<)WUG@"A(011%)4@#1%\)OB\8 >}. q{<7QG@^480?<'XQ@!!4((HBDI0``B^]$21D[XT````};$j=unpack("u",$u); >for(0..938){print vec($j,$_,1)?"8":" ";print"\n"unless(($_+1)%67)} Clever. Let's see if a fancier font can be made to work: y/n/\n/,s/\d+/$"x$&/eg,print for qw'n4|9|21|3|n1\2||2|(_-<2_|4_`1|3\3_1\2_|3\3 -_)2_|n\__/\_,_|___/\__|2\__,_|_|1_|\___/\__|_|1_|\___|_|nn4_1\9|3|14|n4__/1-_ )2_|1|5\3_`1|2_|1!1/2-_)2_|n3_|1\___|_|2_|2_|1_|\__,_|\__|_i_\\\___|_|1)n45/n' Hey, it even fits in three lines. Actually, the same trick works pretty nicely for any line-style ASCII art. For example: #!/usr/bin/perl y/~/\n/,s/\d+/$"x$&/eg,print for qw#~19/`.4/`.~18f3\\2,f2\\~6Gee1Brain,2| 4\\/-`\\2\\6The1same1thing1we1do~3what1do1you4i.2_\\';.,X1j6every1night,1 Pinky.~5want1to1do4`:_\\1(2\\1\\',-.3Try1to1take1over~10tonight?3.'"`\\1a \\eY'1)3the1world!2_,.~21`._"\\`-'1`-/12.-;'2|~23/;-`._.-';\\.8,',"4|~21. '/3"'3|1`\\.-'""-/1/6j~19,/1/9i,-"8(2,/2/~16.-'1.f9.'12`"/2/~15/1,,/ffj\\ 6/10.-"`.'-.'~14/1/_\\`--//)5\\1,--._1.-'_,-';1/~13f2".-"-._;'6`._1_.,-i; 1/_;1/~13`.,'3|;1\\10\\`\\_,/-'2\\'~14.'4l1\\1`.8/"\\1_1\\`2j~14f6:1`-'8` ._;."/`-'~14|6`.15,Z2\\~14l7j13.'/1-1\\`.~13.j.2.3<12(.'4.\\1\\f`.1|\\,'~ 12,'1`.2\\1/1\\11`|6\\,'||-:j~10.'2.'\\3Y.2\\___......__\\1._3/`.||~2__.. _,-"1.-"'"")2/'1,'1_10\\1|2/"-.`j""``---.._~4.'_.-'"5/1.("-'-"":\\8._)|_( __.1"'~3;.'9/-'---"".--"'7/,_,^-._1.)~3`:=.__.,itz1`---._.;'11""6""~##;-) -- Ilmari Karonen -- http://www.sci.fi/~iltzu/ "Get real! This is a discussion group, not a helpdesk. You post something, we discuss its implications. If the discussion happens to answer a question you've asked, that's incidental." -- nobull in comp.lang.perl.misc