博客园_cntlis

一个人的习惯有多么可怕

2011-06-14T03:43:00Z

最近，公司里边碰到这么一件事情

公司里边有一名员工，暂且命名为小B，然后他的上级，我给明明为小A。

这日，小A打电话给小B，说让他把他之前做给客户的东西给修改一下，然后这个小B在电话里边说话很强势，似乎是他们两个角色换位了一样，小B一个劲的说没法修改，谁会做谁做，最后还把电话直接给挂了！

然后这一幕正好被我给看到，我就在想，这个小B太强悍了，居然敢跟他的上级领导这么说话。回想小B刚来到公司时候的唯唯诺诺,战战兢兢，简直是一个天壤之别，然后我就在考虑是什么原因造成这样的结果呢？后来得出结论就是习惯。

一对情侣，男孩一味的对女孩好，比方说每天都主动做饭给女孩吃，还负责打扫家务。刚开始，女孩会感觉男孩真好，天天的给他做饭，然而时间一久，女孩慢慢的把男孩对他的好当成了习惯，如果哪一天男孩忘记给女孩做饭，或许女孩会对男孩破口大骂，为什么不给我做饭？女孩把男孩对他的好，当成了是一种理所应当的事情，于是慢慢的就失去了对男孩的那种感激，久而久之应该什么样，想必大家都应该可以想明白

同样的，这件事情可以这么去想

我们把小B和小A关于认为分配的事情，按照次数对他们之间的对话大概罗列一下

第一次

小A:小B啊，你今天把这个任务给完成一下

小B：好的，A总，您有什么问题尽管吩咐，我一定会努力完成的

小A：没关系，不用太紧张，慢慢来

或许第二次

小A：小B，你今天把这个任务给完成一下

小B：A总，这个问题有点复杂，我不一定能够完成

小A：没事，尽力就好，慢慢来

最后，任务可能真没完成

小B：A总，我那个东西做不出来

小A：哦，没关系，以后多努力

或许第三次

小A：小B，你今天把这个任务给完成一下

小B：A总，这个问题估计做不了，要不让其他人做吧，我做一些简单的

小A：好的，没问题

或许第四次

小A：小B，你今天把这个任务给完成一下

小B：这个问题我不一定会做，让其他人做吧

小A：好的，没问题

或许第五次

小A：小B，你今天把这个任务给完成一下

小B：我不会做，让其他人做吧

小A：好的，没问题

...... 或许中间经历了好多次

现在

小A：小B，你今天把这个任务给完成一下

小B：不会！！！谁会做谁做！！！（然后挂断电话，或许如果当面的话，会直接的显示器一关，直接夺门而出）

那么在整个时间的过程中，究竟是哪个环节出现了问题，导致B在开始和现在出现了这么大的反差呢？

刚开始，小B 单从言语看，是一个挺好的员工的，然后到最后，单从言语看，会发现小B是一个如此差劲的员工，敢跟上级叫板

而实质上来讲，小B就是把跟上级可以随便的正常，当成了一种习惯，他根本就没有意识到他这个吵，对于他自身来讲，是一件多么不恰当的事情！

或许小A最开始的时候，在小B任务完不成的情况下，是不想给小B打击，想着小B能够自我领悟小A对他的那个意思；

而小B在最开始任务没完成，和在他向小A提出我任务做不好这个请求并得到小A答复的时候，他认为是这个领导还蛮好说话呢，我以后只要碰到稍微困难一点的问题就可以直接的提出不做了。

久而久之，小A纵容小B成了一种习惯，而小B可以肆意的对小A顶嘴，对小A下达的任务直接的否决也成了一种习惯！然而万事万物都有相应的规则，或许哪一天，小A受不了小B对他的那种顶嘴，就会直接的对小B说出一些很过激的话或者做出一些很过激的做法，甚至譬如说直接让他辞职，而小B或许哪一天也会做出一些过激的事情，譬如说对小A和公司规章制度视而不见，甚至说肆意践踏公司的规章制度，如果小A提出意见，小B直接的会对此进行顶嘴。

总结

第一，公司有公司的运行规则，社会有社会的运行规则，如果违背了这些规则，那么最终肯定是要出大问题；

