[TriLUG] "awk, bash date, sleep" sed od man; chown perl, grep cat, rm tail, finger toe, rm tar
Aaron Joyner
aaron at joyner.ws
Wed Jul 1 11:42:13 EDT 2009
- Previous message: [TriLUG] "awk, bash date, sleep" sed od man; chown perl, grep cat, rm tail, finger toe, rm tar
- Next message: [TriLUG] "awk, bash date, sleep" sed od man; chown perl, grep cat, rm tail, finger toe, rm tar
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
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
>
- Previous message: [TriLUG] "awk, bash date, sleep" sed od man; chown perl, grep cat, rm tail, finger toe, rm tar
- Next message: [TriLUG] "awk, bash date, sleep" sed od man; chown perl, grep cat, rm tail, finger toe, rm tar
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
More information about the TriLUG
mailing list