cookie是否被perl加密了

hztj2005

我在网上找了个登录网站的代码，试着执行，返回信息中有：
Set-Cookie: rememberMe=deleteMe; Path=/; Max-Age=0; Expires=Mon, 19-Jun-2017 13:47:41 GMT
但是我打开lwp_cookies.txt文件是如下信息：
#LWP-Cookies-1.0
Set-Cookie3: ZJZCJSESSIONID=ed169a6b-b711-49e8-be3b-2a44df845199; path="/"; domain=wenjinbao.winfae.com; path_spec; secure; discard; HttpOnly; version=0
那么
ZJZCJSESSIONID=ed169a6b-b711-49e8-be3b-2a44df845199
是rememberMe=deleteMe 加密后形式吗？
是perl 加密的吗？
谢谢！

maybenot

应该不是，看看还有没有其它cookie文件，ssionid像是服务器端的标志号。其它项目不是也没完全对上么

hztj2005

网上的代码来自：
http://blog.csdn.net/zhaoyangjian724/article/details/51790133
我注册了一个临时用户名测试用，登录时会返回一个图片验证码，在DOS中输入。由于没有申请交易密码，最后的交易登录不能进行，这里不关心。
我这里关心的是1楼cookie问题：
Set-Cookie会出现在DOS的222222222222222上一行，
lwp_cookies222.txt名是任意指定的，其内容与DOS中的返回内容不一致。

1. use Net::SMTP;
   
2. use LWP::UserAgent;
   
3. use HTTP::Cookies;
   
4. use HTTP::Headers;
   
5. use HTTP::Response;
   
6. use Encode;
   
7. use Switch;
   
8. use File::Temp qw/tempfile/;
   
9. use HTTP::Date qw(time2iso str2time time2iso time2isoz);
   
10. 
    
11. open out,">respcontent.html";
    
12. 
    
13. my $CurrTime = time2iso(time());
    
14. my $ua = LWP::UserAgent->new;
    
15. $ua->timeout(10);
    
16. $ua->env_proxy;
    
17. my $now          = time();
    
18. $ua->agent('Mozilla/5.0');
    
19. my $cookie_jar = HTTP::Cookies->new(
    
20. 
    
21.     file           => 'lwp_cookies222.txt',
    
22.     autosave       => 1,
    
23.     ignore_discard => 1
    
24. );
    
25. 
    
26. $ua->cookie_jar($cookie_jar);
    
27. 
    
28. if ($cookie_jar)
    
