Re: I am such a geek

The layout of the code; it looks like it should be a picture of something, but I can't make out what it is. Otherwise, nice job. Welcome to geekdom. ;-)

--
Linux, sci-fi, and Nat Torkington, all at Penguicon 3.0
perl -e 'print(map(chr,(0x4a,0x41,0x50,0x48,0xa)))'

Comment on Re: I am such a geek Download Code

Replies are listed 'Best First'.
Re^2: I am such a geek by K_M_McMahon (Hermit) on Jan 21, 2005 at 23:12 UTC
Slightly modified to give it more consistent look! #!/usr/bin/perl -w use strict;open my($f),$0;local$/;my$a= <$f> ; $a=~s/\s+//g ;$a=~/_{2}(.+$)/ ; $a = $1 ;while( $a=~m /(.{13})$/) {unshift( @;, $1 );$a=~s/.{13}$//;} foreach (@;){for (my $i=0;$i<128; $i++){print chr($i) if (crypt( chr($i),$_) eq $_);}}__END__ oyINpLQGuRwwCe.P5IVph0xPw T8R3/s500K0YUw3dVujjlsowlo EfUEms7OOkp3M5fH78hGOgxsJ U406Ru7Bl6B/HI9LcpZLPXsw jk6eGkhSThneVa2YTL/TWOm H0HSsMn146/lpvNCANYDjV cvRTejnJ4wtbAHzsAuira mYhutHKecx/zwh61iLpt h3SRAXP.lotAU1cwerQ H.pgVvqzLOuTmagpGL x/vApQsuo2Xxmv/.i ZdyXFEbczWhScflJ Ee2CPpMzZZLfH3p wZSs5Devx6zjZc Rmn5olZiat262 RPseOlOid/QO ISSPLXdIANM JTcJp2A.bt 6MSA7QlfH IMdy97lW 16pRLKa H5pdLD qUtK6 R2aO cQV ut o [download] -Kevin	[reply] [d/l]
Re^2: I am such a geek by Anonymous Monk on Jan 21, 2005 at 17:16 UTC
It could be half a carrot?	[reply]
Re^2: I am such a geek by K_M_McMahon (Hermit) on Jan 21, 2005 at 16:23 UTC
I couldn't think of what I wanted it to look like, so I just kind of made it cascade from big to small. Thanx for the compliment! -Kevin	[reply]