吐血了 刚调试完一个简陋的刷屏代码，那个帖子就关闭了

judite

用php写的，curl模块
执行：php -q $script_name

1. <?php
   
2. set_time_limit(0);
   
3. 
   
4. function bbs_login($ch , $uname , $passwd , $formhash , $cookietime , $referer){
   
5.         $url = 'http://yknet28.8866.org/logging.php?action=login&loginsubmit=true' ;
   
6.         $postfields = 'formhash=' . $formhash . '&cookietime=' . $cookietime . '&loginfield=username&username=' . $uname . '&password=' . $passwd . '&userlogin=true' ;
   
7.         //print $postfields ;
   
8.         $options = array(CURLOPT_URL => $url,
   
9.       CURLOPT_HEADER => 0,
   
10.       CURLOPT_NOBODY => 0,
    
11.       CURLOPT_PORT => 80,
    
12.       CURLOPT_POST => 1,
    
13.       CURLOPT_POSTFIELDS => $postfields,
    
14.       CURLOPT_RETURNTRANSFER => 1,
    
15.       CURLOPT_FOLLOWLOCATION => 1,
    
16.       CURLOPT_COOKIEJAR => 'c:\windows\temp\highot' ,
    
17.       CURLOPT_COOKIEFILE => 'c:\windows\temp\highot' ,
    
18.       CURLOPT_REFERER => $referer
    
19.         ) ;
    
20.         curl_setopt_array($ch, $options);
    
21.         $code = curl_exec($ch) ;
    
22.         $info = curl_getinfo($ch) ;
    
23.         if ($code === false || $info['http_code'] != 200){
    
24.                  $code = "No cURL data returned for $url [". $info['http_code']. "]";
    
25.                 if (curl_error($ch)){
    
26.                         $code .= "\n". curl_error($ch) ;
    
27.                         //print $code ;
    
28.                         exit(-1) ;
    
29.                 }
    
30.   }
    
31.   else{
    
32.           $url = 'http://yknet28.8866.org/' ;
    
33.           curl_setopt($ch , CURLOPT_URL , $url) ;
    
34.                 curl_setopt($ch , CURLOPT_HEADER , 0) ;
    
35.                 curl_setopt($ch , CURLOPT_RETURNTRANSFER , 1) ;
    
36.                 $code = curl_exec($ch) ;
    
37.                 return $code ;
    
38.         }
    
39. }
    
40. 
    
41. function bbs_post($ch , $formhash , $subject , $message , $topicsubmit , $referer){
    
42.         $url = 'http://yknet28.8866.org/post.php?action=newthread&fid=71&extra=page%3D1&topicsubmit=yes' ;
    
43.         $postfields = 'formhash=' . $formhash . '&subject=' . $subject . '&message=' . $message . '&topicsubmit=' . $topicsubmit ;
    
44.         print $postfields ;
    
45.                 $options = array(CURLOPT_URL => $url,
    
46.       CURLOPT_HEADER => 0,
    
47.       CURLOPT_NOBODY => 0,
    
48.       CURLOPT_PORT => 80,
    
49.       CURLOPT_POST => 1,
    
50.       CURLOPT_POSTFIELDS => $postfields,
    
51.       CURLOPT_RETURNTRANSFER => 1,
    
52.       CURLOPT_FOLLOWLOCATION => 1,
    
53.       CURLOPT_COOKIEJAR => 'c:\windows\temp\highot' ,
    
54.       CURLOPT_COOKIEFILE => 'c:\windows\temp\highot' ,
    
55.       CURLOPT_REFERER => $referer
    
56.         ) ;
    
57.         curl_setopt_array($ch, $options);
    
58.         $code = curl_exec($ch) ;
    
59.         $info = curl_getinfo($ch) ;
    
60.         if ($code === false || $info['http_code'] != 200){
    
61.                  $code = "No cURL data returned for $url [". $info['http_code']. "]";
    
62.                 if (curl_error($ch)){
    
63.                         $code .= "\n". curl_error($ch) ;
    
64.                         print $code ;
    
65.                         exit(-1) ;
    
66.                 }
    
67.   }
    
68.   else return $code ;
    
69. }
    
70. 
    
71. 
    
72. $uname = "" ; //[color=Red]这儿要写你的用户名[/color]
    
73. $passwd = "" ;//[color=Red]这儿要写密码[/color]
    
74. $formhash = "" ;
    
75. 
    
76. $ch = curl_init() ;
    
77. $url = 'http://yknet28.8866.org/' ;
    
78. curl_setopt($ch , CURLOPT_URL , $url) ;
    
79. curl_setopt($ch , CURLOPT_HEADER , 0) ;
    
