Newsgroup nugget: Obfuscated Delphi?

By: Anders Ohlsson

Abstract: An old favorite. This time in Delphi. Somebody's got too much time on their hands...

Subject: One more time...
Date: Fri, 22 Dec 2000 15:23:51 GMT
From: Colin Wilson 
Reply-To: colin@wilsonc.demon.co.uk
Organization: Woozle Software
Newsgroups: borland.public.delphi.non-technical

.. turn off word-wrap ...

program xmas;

{$APPTYPE CONSOLE}

function t_ (t, _ : Integer; a : PChar) : Integer;
begin
  if 1<t then begin if t<3 then t_(-79,-13,a+t_(-87,1-_,t_(-86,0,a+1)+a)
  ); if t<_ then t_(t+1,_,a); if (t_(-94,-27+t,a)<>0) and (t=2) then if _<
  13 then result:=t_(2,_+1,'%s %d %d'#13) else result:=9 else result:=16 end
  else if t<0 then if t<-72 then result:=t_(_,t,'@n''+,#''/*{}w+/w#cdnr/+,'+
  '{}r/*de}+,/*{*+,/w{%+,/w#q#n+,/#{l+,/n{n+,/+#n+,/#;#q#n+,/+k#;*+,/''r :'''+
  'd*''3,}{w+K w''K:''+}e#'';dq#''l q#''+d''K#!/+k#;q#''r}eKK#}w''r}eKK{nl]'''+
  '/#;#q#n''){)#}w''){){nl]''/+#n'';d}rw'' i;# ){nl]!/n{n#''; r{#w''r nc{nl]'+
  '''/#{l,+''K {rw'' iK{;[{nl]''/w#q#n''wk nw'' iwk{KK{nl]!/w{%''l##w#'' i; '+
  ':{nl]''/*{q#''ld;r''}{nlwb!/*de}''c ;;{nl''-{}rw]''/+,}##''*}#nc,'',#nw]'''+
  '/+kd''+e}+;#''rdq#w! nr''/ '') }+}{rl#''{n'' '')# }''+}##(!!/') else if t<
  -50 then if _=Ord(a^) then begin result:=Ord(a[31]); if a[31]=#13 then WriteLn
  else Write(a[31]); end else result:=t_(-65,_,a+1) else result:=t_(Ord(a^
  ='/')+t,_,a+1) else if 0<t then result:=t_(2,2,'%s') else result:=Ord((a^=
  '/') or (t_(0,t_(-61,Ord(a^),'!ek;dc i@bK''(q)-[w]*%n+r3#l,{}:'#13'uwloc'+
  'a-O;m .vpbks,fxntdCeghiry'),a+1)<>0))
end;

begin
  t_ (1, 10000, '')
end.

Server Response from: ETNASC04