From owner-freebsd-hackers@FreeBSD.ORG  Sat Jan 21 22:40:31 2006
Return-Path: <owner-freebsd-hackers@FreeBSD.ORG>
X-Original-To: freebsd-hackers@freebsd.org
Delivered-To: freebsd-hackers@freebsd.org
Received: from mx1.FreeBSD.org (mx1.freebsd.org [216.136.204.125])
	by hub.freebsd.org (Postfix) with ESMTP id C2FDB16A41F;
	Sat, 21 Jan 2006 22:40:31 +0000 (GMT) (envelope-from paf@pacbell.net)
Received: from pacbell.net (adsl-63-199-179-203.dsl.snfc21.pacbell.net
	[63.199.179.203])
	by mx1.FreeBSD.org (Postfix) with ESMTP id 596B443D5C;
	Sat, 21 Jan 2006 22:40:31 +0000 (GMT) (envelope-from paf@pacbell.net)
Received: (from paf@localhost) by pacbell.net (8.11.0/8.9.3) id k0LMnqG13130;
	Sat, 21 Jan 2006 14:49:52 -0800
From: PAF <paf@pacbell.net>
Message-Id: <200601212249.k0LMnqG13130@pacbell.net>
To: keramida@freebsd.org (Giorgos Keramidas)
Date: Sat, 21 Jan 2006 14:49:51 -0800 (PST)
In-Reply-To: <20050317222842.GA1646@gothmog.gr> from "Giorgos Keramidas" at
	Mar 18, 2005 12:28:42 AM
X-Mailer: ELM [version 2.5 PL3]
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
X-Mailman-Approved-At: Sat, 21 Jan 2006 23:28:54 +0000
Cc: freebsd-hackers@freebsd.org, Roman Kurakin <rik@cronyx.ru>
Subject: Re: style(9) example :-)
X-BeenThere: freebsd-hackers@freebsd.org
X-Mailman-Version: 2.1.5
Precedence: list
List-Id: Technical Discussions relating to FreeBSD
	<freebsd-hackers.freebsd.org>
List-Unsubscribe: <http://lists.freebsd.org/mailman/listinfo/freebsd-hackers>, 
	<mailto:freebsd-hackers-request@freebsd.org?subject=unsubscribe>
List-Archive: <http://lists.freebsd.org/pipermail/freebsd-hackers>
List-Post: <mailto:freebsd-hackers@freebsd.org>
List-Help: <mailto:freebsd-hackers-request@freebsd.org?subject=help>
List-Subscribe: <http://lists.freebsd.org/mailman/listinfo/freebsd-hackers>,
	<mailto:freebsd-hackers-request@freebsd.org?subject=subscribe>
X-List-Received-Date: Sat, 21 Jan 2006 22:40:31 -0000

> 
> On 2005-03-18 00:50, Roman Kurakin <rik@cronyx.ru> wrote:
> >Giorgos Keramidas:
> >>On 2005-03-17 19:33, Roman Kurakin <rik@cronyx.ru> wrote:
> >>>I was unable to refrain from posting this :-)
> >>>
> >>>int i;main(){for(;i["]<i;++i){--i;}"];read('-'-'-',i+++"hell\
> >>>o, world!\n",'/'/'/'));}read(j,i,p){write(j/p+p,i---j,i/i);}
> >>
> >>I've written stuff that's probably a bit harder to read, but in Perl :P
> >>
> >>% cat filter.pl
> >>#/usr/bin/perl
> >>while(<STDIN>){chomp;print(join('',(map{my($b,$j,$t,$o)=(65,128,90,ord($_));((
> >>$o-$b)>=0&&($o-$b)<=($t-$b))?eval{$o=(($o-$b)+13)%26+$b;$j=11;}:eval{$b=97;$t=
> >>122;(($b>$o)||($t<$o))?eval{$j=10;}:eval{$o=(($o-$b)+13)%26+$b;$j=1431;};};$_=
> >>chr(int(int(($j%2)==(chr($o)==$_))?$o:ord($_)));}(split//,$_)))."\n");}
> >>%
> >
> > I saw smth like that, which run rm -rf /. I hope this one word greeting ;-)
> > Probably one such code could be added to fortunes.
> 
> This one is a rot13 filter.  But no need to run it.  It's was fun
> writing, but very very useless.  Other than as an example of how ugly
> Perl can be, I guess...
> _______________________________________________
> freebsd-hackers@freebsd.org mailing list
> http://lists.freebsd.org/mailman/listinfo/freebsd-hackers
> To unsubscribe, send any mail to "freebsd-hackers-unsubscribe@freebsd.org"
>