80. curl_setopt($ch , CURLOPT_RETURNTRANSFER , 1) ;
    
81. $code = curl_exec($ch) ;
    
82. //print $code ;
    
83. if(!$code){
    
84.         print "first error\n" ;
    
85.         exit(-1) ;
    
86. }
    
87. $pattern = '/<button\s+name=\"userlogin\"\s+type=\"submit\"\s+value=\"true\">登录<\/button>/' ;
    
88. if(preg_match($pattern , $code)){
    
89.         $pattern = '/<input\s+type=\"hidden\"\s+name=\"formhash\"\s+value=\"(\w+)\"\s+\/>/' ;
    
90.         if(!preg_match($pattern , $code , $matches)){
    
91.                 curl_close($ch) ;
    
92.                 print "pattern error 0\n" ;
    
93.                 exit(-1) ;
    
94.         }
    
95.         $formhash = $matches[1] ;
    
96.         $pattern = '/<input\s+type=\"hidden\"\s+name=\"cookietime\"\s+value=\"(\d+)\"\s+\/>/' ;
    
97.         if(!preg_match($pattern , $code , $matches)){
    
98.                 curl_close($ch) ;
    
99.                 print "pattern error 1\n" ;
    
100.                 exit(-1) ;
     
101.         }
     
102.         $cookietime = $matches[1] ;
     
103.         //print "formhash = " . $formhash . "\n" ;
     
104.         //print "cookie = " . $cookietime . "\n" ;
     
105.         $code = bbs_login($ch , $uname , $passwd , $formhash , $cookietime , '') ;
     
106.         //print $code ;
     
107. }
     
108. $pattern = '/<a href=\"logging.php\?action=logout&formhash=(\w+)\" class=\"notabs\">退出<\/a>/' ;
     
109. if(preg_match($pattern , $code , $matches)) $formhash = $matches[1] ;
     
110. print "formhash = " . $formhash ;
     
111. $code = bbs_post($ch , $formhash , "test" , "test0000" , '' , '') ;//test是主题；test0000是内容，可以更改
     
112. //print $code ;
     
113. 
     
114. curl_close($ch);
     
115. ?>

复制代码

[ 本帖最后由 judite 于 2009-1-3 20:41 编辑 ]

judite

就等过中国年再抢楼，我地刷屏代码就能派用场了
31号的调试的时候账号给封了15分钟

kent777

原帖由 judite 于 2009-1-3 20:51 发表
就等过中国年再抢楼，我地刷屏代码就能派用场了
31号的调试的时候账号给封了15分钟

明天升级数据库后，压力测试也可以抢。

及时雨

原帖由 kent777 于 2009-1-3 20:55 发表

明天升级数据库后，压力测试也可以抢。

有没有浩币发。。。明天哪也不去，继续等。。

judite

原帖由 huazai202 于 2009-1-3 21:32 发表
楼主是搞php的啊，有前途

不是
用php只是因为php安装只要解压一个包；外加有curl模块

笑傲江湖

楼主的ID我记下了，有PHP的事就找你了

judite

php我只是懂皮毛，一边写代码，一边查字符串怎么连接、数组怎么用、哈希怎么用

笑傲江湖

比起不会写代码，不会查字符串，不会用数组的，不会哈希的，你就是牛人，呵呵。

妮可宝贝

友情路过一下。

erjing

php很强呢，用来替代perl都不成问题。而且跨平台。
俺还见过某流量拍全国15以内网站用php写的分布式文件系统...

judite

原帖由 笑傲江湖 于 2009-1-3 22:11 发表
比起不会写代码，不会查字符串，不会用数组的，不会哈希的，你就是牛人，呵呵。

有这句话心里有底了，不过不会不要怪我

judite

原帖由 erjing 于 2009-1-3 22:42 发表
php很强呢，用来替代perl都不成问题。而且跨平台。
俺还见过某流量拍全国15以内网站用php写的分布式文件系统...

那还是perl厉害罢
就看perl有数不尽的模块
php访问数据库速度超快，这一点比perl强

guodl

观摩和学习一下。

blackwhite

搜索网上，居然还有perl版本的回贴机器。不过还没有搞明白里边的代码。

mark_mark

瓦，会编程的，好事情

blackwhite

原帖由 blackwhite 于 2009-1-4 03:19 发表
搜索网上，居然还有perl版本的回贴机器。不过还没有搞明白里边的代码。

现在搞定用perl回帖了。贴出来给大家贡献。原来的贴在
http://bbs.chinaunix.net/viewthread.php?tid=1020180
我修改了一下，主要是适应论坛用静态的页面，没有技术含量。代码里边需要变化的地方是fid=71，这个不用解释，这个71是那个测试论坛里边的开放测试的一个fid。sleep 35; 这个是让回一个帖子后，等待35秒，这个按照你自己的意思来修改了。当最好的方法是，修改代码，在命令行里边设定提供，大家作业了。