29. {
    
30.                 $cookie_jar->load( $cookie_jar );
    
31.                 my $now  = time();
    
32.                 my $url="https://wenjinbao.winfae.com/web/auth?method=%2Fwze%2Ftransfer%2Fcash%2Fin&amount=0.1&tradePassword=79e8fe923f031f46221a9283d0c9263a&_=$now";
    
33.                 my $response = $ua->get("$url");
    
34.                 if ($response->is_success)
    
35.                 {
    
36.                                 #print $response->content;
    
37.                                 $r = $response->content;       
    
38.                                 $str=encode("gbk",decode("utf8","$r"));
    
39.                                 print "\$str is $str\n";       
    
40.                
    
41.                
    
42.                                 if ($str =~/用户未登录/)
    
43.                                 {
    
44.                                     my $response = $ua->get("https://wenjinbao.winfae.com/validcode/generate-validcode.do?$str");
    
45.                                                 if ($response->is_success) {
    
46.                                                   $r = $response->decoded_content;   
    
47.                                                   #print $response->decoded_content;  # or whatever
    
48.                                                 }else
    
49.                                                 {
    
50.                                                  die $response->status_line;
    
51.                                                 };
    
52.                                
    
53.                                                 my ( $fh, $filename ) =
    
54.                                                   tempfile( "wj_qrcode_XXXX", SUFFIX => ".jpg", DIR => 'd:\\' );
    
55.                                                   
    
56.                                                 binmode $fh;
    
57.                                                 print $fh $r;
    
58.                                                 close $fh;
    
59.                                                 print "登录二维码已经下载到本地 [ $filename ] \n";
    
60.                                                
    
61.                                                 ##打开图片
    
62.                                                 system("start $filename ");
    
63.                                                
    
64.                                                 my $validCode = <STDIN>;#图片验证码
    
65.                                                 chomp $validCode ;
    
66.                                                 print "\$validCode is $validCode\n";
    
67.                                                
    
68.                                                 #my $url="https://wenjinbao.winfae.com/business/dispatch_post.do";
    
69.                                                
    
70.                                                  my $login_url = 'https://wenjinbao.winfae.com/business/dispatch_post.do';
    
71.                                                                 
    
72.                                                  my $res = $ua->post($login_url,{
    
73.                                                                                'action'=>'doLogin',
    
74.                                                                           'userName'=>'hztj2005',#'userName'=>'18072722237'
    
75.                                                                                                               'followId'=>'',
    
76.                                                                           'userPass'=>'55073332xyz',
    
77.                                                                           'validCode'=> "$validCode"
    
78.                                                                                 }
    
79.                                                                    );
    
80.                                                 print "---------------\n";
    
81.                                                
    
82.                                                 my $head =$res->header('Location');       
    
83.                                                                                
    
84.                                                 print $res->header('Location');       
    
85.                                                 print "\n";       
    
86.                                                
    
87.                                                                                        
    
88.                                                 print $res->status_line."\n";
    
89.                                                 print "11111111111111111111\n";
    
90.                                                 print $res->as_string();#获取的是原始内容，包括响应头，响应正文
    
91.                                                 print "22222222222222222222\n";
    
92.                                                 my $content=$res->content();  #获取的是响应正文
    
93.                                                 my $spool = encode("gbk",decode("utf8","$content"));       
    
94.                                                 print "\$spool is $spool\n";
    
95.                                                 print "\n";
    
96.                                                 print "3333333333333333333\n";
    
97.                                                
    
98.                                                 my $response = $ua->get("$head");
    
99.                                                 if ($response->is_success)
    
100.                                                 {
     
101.                                                                 #print $response->content;
     
102.                                                                 $r = $response->content;       
     
103.                                                                 print out $response->content;#内容是登录表格
     
104.                                                                                                                        
     
105.                                                                 #$str=encode("gbk",decode("utf8","$r"));
     
106.                                                                 #print "\$str is $str\n";
     
107.                                                                
     
108.                                                                 print "4444444444444444444\n";
     
109.                                                                 my $now  = time();
     
110.                                                                 my $url="https://wenjinbao.winfae.com/web/auth?method=%2Fwze%2Ftransfer%2Fcash%2Fin&amount=0.1&tradePassword=79e8fe923f031f46221a9283d0c9263a&_=$now";
     
111.                                                                 #my $url="https://wenjinbao.winfae.com/web/auth?method=/wze/transfer/cash/in
     
112.                                                                 #&amount=0.1   #可能是一个很小的测试值
     
113.                                                                 #&tradePassword=79e8fe923f031f46221a9283d0c9263a  #交易密码
     
114.                                                                 #&_=$now";
     
115.                                                                
     
116.                                                                 my $response = $ua->get("$url");
     
117.                                                                 if ($response->is_success)
     
118.                                                                 {
     
119.                                                                   #print $response->content;
     
120.                                                                   $r = $response->content;                                                                
     
121.                                                                   $str=encode("gbk",decode("utf8","$r"));
     
122.                                                                   print "\$str is $str\n";
     
123.                                                       print "555555555555555555\n";
     
124.                                                    }else
     
125.                                                    {
     
126.                                                              $r = $response->content;  
     
127.                                                       print $response->content;
     
128.                                                       print "6666666666666666666\n";
     
129.                                                    }
     
130.                                        
     
131.                                     }
     
132.                                
     
133.                                 };
     
134.                 };
     
135.                
     
136. }else
     
137. {
     
138.        
     
139.    print "no cookie\n";       
     
140. 
     
141. };                       
     
142. 
     
143. _END_
     
144.                                 
     
145. 
     

复制代码

tmp

回复 1# hztj2005

没有加密, 就算加密也不是perl(LWP)做的,那个什么ZJZCJSESSIONID大概就是一个随机的值,
一般确保在一段时间内维持你在网站的登陆状态.

通俗的说就是你成功登陆网站的时候, 网站后台自动选择/计算出一个这样的随机字符串作为sessionid,
保存在服务器上(数据库/文件/内存等中)并通过cookie传递给浏览器,
那么浏览器每次发送新的请求到该网站时候cookie中都会自动附带这个sessionid,
网站通过对比浏览器送出的cookie和服务器上的sessionid就能知道你的账号和是否登陆了.

事实上也并不一定用来表示登陆状态, 也可以用来存储一些临时的选项.