关于QQ注册如何突破IP限制的说明附全部源代码下载

上一篇文章我说明了如何破解QQ批量注册的问题，我看有朋友说过，通过HTTPWATCH看到腾讯提交的参数，那个我知道，不过那个朋友你可以测试一下，腾讯的直接提交是不能用的，必须要中间经历一系列的算法，否则会提示“请不要重复申请”的错误提示

 

有朋友在上一篇文章评论将说关于IP限制的问题，我讲一下，首先代理IP是没问题的，同时采取PPPOE拨号的也没问题，代理IP直接用PNHTTP都可以实现，PPPOE可以采取一些相应的组件，譬如说CnPack里边的拨号组件等，

 

1     with  Http.ProxyParams  do   begin
2      ProxyServer: =   '' ;  // 代理地址
3      ProxyPort: =   80 ;  // 端口
4      ProxyUsername: =   '' ;  // 代理登录用户名
5      ProxyPassword: =   '' ;  // 代理登录密码
6     end ;
7 

 

 

我这边自己测试的，还有一种方案，这种方案也可以破解腾讯的IP限制，但是不稳定，就是一会可以，一会不可以，但是总归算下来，比不用的强，原理是更改提交给腾讯服务器的主机头，然后让腾讯误以为是通过代理访问的页面（之前有朋友说代理访问提示没权限，那个有可能就是因为你的代理服务器给你额外增加主机头信息了）。

 

伪造IP

1    Randomize;
2    StrIP: =  IntToStr(Random( 255 ) +   1 ) + ' . ' +  IntToStr(Random( 255 ) +   1 ) + ' . ' +  IntToStr(Random( 255 ) +   1 ) + ' . ' +  IntToStr(Random( 255 ) +   1 );
3    Http.Request.CustomHeaders.Add( ' X-Forwarded-For: ' +  StrIP);
4 

 

 

这样去提交数据的时候，就会额外给他增加一条头部信息，让他误以为咱们是通过代理IP访问的，但是这个伪造，还是我之前所说的，不稳定，有时候好用，有时候不好用

 

附带所有的代码