1. #!/usr/bin/perl -w
   
2. 
   
3. use LWP;
   
4. use HTTP::Cookies;
   
5. 
   
6. print "="x70;
   
7. print "\n";
   
8. print "* 程序名:论坛自动回贴程序\n";
   
9. print "* 作 者:N3tl04d http://smboy.bokee.com\n";
   
10. print "* 日 期:2007-11-23\n";
    
11. print "="x70;
    
12. print "\n";
    
13. 
    
14. if($#ARGV != 2){
    
15.     print "用法：$0 论坛地址 论坛已注册用户名 密码\n";
    
16.     print "如：$0 http://smboy.bokee.com[/url] n3tl04d 123456\n";
    
17.     exit;
    
18. }
    
19. 
    
20. my $site=shift;
    
21. my $username=shift;
    
22. my $password=shift;
    
23. 
    
24. my @link;
    
25. my $formhash;
    
26. my @content=("我顶.灌水,哈哈","我是自动回贴的，吹吖","不错不错，好东西","哇！楼主好牛啊");#回复内容设定
    
27. my $ua=new LWP::UserAgent;
    
28. $ua->agent('Mozilla/5.0');
    
29. $ua->cookie_jar(new HTTP::Cookies);
    
30. my $test1=$ua->post( $site.'/logging.php?action=login&',
    
31.                                         [
    
32.                                         "referer"=>"index.php",
    
33.                                         "loginfield"=>"username",
    
34.                                         "username"=>$username,
    
35.                                         "password"=>$password,
    
36.                                         "questionid"=>"0",
    
37.                                         "answer"=>"",
    
38.                                         "cookietime"=>"2592000",
    
39.                                         "loginmode"=>"",
    
40.                                         "styleid"=>"",
    
41.                                         "loginsubmit"=>"提交",
    
42.                                         ]
    
43.                                 );
    
44. 
    
45. $url=$site.'/forumdisplay.php?fid=71';
    
46. $res = $ua->get($url);
    
47. $html=$res->content;
    
48. print "获取版块数据\n";
    
49. 
    
50. die "抓不到formhash" unless $html  =~ m{formhash=([\d\w]{8})\"?}gi;
    
51. $formhash= $1;
    
52. 
    
53. if ($res->is_success) {
    
54.     my @html=split(/\n/,$html);
    
55.     @link=();
    
56.     for(@html){
    
57.              if (m{<span id="thread_(\d+)"><a href=}){
    
58.         ##if (m{<a href="viewthread\.php\?tid=(\d+)&extra=page%3D1">}){
    
59.             push(@link,$1);
    
60.         }
    
61.     }
    
62. 
    
63. print "挑出有用的数据 $#link 个 \n";
    
64. 
    
65. for ($x=0;$x<=$#link;$x++){
    
66.    
    
67.     my $url=$site."/thread-$link[$x]-1-1.html";
    
68.     print "$url\n";
    
69.     my $res = $ua->get($url);
    
70.     my $content=$res->content;
    
71.     die "没发现贴子标题:" unless $content =~ m{<title>(.+?)\s-}gi;   
    
72.     #print $res->decoded_content;
    
73.     $r_num=int(rand($#content));#随机取回复内容
    
74.     my $posturl=$site."/post.php?action=reply&fid=2&tid=$link[$x]&extra=page%3D1&replysubmit=yes&";
    
75.     my $response=$ua->post( $posturl,
    
76.     [
    
77.     "formhash"=>$formhash,
    
78.     "isblog"=>"",
    
79.     "readperm"=>"0",
    
80.     "price"=>"0",
    
81.     "typeid"=>"0",
    
82.     "subject"=>'Re:回复',
    
83.     "iconid"=>"0",
    
84.     "parseurloff"=>"0",
    
85.     "smileyoff"=>"0",
    
86.     "bbcodeoff"=>"0",
    
87.     "usesig"=>"1",
    
88.     "emailnotify"=>"0",
    
89.     "message"=>$content[$r_num],
    
90.     "toxiaban"=>"",
    
91.     "wysiwyg"=>"1",
    
92.     ]
    
93.     );
    
94.     if ($response->status_line eq '302 Found' || $response->status_line eq '200 OK') {
    
95.         print "贴子\"$1\"回贴成功!\n";
    
96.     }
    
97.     print "等待35秒\n";
    
98.     sleep 35;
    
99. }
    
100. }

复制代码

[ 本帖最后由 blackwhite 于 2009-1-4 10:00 编辑 ]