第二，防微杜渐，公司里边如果碰到哪怕再小的事情，只要是危害到公司正常运行规则的，一定要及时的给找出来，该批评的批评，该惩罚的惩罚（就像如果最开始，小B向小A提出不会做的时候，小A采取另外一种相对强硬的方式，事情还会像今天这样发展吗）

第三，人治和法治的取舍，毫无疑问的，必须要法治在线，人治在后。因为社会造就了形形色色的人，不是所有人的都是高尚的，也不是所有的人都是卑鄙的

等等，似乎还有好多还都可以写，但是暂且先写到这里，下次有空了再进行分析

请注意，这里所讲的主要就是一个人的习惯的问题，一个人无论他所做的事情是对的还是错的，一旦形成了习惯，那么他就会局限于他这个习惯之中，看不到自己的对和错，甚至周围的人也会看不到他的对或错，然而，这件事情发展到最后，肯定会凸显出来他的对或者错的

本文链接

Delphi或者BCB在运行中出现“Stack Overflow- save your work and restart CodeGear”错误提示的解决方案

2011-06-08T03:26:00Z

最近用D在做项目的过程中，IDE突然抛出了“Stack Overflow- save your work and restart CodeGear”的错误提示，经过错误跟踪，最终发现是MMX的问题。

如果使用MMX，超过最大使用期限，那么他就会莫名其妙的让IDE动不动抛出类似异常，具体解决方案如下

1.卸载MMX；

2.删除注册表里边的 HK_USER\SoftWare\ModelMaker目录

3.删除\Application Data\ModelMakerTools\Shared文件夹

然后就可以正常使用了

如果之前有MMX过期的问题，同样的也可以采取这种方法重装

本文链接

Delphi中variant 和 Stream 的互換

2011-03-07T03:22:00Z

DELPHI中使用COM,COM+时候经常需要用到STREAM和VARIANT类型的转换

1 procedure VarToStream(var AStm: TStream; var AOvar: Olevariant);
2 var
3     p: Pointer;
4 begin
5     AStm:= TMemoryStream.Create;
6     AStm.Position := 0;
7     p := VarArrayLock(AOvar);
8     AStm.Write(p^, VarArrayHighBound(AOvar, 1));
9     VarArrayUnlock(AOvar);
10 end;
11
12 procedure StreamToVar(var AStm: TStream; var AOvar: Olevariant);
13 var
14     p: Pointer;
15 begin
16   AOvar := VarArrayCreate([0, AStm.Size - 1], VarByte);
17   p := VarArrayLock(AOvar);
18   AStm.ReadBuffer(p^, AStm.Size);
19   VarArrayUnlock(AOvar);
20 end;

本文链接

QQ批量自动登录程序的设计

2010-12-31T05:50:00Z

因为自己的QQ号码有好几个，每次重启机子的时候一个一个的登录超级麻烦，而且腾讯老是在偶尔的时候，再把以前已经记住密码的QQ密码给置空，还要重新输入，太麻烦，因此尝试着自己搞一个批量自动登录的程序

以TM2009为例，查看了一下，未登录之前一个窗体，上边两个控件，登录以后，窗体捕获到一个控件，根据这个，首先找到QQ的登录框，输入用户名，密码的位置，获取窗体句柄的具体代码如下:

这里先定义了一个record类型，

1   TQQWnd= record
2     QQWnd,QStatusWnd: HWND;  //QQ的窗口句柄，QQ的弹出登录状态句柄
3     QQNumWnd, QQPassWnd: HWND; //QQ号码输入句柄，QQ密码输入句柄
4   end;
5

1   function GetQQLoginHwd(var AQQWnd: TQQWnd): Boolean;
2   var
3     WinTitle: array[0..254] of Char;
4     WinClass: array[0..254] of Char;
5   begin
6     Result:= False;
7     AQQWnd.QQWnd:= 0;
8     AQQWnd.QQNumWnd:= 0;
9     AQQWnd.QQPassWnd:= 0;
10     AQQWnd.QQWnd:= FindWindow(nil, 'TM2009');
11     while AQQWnd.QQWnd<> 0 do begin
12       AQQWnd.QQNumWnd:= FindWindowEx(AQQWnd.QQWnd, 0, 'ATL:30A4D1D8', nil);
13       AQQWnd.QQPassWnd:= FindWindowEx(AQQWnd.QQWnd, 0, 'Edit', nil);
14       if (AQQWnd.QQNumWnd<> 0)and (AQQWnd.QQPassWnd<> 0) then begin
15         Result:= True;
16         FOpened:= True;
17         Exit;
18       end else begin
19         AQQWnd.QQWnd:= GetWindow(AQQWnd.QQWnd, GW_HWNDNEXT);
20         if AQQWnd.QQWnd=0 then Continue;
21         GetWindowText(AQQWnd.QQWnd, @WinTitle, SizeOf(WinTitle));
22         if WinTitle<>'TM2009' then Continue;
23       end;
24     end;
25   end;
26