全部代码

  1  unit  MainFrm;
  2 
  3  interface
  4 
  5  uses
  6    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7    Dialogs, StdCtrls, Mask, RzEdit, ExtCtrls,PN_ThreadPool,PNHttp,PNCE_GlbFun,
  8    PerlRegEx;
  9 
 10  type
 11    TMainForm  =   class (TForm)
 12      grp1: TGroupBox;
 13      bvl1: TBevel;
 14      Input1: TRzEdit;
 15      grp2: TGroupBox;
 16      bvl2: TBevel;
 17      Input2: TRzEdit;
 18      grp3: TGroupBox;
 19      bvl3: TBevel;
 20      Input3: TRzEdit;
 21      img1: TImage;
 22      img2: TImage;
 23      img3: TImage;
 24      grp4: TGroupBox;
 25      bvl4: TBevel;
 26      img4: TImage;
 27      Input4: TRzEdit;
 28      grp5: TGroupBox;
 29      bvl5: TBevel;
 30      img5: TImage;
 31      Input5: TRzEdit;
 32      grp6: TGroupBox;
 33      bvl6: TBevel;
 34      img6: TImage;
 35      Input6: TRzEdit;
 36      grp7: TGroupBox;
 37      bvl7: TBevel;
 38      img7: TImage;
 39      Input7: TRzEdit;
 40      grp8: TGroupBox;
 41      bvl8: TBevel;
 42      img8: TImage;
 43      Input8: TRzEdit;
 44      grp9: TGroupBox;
 45      bvl9: TBevel;
 46      img9: TImage;
 47      Input9: TRzEdit;
 48      btn1: TButton;
 49      RegNum: TEdit;
 50       procedure  FormCreate(Sender: TObject);
 51       procedure  FormDestroy(Sender: TObject);
 52       procedure  Input1KeyPress(Sender: TObject;  var  Key: Char);
 53       procedure  btn1Click(Sender: TObject);
 54     private
 55       {  Private declarations  }
 56     public
 57       {  Public declarations  }
 58       procedure  DownProcessRequest(Sender: TPNThreadPool;
 59        aDataObj: TPNTaskObject; aThread: TPNPoolThread);
 60     end ;
 61 
 62    TCoding =   record
 63      Status: integer;   // 忙碌1，空闲0，等待用户输入数据2,用户已经输入，等待处理3
 64      ShowBegin: integer;  // 开始显示验证码的时间
 65     end ;
 66 
 67     /// 线程池中的线程处理类，可以派生，也可以不用派生
 68    TRegThread  =   class (TPNPoolThread)
 69     private
 70      MyCodeIdx: integer;
 71      bmp: TBitmap;
 72       procedure  ShowImg1;
 73       procedure  ShowImg;
 74     public
 75       destructor  Destroy;
 76     end ;
 77 
 78    TRegData =   class (TPNTaskObject)
 79     private
 80      FId: String;  // 编号
 81     public
 82       constructor  Create( const  AId:  string );
 83       function  Duplicate(DataObj: TPNTaskObject;
 84         const  Processing: Boolean): Boolean;   /// 判断两个任务是否重复，此函数必须在派生类写明
 85       function  Info:  string ;  override ;   /// 输出信息，覆盖
 86     end ;
 87 
 88  var
 89    MainForm: TMainForm;
 90    Codings:  array [ 1 .. 9 ]  of  TCoding;
 91    CodingCs: TPNCriticalSection;  /// 申请打码资源的CS
 92 
 93    RegId: integer;
 94 
 95    StrLog:  string ;  /// 日志数据
 96    PoolReg: TPNThreadPool;   /// 线程池
 97    csLog: TPNCriticalSection;   /// 保存日志的临界区
 98 
 99  function  CodingApply: integer;   // 申请打码显示资源，如果申请成功，返回显示的标号，否则返回 - 1
