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 :-)


Comments

comments powered by Disqus