http://www.perlmonks.org?node_id=1041178

My first, humble attempt at writing (intentionally) obfuscated code: 

use strict;
use warnings;

@==map{unpack('B24',pack('V',$_))}(12580855,16776063,103792,10764419,8
+561235,856483,1974885);
foreach$"($[..23){$:=$[;foreach$\($[..6){$:.=substr($=[$\],$",!$[)}pri
+nt(pack('B8',$:))}print$/;

[download]
-- FloydATC

Time flies when you don't know what you're doing

Back to Obfuscated Code