User since: Jun 05, 2000 at 01:55 UTC (26 years ago) Last here: Oct 29, 2001 at 13:34 UTC (24 years ago) Experience: 1273 Level: Friar (9) Writeups: 173 Location: Vienna/Austria User's localtime: Dec 16, 2025 at 22:14 +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]