I kept looking at this stuff on here and thought that it was really cool. Last night I "went to bed" early (laptop in hand) and 2.5 hours later I had this code ready. This is my first attempt, be gentle.
update: changed __DATA__ to __END__ since that is what I really meant.#!/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
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: I am such a geek
by Tanktalus (Canon) on Jan 21, 2005 at 16:01 UTC | |
Re: I am such a geek
by wolfger (Deacon) on Jan 21, 2005 at 15:36 UTC | |
by K_M_McMahon (Hermit) on Jan 21, 2005 at 23:12 UTC | |
by Anonymous Monk on Jan 21, 2005 at 17:16 UTC | |
by K_M_McMahon (Hermit) on Jan 21, 2005 at 16:23 UTC | |
Re: I am such a geek
by jdalbec (Deacon) on Jan 22, 2005 at 18:25 UTC | |
by K_M_McMahon (Hermit) on Jan 22, 2005 at 19:26 UTC | |
Re: I am such a geek
by Dru (Hermit) on May 16, 2006 at 04:44 UTC |
Back to
Obfuscated Code