因为腾讯的密码输入框，采用的是低级钩子，然后定时的释放，建立钩子这种方式来防止木马程序去捕获，我尝试了下，直接的用Sendmessage去发送密码信息，没反应，因此这里我采用了SendInput的方式去输入密码，而用户框因为没有做任何的保护措施，所以可以直接的通过发送消息，将QQ账户信息给赋值过去，具体代码为

1       SetForegroundWindow(QQWnds.QQWnd); //QQ窗体设置为活动窗体
2       //设置QQ号码
3        SendMessage(QQWnds.QQNumWnd,WM_SETFOCUS,0,0); //聚焦至QQ号码输入框
4       Sleep(20);
5       SendMessage(QQWnds.QQNumWnd,WM_SETTEXT,0,LPARAM(FQQNum)); //设置QQ号码
6
7       SendMessage(QQWnds.QQPassWnd,WM_SETFOCUS,0,0); //聚焦密码输入框
8       Sleep(20);
9       //设置QQ密码
10       SIKeyInput(FQQPass, 10); //QQ密码采取SENDINPUT方式
11
12
13

解下来要操作的，就是设置登录方式了，譬如说“我在线上”，“隐身”等状态，由于腾讯的登录窗体是采用的GUI，所以是捕获不到句柄的，只能通过坐标来捕获，我之前的时候，是用的固定坐标，然后有的电脑可以用，有的不能用，后来才发现，是由于腾讯的界面可以拉动，只要一拉动，他的坐标位置就变了，因此我这里采取相对坐标，根据QQ密码框的坐标，来设置点击的坐标。腾讯的状态是在窗体上点击以后，弹出一个跟登录框平级的窗口，因此点击以后，需要检测是否弹出选择状态窗口，找到那个窗口句柄以后，再发送相应的点击命令，这样就完成整个的流程了

