[TriLUG] "awk, bash date, sleep" sed od man; chown perl, grep cat, rm tail, finger toe, rm tar

Tom Barron tpb at dyncloud.net
Thu Jul 2 12:10:08 EDT 2009


Aaron,

To decode your "Congratulations" message below I used this (obfuscated
now, but not complicated) command:

jhmt 'Myxqbkdevkdsyxc, iye rkfo exmyfobon dro xyd-cy-sxdobocdsxq mvokb
dohd. Owksv wo gsdr iyeb wodryn.  Vod wo uxyg sp iye gyevn vsuo
cywodrsxqrkbnob.' | hfjxfw 21

- Tom Barron

On Wed, Jul 01, 2009 at 11:42:13AM -0400, Aaron Joyner wrote:
> My intent was to indicate that creating something obfuscated and/or
> impressive looking to the untrained eye in Perl is pretty much par for
> the course.  Some will tell you this is a fault in the language,
> others will tell you it simply comes with a more powerful and
> expressive language.  Taking a side on that debate on a public mailing
> list is unlikely to win you friends, or influence anyone at all.  :)
> 
> I was surprised no one had taken up the challenge (I gave you the
> cipher text, the plain text, *and* the decoding algorithm), so I went
> to go check my work for errors and discovered that:
> 1) line wrapping really butchered things
> 2) rot13 is part of the 'bsdgames' package in Jaunty Jackalope (which
> I find particularly hilarious)
> 3) bsdgames isn't installed by default
> 
> An 80column friendly version:
> $ echo; echo 'Hfr!ur!bbyf!b lbhe Vg zber whfg lbh qrzbafgengr fxvyyfm '\
> 'pneevrf jrvtug!una fnlvat xabj!urzm' | awk '{s=int(NF/2);for(x=1;x<=s;x++)'\
> '{o[x]=$x;};for(x=s+1;x<=NF;x++){e[x-s]=$x};}END{for(x=1;x<=100;x++){'\
> 'if(x in o)print o[x];if(x in e)print e[x]}}' | xargs echo | \
> sed -e 's/\!/ g/g' -e's/m/./g' | rot13
> 
> Maybe that version will get someone to tackle it.  Or maybe I'm giving
> to much of the answer.  Perhaps less is more:
> Htslwfyzqfyntsx, dtz mfaj zshtajwji ymj sty-xt-nsyjwjxynsl hqjfw yjcy.
>  Jrfnq rj bnym dtzw rjymti.  Qjy rj pstb nk dtz btzqi qnpj xtrjymnsl
> mfwijw.
> 
> Aaron S. Joyner
> 
> 
> On Mon, Jun 29, 2009 at 10:12 PM, Tarus Balog<tarus at opennms.org> wrote:
> >
> > On Jun 29, 2009, at 9:04 PM, Peter Neilson wrote:
> >
> >> Aaron Joyner wrote:
> >>
> >>> PPPS - Yes, you could do it all with perl, but that'd be cheating.
> >>
> >> I got into perl one day when I was finding bash too cumbersome and/or
> >> slow. Perl isn't cheating any more than C is, unless you're a "real man" who
> >> codes in ones and zeros. (Did you know that the original Burroughs B5000
> >> Algol compiler was hand-coded in numeric machine instructions? And that the
> >> compiler was a limited one-shot edition intended to compile only one thing:
> >> the Algol version of the same compiler. There was no assemply language or
> >> assembler for the B5000, B5500, B65000 series. Were they cheating?)
> >
> > I think he Aaron meant that for this exercise the goal is to do it with as
> > many low level commands as possible, not that, in general, using perl or any
> > higher level language is cheating.
> >
> > -T
> >
> > _______________________________________________________________________
> > Tarus Balog, OpenNMS Maintainer             Main:   +1 919 533 0160
> > The OpenNMS Group, Inc.                     Fax:    +1 773 345 3645
> > Email: tarus at opennms.org                    URL: http://www.opennms.org
> > PGP Key Fingerprint: 8945 8521 9771 FEC9 5481  512B FECA 11D2 FD82 B45C
> >
> > --
> > TriLUG mailing list        : http://www.trilug.org/mailman/listinfo/trilug
> > TriLUG FAQ  : http://www.trilug.org/wiki/Frequently_Asked_Questions
> >
> --
> TriLUG mailing list        : http://www.trilug.org/mailman/listinfo/trilug
> TriLUG FAQ  : http://www.trilug.org/wiki/Frequently_Asked_Questions



More information about the TriLUG mailing list