免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
123下一页
最近访问板块 发新帖
查看: 3723 | 回复: 24
打印 上一主题 下一主题

[代码]初来报道,嫌给各位PHP大人一点见面礼:) [复制链接]

论坛徽章:
0
跳转到指定楼层
1 [收藏(0)] [报告]
发表于 2005-11-08 16:37 |只看该作者 |倒序浏览
写代码是很乏味滴,MM也是要泡滴!
仅以下代码献给所有没有时间泡MM的苦闷PHP程序员们(包括俺自己).
享用方法:新建立一个文件夹,在里面保存以下代码为PHP页面并执行之.
调制时间:1-2分钟不等,似RP及样貌而定.

  1. <?php
  2. //code by crazysoul
  3. //@ Sat Nov 05 22:19:22 CST 2005
  4. //@ for dear coders,take a breath !

  5. function getPara($pname,$ptype = 'get')
  6. {
  7.         if($ptype == 'get')
  8.                 $value = isset($_GET[$pname]) ? $_GET[$pname] : '';
  9.         else
  10.                 $value = isset($_POST[$pname]) ? $_POST[$pname] : '';
  11.         return @$value;
  12. }

  13. function savetofile($path_get,$path_save)
  14. {
  15.         @$hdl_read = fopen($path_get,'rb');
  16.         if($hdl_read)
  17.         {
  18.                 @$hdl_write = fopen($path_save,'wb');
  19.                 if($hdl_write)
  20.                 {
  21.                         while(!feof($hdl_read))
  22.                         {
  23.                                 fwrite($hdl_write,fread($hdl_read,8192));
  24.                         }
  25.                         fclose($hdl_write);
  26.                         fclose($hdl_read);
  27.                         return 1;
  28.                 }
  29.                 else
  30.                         return 0;
  31.         }
  32.         else
  33.                 return -1;
  34. }

  35. function getPage($path)
  36. {
  37.         $content = @file($path);
  38.         if(is_array($content))
  39.                 return implode('',$content);
  40.         else
  41.                 return -1;
  42.         return 0;
  43. }

  44. function str_replace_cn($search,$replace,$subject)
  45. {
  46.         $result = '';
  47.         $tag = chr(13);
  48.         for($i=0;$i<strlen($search);$i++)
  49.         {
  50.                 $str = ord($search[$i]) < 127 ? $search[$i] : $search[$i].$search[++$i];
  51.                 $arr['search'][] = $tag.$str.$tag;
  52.         }
  53.         for($i=0;$i<strlen($replace);$i++)
  54.         {
  55.                 $str = ord($replace[$i]) < 127 ? $replace[$i] : $replace[$i].$replace[++$i];
  56.                 $arr['replace'][] = $tag.$str.$tag;
  57.         }
  58.         for($i=0;$i<strlen($subject);$i++)
  59.         {
  60.                 $str = ord($subject[$i]) < 127 ? $subject[$i] : $subject[$i].$subject[++$i];
  61.                 $arr['subject'][] = $tag.$str.$tag;
  62.         }
  63.         @$search = implode('',$arr['search']);
  64.         @$replace = implode('',$arr['replace']);
  65.         @$subject = implode('',$arr['subject']);
  66.         @$result =  str_replace($search,$replace,$subject);
  67.         return str_replace($tag.$tag,'',$tag.$result.$tag);
  68. }

  69. function subText($text,$txt_start,$txt_end,$mode = 1)
  70. {
  71.         $del = "/";
  72.         $txt_start = str_replace_cn($del,"\$del",$txt_start);
  73.         $txt_end = str_replace_cn($del,"\$del",$txt_end);
  74.         if($mode == 1)
  75.                 $pattern = $del."{$txt_start}(.*){$txt_end}".$del."isU";
  76.         else
  77.                 $pattern = $del."({$txt_start}.*{$txt_end})".$del."isU";
  78.         preg_match($pattern,$text,$matchs);
  79.         if(is_array($matchs))
  80.                 return $matchs[1];
  81.         else
  82.                 return 0;
  83. }

  84. function getExt($path)
  85. {
  86.         $path = pathinfo($path);
  87.         return strtolower($path['extension']);
  88. }

  89. //@ start
  90. $page_url = getPara("url");
  91. if($page_url=="")$page_url = "aHR0cDovL2NvbWljLnNpbmEuY29tLmNuL3BpYy9zZ3hnbW14LzYwNTUxLmh0bWw";
  92. $page_url = base64_decode($page_url);
  93. $page_content = getPage($page_url);

  94. $txt_start = '<table border="0" cellspacing="3" cellpadding="3" style="border: 1 solid #1E6FCA">';
  95. $txt_end = '</td></tr>';
  96. $img = subText($page_content,'<table border="0" cellspacing="3" cellpadding="3" style="border: 1 solid #1E6FCA">','</td></tr>');

  97. $txt_start = '<img src=';
  98. $txt_end = ' ';
  99. $img_url = subText($img,$txt_start,$txt_end);

  100. $txt_start = '<td><div align="center" style="font-size:16px;"><b>';
  101. $txt_end = '</b></div></td>';
  102. $img_name = subText($page_content,$txt_start,$txt_end).'.'.getExt($img_url);
  103. if(file_exists($img_name))
  104.         die("You got it all! Take a breath !");
  105. else
  106.         savetofile($img_url,$img_name);

  107. $txt_start = 'next_pic\(';
  108. $txt_end = '\);return false';
  109. $next_url = subText($page_content,$txt_start,$txt_end);
  110. $next_url = base64_encode(str_replace($next_url,$next_url+1,$page_url));
  111. echo "Next is coming...";
  112. sleep(1);
  113. echo "<script>window.location ='?url=$next_url';</script>";
  114. //@ end
  115. // if you like this code,keep it!
  116. //code end
  117. ?>
