[转载]QQ限制WEB页面注册方法解析及其如何采用多线程技术实现QQ号码快速批量申请

baacloud免费翻墙vpn注册使用

[转载]QQ限制WEB页面注册方法解析及其如何采用多线程技术实现QQ号码快速批量申请 – cntlis – 博客园.

腾讯在其QQ免费注册页面http://reg.qq.com/中,为了限制用户注册,设置了多种限制手段,尤其是在其JS页面中设置了多种算法,防止用户批量注册。

本文主要分析QQ是如何在WEB前台实现防止用户批量的注册,并且提供了相应的技术解决方案,程序早都做好了,没有外放,看到博客园上有其他人对外写了这样的文章,但是比较简陋,因此这里将我的设计方案跟各位分析一下

首先看我的最终实现效果图,比较简陋一些,多线程实现的,如果有什么疑问,可以跟我联系,本人联系QQ:8112857.

在开始注册前边的框框里边输入想要一次性批量申请QQ号码的数量,然后点击开始注册,系统自动的生成相应的线程,然后开始进行排队打码,在每个输入 框输入相应的注册码以后,点击回车,系统会自动的进行注册,并跳转到另外一个框框里边,并将正确的QQ号码自动保存到TXT文本里边。系统我在实现的时 候,没有考虑最后的临界区的问题,因此如果在没有输入验证码,并且关闭的时候,系统会假死,当然了,这个问题不影响使用,下面我说明下我的设计方案。

1.分析QQ注册提交

实际上QQ注册页面利用JavaScript操纵和很多COOKIES信息,而且利用COOKIES信息也进行了一系列的操作,而实际上我们完全可以给屏蔽掉,将关于操纵COOKIE的所有信息都给屏蔽掉,因此就是解析来的步骤

第一步,获取验证码,并且显示出来,这里我使用的是我们公司自己的控件,PNHTTP,你们也可以使用相应的组件,譬如说MSXML之类的只要能够实现GET或者POST方式的

