Date: Fri, 18 Mar 2005 00:50:37 +0300 From: Roman Kurakin <rik@cronyx.ru> To: Giorgos Keramidas <keramida@freebsd.org> Cc: freebsd-hackers@freebsd.org Subject: Re: style(9) example :-) Message-ID: <4239FBAD.1080504@cronyx.ru> In-Reply-To: <20050317211903.GA1188@gothmog.gr> References: <4239B16E.8080502@cronyx.ru> <20050317211903.GA1188@gothmog.gr>
next in thread | previous in thread | raw e-mail | index | archive | help
Giorgos Keramidas:
>On 2005-03-17 19:33, Roman Kurakin <rik@cronyx.ru> wrote:
>
>
>>Hi,
>>
>>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.
rik
>_______________________________________________
>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?4239FBAD.1080504>