class_qqinpacket.~pas

QQ挂机DELPHI源码·服务器和客户端的编写~希望对大家有帮助~

//挂QQ服务端，如需WEB版挂QQ的，自己来改造，本人现在没有精力改造了
//QQ:709582502 Email:[e-mail] 不需要的东西都已经取消了
//提供该程序只是用来学习目的，千万不要用于非法用途，后果自负
//用到RX控件，和JCL库，请大家自行下载
//如果不能挂QQ的话，那就请看LumqQQ中的相关协议，改成新协议即可
//如有更新希望发一份给我

unit Class_QQINPacket;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls,Class_QQTEA;

Type
   TQQInPacket=Class
   private

   public
     function GetPacketAbout(Const Packet: array of byte): integer;
     function GetIMPacketFrom(QQNum: Integer; Packet,
      SessionKey: array of Byte): integer;
     function GetIMPacketTime(Packet, SessionKey: array of Byte): Integer;
     function GetLoginPacketError(Packet, LoginKey: array of Byte): String;
     function GetLoginPacketRedirect(Packet,
       LoginKey: array of Byte): String;
     function GetLoginPacketSessionKey(Packet,
       PasswordKey: array of Byte): TMYByte;
     function LoginTokenReply(Packet: array of Byte): TMYByte;
   end;

var
  QQInPacket:TQQInPacket;   

implementation

{
' * <li>头部
' * <ol>
' * <li>标志字节, 0x00. (==0x2)
' * <li>服务器端版本代码, 0x01~0x02.
' * <li>命令类型, 0x03~0x04.
' * <li>包序号, 0x05~0x06.
' * </ol>
' * <li>包的内容
' * <li>尾部, 0x00. (==0x3)
' * </ol>
Option Explicit
}

Function TQQInPacket.GetPacketAbout(Const Packet:Array of byte):integer;
begin
    Result :=0;
    If High(Packet) < 17 Then Exit ;
    If Packet[3] <> 0 Then Exit;
    Case Packet[4] of
        98:
            begin
            //请求登陆令牌的回复包
            //判断是否以 02 00 00 00 62 开头，第 8，9 字节是否为 00 18。以及最后一字节是否为 03，这些如果有误，则返回错误。
              If High(Packet) <> 33 Then Exit;
              If (Packet[0] = 2) And (Packet[1]=0) And (Packet[2] = 0) And (Packet[3]=0)
                  And (Packet[7]=0) And (Packet[8] = 24) And (Packet[33] = 3) Then
                Result  := 1;
            end;
        34:
            //登陆回复包
            If (Packet[0] = 2) And (Packet[High(Packet)] = 3) Then
                Result := 2;
        23:
            //接收到消息
            If (Packet[0] = 2) And (Packet[High(Packet)] = 3) Then
                  Result := 3;
        2:
            //Keep-Alive 包
            If (Packet[0] = 2) And (Packet[High(Packet)] = 3) Then
                Result := 4 ;
    end
end;

Function TQQInPacket.LoginTokenReply(Packet:Array of  Byte):TMYByte;
var
  OutputPacket:array [0..23] of Byte;
begin
    CopyMemory(@OutputPacket[0], @Packet[9], 24);
    CopyMemory(@Result[0],@OutputPacket[0],24);
end;

Function TQQInPacket.GetLoginPacketRedirect(Packet,LoginKey:Array of  Byte):String;
var
    Crypt :Array of Byte;
    Plain:TMyByte;
begin
    If High(Packet) < 17 Then Exit ;
    SetLength(Crypt,High(Packet) - 7);
    CopyMemory(@Crypt[0], @Packet[7], High(Packet) - 7);
    Plain := QQTEA.Decrypt(Crypt,LoginKey);
    If Plain[0] = 1 Then
       Result := IntToStr(Plain[5]) + '.'+IntToStr(Plain[6])+'.'+ IntToStr(Plain[7])+'.'+IntToStr(Plain[8]);
    //Result := 'sz.tencent.com';

end;

Function TQQInPacket.GetLoginPacketError(Packet,LoginKey:Array of  Byte):String;
var
    MyMessage :Array of  Byte;
    Crypt:Array of Byte;
    Plain:TMyByte;
    nLen :integer;
begin
    Result :='';
    If High(Packet) < 17 Then Exit;
    nLen := High(Packet) - 7;
    SetLength(Crypt,nLen);
    CopyMemory(@Crypt[0], @Packet[7], High(Packet) - 7);
    Plain := QQTEA.Decrypt(Crypt, LoginKey);
    If Plain[0] = 5 Then
    begin
      SetLength(MyMessage,nLen);
      CopyMemory(@MyMessage[0], @Plain[1], nLen);
      Result := String(MyMessage);
    end;
