Date: Sat, 21 Jan 2006 14:49:51 -0800 (PST) From: PAF <paf@pacbell.net> To: keramida@freebsd.org (Giorgos Keramidas) Cc: freebsd-hackers@freebsd.org, Roman Kurakin <rik@cronyx.ru> Subject: Re: style(9) example :-) Message-ID: <200601212249.k0LMnqG13130@pacbell.net> In-Reply-To: <20050317222842.GA1646@gothmog.gr> from "Giorgos Keramidas" at Mar 18, 2005 12:28:42 AM
next in thread | previous in thread | raw e-mail | index | archive | help
>
> 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"
>
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?200601212249.k0LMnqG13130>