100  function  CodingRelease(CodeIdx: Integer):  string ;   // 释放显示资源，返回的是打码的信息
101  function  CodingWait(CodeIdx: Integer): Boolean;  // 将状态更改为等待
102  function  CodingOK(CodeIdx: Integer): Boolean;  // 将状态更改为处理完毕
103  function  CodingStatus(CodeIdx: Integer): integer;  // 获取当前状态
104 
105  implementation
106 
107  { $R *.dfm }
108 
109  function  CodingApply: integer;
110  var
111    i: integer;
112  begin
113    CodingCs.Enter;
114    Result: =   - 1 ;
115     try
116       for  i : =   1   to   9   do   begin
117         if  Codings[i].Status = 0   then   begin
118          Result: =  i;
119          Codings[i].Status: =   1 ;
120          Break;
121         end ;
122       end ;
123     finally
124      CodingCs.Leave;
125      Sleep( 0 );
126     end ;
127  end ;
128 
129  function  CodingRelease(CodeIdx: Integer):  string ;
130  begin
131     if  (CodeIdx < 0 )  or  (CodeIdx > 9 )  then  Exit;
132    CodingCs.Enter;
133     try
134       try
135        Result: =  TEdit(MainForm.FindComponent( ' Input ' +  IntToStr(CodeIdx))).Text;
136       except
137        Result: =   '' ;
138       end ;
139      Codings[CodeIdx].Status: =   0 ;
140     finally
141      CodingCs.Leave;
142      Sleep( 0 );
143     end ;
144  end ;
145 
146  function  CodingWait(CodeIdx: Integer): Boolean;
147  begin
148     if  (CodeIdx < 0 )  or  (CodeIdx > 9 )  then  Exit;
149    Result: =  True;
150    CodingCs.Enter;
151     try
152       try
153        Codings[CodeIdx].Status: =   2 ;
154       except
155        Result: =  False;
156       end ;
157     finally
158      CodingCs.Leave;
159      Sleep( 0 );
160     end ;
161  end ;
162 
163  function  CodingOK(CodeIdx: Integer): Boolean;
164  begin
165     if  (CodeIdx < 0 )  or  (CodeIdx > 9 )  then  Exit;
166    Result: =  True;
167    CodingCs.Enter;
168     try
169       try
170        Codings[CodeIdx].Status: =   3 ;
171       except
172        Result: =  False;
173       end ;
174     finally
175      CodingCs.Leave;
176      Sleep( 0 );
177     end ;
178  end ;
179  function  CodingStatus(CodeIdx: Integer): integer;
180  begin
181     if  (CodeIdx < 0 )  or  (CodeIdx > 9 )  then  Exit;
182    CodingCs.Enter;
183     try
184      Result: =  Codings[CodeIdx].Status;
185     finally
186      CodingCs.Leave;
187      Sleep( 0 );
188     end ;
189  end ;
190 
191  constructor  TRegData.Create( const  AId:  string );
192  begin
193    FId: =  AId;
194  end ;
195 
196  function  TRegData.Duplicate(DataObj: TPNTaskObject;
197     const  Processing: Boolean): Boolean;
198  begin
199    Result : =  ( not  Processing)  and
200      (FId  =  TRegData(DataObj).FId);
201  end ;
202 
203  function  TRegData.Info:  string ;
204  begin
205    Result: =   ' FId= ' +  FId +   ' ; ' ;
206  end ;
207 
208 
209  procedure  TRegThread.ShowImg1;
210  begin
211     try
212      TImage(MainForm.FindComponent( ' Img ' +  IntToStr(MyCodeIdx))).Picture.Assign(bmp);
213      TEdit(MainForm.FindComponent( ' Input ' +  IntToStr(MyCodeIdx))).Text: =   '' ;
214     except
215     end ;
216    CodingWait(MyCodeIdx);
217  end ;
218  procedure  TRegThread.ShowImg;
219  begin
220    Synchronize(ShowImg1);
221  end ;
222  destructor  TRegThread.Destroy;
223  begin
224     try
225       if  bmp <> nil   then  bmp.Free;
226     except
227     end ;
228     inherited  Destroy;
229  end ;
230 
231  function  HexToInt( const  S: String): DWORD;
232  asm
233    PUSH EBX
234    PUSH ESI
235 
236    MOV ESI, EAX  // 字符串地址
237    MOV EDX, [EAX - 4 ]  // 读取字符串长度
238 
239    XOR EAX, EAX  // 初始化返回值
240    XOR ECX, ECX  // 临时变量
241 
242    TEST ESI, ESI  // 判断是否为空指针
243    JZ @@ 2
244    TEST EDX, EDX  // 判断字符串是否为空
245    JLE @@ 2
246    MOV BL, $ 20
247    @@ 0 :
248    MOV CL, [ESI]
249    INC ESI
250 
251    OR CL, BL  // 如果有字母则被转换为小写字母
252    SUB CL,  ' 0 '
253    JB @@ 2   //   <   ' 0 '  的字符
254    CMP CL, $ 09
255    JBE @@ 1   //   ' 0 ' .. ' 9 '  的字符
256    SUB CL,  ' a ' - ' 0 ' - 10
257    CMP CL, $0A
258    JB @@ 2   //   <   ' a '  的字符
259    CMP CL, $0F
260    JA @@ 2   //   >   ' f '  的字符
261    @@ 1 :  //   ' 0 ' .. ' 9 ' ,  ' A ' .. ' F ' ,  ' a ' .. ' f '
262    SHL EAX,  4
263    OR EAX, ECX
264    DEC EDX
265    JNZ @@ 0
266    JMP @@ 3
267    @@ 2 :
268    XOR EAX, EAX  //  非法16进制字符串
269    @@ 3 :
270    POP ESI
271    POP EBX
272    RET
273  end ;
274 
275  procedure  TMainForm.DownProcessRequest(Sender: TPNThreadPool;
276    aDataObj: TPNTaskObject; aThread: TPNPoolThread);
277  var
278    Http: TPNHttp;
279    i,j,LBase,IdxA,IdxB: integer;
280    RndStr,FormParams,StrResult,StrQQ,StrCookie,StrIP:  string ;
281    SListA,SListB: TStringList;
282    Reg: TPerlRegEx;
283    ParamArray:  array [ 0 .. 14 ]  of   string ;
284  begin
285  //   FPNWriteLnText( ' 日志.txt ' ,TRegData(aDataObj).FId + ' 开始注册 ' ,False);
286    Http: =  TPNHttp.Create( nil ,True,True);
287    Randomize;
288    StrIP: =   ' 1.193.86. ' +  IntToStr(Random( 255 ) +   1 );
289  //   StrIP: =  IntToStr(Random( 255 ) +   1 ) + ' . ' +  IntToStr(Random( 255 ) +   1 ) + ' . ' +  IntToStr(Random( 255 ) +   1 ) + ' . ' +  IntToStr(Random( 255 ) +   1 );
290    Http.Request.CustomHeaders.Add( ' X-Forwarded-For: ' +  StrIP);
291     with  Http.ProxyParams  do   begin
292      ProxyServer: =   '' ;  // 代理地址
293      ProxyPort: =   80 ;  // 端口
294      ProxyUsername: =   '' ;  // 代理登录用户名
295      ProxyPassword: =   '' ;  // 代理登录密码
296     end ;
297     try
298       try
299        Http.HttpGet( ' http://reg.qq.com/ ' );
300  //       FPNWriteLnText(TRegData(aDataObj).FId + ' HEADER信息.txt ' , ' 首页： ' +  Http.HttpHeader,False);
301        TRegThread(aThread).MyCodeIdx: =  CodingApply;
302         /// 等待获取打码资源
303         while  TRegThread(aThread).MyCodeIdx =- 1   do   begin
304          sleep( 500 );
305           if   not  aThread.Terminated  then
306            TRegThread(aThread).MyCodeIdx: =  CodingApply
307           else
308            exit;
309         end ;
310         try
311          TRegThread(aThread).Bmp: =  Http.HttpBmp( ' http://captcha.qq.com/getimage?aid=1007901&0.9408595752591837 ' );
312     //       FPNWriteLnText(TRegData(aDataObj).FId + ' HEADER信息.txt ' , ' 验证码： ' +  Http.HttpHeader,False);
313          TRegThread(aThread).ShowImg;
314         finally
315           if  TRegThread(aThread).Bmp <> nil   then
316            TRegThread(aThread).Bmp.Free;
317         end ;
318         while  CodingStatus(TRegThread(aThread).MyCodeIdx) = 2   do   begin
319          Sleep( 200 );
320           if  aThread.Terminated  then
321            Exit;
322         end ;
323        RndStr: =  CodingRelease(TRegThread(aThread).MyCodeIdx);
324  //       FPNWriteLnText( ' 日志.txt ' ,TRegData(aDataObj).FId + ' :RndStr= ' +  RndStr,False);
325        FormParams: =  Http.HttpGet( ' http://reg.qq.com/cgi-bin/checkconn?seed0.8865932116432269 ' );
326  //       FPNWriteLnText(TRegData(aDataObj).FId + ' HEADER信息.txt ' , ' CheckConn： ' +  Http.HttpHeader,False);
327  //       FPNWriteLnText(TRegData(aDataObj).FId + ' 数据日志.txt ' , ' 返回的参数集： ' +  FormParams,False);
328  //       FormParams: =  Copy(FormParams, 33 , 402 );
329        StrCookie: =  Http.CookieMgr.CookieCollection.Cookie[ ' PCCOOKIE ' , ' qq.com ' ].Value;
330  //       FPNWriteLnText(TRegData(aDataObj).FId + ' 数据日志.txt ' , ' PCCOOKIE值为： ' +  StrCookie,False);
331        StrCookie: =  copy(StrCookie,length(StrCookie) - 1 , 2 );
332  //       FPNWriteLnText(TRegData(aDataObj).FId + ' 数据日志.txt ' , ' LBASE值为： ' +  StrCookie,False);
333        LBase: =  HexToInt(StrCookie);
334 
335        ParamArray[ 0 ]: =   ' QQ ' ;
336        ParamArray[ 1 ]: =   ' EMAIL ' ;
337        ParamArray[ 2 ]: =   ' zeze ' ;
338        ParamArray[ 3 ]: =   ' 0 ' ;
339        ParamArray[ 4 ]: =   ' 1985 ' ;
340        ParamArray[ 5 ]: =   ' 1 ' ;
341        ParamArray[ 6 ]: =   ' 2 ' ;
342        ParamArray[ 7 ]: =   ' 1 ' ;
343        ParamArray[ 8 ]: =   ' 2 ' ;
344        ParamArray[ 9 ]: =   ' abc111111 ' ;
345        ParamArray[ 10 ]: =   ' abc111111 ' ;
346        ParamArray[ 11 ]: =   ' 1 ' ;
347        ParamArray[ 12 ]: =   ' 11 ' ;
348        ParamArray[ 13 ]: =   ' 1 ' ;
349        ParamArray[ 14 ]: =  RndStr;
350        try
351          SListA: =  FPNSplit(Copy(FormParams, 33 , 402 ), ' , ' );
352          SListB: =  FPNSplit(Copy(FormParams, 447 , 64 ), ' , ' );
353  //         FPNWriteLnText(TRegData(aDataObj).FId + ' 数据日志.txt ' ,Copy(FormParams, 447 , 64 ),False);
354          FormParams: =   '' ;
355           for  i : =   0   to   12   do   begin
356            IdxA: =  StrToInt(SListB[i])  xor  LBase;
357            IdxB: =   12 - i;
358            IdxA: =  IdxA  xor   6818 ;
359            IdxA: =  IdxA  xor   8315 ;
360            IdxA: =  IdxA  xor   5123 ;
361            IdxA: =  IdxA  xor   2252 ;
362             for  j : =   0   to   5   do
363              IdxA: =  IdxA  xor   0 ;
364            IdxA: =  IdxA  mod   15 ;
365  //           FPNWriteLnText(TRegData(aDataObj).FId + ' 数据日志.txt ' , ' IdxA： ' +  IntToStr(IdxA),False);
366 
367            FormParams: =  FormParams +  Copy(SListA[IdxB], 2 , 28 ) +   ' = ' +  ParamArray[IdxA] +   ' & '
368           end ;
369 
370  //         FormParams: =  Copy(SList[ 0 ], 2 , 28 ) +   ' =1& ' +  Copy(SList[ 1 ], 2 , 28 ) +   ' =1& ' +  Copy(SList[ 2 ], 2 , 28 ) +   ' =pop67579818& '
371  //            +  Copy(SList[ 3 ], 2 , 28 ) +   ' =1983& ' +  Copy(SList[ 4 ], 2 , 28 ) +   ' = ' +  RndStr + ' & '   +  Copy(SList[ 5 ], 2 , 28 ) +   ' =1& '
372  //            +  Copy(SList[ 6 ], 2 , 28 ) +   ' =lovezeze& ' +  Copy(SList[ 7 ], 2 , 28 ) +   ' =pop67579818& ' +  Copy(SList[ 8 ], 2 , 28 ) +   ' =0& '
373  //            +  Copy(SList[ 9 ], 2 , 28 ) +   ' =1& ' +  Copy(SList[ 10 ], 2 , 28 ) +   ' =2& ' +  Copy(SList[ 11 ], 2 , 28 ) +   ' =11& '
374  //            +  Copy(SList[ 12 ], 2 , 28 ) +   ' =1 ' ;
375         finally
376          SListA.Free;
377          SListB.Free;
378         end ;
379         for  i : =   0   to  Http.CookieMgr.CookieCollection.Count  -   1   do
380          StrCookie: =  StrCookie +  Http.CookieMgr.CookieCollection.Items[i].CookieName +   ' : '
381           +  Http.CookieMgr.CookieCollection.Items[i].CookieText;
382        StrResult: =  Http.HttpPost( ' http://reg.qq.com/cgi-bin/getnum ' ,FormParams,True);
383  //       FPNWriteLnText(TRegData(aDataObj).FId + ' HEADER信息.txt ' , ' POST时候： ' +  Http.HttpHeader,False);
384  //       FPNWriteLnText(TRegData(aDataObj).FId + ' 数据日志.txt ' , ' 提交COOKIE为： ' +  StrCookie,False);
385  //       FPNWriteLnText(TRegData(aDataObj).FId + ' 数据日志.txt ' , ' 提交参数为： ' +  FormParams,False);
386  //       FPNWriteLnText(TRegData(aDataObj).FId + ' 返回数据.txt ' ,StrResult,False);
387        Reg: =  TPerlRegEx.Create( nil );
388         try
389          Reg.Subject: =  StrResult;
390          Reg.RegEx: =   ' 您获得的号码为：\<span id\=\"aq\-uin\" class\=\"number\">([\s\S]*?)\< ' ;
391           if  Reg.MatchAgain  then   begin
392            StrQQ: =  Reg.SubExpressions[ 1 ];
393            FPNWriteLnText( ' 注册成功的QQ.txt ' ,StrQQ,False);
394           end   else   begin
395            FPNWriteLnText( ' 注册失败线程.txt ' ,TRegData(aDataObj).FId,False);
396           end ;
397  //         FPNWriteLnText(TRegData(aDataObj).FId + ' 匹配结果.txt ' ,StrResult,False);
398         finally
399          Reg.Free;
400         end ;
401       except
402 
403       end ;
404     finally
405      Http.Free;
406     end ;
407  end ;
408 
409  procedure  TMainForm.btn1Click(Sender: TObject);
410  var
411    i: integer;
412  begin
413     for  i : =   1   to  StrToInt(RegNum.Text)  do   begin
414      RegId: =  RegId +   1 ;
415      PoolReg.AddRequest(TRegData.Create(IntToStr(RegId)));
416     end ;
417  end ;
418 
419  procedure  TMainForm.FormCreate(Sender: TObject);
420  begin
421    RegId: =   0 ;
422    CodingCs: =  TPNCriticalSection.Create;
423    PoolReg : =  TPNThreadPool.Create( nil );
424     with  PoolReg  do   begin
425      OnProcessRequest : =  DownProcessRequest;  /// 线程处理函数
426      AdjustInterval : =   5   *   1000 ;  /// 减少线程间隔时间， 5 秒
427      MinAtLeast : =  False;   /// 是否设置最小线程数
428      ThreadDeadTimeout : =   10   *   1000 ;  /// 线程死亡超时时间
429      ThreadsMinCount : =   10 ;  /// 最小线程数
430      ThreadsMaxCount : =   50 ;   /// 最大线程数
431      uTerminateWaitTime : =   2   *   1000 ;  /// 挂起等待时间
432     end ;
433 
434  end ;
435 
436  procedure  TMainForm.FormDestroy(Sender: TObject);
437  begin
438    PoolReg.Free;
439    CodingCs.Free;
440  end ;
441 
442  procedure  TMainForm.Input1KeyPress(Sender: TObject;  var  Key: Char);
443  var
444    CodeIdx: integer;
445    ObjName:  string ;
446  begin
447     if  Key =  Char( 13 )  then   begin
448      ObjName: =  (Sender  as  TRzEdit).Name;
449      CodeIdx: =  StrToInt(Copy(ObjName, 6 , 1 ));
450      CodingOK(CodeIdx);
451       if  CodeIdx = 9   then
452        CodeIdx: =   1
453       else
454        CodeIdx: =  CodeIdx +   1 ;
455      TRzEdit(FindComponent( ' Input ' +  IntToStr(CodeIdx))).SetFocus;
456     end ;
457  end ;
458 
459  end .

 

 

 

QQ批量注册全部源代码下载

/Files/cntlis/QQ批量注册.rar