User since: Jun 05, 2000 at 01:55 UTC (23 years ago) Last here: Oct 29, 2001 at 13:34 UTC (22 years ago) Experience: 1272 Level: Friar (9) Writeups: 173 Location: Vienna/Austria User's localtime: Jun 10, 2023 at 22:50 +02 Scratchpad: View For this user: Search nodes

2001-05-01: JAPH-of-the-day:

#!/usr/bin/perl -w
$_=++$.;$_+=$_;$_*=$_;$;=$_;$;.='a'.$_;$;.=$.;$;.=$_+$.;
$;.=--$.;$;.=$_;$_+=$_;$;.=$_;$.++;$_/=++$.;$;.=$.;$;.=
--$.;$;.=--$.;$;.='a';$_=$;;print+pack'H*'=>$_;
[download]