"be consistent" PerlMonks

### Can't put my finger on it

by nerfherder (Monk)
 on Jan 28, 2005 at 09:23 UTC Need Help??

```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";

Replies are listed 'Best First'.
Re: Can't put my finger on it
by jdalbec (Deacon) on Jan 29, 2005 at 12:50 UTC
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; [download]```
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!
Re: Can't put my finger on it
by K_M_McMahon (Hermit) on Jan 29, 2005 at 18:02 UTC
Definetly an interesting method. I had to install Math::XOR though to get it to work. I like it!

Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: obfuscated [id://425884]
Approved by skx
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (3)
As of 2021-09-16 23:03 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?

No recent polls found

Notices?