From owner-freebsd-hackers@FreeBSD.ORG  Thu Mar 17 22:28:52 2005
Return-Path: <owner-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 DF4FB16A4CE
	for <freebsd-hackers@freebsd.org>;
	Thu, 17 Mar 2005 22:28:52 +0000 (GMT)
Received: from kane.otenet.gr (kane.otenet.gr [195.170.0.27])
	by mx1.FreeBSD.org (Postfix) with ESMTP id E309643D2F
	for <freebsd-hackers@freebsd.org>;
	Thu, 17 Mar 2005 22:28:51 +0000 (GMT)
	(envelope-from keramida@freebsd.org)
Received: from gothmog.gr (patr530-b224.otenet.gr [212.205.244.232])
	j2HMSJIA015014;	Fri, 18 Mar 2005 00:28:19 +0200
Received: from gothmog.gr (gothmog [127.0.0.1])
	by gothmog.gr (8.13.3/8.13.3) with ESMTP id j2HMSgIY001667;
	Fri, 18 Mar 2005 00:28:42 +0200 (EET)
	(envelope-from keramida@freebsd.org)
Received: (from giorgos@localhost)
	by gothmog.gr (8.13.3/8.13.3/Submit) id j2HMSgEj001666;
	Fri, 18 Mar 2005 00:28:42 +0200 (EET)
	(envelope-from keramida@freebsd.org)
Date: Fri, 18 Mar 2005 00:28:42 +0200
From: Giorgos Keramidas <keramida@freebsd.org>
To: Roman Kurakin <rik@cronyx.ru>
Message-ID: <20050317222842.GA1646@gothmog.gr>
References: <4239B16E.8080502@cronyx.ru> <20050317211903.GA1188@gothmog.gr>
	<4239FBAD.1080504@cronyx.ru>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline
In-Reply-To: <4239FBAD.1080504@cronyx.ru>
cc: freebsd-hackers@freebsd.org
Subject: Re: style(9) example :-)
X-BeenThere: freebsd-hackers@freebsd.org
X-Mailman-Version: 2.1.1
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: Thu, 17 Mar 2005 22:28:53 -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...