Sending my wife the following:

$readme = "Run this with Perl";
$b = "00001001010101010000001001001111000000100000001101001001
00000110010011110000001001011111";
@s = split(//,"11100110011");
@g=map{unpack("N",pack("B32",substr("0"x32 .$_,-32)));}eval{
for($j=0;$j<length($b);$j+=8){push(@k,substr($b,$j,8));}@k;};
@g=map{shift(@s)eq"1"?-$_:$_;}@g;eval{$i=defined($i)?$i+1:0;
print(chr(ord(substr($readme,$i,1))+$g[$i]))}foreach(@g);

Is an act of ultimate geekiness. I’m not good at obfuscation, but for the purpose it’s enough. (It prints “I love you”).

Maybe the fact that I can send such a thing to my wife (”run this with Perl !”) is also a sign of geekiness… Not many can brag with a spouse who can actually run Perl

Related posts:

1. bin2dec for huge numbers

This entry was posted on Tuesday, May 4th, 2004 at 11:54 am and is filed under Perl, Programming. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.