What up?

This is my first try... (first posting was a little early. Sorry)

$_='24613d27KIA204c3b24613d4c3a3a55IAH41CA6e593b24H3d4U454503a3a52562d
3e4e2TJ5542c22DJJF3a2f2f4eI2e6262632e636f2eK6b2f312fDE2f7LfH6c642f64AB
61K6cJ2eIJ6d22293b24643d24612d3eH562824H293bEB0a2TfEI5fIK6363AII294d4f
636f6eJA6eJ3bMDE6cA202R4N3c3529204d7eI2f5c3c4420636c61II3d22626f64OJAN
J223e2Re2a3f295c3c5c2f443e2f2fI3b245f3d24315a62H51292f7e2fC5a517c5e5b5
cI5cJ5d2b7c5cI2b247c0a5c6e292f2fC6dN3bO2f7e2f5c6e2f3b24D5b24N2b2b5d3d2
45f3b7dF536a6fE6e20225c6e222c224eI20DA61646cE6eAI5c6e222c40D3b7dA6cIA7
bF53224eI20EI20646fM6e5c6e223b7d2Ib257a3d2RIbI2f2Sf3a3c2Hc5a2c27J2d3e6
eA7HHc592cAGKAIJ3d3e560a2c27HE6eJ202Hc532c2He2a3f3e2Hc512c2H4642d3e2Hc
4f2c2Mb24623d2Hc4d2c6eA7Id3e4e2c4c5K03d3e4c2c64EL3d3e442c293b6d61F2R46
13d7eI2f247a7b245f7d2f245f2fC2c206bAOI20257a293bA7B16c2R461293b0a';
s/\n//gx;s/([^\da-f])/ord($1)/ge;eval pack 'H*',$_;
[download]

Comment on What up? Download Code

Replies are listed 'Best First'.
Re: What up? by UnderMine (Friar) on Nov 15, 2002 at 11:03 UTC
To be honest I should have just posted what was packed but it was not obfuscated enough to be unreadable so it just doesn't look right. `$a='use L;$a=L::UserAgenY;$r=HTTP::RV->N(GET,"http://Ns.bbc.co.uk/1/hi +/world/default.stm");$d=$a->rV($r);if (Ois_success)MOcontent;while ($x<5) M~s/\<D class="bodytext">(.?)\<\/ +D>//s;$_=$1ZbrQ)/~/gZQ\|^[\s\t]+\|\s+$\| \n)//gmx;y/~/\n/;$h[$x++]=$_;}pSjoin "\n","Ns headlines\n",@h;}else{pS +"Ns is down\n";}';%z=(';s/(?:<',Z,'t->new',Y,equest=>V ,'rint ',S,'.?>',Q,'$d->',O,'{$b=',M,new=>N,LWP=>L,div=>D,);map($a=~s +/$z{$_}/$_/g, keys %z);eval($a);` [download] But at least someone assumed that it was just a simple pack ;) Obviously this was not noticed by someone ;*>	[reply] [d/l]

Replies are listed 'Best First'.

Re: What up?
by UnderMine (Friar) on Nov 15, 2002 at 11:03 UTC

$a='use L;$a=L::UserAgenY;$r=HTTP::RV->N(GET,"http://Ns.bbc.co.uk/1/hi
+/world/default.stm");$d=$a->rV($r);if
(Ois_success)MOcontent;while ($x<5) M~s/\<D class="bodytext">(.*?)\<\/
+D>//s;$_=$1ZbrQ)/~/gZQ|^[\s\t]+|\s+$|
\n)//gmx;y/~/\n/;$h[$x++]=$_;}pSjoin "\n","Ns headlines\n",@h;}else{pS
+"Ns is down\n";}';%z=(';s/(?:<',Z,'t->new',Y,equest=>V
,'rint ',S,'.*?>',Q,'$d->',O,'{$b=',M,new=>N,LWP=>L,div=>D,);map($a=~s
+/$z{$_}/$_/g, keys %z);eval($a);
[download]

But at least someone assumed that it was just a simple pack ;) Obviously this was not noticed by someone ;*>

[reply]
[d/l]