Quote:

QQ.exe /START QQUIN:QQ号码 PWDHASH:加密后的QQ密码 /STAT:登陆状态(40隐身，41正常)

2. function GetCommandLine(QQNum, QQPw: string; QQState: integer): string;
3. type
4.    TempChar = array[0..15] of char;
5. var
6.    md5: TIdHashMessageDigest5;
7. begin
8.    md5 := TIdHashMessageDigest5.Create;
9.    result := ' /START QQUIN:' + QQNum + ' PWDHASH:' + Base64(TempChar(md5.HashValue(QQPw))) + ' /STAT:' + IntToStr(QQState);
10.    md5.Free;
11. end;

2. function Base64(Src: string): string;
3. const
4.    DataSet = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';
5. var
6.    i, ModLen: integer;
7.    Current: string;
8.    Buf: array[1..3] of Byte;
9.    NewBuf: array[1..4] of Byte;
10. begin
11.    result := '';
12.    if Src = '' then
13.       exit;
14.    ModLen := Length(Src) mod 3;
15.    while Length(Src) > 0 do
16.    begin
17.       FillChar(Buf, 3, #0);
18.       Current := Copy(Src, 1, 3);
19.       Src := Copy(Src, 4, Length(Src) - 3);
20.       for i := 1 to 3 do
21.          Buf[i] := Ord(Current[i]);
22.       NewBuf[1] := Buf[1] shr 2;
23.       NewBuf[2] := (Buf[1] shl 6 shr 2 or Buf[2] shr 4) and $3F;
24.       NewBuf[3] := (Buf[2] shl 4 shr 2 or Buf[3] shr 6) and $3F;
25.       NewBuf[4] := Buf[3] and $3F;
26.       for i := 1 to 4 do
27.          result := result + DataSet[NewBuf[i] + 1];
28.    end;
29.    if ModLen >= 1 then
30.       result[Length(result)] := '=';
31.    if ModLen = 1 then
32.       result[Length(result) - 1] := '=';
33. end;

这样就可以实现从命令行直接登陆QQ了。

另外我们还要获取QQ的安装路径：
在注册表的 HKEY_LOCAL_MACHINE\SOFTWARE\TENCENT\PLATFORM_TYPE_LIST 下面有几个子键，1中的 TypePath 的键值为 QQ 的安装路径，2中的 TypePath 的键值为 TM 的安装路径。我们就可以通过读取注册表来获取QQ的安装路径了(其实现比较简单，请参见源码)。

2.简单打造QQ钓鱼工程

有了上面的QQ自动登陆的实现，我们就可以写出一个QQ自动登陆器了。这就和我要说的QQ钓鱼工程联系上了，聪明的你一定也想出来了。

2. function HtmlEncode(s: string): string;
3. var
4.    i, v1, v2: integer;
5.    function i2s(b: byte): char;
6.    begin
7.       if b <= 9 then result := chr($30 + b)

8. [1] [2] [3] [4] 下一页