关于Fork()的应用处理,(附源码),请教.

饭饭

目的: 自动提交表单(有验证码识别):

1. 
   
2. my $url='http://www.123.com';    #提交的URL
   
3. my $img_url='http://www.123.con/code.asp';   #验证码URL,图片刷新变化
   
4. 
   
5. 首先我做的:
   
6. 1:直接读取图片URl,分析图片,得到验证码 .
   
7. 2:加上验证码.提交表单
   
8. 
   
9. Post了之后,查看了$response->content网页源代码,发现提示我验证码输入错误..   提交失败
   
10. 
    
11. 验证码识别部分我反复测试了,识别出来的验证码是100%正确.(图片比较简单,比较好分析)
    
12. 后来想了下.应该是我下载图片URL的验证码,与我提交表单时候的验证码图片不一致所造成的 .
    
13. 
    
14. 后来觉得思路应该是:
    
15. 1:浏览需要提交的网页 ,
    
16. 2:同步分析验证码图片,并返回分析之后的验证码.           // 这部分我不知道怎么完成 ..
    
17. 3:带上验证码,提交表单
    
18. 
    
19. 现在问题是我浏览网页以及提交表单用的是LWP模块,分析验证码是用wget $img_url下载图片 ,然后本地分析并返回验证码的 .
    
20. 
    
21. 我想问下这个同步应该是怎么来完成的,因为如果不同步的话.下载分析图片的验证码和提交时候的验证码不一致.图片是刷新变化的 .
    
22. 
    
23. 
    
24. 
    
25. 目前我做的:
    
26. 
    
27. my $pid;
    
28. my $num;
    
29. if($pid=fork()) {
    
30.    # .. 浏览网页
    
31.    #  休息 5秒
    
32.    
    
33.    ...
    
34.    # ..提交表单
    
35. }
    
36. elsif(defined($pid) {
    
37.    #Call 分析验证码函数 .
    
38.    #return $num; 返回验证码
    
39. }   
    
40. 
    
41. 但是还是提示出错. 我想知道这个思路是不是错的..  或者是我代码写错了 ?
    
42. 
    

复制代码

   祝各位大大新年快乐哈  ! ..  5555

skrypto

LWP和wget是两个不同的进程，就好象两个用户，一个下载验证码图象，给另一个输入验证。
不管怎么说,cookie就对不上号。可能还要考虑Referral Page。

饭饭

原帖由 skrypto 于 2007-2-24 04:29 发表
LWP和wget是两个不同的进程，就好象两个用户，一个下载验证码图象，给另一个输入验证。
不管怎么说,cookie就对不上号。可能还要考虑Referral Page。

那我想问下, 如果我想分析过验证码之后再提交表单.  应该怎样处理比较好  ..

饭饭

原帖由 skrypto 于 2007-2-24 04:29 发表
LWP和wget是两个不同的进程，就好象两个用户，一个下载验证码图象，给另一个输入验证。
不管怎么说,cookie就对不上号。可能还要考虑Referral Page。

一朋友说加上COOKIES, 但我加上也没效果 ..
另外我把wget下载更改成LWP下载.. 但还是出错
图片验证部分我保证是100%的命中 ..  

#!/usr/bin/perl
use Encode qw/encode decode from_to/;
use strict;
use warnings;
use LWP;
use HTTP::Cookies;
use LWP::Simple;

my $num;      #识别出来的验证码
my $browser=LWP::UserAgent->new;
my $new_agent='Mozilla/5.0';
$browser->agent($new_agent);
my $response;
$browser->cookie_jar(HTTP::Cookies->new(
                              'file'=>'FanFan.ck',
                              'autosave'=>1));

my $url='http://www.123.net/blog.asp?ID=159';      #浏览提交的网页
$response=$browser->post($url);
push @{$browser->requests_redirectable},"POST";

my $post_url='http://www.123.net/blogcm.asp?action=post';   #表单POST提交URL
my $img_url='http://www.123.net/code.asp';                         #图片URL
my $fanfan;
$fanfan=get_img_num($img_url);       #获取验证码

$response=$browser->post($post_url,
                    [
                                 ......
                    code=>$fanfan,
                    replysubmit=>' 提交 ',
                    ]
                    );

#print $response->content,"\n";
my $utf_data = encode("gb2312", decode("utf8", $response->content));
print $utf_data;   

##获取验证码函数
sub get_img_num
{
          my $urls= shift();
my $name='ad.gif';
getstore($urls,$name);          #下载图片
        ......

return $num;              #返回验证码
}

[ 本帖最后由 饭饭 于 2007-2-25 16:47 编辑 ]

skrypto

构筑http GET验证码图象的Request时，有没有用Referer=<显示图象的网页的URL>？

最重要的是要摸清服务器产生验证码所用的所有参数，session id 和Referer只是常见的参数。

不过验证码要是可以用简单程序识别的话，那个网站也没有什么价值吧。