1 const
2   QQStatusYArray: array[0..5] of Integer= (19, 38, 62, 86, 105, 131);
3
4
5       ClickTimes:= 0; //为防止有的时候点击过程中出现其他不可预料的错误，这里可以重复点击三次
6       QQWnds.QStatusWnd:= 0; //设置QQ状态初始句柄为0
7       //鼠标点击
8       while ClickTimes<3 do begin
9         PostMessage(QQWnds.QQWnd,$201,MK_LBUTTON,StrToInt(#36+IntToHex(QQNumRec.Bottom- QQRect.Top+21,4)+IntToHex(QQNumRec.Left-QQRect.Left+25,4))); //发送点击消息，这里如果采用SendMessage，会死线程，因此我采用了PostMessage
10         PostMessage(QQWnds.QQWnd,$202,MK_LBUTTON,StrToInt(#36+IntToHex(QQNumRec.Bottom- QQRect.Top+21,4)+IntToHex(QQNumRec.Left-QQRect.Left+25,4)));
11         Sleep(200);
12         QQWnds.QStatusWnd:= FindWindow('TXGuiFoundation','TXMenuWindow'); //检测是否存在QQ设置状态窗体
13         if QQWnds.QStatusWnd<>0 then begin
14           try
15             PostMessage(QQWnds.QStatusWnd,$201,MK_LBUTTON,StrToInt(#36+IntToHex(QQStatusYArray[FQQStatus],4)+IntToHex(27,4))); //如果存在窗体，直接的发送点击信息
16             PostMessage(QQWnds.QStatusWnd,$202,MK_LBUTTON,StrToInt(#36+IntToHex(QQStatusYArray[FQQStatus],4)+IntToHex(27,4)));
17           except
18           end;
19           Break;
20         end;
21         ClickTimes:=ClickTimes+1;
22       end;
23       if QQWnds.QStatusWnd=0 then begin //如果一直没有捕获到设置状态窗体，程序则自动退出
24         Task.Comm.Send(MSG_QQ_ERR, IntToStr(QQRect.Left)+'：'+ IntToStr(QQRect.Top)+ '：'+ IntToStr(QQRect.Right)+ '：'+ IntToStr(QQRect.Bottom)
25           +'，'+ IntToStr(QQNumRec.Left)+'：'+ IntToStr(QQNumRec.Top)+ '：'+ IntToStr(QQNumRec.Right)+ '：'+ IntToStr(QQNumRec.Bottom)
26           + IntToStr(QQNumRec.Bottom- QQRect.Top+21)+'设置状态失败');
27 //        Task.Comm.Send(MSG_QQ_ERR, IntToStr(QQNumRec.Left-QQRect.Left+25)+'：'+ IntToStr(QQNumRec.Bottom- QQRect.Top+21)+'设置状态失败');
28         Exit;
29       end;
30

最后，直接的点击登录按钮就可以了，这个地方，也是要计算相对于密码输入框的坐标

1       //点击登录按钮
2       try
3         PostMessage(QQWnds.QQWnd,$201,MK_LBUTTON,StrToInt(#36+IntToHex(QQNumRec.Bottom- QQRect.Top+114,4)+IntToHex(QQNumRec.Left-QQRect.Left+64,4)));
4         PostMessage(QQWnds.QQWnd,$202,MK_LBUTTON,StrToInt(#36+IntToHex(QQNumRec.Bottom- QQRect.Top+114,4)+IntToHex(QQNumRec.Left-QQRect.Left+64,4)));
5       except
6       end;
7

至此，整个的流程完毕了，最后，还可以增加上检测该QQ号码是否已经登录

以下是最后出来的界面，我直接的将QQ信息保存在数据库当中，密码采用了AES加密，所以也不用担心密码信息被泄

可以点击这里下载QQ批量下载

本文链接

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

2010-11-25T04:34:00Z

上一篇文章我说明了如何破解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限制，但是不稳定，就是一会可以，一会不可以，但是总归算下来，比不用的强，原理是更改提交给腾讯服务器的主机头，然后让腾讯误以为是通过代理访问的页面（之前有朋友说代理访问提示没权限，那个有可能就是因为你的代理服务器给你额外增加主机头信息了）。

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

本文链接

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

2010-11-24T20:07:00Z

腾讯在其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:= 12-i;
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, [EAX-4] //读取字符串长度
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, 'a'-'0'-10
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:= 12-i;
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，比较变态一些，但是感觉腾讯做的还不完善。

本文链接

基于JQUERY制作的仿GOOGLE自动完成插件

2009-03-14T15:45:00Z

基于JQUERY制作的仿GOOGLE自动完成插件数据采用JSON，格式为{keylist:[{'keyname':关键字1,'keyextend':扩展文字(譬如说结果数目)},{'keyname':关键字2,'keyextend':扩展文字(譬如说结果数目)}]}效果如图完整的JS代码如下[代码]CSS文件[代码]调用范例$("#Keyword").AutoComplete("search.as...

银行登录控件仿制--防钩子，防嗅探

2009-02-22T08:17:00Z

银行登录控件仿制--防全局钩子，防嗅探类似于支付宝登录控件、工商、招商银行登录控件，这个是一个DLL钩子，用于注入其他进程另外有一个控件，用来模拟INPUT控件，近期发布！变量定义 unit hook_const; interface uses windows; const Mouse_MFileName='_MyDllMouse'; Key_MFileName='_MyDllKey'; cons...

工作需要根据资料写的一个SHA1RSA算法

2009-02-22T08:13:00Z

工作需要根据资料写的一个SHA1RSA算法其中用到了libeay32.dll和ssleay32.dll，版本不限制，直接从官方下载源码然后编译function ReadPrivateKey(AFileName: TFileName): pEVP_PKEY; //读取私钥文件varkeyfile: pBIO;function cb(buffer: PChar; blength: integer; v...

跑跑卡丁车卡密自动充值工具

2009-02-22T08:11:00Z

主要为了实现将世纪天成卡号密码直接冲入用户帐户的功能，由于时间紧，没有使用线程，因此是采用的阻塞的方式来实现的，充值过程会造成系统假死；验证码采用自动识别 postwww := tstringlist.Create ; StartTag:= True; For i:=0 To LstViewCard.Items.Count-1 do begin if LstViewCard.Items.Chec...