A little obfuscated PHP script borrowing the best from PHP, Perl, and then some more. It prints 'Sveikas, pasauli!', which is "Hello, world!" in Lithuanian.

By : moxliukas

<?php // Petras Kudaras aka moxliukas
/*Q#5aa65481231vvvvrzASAAAS483899WWEASaZ?a
aajHkkklKKLLkty658431YY215aQrTTTAAAS864863123dd8sUff8468?a9ah
QIIIIG77&654813ewwennnmnMNMMa5468a13578aa5484KKKLLLZLL?5791697GGGGFFSSSa100019/a
58aGGWERRERTkl68a876RREaMNO##FQ97s UCMGIFfgklLKk?46832175GGgggdlkao
QJhjqvmmannamam9054894654653 a64884623389oamamMNaMN68
a91654o564984a3123ao3216Jh oklLLkP09MNm?hss53so
JQJ84613?32168?34J51 hQh65468Q6548h?65?
?aaaa68733657951 ZQa54a3a ?sU89703549873Qo
QQ549831J3359? 879J?6J8 hLKKLK68Q8943h
Qh648MM?21?o5 6Q68sYss 6s87s354s686o
Q6549J67946o75 EE?87Jh 9876s6549s35
s648o31568Q3 846o5?5J 984s654o6486
68s683s318 ASC687s318s131616675 646s684866984661316877 489sKLKKllk64NMnmnMM 64s75s54678
7s549o3549 LLKsGFKMNLs5487960MNLKML 8976KLMnmmnNMCCso8496600 KLMNLKNAAJMNLKAWW68944308 987a654o68
7Z765s3K LKMU489a548423489MNLLMMM98 546a6549aAAA56487321684AAA AAASSa498432168AKMLNLK5493 a31KLMMLKl
a4684317 546a654677 6548a3458+ hX548sgdfg 654DSD6465 PHPISTAI 3154867688 IAOPHBYSDj
lkjhibib kjbiausd puinuiug54 1234567 KJASYUGJJH lzhxbyas 6549794656 JKHG577685
*/$l[42] /*adasd5 JKKJHUYV HEHEHEHE POSAJDHU 67973ad2 676654ASAS A*/=<<<HEH
\$l[+4]= \$_SERVE R['PATH_TRANSLATED '];\$l[9] =/*Q3576 68484jjhgj KJHLKUTb1
*/preg_s plit(/*? */"//",j oin('',f ile(\$l[4 ])));/*8 LKJHDUIBZ LAKDJHUDS
*/\$l[0]= array(+0, /*ss*/0, 0,0);\$l [3]=\$l[7 ]=0;\$l[ 6]=/*656 LKJHDS*/
fopen(\$ l[4],"r") ;/*Jh*/f seek(\$l [6],1<<3 );/*aLLL array();*/ /*6543*/
while(is set(\$l[9] [++\$l[3]])) {/*aa*/s witch(\$ l[9][\$l /*FOOBAR RTFM**/
[3]]){/*ah */case"a": /*s*/++\$l[0][\$l [7]];bre ak;/*s65 ###MOXLIUKAS-MYLI-PERLA### 876543*/
case"s": --\$l[0][\$l[7]];break;cas e"?":/*Q */\$l[7] ++/*AJHlkjsaubklb742bvilu 873asd4*/
;break;/* Jh*/case"Q":/*5?*/\$ l[7]-- ;break ;/*Jh*//*LHASHUCXCZZ 6821af5786
*/case"o" :echo2ch r(\$l[0] /*654SDF*/
[\$l[7]]); break;/* Jh*/case "h":\$l[1
][2]=\$l[0 ][\$l[7] ];break; /*654887*/
case"J":\$l [0][\$l[ 7]]=/*h5 */array_pop(
\$l[1]);break; /*Jh */case "Z":/*sUJh*/i
f(\$l[0][\$l[7]] ==+0){while(
\$l[9][++\$l[3]] !='U');}break;
/*JhZs*/case"U": /*Jh*/while(\$l[9]
[--\$l[+3]]!='Z'); \$l[3]--;break;/*J
h*/case"p":\$l[0][\$ l[7]]/*Jh*/=ord(fgetc(
\$l[6]));break;/*Jh*/cas e"X":die('');/*654324sfs*/
default:break;/*ss*/}}/*6545as ##BROUGHT-TO-YOU-BY-THE-MINISTRY##*/
/*THE-REAL-ANSWER-IS-STILL-FORTY-TWO#$$$$$#$#$##$#$#$%%$%#OF-SILLY-WALKS*/
/*AJHGSDLYTYVBKBKJASFGAIDGHBASKJDASUGDIBCOAS:UDY:BLKSAIHSALKSN
6548765487312187641-2003-04-08-12-49*/
HEH;
eval(str_replace('2',' ',preg_replace("#\s*#",'',$l[42])));
?>

DISCLAIMER: The content provided in this article is not warranted or guaranteed by Developer Shed, Inc. The content provided is intended for entertainment and/or educational purposes in order to introduce to the reader key ideas, concepts, and/or product reviews. As such it is incumbent upon the reader to employ real-world tactics for security and implementation of best practices. We are not liable for any negative consequences that may result from implementing any information covered in our articles or tutorials. If this is a hardware review, it is not recommended to open and/or modify your hardware.

More Miscellaneous Code Articles
More By Codewalkers

blog comments powered by Disqus