interlink search engine

Replies are listed 'Best First'.
Re: interlink search engine by belg4mit (Prior) on Feb 05, 2002 at 21:14 UTC
Here's the code because the server is slow from here for archiving, in case they redesign their site #!/usr/bin/perl eval eval '"'. ('[' ^'+').( ('[')^ (')')).( ('`')\| ')').( ('`')\| '.').( ('[')^ '/' ).+ '\\'.+ "\"".( '`'^'!').('`' ^',').('`'^ ',').( ('{')^ '[').('{'^'"') .('`'^'/').('{ +' ^'.'). ("\{"^ "\)").( (( "\{"))^ '[') +.( ('{')^ '(').( '`'^'%' ).('`' ^'!' +). ("\{"^ ')').( '`'^('#')).( '`'^'(' ).(' +{'^ '[').( ('`')^ '!').('{'^')') .('`'^'%').('{'^ +'[' ).('`' ^'"'). ('`'^('%')).( '`'^',').('`'^'/ +'). ("\`"^ '.').( '`'^"'") .('{'^ '[').( ('{')^ ( '/')).( ('`')^ '/').( '{'^'[' ).('{' ^'.').( '{'^'(' ).( +( '\\')) .('\\').( '`'\|'.').('\\'). '"'.';'.(('!' +)^ "\+"). "\"";$:= '.'^'~';$~= '@'\|'(';#;# [download] `-- perl -pe "s/\b;([st])/'\1/mg"`	[reply] [d/l]
Re: interlink search engine by jorg (Friar) on Feb 05, 2002 at 15:28 UTC
nifty!! there's probably a fellow dutch perlmonk working there :) Jorg "Do or do not, there is no try" -- Yoda	[reply]
Re: interlink search engine by dmmiller2k (Chaplain) on Feb 08, 2002 at 18:26 UTC
Here is the output of perltidy, which offers a clue (nifty obfu!!): #!/usr/bin/perl eval eval '"' . ( '[' ^ '+' ) . ( ('[') ^ (')') ) . ( ('`') \| ')' ) . ( ('`') \| '.' ) . ( ('[') ^ '/' ) . +'\\' . +"\"" . ( '`' ^ '!' ) . ( '`' ^ ',' ) . ( '`' ^ ',' ) . ( ('{') ^ '[' ) . ( '{' ^ '"' ) . ( '`' ^ '/' ) . ( '{' ^ '.' ) . ( "\{" ^ "\)" ) . ( ( ("\{") ) ^ '[' ) . ( ('{') ^ '(' ) . ( '`' ^ '%' ) . ( '`' ^ '!' ) . ( "\{" ^ ')' ) . ( '`' ^ ('#') ) . ( '`' ^ '(' ) . ( '{' ^ '[' ) . ( ('`') ^ '!' ) . ( '{' ^ ')' ) . ( '`' ^ '%' ) . ( '{' ^ '[' ) . ( '`' ^ '"' ) . ( '`' ^ ('%') ) . ( '`' ^ ',' ) . ( '`' ^ '/' ) . ( "\`" ^ '.' ) . ( '`' ^ "'" ) . ( '{' ^ '[' ) . ( ('{') ^ ('/') ) . ( ('`') ^ '/' ) . ( '{' ^ '[' ) . ( '{' ^ '.' ) . ( '{' ^ '(' ) . ( ('\\') ) . ('\\') . ( '`' \| '.' ) . ('\\') . '"' . ';' . ( ('!') ^ "\+" ) . "\""; $: = '.' ^ '~'; $~ = '@' \| '('; #;# __END__ ... etc... [download] And for a further clue, try replacing `eval eval` with `print` ;) dmm If you GIVE a man a fish you feed him for a day But, TEACH him to fish and you feed him for a lifetime	[reply] [d/l] [select]
Re: Re: interlink search engine by Juerd (Abbot) on Feb 08, 2002 at 20:31 UTC
Deparse++ `2;0 juerd@ouranos:~$ lynx -dump www.ilse.com \| perl -MO=Deparse eval eval qq["print\\"ALL YOUR SEARCH ARE BELONG TO US\\\\n\\";\n"]; $: = 'P'; $~ = 'h'; - syntax OK` [download] `2;0 juerd@ouranos:~$ perl -e'undef christmas' Segmentation fault 2;139 juerd@ouranos:~$` [download]	[reply] [d/l] [select]
Re: Re: interlink search engine by dmmiller2k (Chaplain) on Feb 08, 2002 at 21:15 UTC
Cool module. ++Deparse, indeed! dmm If you GIVE a man a fish you feed him for a day But, TEACH him to fish and you feed him for a lifetime	[reply]
Re: interlink search engine by Anonymous Monk on Feb 08, 2002 at 11:23 UTC
Hi, maybe I'm blind but I can't figure out how it's done. The code is not in the HTML or JavaScript stuff, is it? Does anyone know? Dominik	[reply]
Re: Re: interlink search engine by Anonymous Monk on Feb 11, 2002 at 20:05 UTC
The code is only available to the savvy users of the lynx browser. Or to perl users who know how to tweak their user-agent string: `perl -MLWP::UserAgent -e'$ua=LWP::UserAgent->new;$ua->agent("lynx");$req=HTTP::Request->new(GET=>"http://www.ilse.nl");$res=$ua->request($req);print $res->content' \| less`	[reply] [d/l]
Re: interlink search engine by ellem (Hermit) on Feb 08, 2002 at 16:17 UTC
Abort trap should I be seeing that often? -- ellem@optonline.net There's more than one way to do it, just don't use my way.	[reply]