自动投票器 讨论提交问题 全部解决。哈哈。

regspy

用advocr识别库　解决识别的问题。　。

但
http://it.icxo.com/100bbs_2006/info.html　这里的提交我写了不行。　　

源代码是改来的。555

HELP　ME　

提交部分代码，如下。

不知道为什么要出错。晕死了。



拦截提交代码　，分析如下、。

1. POST /100bbs_2006/record.jsp HTTP/1.1
   
2. Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/msword, application/vnd.ms-excel, */*
   
3. Referer: http://vote.icxo.com/100bbs_2006/view.jsp?Qid=100403&col=3
   
4. Accept-Language: zh-cn
   
5. Content-Type: application/x-www-form-urlencoded
   
6. UA-CPU: x86
   
7. Accept-Encoding: gzip, deflate
   
8. User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; Maxthon; .NET CLR 1.1.4322)
   
9. Host: vote.icxo.com
   
10. Content-Length: 77
    
11. Connection: Keep-Alive
    
12. Cache-Control: no-cache
    
13. Cookie: JSESSIONID=aNsl53BMzHAc
    
14. 
    
15. qid=100403&action=record&aid=112564&rand=9216&Submit=%C8%B7%C8%CF%CC%E1%BD%BB

复制代码

提交部分源，如下。

1. 
   
2. 
   
3. function TPollTask.PollIt: Boolean;
   
4. const
   
5.   ACTION = 'http://it.icxo.com/100bbs_2006/record.jsp';
   
6. var
   
7.   Params : TStringList;
   
8. begin
   
9.   Result := False;
   
10.   if not OcrCode then exit;
    
11.   Params := TStringList.Create;
    
12.   Params.Add('rand='+_CODE);
    
13.   Params.Add('aid=100403');
    
14.   Params.Add('action=record');
    
15.   Params.Add('aid=112564');
    
16.   Params.Add('Submit=%C8%B7%C8%CF%CC%E1%BD%BB');
    
17.   try
    
18.     ShowLog('正在提交投票数据到服务器');
    
19.     _HTML := _HTTP.Post(ACTION,Params);
    
20.     Result := True;
    
21.   except
    
22.     on E : Exception do
    
23.     ShowLog('提交投票数据时发生错误:'+ e.Message);
    
24.   end;
    
25.   Params.Free;
    
26.   if Result then
    
27.   Result := Pos('成功',_HTML)>0;
    
28. end;
    

复制代码

[ 本帖最后由 regspy 于 2006-7-15 13:22 编辑 ]

regspy

返回值为False　就表示投票失败。。
Result := False;


哈哈哈，好像成功。了，看数据部分

[ 本帖最后由 regspy 于 2006-7-15 12:59 编辑 ]

faterpan

请教一下，幻芯懂不懂汇编语言？

regspy

原帖由 faterpan 于 2006-7-15 12:31 发表
请教一下，幻芯懂不懂汇编语言？

只如如破解的时候，改跳转。。
大段大段的就看不明白了。。

faterpan

一个pascal(dephi)编写的exe文件，经反编译得到汇编代码。
其中一段是，根据一个15位的数字串，以某一个规则，变换成另一个10位的数字串。
现在，要找出这个规则。

regspy

原帖由 faterpan 于 2006-7-15 12:55 发表
一个pascal(dephi)编写的exe文件，经反编译得到汇编代码。
其中一段是，根据一个15位的数字串，以某一个规则，变换成另一个10位的数字串。
现在，要找出这个规则。

N机的算解码程序　？下砂给我了一份。


你看看 2楼。。、


QQ CALL我，然后我传你一个。试试