User since: Jun 05, 2000 at 01:55 UTC Last here: Oct 29, 2001 at 13:34 UTC (12 years ago) Experience: 1262 Level: Friar (9) Writeups: 175 Location: Vienna/Austria User's localtime: May 23, 2013 at 23:03 GMT-2 Scratchpad: View

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

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