end;

Function TQQInPacket.GetLoginPacketSessionKey(Packet,PasswordKey:Array of  Byte):TMYByte;
var
  Ret :Integer;
  Crypt:Array of Byte;
  Plain,SessionKey :TMyByte;
begin
    //SetLength(SessionKey,1);
    InitArray(SessionKey);
    InitArray(Plain);

    If High(Packet) < 17 Then
    begin
      Result :=SessionKey;
      Exit;
    end;

    SetLength(Crypt,High(Packet) - 7);
    CopyMemory(@Crypt[0], @Packet[7], High(Packet)-7);
    Plain := QQTEA.Decrypt(Crypt, PasswordKey);
    //'检测是否解密成功
    //SetLength(SessionKey,16);
    CopyMemory( @Result[0], @Plain[1],16);
end;

Function TQQInPacket.GetIMPacketTime(Packet,SessionKey:Array of  Byte):Integer;
var
  TimeBuff :array [0..3] of Byte;
  ThisTime :Integer;
  Crypt:Array of byte;
  Plain:TMyByte;
begin
    If High(Packet) < 17 Then Exit;
    InitArray(Plain);
    //InitArray(Crypt);

    SetLength(Crypt,High(Packet) - 7);
    CopyMemory(@Crypt[0], @Packet[7], High(Packet)-7);
    Plain := QQTEA.Decrypt(Crypt, SessionKey);
    If (Plain[18] <> 0) Or (Plain[19] <> 9) And (Plain[19] <> 10) Then Exit;
    TimeBuff[3] := Plain[50];
    TimeBuff[2] := Plain[51];
    TimeBuff[1] := Plain[52];
    TimeBuff[0] := Plain[53];
    CopyMemory(@ThisTime, @TimeBuff[0],4);
    Result := ThisTime;
end;

Function TQQInPacket.GetIMPacketFrom(QQNum :Integer; Packet,SessionKey:Array of  Byte):integer;
var
  Plain:TMyByte;
  Crypt:array of Byte;
  TimeBuff :array [0..3] of Byte;
  RemoteQQNumBuff :array [0..7] of Byte;
  LocalQQNumBuff :array [0..7] of Byte;
  RemoteQQNum1 ,
  RemoteQQNum2,
  LocalQQNum1,
  LocalQQNum2 :integer;
begin
    If High(Packet) < 17 Then Exit;
    SetLength(Crypt,High(Packet) - 7);
    CopyMemory(@Crypt[0], @Packet[7], High(Packet)-7);

    //InitArray(Plain);

    Plain := QQTEA.Decrypt(Crypt, SessionKey);

    If (Plain[18] <> 0) Or (Plain[19] <> 9) And (Plain[19] <> 10) Then Exit;
    RemoteQQNumBuff[3] := Plain[0]  ;
    RemoteQQNumBuff[2] := Plain[1];
    RemoteQQNumBuff[1] := Plain[2];
    RemoteQQNumBuff[0] := Plain[3] ;
    LocalQQNumBuff[3] := Plain[4] ;
    LocalQQNumBuff[2] := Plain[5];
    LocalQQNumBuff[1] := Plain[6] ;
    LocalQQNumBuff[0] := Plain[7] ;
    RemoteQQNumBuff[7] := Plain[22]  ;
    RemoteQQNumBuff[6] := Plain[23];
    RemoteQQNumBuff[5] := Plain[24] ;
    RemoteQQNumBuff[4] := Plain[25];
    LocalQQNumBuff[7] := Plain[26]  ;
    LocalQQNumBuff[6] := Plain[27] ;
    LocalQQNumBuff[5] := Plain[28] ;
    LocalQQNumBuff[4] := Plain[29] ;
    CopyMemory(@RemoteQQNum1, @RemoteQQNumBuff[0], 4);
    CopyMemory(@RemoteQQNum2, @RemoteQQNumBuff[4], 4);
    CopyMemory(@LocalQQNum1, @LocalQQNumBuff[0], 4);
    CopyMemory(@LocalQQNum2, @LocalQQNumBuff[4], 4);
    If (QQNum = LocalQQNum1) And (LocalQQNum1 = LocalQQNum2) And (RemoteQQNum1 = RemoteQQNum2)
      Then Result  := RemoteQQNum1;
end;

initialization
   QQInPacket:=TQQInPacket.Create;
finalization
  FreeAndNil(QQInPacket);

end.