开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 其他 > 查看源码
OICQPack.pas
资源名称：oicqspysrc.zip　[点击查看]
上传用户：hbtcygglw
上传日期：2007-01-07
资源大小：281k
文件大小：5k
源码类别：

其他

开发平台：

Delphi

OICQPack.pas：源码内容
  1. unit OICQPack;
  3. interface
  4. uses Windows,SysUtils,classes;
  5. const
  6. OICQ_CMD_LOGON=$13;
  7. OICQ_CMD_LOGOFF=$1;
  8. OICQ_CMD_GETUSERINFO=$06;
  9. OICQ_CMD_SENDMSG=$08;
  10. OICQ_CMD_ADDFRIEND=$09;
  11. OICQ_CMD_GETFRIENDLIST=$0C;
  12. OICQ_CMD_REMOVEFRIEND=$0A;
  13. OICQ_CMD_PING=$02;
  14. function BuildEmptyPack(var buf:array of char;buflen:Integer;Cmd:Byte;MsgId:Word;uid:string):Integer;
  16. function BuildPingPack(var buf:array of char;buflen:Integer;MsgId:Word;uid:String):Integer;
  18. function BuildLogonPack(var buf:array of char;buflen:Integer;MsgId:Word;uid:string;password:string):Integer;
  19. function ParseLogonReponse(buf:array of char;buflen:Integer;var uid:string;var ip:string;var port:string):Boolean;
  21. function BuildLogoffPack(var buf:array of char;buflen:Integer;MsgId:Word;uid:string;password:string):Integer;
  23. function BuildGetFriendListPack(var buf:array of char;buflen:Integer;MsgId:Word;uid:string;password:string):Integer;
  24. function ParseFriendList(buf:array of char;buflen:Integer;items:TStrings):Integer;
  26. function BuildGetUserInfoPack(var buf:array of char;buflen:Integer;MsgId:Word;uid:String;FriendId:String):Integer;
  27. function ParseUserInfo(buf:array of char;buflen:Integer;var uid:string;var name:string):Boolean;
  29. function BuildDeleteFriend(var buf:array of char;buflen:Integer;MsgId:Word;uid:string;FriendId:string):Integer;
  30. function ParseDeleteReponse(buf:array of char;buflen:Integer):Boolean;
  32. implementation
  33. uses data;
  34. function BuildEmptyPack(var buf:array of char;buflen:Integer;Cmd:Byte;MsgId:Word;uid:string):Integer;
  35. var
  36. id:DWORD;
  37. begin
  38. //Version header
  39. buf[0]:=#2;
  40. buf[1]:=#1;
  41. buf[2]:=#7;
  42. buf[3]:=#0;
  43. //Cmd
  44. buf[4]:=Chr(Cmd);
  45. //MsgId
  46. buf[5]:=Chr((MsgId and $ff00) shr 8);
  47. buf[6]:=Chr(MsgId and $00ff);
  48. //uid
  49. id:=StrToInt(uid);
  50. buf[7]:=Chr((id and $ff000000) shr 24);
  51. buf[8]:=Chr((id and $00ff0000) shr 16);
  52. buf[9]:=Chr((id and $0000ff00) shr 8);
  53. buf[10]:=Chr(id and $000000ff);
  54. Result:=11;
  55. end;
  57. function BuildLogonPack(var buf:array of char;buflen:Integer;MsgId:Word;uid:string;password:string):Integer;
  58. var
  59. i:Integer;
  60. begin
  61. i:=BuildEmptyPack(buf,buflen,OICQ_CMD_LOGON,MsgId,uid);
  62. buf[i]:=#$30;
  63. Inc(i);
  65. buf[i]:=#$1f;
  66. Inc(i);
  68. i:=ArrayStrCopy(buf,buflen,i,password);
  69. buf[i]:=#03;
  70. Result:=i+1;
  71. end;
  72. function ParseLogonReponse(buf:array of char;buflen:Integer;var uid:string;var ip:string;var port:string):Boolean;
  73. var
  74. i:Integer;
  75. begin
  76. if(buf[4]=#$13)then
  77.     begin
  78.     Result:=True;
  79.     i:=ParseStrFromBuf(buf,buflen,7,$1f,uid);
  80.     i:=ParseStrFromBuf(buf,buflen,i+1,$1f,ip);
  81.     ParseStrFromBuf(buf,buflen,i+1,$1f,port);
  82.     end
  83. else Result:=False;
  84. end;
  86. function BuildLogoffPack(var buf:array of char;buflen:Integer;MsgId:Word;uid:string;password:string):Integer;
  87. var
  88. i:Integer;
  89. begin
  90. i:=BuildEmptyPack(buf,buflen,OICQ_CMD_LOGOFF,MsgId,uid);
  91. i:=ArrayStrCopy(buf,buflen,i,password);
  92. buf[i]:=#03;
  93. Result:=i+1;
  94. end;
  96. function BuildGetFriendListPack(var buf:array of char;buflen:Integer;MsgId:Word;uid:string;password:string):Integer;
  97. var
  98. i:Integer;
  99. begin
  100. i:=BuildEmptyPack(buf,buflen,OICQ_CMD_GETFRIENDLIST,MsgId,uid);
  101. i:=ArrayStrCopy(buf,buflen,i,password);
  102. buf[i]:=#03;
  103. Result:=i+1;
  104. end;
  105. function ParseFriendList(buf:array of char;buflen:Integer;items:TStrings):Integer;
  106. var
  107. i:integer;
  108. str:string;
  109. begin
  110. Result:=0;
  111. if(buf[4]=Chr(OICQ_CMD_GETFRIENDLIST))then
  112.     begin
  113.     i:=ParseStrFromBuf(buf,buflen,7,$1f,str);
  114.     while((i<buflen) and (i<>7))do
  115.         begin
  116.         items.add(str);
  117.         i:=ParseStrFromBuf(buf,buflen,i+1,$1f,str);
  118.         Inc(Result);
  119.         end;
  120.     end
  121. else Result:=-1;
  122. end;
  124. function BuildGetUserInfoPack(var buf:array of char;buflen:Integer;MsgId:Word;uid:String;FriendId:String):Integer;
  125. var
  126. i:Integer;
  127. begin
  128. i:=BuildEmptyPack(buf,buflen,OICQ_CMD_GETUSERINFO,MsgId,uid);
  129. i:=ArrayStrCopy(buf,buflen,i,FriendId);
  130. buf[i]:=#03;
  131. Result:=i+1;
  132. end;
  133. function ParseUserInfo(buf:array of char;buflen:Integer;var uid:string;var name:string):Boolean;
  134. var
  135. i:Integer;
  136. begin
  137. if(buf[4]=Chr(OICQ_CMD_GETUSERINFO))then
  138.     begin
  139.     Result:=True;
  140.     i:=ParseStrFromBuf(buf,buflen,7,$1e,uid);
  141.     ParseStrFromBuf(buf,buflen,i+1,$1e,name);
  142.     end
  143. else Result:=False;
  144. end;
  145. function BuildDeleteFriend(var buf:array of char;buflen:Integer;MsgId:Word;uid:string;FriendId:string):Integer;
  146. var
  147. i:Integer;
  148. begin
  149. i:=BuildEmptyPack(buf,buflen,OICQ_CMD_REMOVEFRIEND,MsgId,uid);
  150. i:=ArrayStrCopy(buf,buflen,i,FriendId);
  151. buf[i]:=#03;
  152. Result:=i+1;
  153. end;
  155. function ParseDeleteReponse(buf:array of char;buflen:Integer):Boolean;
  156. begin
  157. Result:=(buf[4]=Chr(OICQ_CMD_REMOVEFRIEND));
  158. end;
  160. function BuildPingPack(var buf:array of char;buflen:Integer;MsgId:Word;uid:String):Integer;
  161. var
  162. i:Integer;
  163. begin
  164. i:=BuildEmptyPack(buf,buflen,OICQ_CMD_PING,MsgId,uid);
  165. i:=ArrayStrCopy(buf,buflen,i+1,uid);
  166. buf[i]:=#3;
  167. Result:=i+1;
  168. end;
  170. end.