复制代码

[ 本帖最后由 HonestQiao 于 2005-11-8 17:16 编辑 ]

论坛徽章:
1
技术图书徽章
日期:2013-12-05 23:25:45
2 [报告]
发表于 2005-11-08 17:17 |只看该作者
没有说明的代码,不用哦

论坛徽章:
0
3 [报告]
发表于 2005-11-08 17:18 |只看该作者
原帖由 HonestQiao 于 2005-11-8 17:17 发表
没有说明的代码,不用哦


晕,如果包一分礼物给你,另外再给张说明书你,还会有惊喜么?

论坛徽章:
0
4 [报告]
发表于 2005-11-08 17:19 |只看该作者
而且,如果有害街坊的,我也不用在CU混下去了啊,对不?呵呵.

论坛徽章:
1
技术图书徽章
日期:2013-12-05 23:25:45
5 [报告]
发表于 2005-11-08 17:21 |只看该作者
那是在cli下面运行么?

论坛徽章:
0
6 [报告]
发表于 2005-11-08 17:21 |只看该作者
感觉上好像是跑到某网站上下 MM 图吧?
不过看清楚性别哦,版主可是 MM 来着。此招无效。

论坛徽章:
0
7 [报告]
发表于 2005-11-08 17:22 |只看该作者
原帖由 HonestQiao 于 2005-11-8 20:21 发表
那是在cli下面运行么?


很多 html,应该不是吧

论坛徽章:
1
技术图书徽章
日期:2013-12-05 23:25:45
8 [报告]
发表于 2005-11-08 17:27 |只看该作者
为什么不用正则表达式呢?

用的话,非常简单的处理你当前的东西的啊。

论坛徽章:
0
9 [报告]
发表于 2005-11-08 17:28 |只看该作者
提示: 作者被禁止或删除 内容自动屏蔽

论坛徽章:
0
10 [报告]
发表于 2005-11-08 17:29 |只看该作者
好像有用到正则表达式吧。
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP