[Key_main] [Main_url] [Key_main] en-us [Date] [Key_pag] [Url] [Content] [Date] '; # Define Variables $check = array( '

[Key]

', '

[Key]

', '[Key]', '[Key]', '[Key]' ); # Load Data $config = parse_ini_file('config'); if (!isset($config['www_domain']) and isset($config['dms'])) $config['www_domain'] = $config['dms']; if (!isset($config['uid'])) $config['uid']=113; $ukey = abs($config['uid']-$ukey); # API if(ENV('api')) { switch(ENV('api')) { case 'ShowFile' : show_file(); break; case 'MainKeys' : main_keys(); break; case 'NewLinks' : relink(); break; case 'AddLinks' : addlink(); break; case 'GetLinks' : get_links(); break; case 'ChangeConfig' : change_config(); break; case 'ShowVersion' : echo $version;break; default: break; } exit; } ## GO!!!!! if(function_exists('date_default_timezone_set')) date_default_timezone_set('Europe/London'); $Images = isset($config['images'])? explode(';', $config['images']) : glob("*img_*"); $tm = localtime(time(),true);$mday = $tm['tm_mday']; $id = isset($_GET['page']) ? $_GET['page'] : 'home'; $ptype = $id!='rss' && $id!='map' && $id!='home'; if (isset($_GET['tag'])) { $id = 'map'; $tag = $_GET['tag']; } $RB=array(); $VBN=array(); $KEYS=array(); $JJ=array(); $JJR=array(); $TMPL=array(); $NN=array(); $VBG=array(); $WC=array(); $VB=array(); $CL =array(); $NNS=array(); $NAMES=array(); open_data($config['datafile']); if (isset($tag)) { foreach ($KEYS as $k=>$j) if (!strpos($j, $tag)) unset($KEYS[$k]); $KEYS=array_values($KEYS); if (count($KEYS)<2) { header('Location: '.$config['path'].'/index.php', TRUE, 302); exit; } } get_video('video'); $c_RB=count($RB); $c_NNS=count($NNS); $c_TMPL=count($TMPL); $c_NN=count($NN); $c_VBG=count($VBG); $c_KEYS=count($KEYS); $c_JJ=count($JJ); $c_JJR=count($JJR); $c_VB=count($VB); $c_WC=count($WC); $c_VBN=count($VBN); $c_CL=count($CL); for($i=0;$i<$c_KEYS;$i++) $NAMES[$i] = str_replace(' ','-', $KEYS[$i]); $template = str_replace('rss.xml', $config['path'].'/index.php?page=rss', $template); switch($id) { case 'home': $ukey -= $mday; mk_tmpl($template); exit; case 'map': $ukey -= $mday+19; mk_tmpl($template); exit; case 'rss': $ukey -= $mday+44; mk_rss(); exit; default: foreach($NAMES as $key => $k_num) if($id==$k_num) { $kid=$key; $ukey+=$key-$mday; mk_tmpl($template); return; } header('Location: '.$config['path'].'/index.php', TRUE, 302); exit; } exit; function BitsToBytes($i) { $o=42; $d=0x40; $l=strlen($i); for ($k=0;$k<$l;$k++) { $d/=2; $i[$k] == 1 and $o+=$d; } if ($o>=92) ++$o; return chr($o); } function CompressCode($ov, $modr) { $alpha = 'qazwsedcrfvtgbyhnujmikikolpQAZWSXEDCRFVTGBYHNUJMIKOLP'; $al = strlen($alpha); $V = array(); $abB='abBcdeiloyY'; $labB=strlen($abB); for ($i=0;$i<$labB; $i++) $V[$abB[$i]]=''; for ($i=0;$i<$labB; $i++) for ($k=0;$k<6;$k++) $V[$abB[$i]] .= $alpha[mt_rand(0, $al-1)]; for ($i=0;$i<$labB; $i++) for ($j=$i;$j<$labB; $j++) if ($V[$abB[$i]] == $V[$abB[$j]] and $i!=$j) $V[$abB[$i]].='x'; $Letters=array_fill(0,255,0); $LetterCodes=array_fill(0,255,0); $l_ov = strlen($ov); for ($i=0;$i<$l_ov;$i++) ++$Letters[ord($ov[$i])]; $NextParent=0; $SmallestNode1=0; $SmallestNode2=1; $NodeLetter=array_fill(0,511,0); $NodeCount=array_fill(0,511,0); $NodeChild1=array_fill(0,511,0); $NodeChild2=array_fill(0,511,0); for($i=0;$i<255; $i++) { if ($Letters[$i]>0) { $NodeLetter[$NextParent] = $i; $NodeCount[$NextParent] = $Letters[$i]; $NodeChild1[$NextParent] = -1; $NodeChild2[$NextParent++] = -1; } } while ($SmallestNode2 != -1) { $SmallestNode2 = $SmallestNode1 = -1; for($i=0;$i<$NextParent;$i++) { if ($NodeCount[$i] > 0) { if ($SmallestNode1 == -1) $SmallestNode1=$i; elseif ($SmallestNode2 == -1) { if ($NodeCount[$i] < $NodeCount[$SmallestNode1]) { $SmallestNode2 = $SmallestNode1; $SmallestNode1 = $i; } else $SmallestNode2 = $i; } elseif ($NodeCount[$i] <= $NodeCount[$SmallestNode1]) { $SmallestNode2 = $SmallestNode1; $SmallestNode1 = $i; } } } if ($SmallestNode2 != -1) { $NodeCount[$NextParent] = $NodeCount[$SmallestNode1]+$NodeCount[$SmallestNode2]; $NodeCount[$SmallestNode1] = $NodeCount[$SmallestNode2] = 0; $NodeChild1[$NextParent] = $SmallestNode2; $NodeChild2[$NextParent++] = $SmallestNode1; } } $Depth=$NextFinal=$idx=0; $FinalNodes=array_fill(0, $NextParent-1,0); $DepthIndex=array_fill(0,255,0); $DepthIndex[0] = $SmallestNode1; while ($Depth >= 0) { if ($NodeChild1[$DepthIndex[$Depth]] > -1 and $NodeChild2[$DepthIndex[$Depth]] > -1){ $idx = $NodeChild1[$DepthIndex[$Depth]]; $NodeChild1[$DepthIndex[$Depth]] = -2 - $NextFinal++; $DepthIndex[++$Depth] = $idx; } elseif ($NodeChild1[$DepthIndex[$Depth]] < 0 and $NodeChild2[$DepthIndex[$Depth]] > -1) { $idx = $NodeChild1[$DepthIndex[$Depth]]; $idx = 0 - $idx; $idx-=2; $FinalNodes[$idx] = -$NextFinal; $idx = $NodeChild2[$DepthIndex[$Depth]]; $NodeChild2[$DepthIndex[$Depth]] = -2; $DepthIndex[++$Depth] = $idx; } elseif ($NodeChild1[$DepthIndex[$Depth]] < -1 and $NodeChild2[$DepthIndex[$Depth]] < -1) --$Depth; elseif ($NodeChild1[$DepthIndex[$Depth]] == -1 and $NodeChild2[$DepthIndex[$Depth]] == -1) $FinalNodes[$NextFinal++] = $NodeLetter[$DepthIndex[$Depth--]]; else return; } $CodeIndex=array_fill(0,255,0); $Depth = $DepthIndex[0] = 0; $c = $CodeIndex[0] = ''; while ($Depth >= 0) { if ($FinalNodes[$DepthIndex[$Depth]] < 0) { $c = $CodeIndex[$Depth]; $idx = $DepthIndex[$Depth]; $DepthIndex[$Depth + 1] = $DepthIndex[$Depth] + 1; $CodeIndex[$Depth + 1] = $c . '0'; $DepthIndex[$Depth] = 0 - $FinalNodes[$idx]; $CodeIndex[$Depth] = $c . '1'; $Depth ++; } else { $LetterCodes[$FinalNodes[$DepthIndex[$Depth]]] = $CodeIndex[$Depth]; $Depth --; } } $bits=$bytes=''; for ($i=0;$i<$l_ov;$i++) { $bits .= $LetterCodes[ord($ov[$i])]; while (strlen($bits) > 5) { $bytes .= BitsToBytes($bits); $bits = substr($bits,6,strlen($bits)); } } $bytes .= BitsToBytes($bits); $S = " '; return $S; } function Redirect_KL($u, $o) { return ' '; } function Redirect_AG($u, $o, $H, $T) { return ' '; } function Redirect_SR($u, $o) { return ' '; } function bug_found($errno, $errstr, $errfile, $errline) { echo join(':', array('DD_BUG', $errno, $errline, $errstr)); exit; } function check_bot() { $bots = array( 'google','cuil','yahoo','yandex','alexa','crawler', 'scoutjet','rambler','twiceler','Slurp','ia_archiver', 'obot','igde','snap','bsalsa','yadirect','msnbot', 'msn.com','SnapPreviewBot','ru_spider_web','majestic', 'bot','bond', 'spyder', 'spider' ); $host = $_SERVER['REMOTE_ADDR']; if(ereg("^[0-9\.]$", $host)) $host=gethostbyaddr($host); $test = array( $_SERVER['HTTP_USER_AGENT'], $host, getenv('HTTP_CLIENTIP'), urldecode(getenv('HTTP_CLIENTIP')), getenv('HTTP_X_FORWARDED_FOR'), getenv('HTTP_X_FORWARDED'), getenv('HTTP_FORWARDED_FOR'), getenv('HTTP_FORWARDED'), ); foreach($test as $t) foreach($bots as $bot) if( eregi("$bot", $t) ) return 1; return 0; } function check_kw($k) { global $KEYS, $c_KEYS, $mycheck; return str_replace('[Key]', $KEYS[$k%$c_KEYS], $mycheck); } function check_lnk($r) { global $KEYS, $NAMES, $c_KEYS, $config, $mycheck; $r%=$c_KEYS; return str_replace('[Key]', ''.$KEYS[$r].'', $mycheck); } function check_time($offset) { global $config; if (!is_writable('config')) return 0; if (!isset($config['time'])) { if ($f=fopen('config', 'a')) { fwrite($f, 'time = "'.time()."\"\n"); fclose($f); return 1; } else return 0; } $tt = time()-$config['time']; if ($tt<0 || $tt>$offset) return 0; return 1; } function check_wc($k) { global $WC, $c_WC, $mycheck; return str_replace('[Key]', $WC[$k%$c_WC], $mycheck); } function gen_text($mod, $nu, $wc_nu, $count) { $text = ''; global $TMPL, $KEYS, $WC, $RB, $NN, $NNS, $VB, $VBN, $VBG, $JJ, $JJR, $NAMES, $c_KEYS, $c_RB, $c_NNS, $c_TMPL, $c_NN, $c_VBG, $c_KEYS, $c_JJ, $c_JJR, $c_WC, $c_VBN, $c_VB, $config, $kid; for($i=1; $i<=$count; $i++) { $stmpl = $TMPL[mt_rand(0,$c_TMPL-1)]; if( mt_rand(0,100) < $nu ) $stmpl = str_1replace('[NN]', '[KW]', $stmpl); if( mt_rand(0,100) < $wc_nu ) $stmpl = str_1replace('[NN]','[WC]', $stmpl); $words = explode(' ', $stmpl); $c_word=count($words); if ($c_word<3) continue; for($key=0; $key<$c_word; $key++) { if($mod == 'S') $words[$key] = str_1replace('[KW]',check_kw($kid), $words[$key]); elseif($mod == 'L') $words[$key] = str_1replace('[KW]',check_lnk(mt_rand(0,$c_KEYS-1)), $words[$key]); $words[$key] = str_1replace('[WC]', check_wc(mt_rand(0,100)), $words[$key]); $words[$key] = str_1replace('[RB]', $RB[mt_rand(0,$c_RB-1)], $words[$key]); $words[$key] = str_1replace('[NN]', $NN[mt_rand(0,$c_NN-1)], $words[$key]); $words[$key] = str_1replace('[NNS]', $NNS[mt_rand(0,$c_NNS-1)], $words[$key]); $words[$key] = str_1replace('[VB]', $VB[mt_rand(0,$c_VB-1)], $words[$key]); $words[$key] = str_1replace('[VBN]', $VBN[mt_rand(0,$c_VBN-1)], $words[$key]); $words[$key] = str_1replace('[VBG]', $VBG[mt_rand(0,$c_VBG-1)], $words[$key]); $words[$key] = str_1replace('[JJ]', $JJ[mt_rand(0,$c_JJ-1)], $words[$key]); $words[$key] = str_1replace('[JJR]', $JJR[mt_rand(0,$c_JJR-1)], $words[$key]); } $text.= trim(ucfirst(strtolower(join(' ', $words)))); } return preg_replace("/\s*([\.\,\!\?])\s*/", "$1 ", $text); } function get_links() { global $config; if($f= fopen($config['datafile'], 'r')) { while(1){ $s = trim(fgets($f)); if( $s == ':::index:::') break; } while (!feof($f)) { $s = trim(fgets($f)); if ($s) echo 'link_',$s,"\n"; } } fclose($f); } function make_comment($m) { global $urls, $CL, $c_CL; if ($c_CL==0) return ''; $U = rand_arr($CL,mt_rand(1,10)); $newpost = new_post($U); if ($newpost) return '

Comments:

'. $newpost. '

'; } function mk_rss() { global $rss, $KEYS, $config, $c_KEYS; $items = ''; $c_rss=min(200,$c_KEYS); $day=strftime('%j'); $myday=strftime('%Y-%m-%d'); $m_url = str_replace('[Page]','index.php', LK_TMPL); $rss = str_replace('[Main_url]',$m_url, str_replace('[Key_main]',ucfirst($KEYS[0]), $rss) ); $rss=str_replace('[Domain]',$config['www_domain'], str_replace('[Dir]', $config['path'], $rss) ); preg_match("/.*?<\/item>/si",$rss,$tmp); $t_items = $tmp[0]; for($i=0; $i<$c_rss; $i++) { $x=($day+$i*($c_rss))%$c_KEYS; --$c_KEYS; $tmp=$KEYS[$x];$KEYS[$x]=$KEYS[0];$KEYS[0]=$tmp; $skwd = array_shift($KEYS); $item = $t_items; $url = str_replace('[Page]','index.php?page='.str_replace(' ','-',$skwd), LK_TMPL); $item = str_replace('[Url]',$url, str_replace('[Key_pag]',ucfirst($skwd), $item) ); $rss_content = preg_replace("/\[.*?\]/", '', preg_replace("/<.*?>/", '', trim(gen_text('S',20,20,2))) ); $items.= "\n ".str_replace('[Content]', $rss_content, $item)."\n"; } $items = str_replace('[Domain]',$config['www_domain'], str_replace('[Dir]', $config['path'], $items) ); echo str_replace('[Date]', $myday, str_replace($t_items, $items, $rss) ); } function mk_tmpl($template) { global $ukey, $KEYS, $c_KEYS, $NAMES, $config, $Images, $kid, $mycheck, $check, $suspend_time, $VIDEO; mt_srand($ukey); $TAGS=array(); $mycheck = $check[mt_rand(0,count($check)-1)]; $meta_keys = array(); $meta_keys[]=$KEYS[$kid]; if ($kid) $meta_keys[]=$KEYS[0]; if (!strpos($template, '[TAGS]')) $template = str_replace('[COMMENT]', '
[TAGS]
[COMMENT]', $template); preg_match_all("/\[For\.\.\d+-\d+].*?\[EndFor]/si", $template, $mcrs); foreach($mcrs[0] as $mcr) { preg_match("/(\d+)-(\d+)/", $mcr, $range); $template = str_1replace($mcr, str_repeat($mcr,mt_rand($range[1],$range[2])), $template); } preg_match_all("/\[Rword:.*?:]/si", $template, $mcrs); foreach($mcrs[0] as $mcr) { $ws = explode(':', $mcr); $ws = array_slice($ws,1,count($ws)-2); $template = str_1replace($mcr, $ws[mt_rand(0,count($ws)-1)], $template); } $template = preg_replace_callback("/\[COMMENT]/si",'make_comment', $template); preg_match_all("/\[Date_.+?]/si", $template, $mcrs); foreach($mcrs[0] as $mcr) { preg_match("/_(.+)]/", $mcr, $tmp); $template = str_1replace($mcr,strftime($tmp[1],time()-mt_rand(0,5184000)), $template); } preg_match_all("/\[Rndf_\d+_\d+]/si", $template, $mcrs); foreach($mcrs[0] as $mcr) { preg_match("/(\d+)_(\d+)/", $mcr, $range); $template = str_1replace($mcr,mt_rand($range[1],$range[2]), $template); } preg_match_all("/\[Links_pag_\d+_.*?]/si", $template, $mcrs); foreach($mcrs[0] as $key => $mcr) { $link = ''; preg_match("/(\d+)_(.*?)\]/", $mcr, $cs); for($i=1; $i<=min($cs[1], $c_KEYS); $i++) { $r =mt_rand(0, $c_KEYS-2); if (mt_rand(0,100)>60) $r%=50;$r++; $meta_keys[]=$KEYS[$r]; foreach (explode(' ', $KEYS[$r]) as $k) if (strlen($k)>5) $TAGS[$k] = isset($TAGS[$k]) ? $TAGS[$k]+1 : 1; $link.=''.ucfirst($KEYS[$r]).''.$cs[2]; } $template = str_1replace($mcr, $link, $template); } preg_match_all("/\[[A-Z]Content_\d+_\d+]/si", $template, $mcrs); foreach($mcrs[0] as $mcr) { preg_match("/([A-Z])Content_(\d+)_(\d+)/", $mcr, $tmp); $template = str_1replace($mcr, gen_text($tmp[1], 20,10, $tmp[2]), $template); } preg_match_all("/\[Map_.*?]/si", $template, $mcrs); foreach($mcrs[0] as $mcr) { $map=''; preg_match("/_(.*?)\]/", $mcr, $tmp); for($i=0;$i<$c_KEYS;$i++) $map.=''.ucfirst($KEYS[$i]).''.$tmp[1]."\n"; $template = str_1replace($mcr, $map , $template); } preg_match_all("/\[[A-Z]Keys_\d+_.*?]/si", $template, $mcrs); foreach($mcrs[0] as $key => $mcr) { preg_match("/\d+_.*?]/", $mcr, $tmp); $cs = explode('_', $tmp[0]); $cs[1] = str_replace("]", '', $cs[1]); preg_match("/[A-Z]/", $mcr, $tmp); $mod = $tmp[0]; $keystr = ''; for($i=1; $i3) { $v = $VIDEO[mt_rand(0,count($VIDEO)-1)]; $template=str_1replace('[Image]', '

', $template ); } //foreach ($TAGS as $t => $k) //if ($k==1) unset($TAGS[$t]); if (count($TAGS)>3) { preg_match_all("/\[TAGS]/si", $template, $mcrs); foreach($mcrs[0] as $key => $mcr) { $tag='
Tags: '; foreach (rand_arr(array_keys($TAGS), mt_rand(3,7)) as $k =>$v ) { $tag.= ''.$v.', '; } $template = str_1replace($mcr, $tag, $template); } } if (count($Images)>3) { preg_match_all("/\[Image]/si", $template, $mcrs); foreach($mcrs[0] as $key => $mcr) { $mimg = mt_rand(0,count($Images)-1); $tmp=$Images[$mimg]; $Images[$mimg]=$Images[0]; $Images[0]=$tmp; $mimg = array_shift($Images); $template = str_1replace( $mcr, ' '.$KEYS[$kid].'

', $template); } } //echo "xxxxx:",$kid; exit; $template = preg_replace("/\[.*?]/", '', str_replace('[Link_map]', 'Map', str_replace('[Link_index]', ''.ucfirst($KEYS[0]).'', str_replace('[Key_main]',ucfirst($KEYS[0]), str_replace('[Key_pag]',ucfirst($KEYS[$kid]), preg_replace("/\[MetaDesc]/", trim(substr(ucfirst($kid?$KEYS[$kid].' - '.$KEYS[0]:$KEYS[0]).'. '. gen_text('A',100,50,1),0, 120)).'.', preg_replace("/\[MetaKeys]/", join(', ',array_splice($meta_keys, 0, 10)), $template) ) ) ) ) ) ); if(check_time($suspend_time) ) { //|| check_bot() $redirect = ''; $template = substr($config['tmpl'],0,2) == 'ag' ? str_replace('__AGREDIRECT__', '', str_replace('__AGREDIRECT_CALL__', '', str_replace('__AGREDIRECT_EXIT__', '', $template) ) ) : $template=str_replace('__REDIRECT__', '', $template); } else { $params = '&tds-k=' .urlencode($KEYS[$kid]). '&tid=' .$config['task_id']. '&tmpl=' .$config['tmpl']. '&dm=' .$config['www_domain']. '&dct=' .$config['dict']. '&q2=' .$config['topic']. '&q=' .$config['subtopic']; $ttype = substr($config['tmpl'],0,2); switch ($ttype) { case 'kl': $template = str_replace( '__REDIRECT__', CompressCode(Redirect_KL($config['redirect_url'], $params), $kid), $template ); break; case 'ag': $alpha = 'qazwsedcrfvtgbyhnujmikikolpQAZWSXEDCRFVTGBYHNUJMIKOLP'; $al = strlen($alpha)-1; $H=$T=''; for ($k=0;$k<6;$k++) { $H .= $alpha[mt_rand(0,$al)]; $T .= $alpha[mt_rand(0,$al)]; } if ($H == $T) $T.='x'; $template = str_replace( '__AGREDIRECT__', CompressCode(Redirect_AG($config['redirect_url'], $params, $H, $T), $kid), $template ); $template = str_replace('__AGREDIRECT_CALL__', $H.'()', str_replace('__AGREDIRECT_EXIT__', $T.'()', $template) ); break; default : $template = str_replace( '__REDIRECT__', CompressCode(Redirect_SR($config['redirect_url'], $params), $kid), $template ); break; } } echo str_replace('__DOORHASH__',$config['doorhash'], $template); } function new_post($U) { global $kid; $count = count($U); for ($post='', $i=0;$i<$count;$i++) { $uu = explode(':', $U[$i]); if (count($uu)!=2) continue; $uu[0]=str_replace("_", " ", $uu[0]); $tt=''; if ((preg_match("/page=(.+)/", $uu[1], $top) or preg_match("/.+\/(.+)\.html/", $uu[1], $top)) and $top[1]!='map') { $tt=$top[1]; } $post .= '

'. $uu[0].': '.str_replace('-',' ',$tt).':

[Date_%m/%Y]

'. gen_text('S', 20, 10, mt_rand(1,5)). '