TRegThread(aThread).Bmp:= Http.HttpBmp(‘http://captcha.qq.com/getimage?aid=1007901&0.9408595752591837’); //远程获取验证码,并保存到TBITMAP里边

第二步,用户输入验证码,及其其他的内容信息以后,还不能直接的提交,腾讯在这里对数据进行了一个加操作,首先像checkconn页面发出一个 GET申请,这个操作主要就是获取一串JSON代码,里边包含了需要提交的各变量的名称,也就是FORM里边的INPUT变量的名称,这个变量的名称腾讯 做的比较变态,还进行了一些算法,经过分析,我给还原过来如下

获取表单变量

1 FormParams:= Http.HttpGet(http://reg.qq.com/cgi-bin/checkconn?seed0.8865932116432269); ///获取checkconn页面内容
2 StrCookie:= Http.CookieMgr.CookieCollection.Cookie[PCCOOKIE,qq.com].Value; ///获取PCCOOKIE这个COOKIE里边保存的COOKIE信息
3 StrCookie:= copy(StrCookie,length(StrCookie)1,2); ///获取COOKIE的倒数两位
4 LBase:= HexToInt(StrCookie); ///将COOKIE倒数两位进行十六进制转换
5
6 ParamArray[0]:= QQ; ///申请类型1
7 ParamArray[1]:= EMAIL; ///申请类型2
8 ParamArray[2]:= zeze; ///QQ昵称
9 ParamArray[3]:= 0; ///QQ性别
10 ParamArray[4]:= 1985; ///出生年
11 ParamArray[5]:= 1; ///出生月
12 ParamArray[6]:= 2; ///出生日
13 ParamArray[7]:= 1; ///忘记了
14 ParamArray[8]:= 2; ///忘记了
15 ParamArray[9]:= abc111111; ///密码
16 ParamArray[10]:= abc111111; ///重复密码
17 ParamArray[11]:= 1; ///国家代码
18 ParamArray[12]:= 11; ///省份代码
19 ParamArray[13]:= 1; ///区域代码
20 ParamArray[14]:= RndStr; ///验证码
21
22 try
23 SListA:= FPNSplit(Copy(FormParams,33,402),,);
24 SListB:= FPNSplit(Copy(FormParams,447,64),,);
25 ///上边的是处理CHECKCONN页面的内容,实际上是JSON格式的,可以直接采用JSON解析,但是我这里嫌麻烦,所以自己用的分割函数直接处理
26 FormParams:= ; ///需要提交的变量名
27 ///下边的是对CHECKCONN返回内容的解密算法
28 for i := 0 to 12 do begin
29 IdxA:= StrToInt(SListB[i]) xor LBase;
30 IdxB:= 12i;
31 IdxA:= IdxA xor 6818;
32 IdxA:= IdxA xor 8315;
33 IdxA:= IdxA xor 5123;
34 IdxA:= IdxA xor 2252;
35 for j := 0 to 5 do
36 IdxA:= IdxA xor 0;
37 IdxA:= IdxA mod 15;
38
39 FormParams:= FormParams+ Copy(SListA[IdxB],2,28)+ =+ ParamArray[IdxA]+ &; ///这里是构造提交数据信息
40 end;
41
42 finally
43 SListA.Free;
44 SListB.Free;
45 end;
46
47
48

上边通过FormParams变量,将所需要提交的信息保存了下来,接下来我们开始像服务器提交

提交注册,并检测结果

1 StrResult:= Http.HttpPost(http://reg.qq.com/cgi-bin/getnum,FormParams,True);
2 Reg:= TPerlRegEx.Create(nil);
3 try
4 Reg.Subject:= StrResult;
5 Reg.RegEx:= 您获得的号码为:\<span id\=\”aq\-uin\” class\=\”number\”>([\s\S]*?)\<;
6 if Reg.MatchAgain then begin
7 StrQQ:= Reg.SubExpressions[1];
8 FPNWriteLnText(注册成功的QQ.txt,StrQQ,False);
9 end else begin
10 FPNWriteLnText(注册失败线程.txt,TRegData(aDataObj).FId,False);
11 end;
12 finally
13 Reg.Free;
14 end;
15

以上的过程就完成了腾讯的注册流程,但是仅仅这样是不够的,因为我们所需要的最终目的是多线程,多线程怎么实现呢?我这里采用DELPHI线程池的方式

代码

1 TCoding= record ///这里是记录打码区的状态
2 Status: integer; //忙碌1,空闲0,等待用户输入数据2,用户已经输入,等待处理3
3 ShowBegin: integer; //开始显示验证码的时间
4 end;
5
6 ///线程池中的线程处理类,可以派生,也可以不用派生
7 TRegThread = class(TPNPoolThread)
8 private
9 MyCodeIdx: integer;
10 bmp: TBitmap;
11 procedure ShowImg1;
12 procedure ShowImg;
13 public
14 destructor Destroy;
15 end;
16
17 TRegData= class(TPNTaskObject)
18 private
19 FId: String; //编号
20 public
21 constructor Create(const AId: string);
22 function Duplicate(DataObj: TPNTaskObject;
23 const Processing: Boolean): Boolean; ///判断两个任务是否重复,此函数必须在派生类写明
24 function Info: string; override; ///输出信息,覆盖
25 end;
26
相关打码区函数

1 var
2 MainForm: TMainForm;
3 Codings: array[1..9] of TCoding;
4 CodingCs: TPNCriticalSection; ///申请打码资源的CS
5
6 RegId: integer;
7
8 StrLog: string; ///日志数据
9 PoolReg: TPNThreadPool; ///线程池
10 csLog: TPNCriticalSection; ///保存日志的临界区
11
12 function CodingApply: integer; //申请打码显示资源,如果申请成功,返回显示的标号,否则返回1
13 function CodingRelease(CodeIdx: Integer): string; //释放显示资源,返回的是打码的信息
14 function CodingWait(CodeIdx: Integer): Boolean; //将状态更改为等待
15 function CodingOK(CodeIdx: Integer): Boolean; //将状态更改为处理完毕
16 function CodingStatus(CodeIdx: Integer): integer; //获取当前状态
17

具体的线程池设置代码,对于申请打码区资源,及其释放打码区资源,都写得有具体的方案

代码

1
2 function CodingApply: integer;
3 var
4 i: integer;
5 begin
6 CodingCs.Enter;
7 Result:= 1;
8 try
9 for i := 1 to 9 do begin
10 if Codings[i].Status=0 then begin
11 Result:= i;
12 Codings[i].Status:= 1;
13 Break;
14 end;
15 end;
16 finally
17 CodingCs.Leave;
18 Sleep(0);
19 end;
20 end;
21
22 function CodingRelease(CodeIdx: Integer): string;
23 begin
24 if (CodeIdx<0) or (CodeIdx>9) then Exit;
25 CodingCs.Enter;
26 try
27 try
28 Result:= TEdit(MainForm.FindComponent(Input+ IntToStr(CodeIdx))).Text;
29 except
30 Result:= ;
31 end;
32 Codings[CodeIdx].Status:= 0;
33 finally
34 CodingCs.Leave;
35 Sleep(0);
36 end;
37 end;
38
39 function CodingWait(CodeIdx: Integer): Boolean;
40 begin
41 if (CodeIdx<0) or (CodeIdx>9) then Exit;
42 Result:= True;
43 CodingCs.Enter;
44 try
45 try
46 Codings[CodeIdx].Status:= 2;
47 except
48 Result:= False;
49 end;
50 finally
51 CodingCs.Leave;
52 Sleep(0);
53 end;
54 end;
55
56 function CodingOK(CodeIdx: Integer): Boolean;
57 begin
58 if (CodeIdx<0) or (CodeIdx>9) then Exit;
59 Result:= True;
60 CodingCs.Enter;
61 try
62 try
63 Codings[CodeIdx].Status:= 3;
64 except
65 Result:= False;
66 end;
67 finally
68 CodingCs.Leave;
69 Sleep(0);
70 end;
71 end;
72 function CodingStatus(CodeIdx: Integer): integer;
73 begin
74 if (CodeIdx<0) or (CodeIdx>9) then Exit;
75 CodingCs.Enter;
76 try
77 Result:= Codings[CodeIdx].Status;
78 finally
79 CodingCs.Leave;
80 Sleep(0);
81 end;
82 end;
83
84 constructor TRegData.Create(const AId: string);
85 begin
86 FId:= AId;
87 end;
88
89 function TRegData.Duplicate(DataObj: TPNTaskObject;
90 const Processing: Boolean): Boolean;
91 begin
92 Result := (not Processing) and
93 (FId = TRegData(DataObj).FId);
94 end;
95
96 function TRegData.Info: string;
97 begin
98 Result:= FId=+ FId+ ;;
99 end;
100
101
102 procedure TRegThread.ShowImg1;
103 begin
104 try
105 TImage(MainForm.FindComponent(Img+ IntToStr(MyCodeIdx))).Picture.Assign(bmp);
106 TEdit(MainForm.FindComponent(Input+ IntToStr(MyCodeIdx))).Text:= ;
107 except
108 end;
109 CodingWait(MyCodeIdx);
110 end;
111 procedure TRegThread.ShowImg;
112 begin
113 Synchronize(ShowImg1);
114 end;
115 destructor TRegThread.Destroy;
116 begin
117 try
118 if bmp<>nil then bmp.Free;
119 except
120 end;
121 inherited Destroy;
122 end;
123
124 function HexToInt(const S: String): DWORD;
125 asm
126 PUSH EBX
127 PUSH ESI
128
129 MOV ESI, EAX //字符串地址
130 MOV EDX, [EAX4] //读取字符串长度
131
132 XOR EAX, EAX //初始化返回值
133 XOR ECX, ECX //临时变量
134
135 TEST ESI, ESI //判断是否为空指针
136 JZ @@2
137 TEST EDX, EDX //判断字符串是否为空
138 JLE @@2
139 MOV BL, $20
140 @@0:
141 MOV CL, [ESI]
142 INC ESI
143
144 OR CL, BL //如果有字母则被转换为小写字母
145 SUB CL, 0
146 JB @@2 // < 0 的字符
147 CMP CL, $09
148 JBE @@1 // 0..9 的字符
149 SUB CL, a010
150 CMP CL, $0A
151 JB @@2 // < a 的字符
152 CMP CL, $0F
153 JA @@2 // > f 的字符
154 @@1: // 0..9, A..F, a..f
155 SHL EAX, 4
156 OR EAX, ECX
157 DEC EDX
158 JNZ @@0
159 JMP @@3
160 @@2:
161 XOR EAX, EAX // 非法16进制字符串
162 @@3:
163 POP ESI
164 POP EBX
165 RET
166 end;
167
168 procedure TMainForm.DownProcessRequest(Sender: TPNThreadPool;
169 aDataObj: TPNTaskObject; aThread: TPNPoolThread);
170 var
171 Http: TPNHttp;
172 i,j,LBase,IdxA,IdxB: integer;
173 RndStr,FormParams,StrResult,StrQQ,StrCookie,StrIP: string;
174 SListA,SListB: TStringList;
175 Reg: TPerlRegEx;
176 ParamArray: array[0..14] of string;
177 begin
178 // FPNWriteLnText(日志.txt,TRegData(aDataObj).FId+开始注册,False);
179 Http:= TPNHttp.Create(nil,True,True);
180 Randomize;
181 StrIP:= 1.193.86.+ IntToStr(Random(255)+ 1);
182 // StrIP:= IntToStr(Random(255)+ 1)+.+ IntToStr(Random(255)+ 1)+.+ IntToStr(Random(255)+ 1)+.+ IntToStr(Random(255)+ 1);
183 Http.Request.CustomHeaders.Add(X-Forwarded-For:+ StrIP);
184 try
185 try
186 Http.HttpGet(http://reg.qq.com/);
187 // FPNWriteLnText(TRegData(aDataObj).FId+HEADER信息.txt,首页:+ Http.HttpHeader,False);
188 TRegThread(aThread).MyCodeIdx:= CodingApply;
189 ///等待获取打码资源
190 while TRegThread(aThread).MyCodeIdx=-1 do begin
191 sleep(500);
192 TRegThread(aThread).MyCodeIdx:= CodingApply;
193 end;
194 try
195 TRegThread(aThread).Bmp:= Http.HttpBmp(http://captcha.qq.com/getimage?aid=1007901&0.9408595752591837);
196 // FPNWriteLnText(TRegData(aDataObj).FId+HEADER信息.txt,验证码:+ Http.HttpHeader,False);
197 TRegThread(aThread).ShowImg;
198 finally
199 if TRegThread(aThread).Bmp<>nil then
200 TRegThread(aThread).Bmp.Free;
201 end;
202 while CodingStatus(TRegThread(aThread).MyCodeIdx)=2 do begin
203 Sleep(200);
204 end;
205 RndStr:= CodingRelease(TRegThread(aThread).MyCodeIdx);
206 // FPNWriteLnText(日志.txt,TRegData(aDataObj).FId+:RndStr=+ RndStr,False);
207 FormParams:= Http.HttpGet(http://reg.qq.com/cgi-bin/checkconn?seed0.8865932116432269);
208 // FPNWriteLnText(TRegData(aDataObj).FId+HEADER信息.txt,CheckConn:+ Http.HttpHeader,False);
209 // FPNWriteLnText(TRegData(aDataObj).FId+数据日志.txt,返回的参数集:+ FormParams,False);
210 // FormParams:= Copy(FormParams,33,402);
211 StrCookie:= Http.CookieMgr.CookieCollection.Cookie[PCCOOKIE,qq.com].Value;
212 // FPNWriteLnText(TRegData(aDataObj).FId+数据日志.txt,PCCOOKIE值为:+ StrCookie,False);
213 StrCookie:= copy(StrCookie,length(StrCookie)1,2);
214 // FPNWriteLnText(TRegData(aDataObj).FId+数据日志.txt,LBASE值为:+ StrCookie,False);
215 LBase:= HexToInt(StrCookie);
216
217 ParamArray[0]:= QQ;
218 ParamArray[1]:= EMAIL;
219 ParamArray[2]:= zeze;
220 ParamArray[3]:= 0;
221 ParamArray[4]:= 1985;
222 ParamArray[5]:= 1;
223 ParamArray[6]:= 2;
224 ParamArray[7]:= 1;
225 ParamArray[8]:= 2;
226 ParamArray[9]:= abc111111;
227 ParamArray[10]:= abc111111;
228 ParamArray[11]:= 1;
229 ParamArray[12]:= 11;
230 ParamArray[13]:= 1;
231 ParamArray[14]:= RndStr;
232 try
233 SListA:= FPNSplit(Copy(FormParams,33,402),,);
234 SListB:= FPNSplit(Copy(FormParams,447,64),,);
235 // FPNWriteLnText(TRegData(aDataObj).FId+数据日志.txt,Copy(FormParams,447,64),False);
236 FormParams:= ;
237 for i := 0 to 12 do begin
238 IdxA:= StrToInt(SListB[i]) xor LBase;
239 IdxB:= 12i;
240 IdxA:= IdxA xor 6818;
241 IdxA:= IdxA xor 8315;
242 IdxA:= IdxA xor 5123;
243 IdxA:= IdxA xor 2252;
244 for j := 0 to 5 do
245 IdxA:= IdxA xor 0;
246 IdxA:= IdxA mod 15;
247 // FPNWriteLnText(TRegData(aDataObj).FId+数据日志.txt,IdxA:+ IntToStr(IdxA),False);
248
249 FormParams:= FormParams+ Copy(SListA[IdxB],2,28)+ =+ ParamArray[IdxA]+ &
250 end;
251
252 // FormParams:= Copy(SList[0],2,28)+ =1&+ Copy(SList[1],2,28)+ =1&+ Copy(SList[2],2,28)+ =pop67579818&
253 // + Copy(SList[3],2,28)+ =1983&+ Copy(SList[4],2,28)+ =+ RndStr+& + Copy(SList[5],2,28)+ =1&
254 // + Copy(SList[6],2,28)+ =lovezeze&+ Copy(SList[7],2,28)+ =pop67579818&+ Copy(SList[8],2,28)+ =0&
255 // + Copy(SList[9],2,28)+ =1&+ Copy(SList[10],2,28)+ =2&+ Copy(SList[11],2,28)+ =11&
256 // + Copy(SList[12],2,28)+ =1;
257 finally
258 SListA.Free;
259 SListB.Free;
260 end;
261 for i := 0 to Http.CookieMgr.CookieCollection.Count 1 do
262 StrCookie:= StrCookie+ Http.CookieMgr.CookieCollection.Items[i].CookieName+ :
263 + Http.CookieMgr.CookieCollection.Items[i].CookieText;
264 StrResult:= Http.HttpPost(http://reg.qq.com/cgi-bin/getnum,FormParams,True);
265 // FPNWriteLnText(TRegData(aDataObj).FId+HEADER信息.txt,POST时候:+ Http.HttpHeader,False);
266 // FPNWriteLnText(TRegData(aDataObj).FId+数据日志.txt,提交COOKIE为:+ StrCookie,False);
267 // FPNWriteLnText(TRegData(aDataObj).FId+数据日志.txt,提交参数为:+ FormParams,False);
268 // FPNWriteLnText(TRegData(aDataObj).FId+返回数据.txt,StrResult,False);
269 Reg:= TPerlRegEx.Create(nil);
270 try
271 Reg.Subject:= StrResult;
272 Reg.RegEx:= 您获得的号码为:\<span id\=\”aq\-uin\” class\=\”number\”>([\s\S]*?)\<;
273 if Reg.MatchAgain then begin
274 StrQQ:= Reg.SubExpressions[1];
275 FPNWriteLnText(注册成功的QQ.txt,StrQQ,False);
276 end else begin
277 FPNWriteLnText(注册失败线程.txt,TRegData(aDataObj).FId,False);
278 end;
279 // FPNWriteLnText(TRegData(aDataObj).FId+匹配结果.txt,StrResult,False);
280 finally
281 Reg.Free;
282 end;
283 except
284
285 end;
286 finally
287 Http.Free;
288 end;
289 end;
290
291 procedure TMainForm.btn1Click(Sender: TObject);
292 var
293 i: integer;
294 begin
295 for i := 1 to StrToInt(RegNum.Text) do begin
296 RegId:= RegId+ 1;
297 PoolReg.AddRequest(TRegData.Create(IntToStr(RegId)));
298 end;
299 end;
300
301 procedure TMainForm.FormCreate(Sender: TObject);
302 begin
303 RegId:= 0;
304 CodingCs:= TPNCriticalSection.Create;
305 PoolReg := TPNThreadPool.Create(nil);
306 with PoolReg do begin
307 OnProcessRequest := DownProcessRequest; ///线程处理函数
308 AdjustInterval := 5 * 1000; ///减少线程间隔时间,5
309 MinAtLeast := False; ///是否设置最小线程数
310 ThreadDeadTimeout := 10 * 1000; ///线程死亡超时时间
311 ThreadsMinCount := 10; ///最小线程数
312 ThreadsMaxCount := 50; ///最大线程数
313 uTerminateWaitTime := 2 * 1000; ///挂起等待时间
314 end;
315
316 end;
317
318 procedure TMainForm.FormDestroy(Sender: TObject);
319 begin
320 PoolReg.Free;
321 CodingCs.Free;
322 end;
323
324 procedure TMainForm.Input1KeyPress(Sender: TObject; var Key: Char);
325 var
326 CodeIdx: integer;
327 ObjName: string;
328 begin
329 if Key= Char(13) then begin
330 ObjName:= (Sender as TRzEdit).Name;
331 CodeIdx:= StrToInt(Copy(ObjName,6,1));
332 CodingOK(CodeIdx);
333 if CodeIdx=9 then
334 CodeIdx:= 1
335 else
336 CodeIdx:= CodeIdx+ 1;
337 TRzEdit(FindComponent(Input+ IntToStr(CodeIdx))).SetFocus;
338 end;
339 end;
340

本文只是对QQ注册页面进行一些分析,供大家参考,其实大家在做WEB设计的时候,如何防止批量注册这块,也可以参考下QQ,比较变态一些,但是感觉腾讯做的还不完善。

赞(0) 打赏
分享到: 更多 (0)

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

微信扫一扫打赏