Can't put my finger on it

[nerfherder]

use Math::XOR;$awd="\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
+\\\\\\\\\/";$zxcv="\.9\-\)5\.9\|\\\gx\=\/8\:\|a\|\{4\(\(\,fss\+\+\
++r\)\,\(5191\)\/5\?r\?31s6\=\,4r4\(10\{gx\-\+9\.\|a\|\\ff    \/9\.
+\\;92\(qb29\+tugx\&\$\?\*\|a\|x\-\+9\.qb\.9\-\)9\/\(t\\\\ff\9\-
+\)9\/\(qb29\+t\\\\|ab\|x\=\/8\:uugx\?ax\&\$\?\*qb\(5\(09gx\?a\"\/s
+\\rw";$qwer=xor_buf($zxcv, $awd);$asdf=$qwer."\\: \/\/\;print \$c\;
+";eval"$asdf";

[jdalbec]

This is a rather clever ad for your website. Nice++!

# I don't have Math::XOR installed, so: #use Math::XOR; $awd="\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ +\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ +\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ +\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ +\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ +\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/"; $zxcv="\.9\-\)5\.9\|\^P\^K\^Lgx\=\/8\:\|a\|\{4\(\(\,fss\+\+\+r\;43\/\( +\+4990r\?31s\"19\.052s\>\)\/529\/\/0579s\,9\.0s\{gx\-\+9\.\|a\|\^P\^K +\^Lff\ /9\.\^]\;92\(qb29\+tugx\&\$\?\*\|a\|x\-\+9\.qb\.9\-\)9\/ +\(t\^T\^H\^H\^Lff\^N9\-\)9\/\(qb29\+t\^[\^Y\^H\|ab\|x\=\/8\:uugx\?ax\ +&\$\?\*qb(5(09gx?a\"/s\^B\^_rw"; # implementing this was a little trickier than I expected: #$qwer=xor_buf($zxcv, $awd); #$qwer=$zxcv^$awd; # wrong $qwer=$zxcv^substr($awd, 0, length($zxcv)); $asdf=$qwer."\\: \/\/\;print \$c\;"; print "$asdf\n"; # eval"$asdf"; # $asdf expands to: require LWP; $asdf = 'http://www.ghostwheel.com/~merlin/businesslike/perl/'; $qwer = LWP::UserAgent->new(); $zxcv = $qwer->request(HTTP::Request->new(GET => $asdf)); $c=$zxcv->title; $c=~s/^C.+\: //; print $c;

[nerfherder]

Thanks for the idea! I had actually just googled the phrase and picked the first site with japh in the title... After reading your post, I've modified it so that it IS an ad for my website.

Cheers!

[K_M_McMahon]

Definetly an interesting method. I had to install Math::XOR though to get it to work. I like it!