comment on

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

In reply to Re^2: I am such a geek by K_M_McMahon
in thread I am such a geek by K_M_McMahon

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


Think about Loose Coupling
	PerlMonks