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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
ICQWorks.pas
资源名称：DarkMoon.rar　[点击查看]
上传用户：hndmjx
上传日期：2014-09-16
资源大小：3369k
文件大小：154k
源码类别：

Delphi控件源码

开发平台：

Delphi

ICQWorks.pas：源码内容
  1. unit ICQWorks {TICQClient, TICQDb contants & procedures};
  2. {(C) Alex Demchenko(alex@ritlabs.com)}
  4. {$R-}                           //Remove range checking
  5. {$DEFINE USE_ASM}               //Remove this line to use pascal code instead of assembler (where it's possible)
  7. interface
  8. uses
  9.   Windows, Classes;
  11. const
  12.   MAX_DATA_LEN = 8192;          //Maximum packet size
  15.   //Online statuses
  16.   S_ONLINE      = $00000000;    //Online
  17.   S_INVISIBLE   = $00000100;    //Invisible
  18.   S_AWAY        = $00000001;    //Away
  19.   S_NA          = $00000005;    //N/A
  20.   S_OCCUPIED    = $00000011;    //Occupied
  21.   S_DND         = $00000013;    //Do Not Disturb
  22.   S_FFC         = $00000020;    //Free For Chat
  24.   //Flags used with statuses
  25.   S_SHOWIP      = $00020000;    //show ip (for older clients), IP edit removed in ICQ2000a+ :)
  26.   S_WEBAWARE    = $00030000;    //do not show status from the www
  27.   S_ALLOWDCONN  = $00000000;    //allow direct connection with everyone
  28.   S_ALLOWDAUTH  = $10000000;    //allow direct connection upon authorization
  29.   S_ALLOWDLIST  = $20000000;    //allow direct connection with users in contact list
  31.   //Message types
  32.   M_PLAIN         = $01;        //Plain message
  33.   M_CHAT          = $02;        //Chat request
  34.   M_FILE          = $03;        //File request
  35.   M_URL           = $04;        //URL
  36.   M_AUTH_REQ      = $06;        //Auth request
  37.   M_AUTH_DENIED   = $07;        //Deny auth
  38.   M_AUTH_GIVEN    = $08;        //Authorize
  39.   M_WEB_PAGE      = $0D;
  40.   M_EMAIL_EXPRESS = $0E;
  41.   M_CONTACTS      = $13;
  42.   M_ADVANCED      = $1A;        //Seems to be an advanced-msg type (contacts, file requests, etc)
  44.   //Genders
  45.   GEN_FEMALE    = 1;            //Gender: Female
  46.   GEN_MALE      = 2;            //Gender: Male
  48.   //CLI_TOICQSRV commands
  49.   CMD_ACKOFFMSG = $3E;
  50.   CMD_REQOFFMSG = $3C;
  51.   CMD_REQINFO   = $7D0;
  53.   TFLAPSZ: Word = 6;            //Size of FLAP header
  54.   TSNACSZ: Word = 10;           //Size of SNAC header
  56.   //SRV UIN Flags
  57.   U_NORMAL         = $0000;     //Normal list entry
  58.   U_VISIBLE_LIST   = $0002;     //User in visible list
  59.   U_INVISIBLE_LIST = $0003;     //User in invisible list
  60.   U_IGNORE_LIST    = $000e;     //User in ignore list
  63.   ACC_NORMAL      = $0;         //Normally accepted
  64.   ACC_NO_OCCUPIED = $9;         //Not accepted, occupied
  65.   ACC_NO_DND      = $A;         //Not accepted, dnd
  66.   ACC_AWAY        = $4;         //Accepted but away
  67.   ACC_NA          = $E;         //Accepted but NA
  68.   ACC_CONTACTLST  = $C;         //Accepted to contact list (no blink in tray)
  70.   //Auto message requests
  71.   GET_AWAY        = $E8;        //Get away message
  72.   GET_OCCUPIED    = $E9;        //Get occupied message
  73.   GET_NA          = $EA;        //Get N/A message
  74.   GET_DND         = $EB;        //Get DND message
  75.   GET_FFC         = $EC;        //Get FFC(Free For Chat) message
  77.   //Buddy types
  78.   BUDDY_NORMAL    = $0000;      //A normal contact list entry
  79.   BUDDY_GROUP     = $0001;      //A larger group header
  80.   BUDDY_IGNORE    = $000e;      //A contact on the ignore list
  81.   BUDDY_INVISIBLE = $0003;      //A contact on the invisible list
  82.   BUDDY_VISIBLE   = $0002;      //A contact on the visible list
  84.   //SSL errors
  85.   ERRSSL_NOTFOUND = $0002;      //User not found
  86.   ERRSSL_EXISTS   = $0003;      //Added buddy already exists
  87.   ERRSSL_AUTH     = $000e;      //User not authorized
  88.   ERRSSL_OTHER    = $000a;      //Other SSL error
  89.   ERRSSL_NOERROR  = $0000;      //No error (changed successfully)
  91.   ICQClientVer_Major = 1;       //Major version of component
  92.   ICQClientVer_Minor = 18;      //Minor version of component
  94. type
  95.   //File request record
  96.   TFTRequestRec = record
  97.     ReqType: Byte;
  98.     ITime, IRandomID: LongWord;
  99.     UIN: LongWord;
  100.     Description: String;
  101.     FileName: String;
  102.     FileSize: LongWord;
  103.     Seq: Word;
  104.     Port: Word;
  105.   end;
  107.   //File start record
  108.   TFTStartRec = record
  109.     UIN: LongWord;
  110.     FilesCount: LongWord;
  111.     Speed: LongWord;
  112.   end;
  114.   //Error types
  115.   TErrorType = (ERR_SOCKET, ERR_INTERNAL, ERR_WARNING, ERR_PROXY, ERR_PROTOCOL, ERR_CONNTIMEOUT, ERR_LOGIN);
  117.   //Proxy types
  118.   TProxyType = (P_NONE, P_SOCKS4, P_SOCKS5{, P_HTTP});
  120.   //Info types
  121.   TInfoType = (INFO_GENERAL, INFO_MORE, INFO_ABOUT, INFO_PASSWORD);
  123.   //Database types, used in ICQDb.pas
  124.   TDbType = (DB_ICQ, DB_MIRANDA);
  126.   //Flap header
  127.   PFlapHdr = ^TFlapHdr;
  128.   TFlapHdr = record
  129.     Ident: Byte;
  130.     ChID: Byte;
  131.     Seq: Word;
  132.     DataLen: Word;
  133.   end;
  135.   //Snac header
  136.   PSnacHdr = ^TSnacHdr;
  137.   TSnacHdr = record
  138.     Family: Word;
  139.     SubType: Word;
  140.     Flags: array[0..1] of Byte;
  141.     ReqID: LongWord;
  142.   end;
  144.   //Raw packet
  145.   PRawPkt = ^TRawPkt;
  146.   TRawPkt = record
  147.     Data: array[0..MAX_DATA_LEN - 1] of Byte;
  148.     Len: Word;
  149.   end;
  151.   //Filetransfer init call back function
  152.   TOnFTInit = procedure(Sender: TObject; UIN: LongWord; FileCount, TotalBytes, Speed: LongWord; NickName: String) of object;
  153.   TOnFTStart = procedure(Sender: TObject; StartRec: TFTStartRec; FileName: String; FileSize, Speed: LongWord) of object;
  154.   TOnFTFileData = procedure(Sender: TObject; UIN: LongWord; Data: Pointer; DataLen: LongWord; LastPacket: Boolean) of object;  
  157. function IntToStr(Value: Int64): String;
  158. function StrToInt(const Value: String): LongWord;
  159. function IntToHex(Int: Int64; IntSize: Byte): String;
  160. function HexToInt(Value: String): LongWord;
  161. procedure ICQEncryptPass(SrcBuf: Pointer; BufLen: LongWord);
  162. procedure ICQEncryptPassStr(var Pass: String);
  163. function Swap16(Value: Word): Word;
  164. function Swap32(Value: LongWord): LongWord;
  166. {Low-level functions}
  167. {-- Adding data --}
  168. procedure PktAddData(Pkt: PRawPkt; Data: Pointer; DataLen: LongWord);
  169. procedure PktAddArrBuf(Pkt: PRawPkt; Data: Pointer; DataLen: LongWord);
  170. procedure PktInit(Pkt: PRawPkt; Channel: Byte; var Seq: Word);
  171. procedure PktInitRaw(Pkt: PRawPkt);
  172. procedure PktFinal(Pkt: PRawPkt);
  173. procedure PktSnac(Pkt: PRawPkt; Family, SubType: Word; ID: LongWord; Flags: Word);
  174. procedure PktInt(Pkt: PRawPkt; Value: LongWord; IntSize: Byte);
  175. procedure PktLInt(Pkt: PRawPkt; Value: LongWord; IntSize: Byte);
  176. procedure PktStr(Pkt: PRawPkt; const S: String);
  177. procedure PktLStr(Pkt: PRawPkt; const S: String); overload;
  178. procedure PktLStr(Pkt: PRawPkt; S: LongWord); overload;
  179. procedure PktWStr(Pkt: PRawPkt; const S: String);
  180. procedure PktDWStr(Pkt: PRawPkt; const S: String);
  181. procedure PktLNTS(Pkt: PRawPkt; const S: String);
  182. procedure PktLLNTS(Pkt: PRawPkt; const S: String);
  183. procedure PktTLV(Pkt: PRawPkt; T, L: Word; V: LongWord); overload;
  184. procedure PktTLV(Pkt: PRawPkt; T: Word; const V: String); overload;
  185. procedure PktTLV(Pkt: PRawPkt; T, L: Word; V: Pointer); overload;
  187. {-- Extracting data --}
  188. function GetInt(Pkt: PRawPkt; IntSize: Byte): LongWord;
  189. function GetLInt(Pkt: PRawPkt; IntSize: Byte): LongWord;
  190. function GetStr(Pkt: PRawPkt; StrLen: Word): String;
  191. function GetTLVStr(Pkt: PRawPkt; var T: Word): String;
  192. function GetTLVInt(Pkt: PRawPkt; var T: Word): LongWord;
  193. procedure GetSnac(Pkt: PRawPkt; var Snac: TSnacHdr);
  194. function GetLStr(Pkt: PRawPkt): String;
  195. function GetWStr(Pkt: PRawPkt): String;
  196. function GetDWStr(Pkt: PRawPkt): String;
  197. function GetLNTS(Pkt: PRawPkt): String;
  200. {High-level functions}
  201. function StrToLanguageI(const Value: String): Word;
  202. function StrToCountryI(const Value: String): Word;
  203. function StrToInterestI(const Value: String): Word;
  204. function StrToOccupationI(const Value: String): Word;
  205. function StrToPastI(const Value: String): Word;
  206. function StrToOrganizationI(const Value: String): Word;
  207. procedure ParseContacts(Value: String; var List: TStringList);
  208. function MakeContactsStr(Contacts: TStringList): String;
  210. {Packet creation functions}
  211. procedure CreateCLI_IDENT(Pkt: PRawPkt; UIN: LongWord; Password: String; var Seq: Word);
  212. procedure CreateCLI_COOKIE(Pkt: PRawPkt; const Cookie: String; var Seq: Word);
  213. procedure CreateCLI_FAMILIES(Pkt: PRawPkt; var Seq: Word);
  214. procedure CreateCLI_RATESREQUEST(Pkt: PRawPkt; var Seq: Word);
  215. procedure CreateCLI_ACKRATES(Pkt: PRawPkt; var Seq: Word);
  216. procedure CreateCLI_REQINFO(Pkt: PRawPkt; var Seq: Word);
  217. procedure CreateCLI_REQUNKNOWN(Pkt: PRawPkt; var Seq: Word);
  218. procedure CreateCLI_REQROSTER(Pkt: PRawPkt; var Seq: Word);
  219. procedure CreateCLI_CHECKROSTER(Pkt: PRawPkt; var Seq: Word);
  220. procedure CreateCLI_REQLOCATION(Pkt: PRawPkt; var Seq: Word);
  221. procedure CreateCLI_REQBUDDY(Pkt: PRawPkt; var Seq: Word);
  222. procedure CreateCLI_REQICBM(Pkt: PRawPkt; var Seq: Word);
  223. procedure CreateCLI_SETSTATUS(Pkt: PRawPkt; Status: LongWord; IP: LongInt; Port: Word; Cookie: LongWord; ProxyType: TProxyType; var Seq: Word);
  224. procedure CreateCLI_SETSTATUS_SHORT(Pkt: PRawPkt; Status: LongWord; var Seq: Word);
  225. procedure CreateCLI_REQBOS(Pkt: PRawPkt; var Seq: Word);
  226. procedure CreateCLI_SETUSERINFO(Pkt: PRawPkt; var Seq: Word);
  227. procedure CreateCLI_SETICBM(Pkt: PRawPkt; var Seq: Word);
  228. procedure CreateCLI_READY(Pkt: PRawPkt; var Seq: Word);
  229. procedure CreateCLI_TOICQSRV(Pkt: PRawPkt; UIN: LongWord; Command: Word; Data: Pointer; DataLen: LongWord; var Seq, Seq2: Word);
  230. procedure CreateCLI_ADDCONTACT(Pkt: PRawPkt; UIN: String; var Seq: Word);
  231. procedure CreateCLI_REMOVECONTACT(Pkt: PRawPkt; UIN: LongWord; var Seq: Word);
  232. procedure CreateCLI_ADDVISIBLE(Pkt: PRawPkt; UINs: TStrings; var Seq: Word);
  233. procedure CreateCLI_REMVISIBLE(Pkt: PRawPkt; UIN: LongWord; var Seq: Word);
  234. procedure CreateCLI_ADDINVISIBLE(Pkt: PRawPkt; UINs: TStrings; var Seq: Word);
  235. procedure CreateCLI_REMINVISIBLE(Pkt: PRawPkt; UIN: LongWord; var Seq: Word);
  236. procedure CreateCLI_ACKOFFLINEMSGS(Pkt: PRawPkt; UIN: LongWord; var Seq, Seq2: Word);
  237. procedure CreateCLI_SENDMSG(Pkt: PRawPkt; ITime, IRandom, UIN: LongWord; const Msg: String; var Seq: Word);
  238. procedure CreateCLI_SENDURL(Pkt: PRawPkt; ITime, IRandom, MyUIN, UIN: LongWord; const URL, Description: String; var Seq: Word);
  239. procedure CreateCLI_AUTHORIZE(Pkt: PRawPkt; UIN: LongWord; Auth: Byte; Reason: String; var Seq: Word);
  240. procedure CreateCLI_METAREQINFO(Pkt: PRawPkt; UIN, dUIN: LongWord; var Seq, Seq2: Word);
  241. procedure CreateCLI_SEARCHBYMAIL(Pkt: PRawPkt; UIN: LongWord; const Email: String; var Seq, Seq2: Word);
  242. procedure CreateCLI_SEARCHBYUIN(Pkt: PRawPkt; UIN: LongWord; DUIN: LongWord; var Seq, Seq2: Word);
  243. procedure CreateCLI_SEARCHBYNAME(Pkt: PRawPkt; UIN: LongWord; const FirstName, LastName, NickName, Email: String; var Seq, Seq2: Word);
  244. procedure CreateCLI_SEARCHRANDOM(Pkt: PRawPkt; UIN: LongWord; Group: Word; var Seq, Seq2: Word);
  245. procedure CreateCLI_SEARCHWP(Pkt: PRawPkt; UIN: LongWord; First, Last, Nick, Email: String; MinAge, MaxAge: Word; Gender: Byte; Language: Byte; City: String; Country: Word; Company, Department, Position: String; Occupation: Byte; Organization: Word; OrganKeyWords: String; Affiliation: Word; AffiKeyWords, KeyWord: String; Online: Byte; var Seq, Seq2: Word);
  246. procedure CreateCLI_METASETMORE(Pkt: PRawPkt; UIN: LongWord; Age: Word; Gender: Byte; HomePage: String; BirthYear: Word; BirthMonth, BirthDay, Lang1, Lang2, Lang3: Byte; var Seq, Seq2: Word);
  247. procedure CreateCLI_METASETGENERAL(Pkt: PRawPkt; UIN: LongWord; const NickName, FirstName, LastName, Email, City, State, Phone, Fax, Street, Cellular, Zip: String; Country: Word; TimeZone: Byte; PublishEmail: Boolean; var Seq, Seq2: Word);
  248. procedure CreateCLI_METASETABOUT(Pkt: PRawPkt; UIN: LongWord; const About: String; var Seq, Seq2: Word);
  249. procedure CreateCLI_SENDSMS(Pkt: PRawPkt; UIN: LongWord; const Destination, Text: String; CodePage: Word; const Time: String; var Seq, Seq2: Word);
  250. procedure CreateCLI_SENDMSG_ADVANCED(Pkt: PRawPkt; ITime, IRandom, UIN: LongWord; const Msg: String; RTFFormat: Boolean; var Seq: Word);
  251. procedure CreateCLI_SENDMSG_FILEACK(Pkt: PRawPkt; FFSeq: Word; ITime, IRandom, UIN, FileSize: LongWord; const FileDesc, FileName: String; Port: Word; var Seq: Word);
  252. procedure CreateCLI_SENDMSG_FILEDECLINE(Pkt: PRawPkt; FFSeq: Word; ITime, IRandom, UIN, FileSize: LongWord; const FileDesc, FileName, Reason: String; Port: Word; var Seq: Word);
  253. procedure CreateCLI_HELLO(Pkt: PRawPkt; var Seq: Word);
  254. procedure CreateCLI_GOODBYE(Pkt: PRawPkt; var Seq: Word);
  255. procedure CreateCLI_REGISTERUSER(Pkt: PRawPkt; const Password: String; var Seq: Word);
  256. procedure CreateCLI_REQAWAYMSG(Pkt: PRawPkt; ITime, IRandom, UIN: LongWord; Status: Byte; var Seq: Word);
  257. procedure CreateCLI_SENDCONTACTS(Pkt: PRawPkt; ITime, IRandom, UIN: LongWord; Contacts: TStringList; var Seq: Word);
  258. procedure CreateCLI_SENDCONTACTS_REQ(Pkt: PRawPkt; ITime, IRandom, UIN: LongWord; Reason: String; var Seq: Word);
  259. procedure CreateCLI_UNREGUIN(Pkt: PRawPkt; UIN: LongWord; const Password: String; var Seq, Seq2: Word);
  260. procedure CreateCLI_METASETPASS(Pkt: PRawPkt; UIN: LongWord; const Password: String; Buffer: Pointer; BufLen: Word; var Seq, Seq2: Word);
  261. procedure CreateCLI_METASETPERMISSIONS(Pkt: PRawPkt; UIN: LongWord; AuthorizationRequired, WebAware: Boolean; var Seq, Seq2: Word);
  262. procedure CreateCLI_METAREQINFO_SHORT(Pkt: PRawPkt; UIN, DestUIN: LongWord; var Seq, Seq2: Word);
  263. procedure CreateCLI_REQAUTH(Pkt: PRawPkt; UIN: LongWord; Msg: String; var Seq: Word);
  264. procedure CreateCLI_KEEPALIVE(Pkt: PRawPkt; var Seq: Word);
  265. procedure CreateCLI_ADDSTART(Pkt: PRawPkt; FirstUpload: Boolean; var Seq: Word);
  266. procedure CreateCLI_ADDEND(Pkt: PRawPkt; var Seq: Word);
  267. procedure CreateCLI_UPDATEGROUP(Pkt: PRawPkt; Name: String; Tag: Word; IDs: TStringList; var Seq: Word);
  268. procedure CreateCLI_UPDATEBUDDY(Pkt: PRawPkt; UIN, Name, SMSNumber: String; Tag, ID: Word; BuddyType: Word; NotAuthorized: Boolean; var Seq: Word);
  269. procedure CreateCLI_ADDBUDDY(Pkt: PRawPkt; UIN, Name, SMSNumber: String; Tag, ID: Word; BuddyType: Word; NotAuthorized: Boolean; var Seq: Word);
  270. procedure CreateCLI_DELETEBUDDY(Pkt: PRawPkt; UIN, Name, SMSNumber: String; Tag, ID: Word; BuddyType: Word; NotAuthorized, IsGroup: Boolean; var Seq: Word);
  273. {Misc functions}
  274. function SnacToStr(Family, SubType: Word): String;
  275. function SrvMetaToStr(V1, V2: Word): String;
  276. function PeerCmdToStr(Cmd: Byte): String;
  277. function DumpPacket(Buffer: Pointer; BufLen: Word): String;
  278. function Rtf2Txt(const Value: String): String;
  279. function StatusToStr(Value: LongWord): String;
  280. function CountryToStr(Value: Word): String;
  281. function LanguageToStr(Value: Byte): String;
  282. function OccupationToStr(Value: Word): String;
  283. function InterestToStr(Value: Word): String;
  284. function PastToStr(Value: Word): String;
  285. function AffiliationToStr(Value: Word): String;
  286. function LoadPacketRaw(Pkt: PRawPkt; const FName: String): Boolean;
  287. function LoadPacket(Pkt: PRawPkt; const FName: String; var Flap: TFlapHdr; var Snac: TSnacHdr): Boolean;
  288. function FileExists(const FileName: String): Boolean;
  289. function FileSize(const FName: String): LongWord;
  290. procedure LogText(const FName, Text: String);
  291. procedure ShowMessage(const Value: String); overload;
  292. procedure ShowMessage(Value: LongWord); overload;
  293. function ExtractName(const Value: String): String;
  294. function ExtractValue(const Value: String): String;
  295. function UTF8ToStr(Value: String): String;
  296. function UTF8ToStrSmart(Value: String): String;
  297. function GetXMLEntry(const Tag, Msg: String): String;
  299. {SMS functions}
  300. function StrToUTF8(Value: String): String;
  301. function STime: String;
  302. function GetSMSTime: String;
  304. function DecryptPak(Pak: Pointer; Size: LongWord; Ver: Byte): Boolean;
  305. procedure EncryptPak(Pak: Pointer; Size: LongWord; Ver: Byte);
  307. {Peer packet functions}
  308. procedure CreatePEER_INIT(Pkt: PRawPkt; Cookie, DestUIN, SrcUIN, SrcPort, SrcIPExt, SrcIPInt: LongWord; ProxyType: TProxyType);
  309. procedure CreatePEER_INIT2(Pkt: PRawPkt; Ack: Boolean);
  310. procedure CreatePEER_ACK(Pkt: PRawPkt);
  311. function CreatePEER_MSG(Pkt: PRawPkt; const Msg: String; RTFFormat: Boolean; var Seq: Word): Word;
  312. procedure CreatePEER_MSGACK(Pkt: PRawPkt; Seq: Word);
  313. procedure CreatePEER_AUTOMSG_ACK(Pkt: PRawPkt; Answer: String; Status, Seq: Word);
  314. function CreatePEER_CONTACTS(Pkt: PRawPkt; Contacts: TStringList; var Seq: Word): Word;
  315. function CreatePEER_CONTACTREQ(Pkt: PRawPkt; const Reason: String; var Seq: Word): Word;
  316. function CreatePEER_FILEINIT(Pkt: PRawPkt; Response: Boolean; FileDescription, FileName: String; Port: Word; FileLength: LongWord; var Seq: Word; Reason: String; Accept: Boolean): Word;
  317. procedure CreatePEER_FILEINITACK(Pkt: PRawPkt; Speed: LongWord; Nick: String);
  318. procedure CreatePEER_FILE_INIT2(Pkt: PRawPkt; Count, Bytes, Speed: LongWord);
  320. function CreateHTTP_Header(Method: String; URL, Host: String; DataLen: LongWord): String;
  321. procedure CreateHTTP_DATA(Pkt: PRawPkt; PType: Word; Data: Pointer; DataLen: LongWord);
  322. function CreateHTTP_INIT: String;
  323. function CreateHTTP_RECV(Host, SID: String): String;
  324. procedure CreateHTTP_LOGIN(Pkt: PRawPkt; Host: String; Port: Word);
  326. function Decrypt99bPassword(UIN, CryptIV: LongWord; const HexPass: String): String;
  327. function DecryptMirandaPassword(const Value: String): String;
  329. //Text constants
  330. //@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
  331. //------------------------------------------------------------------------------------------------------------
  332. const
  333.   Countries: array[0..242] of record Ident: Word; Value: String end =
  334.     ((Ident: 1; Value: 'USA'),
  335.     (Ident: 7; Value: 'Russia'),
  336.     (Ident: 20; Value: 'Egypt'),
  337.     (Ident: 27; Value: 'South Africa'),
  338.     (Ident: 30; Value: 'Greece'),
  339.     (Ident: 31; Value: 'Netherlands'),
  340.     (Ident: 32; Value: 'Belgium'),
  341.     (Ident: 33; Value: 'France'),
  342.     (Ident: 34; Value: 'Spain'),
  343.     (Ident: 36; Value: 'Hungary'),
  344.     (Ident: 39; Value: 'Italy'),
  345.     (Ident: 40; Value: 'Romania'),
  346.     (Ident: 41; Value: 'Switzerland'),
  347.     (Ident: 42; Value: 'Czech Republic'),
  348.     (Ident: 43; Value: 'Austria'),
  349.     (Ident: 44; Value: 'United Kingdom'),
  350.     (Ident: 45; Value: 'Denmark'),
  351.     (Ident: 46; Value: 'Sweden'),
  352.     (Ident: 47; Value: 'Norway'),
  353.     (Ident: 48; Value: 'Poland'),
  354.     (Ident: 49; Value: 'Germany'),
  355.     (Ident: 51; Value: 'Peru'),
  356.     (Ident: 52; Value: 'Mexico'),
  357.     (Ident: 53; Value: 'Cuba'),
  358.     (Ident: 54; Value: 'Argentina'),
  359.     (Ident: 55; Value: 'Brazil'),
  360.     (Ident: 56; Value: 'Chile'),
  361.     (Ident: 57; Value: 'Colombia'),
  362.     (Ident: 58; Value: 'Venezuela'),
  363.     (Ident: 60; Value: 'Malaysia'),
  364.     (Ident: 61; Value: 'Australia'),
  365.     (Ident: 62; Value: 'Indonesia'),
  366.     (Ident: 63; Value: 'Philippines'),
  367.     (Ident: 64; Value: 'New Zealand'),
  368.     (Ident: 65; Value: 'Singapore'),
  369.     (Ident: 66; Value: 'Thailand'),
  370.     (Ident: 81; Value: 'Japan'),
  371.     (Ident: 82; Value: 'Korea (Republic of)'),
  372.     (Ident: 84; Value: 'Vietnam'),
  373.     (Ident: 86; Value: 'China'),
  374.     (Ident: 90; Value: 'Turkey'),
  375.     (Ident: 91; Value: 'India'),
  376.     (Ident: 92; Value: 'Pakistan'),
  377.     (Ident: 93; Value: 'Afghanistan'),
  378.     (Ident: 94; Value: 'Sri Lanka'),
  379.     (Ident: 95; Value: 'Myanmar'),
  380.     (Ident: 98; Value: 'Iran'),
  381.     (Ident: 101; Value: 'Anguilla'),
  382.     (Ident: 102; Value: 'Antigua'),
  383.     (Ident: 103; Value: 'Bahamas'),
  384.     (Ident: 104; Value: 'Barbados'),
  385.     (Ident: 105; Value: 'Bermuda'),
  386.     (Ident: 106; Value: 'British Virgin Islands'),
  387.     (Ident: 107; Value: 'Canada'),
  388.     (Ident: 108; Value: 'Cayman Islands'),
  389.     (Ident: 109; Value: 'Dominica'),
  390.     (Ident: 110; Value: 'Dominican Republic'),
  391.     (Ident: 111; Value: 'Grenada'),
  392.     (Ident: 112; Value: 'Jamaica'),
  393.     (Ident: 113; Value: 'Montserrat'),
  394.     (Ident: 114; Value: 'Nevis'),
  395.     (Ident: 115; Value: 'St. Kitts'),
  396.     (Ident: 116; Value: 'St. Vincent and the Grenadines'),
  397.     (Ident: 117; Value: 'Trinidad and Tobago'),
  398.     (Ident: 118; Value: 'Turks and Caicos Islands'),
  399.     (Ident: 120; Value: 'Barbuda'),
  400.     (Ident: 121; Value: 'Puerto Rico'),
  401.     (Ident: 122; Value: 'Saint Lucia'),
  402.     (Ident: 123; Value: 'United States Virgin Islands'),
  403.     (Ident: 212; Value: 'Morocco'),
  404.     (Ident: 213; Value: 'Algeria'),
  405.     (Ident: 216; Value: 'Tunisia'),
  406.     (Ident: 218; Value: 'Libya'),
  407.     (Ident: 220; Value: 'Gambia'),
  408.     (Ident: 221; Value: 'Senegal Republic'),
  409.     (Ident: 222; Value: 'Mauritania'),
  410.     (Ident: 223; Value: 'Mali'),
  411.     (Ident: 224; Value: 'Guinea'),
  412.     (Ident: 225; Value: 'Ivory Coast'),
  413.     (Ident: 226; Value: 'Burkina Faso'),
  414.     (Ident: 227; Value: 'Niger'),
  415.     (Ident: 228; Value: 'Togo'),
  416.     (Ident: 229; Value: 'Benin'),
  417.     (Ident: 230; Value: 'Mauritius'),
  418.     (Ident: 231; Value: 'Liberia'),
  419.     (Ident: 232; Value: 'Sierra Leone'),
  420.     (Ident: 233; Value: 'Ghana'),
  421.     (Ident: 234; Value: 'Nigeria'),
  422.     (Ident: 235; Value: 'Chad'),
  423.     (Ident: 236; Value: 'Central African Republic'),
  424.     (Ident: 237; Value: 'Cameroon'),
  425.     (Ident: 238; Value: 'Cape Verde Islands'),
  426.     (Ident: 239; Value: 'Sao Tome and Principe'),
  427.     (Ident: 240; Value: 'Equatorial Guinea'),
  428.     (Ident: 241; Value: 'Gabon'),
  429.     (Ident: 242; Value: 'Congo'),
  430.     (Ident: 243; Value: 'Dem. Rep. of the Congo'),
  431.     (Ident: 244; Value: 'Angola'),
  432.     (Ident: 245; Value: 'Guinea-Bissau'),
  433.     (Ident: 246; Value: 'Diego Garcia'),
  434.     (Ident: 247; Value: 'Ascension Island'),
  435.     (Ident: 248; Value: 'Seychelle Islands'),
  436.     (Ident: 249; Value: 'Sudan'),
  437.     (Ident: 250; Value: 'Rwanda'),
  438.     (Ident: 251; Value: 'Ethiopia'),
  439.     (Ident: 252; Value: 'Somalia'),
  440.     (Ident: 253; Value: 'Djibouti'),
  441.     (Ident: 254; Value: 'Kenya'),
  442.     (Ident: 255; Value: 'Tanzania'),
  443.     (Ident: 256; Value: 'Uganda'),
  444.     (Ident: 257; Value: 'Burundi'),
  445.     (Ident: 258; Value: 'Mozambique'),
  446.     (Ident: 260; Value: 'Zambia'),
  447.     (Ident: 261; Value: 'Madagascar'),
  448.     (Ident: 262; Value: 'Reunion Island'),
  449.     (Ident: 263; Value: 'Zimbabwe'),
  450.     (Ident: 264; Value: 'Namibia'),
  451.     (Ident: 265; Value: 'Malawi'),
  452.     (Ident: 266; Value: 'Lesotho'),
  453.     (Ident: 267; Value: 'Botswana'),
  454.     (Ident: 268; Value: 'Swaziland'),
  455.     (Ident: 269; Value: 'Mayotte Island'),
  456.     (Ident: 290; Value: 'St. Helena'),
  457.     (Ident: 291; Value: 'Eritrea'),
  458.     (Ident: 297; Value: 'Aruba'),
  459.     (Ident: 298; Value: 'Faeroe Islands'),
  460.     (Ident: 299; Value: 'Greenland'),
  461.     (Ident: 350; Value: 'Gibraltar'),
  462.     (Ident: 351; Value: 'Portugal'),
  463.     (Ident: 352; Value: 'Luxembourg'),
  464.     (Ident: 353; Value: 'Ireland'),
  465.     (Ident: 354; Value: 'Iceland'),
  466.     (Ident: 355; Value: 'Albania'),
  467.     (Ident: 356; Value: 'Malta'),
  468.     (Ident: 357; Value: 'Cyprus'),
  469.     (Ident: 358; Value: 'Finland'),
  470.     (Ident: 359; Value: 'Bulgaria'),
  471.     (Ident: 370; Value: 'Lithuania'),
  472.     (Ident: 371; Value: 'Latvia'),
  473.     (Ident: 372; Value: 'Estonia'),
  474.     (Ident: 373; Value: 'Moldova'),
  475.     (Ident: 374; Value: 'Armenia'),
  476.     (Ident: 375; Value: 'Belarus'),
  477.     (Ident: 376; Value: 'Andorra'),
  478.     (Ident: 377; Value: 'Monaco'),
  479.     (Ident: 378; Value: 'San Marino'),
  480.     (Ident: 379; Value: 'Vatican City'),
  481.     (Ident: 380; Value: 'Ukraine'),
  482.     (Ident: 381; Value: 'Yugoslavia'),
  483.     (Ident: 385; Value: 'Croatia'),
  484.     (Ident: 386; Value: 'Slovenia'),
  485.     (Ident: 387; Value: 'Bosnia and Herzegovina'),
  486.     (Ident: 389; Value: 'F.Y.R.O.M. (Former Yugoslav Republic of Macedonia)'),
  487.     (Ident: 500; Value: 'Falkland Islands'),
  488.     (Ident: 501; Value: 'Belize'),
  489.     (Ident: 502; Value: 'Guatemala'),
  490.     (Ident: 503; Value: 'El Salvador'),
  491.     (Ident: 504; Value: 'Honduras'),
  492.     (Ident: 505; Value: 'Nicaragua'),
  493.     (Ident: 506; Value: 'Costa Rica'),
  494.     (Ident: 507; Value: 'Panama'),
  495.     (Ident: 508; Value: 'St. Pierre and Miquelon'),
  496.     (Ident: 509; Value: 'Haiti'),
  497.     (Ident: 590; Value: 'Guadeloupe'),
  498.     (Ident: 591; Value: 'Bolivia'),
  499.     (Ident: 592; Value: 'Guyana'),
  500.     (Ident: 593; Value: 'Ecuador'),
  501.     (Ident: 594; Value: 'French Guiana'),
  502.     (Ident: 595; Value: 'Paraguay'),
  503.     (Ident: 596; Value: 'Martinique'),
  504.     (Ident: 597; Value: 'Suriname'),
  505.     (Ident: 598; Value: 'Uruguay'),
  506.     (Ident: 599; Value: 'Netherlands Antilles'),
  507.     (Ident: 670; Value: 'Saipan Island'),
  508.     (Ident: 671; Value: 'Guam'),
  509.     (Ident: 672; Value: 'Christmas Island'),
  510.     (Ident: 673; Value: 'Brunei'),
  511.     (Ident: 674; Value: 'Nauru'),
  512.     (Ident: 675; Value: 'Papua New Guinea'),
  513.     (Ident: 676; Value: 'Tonga'),
  514.     (Ident: 677; Value: 'Solomon Islands'),
  515.     (Ident: 678; Value: 'Vanuatu'),
  516.     (Ident: 679; Value: 'Fiji Islands'),
  517.     (Ident: 680; Value: 'Palau'),
  518.     (Ident: 681; Value: 'Wallis and Futuna Islands'),
  519.     (Ident: 682; Value: 'Cook Islands'),
  520.     (Ident: 683; Value: 'Niue'),
  521.     (Ident: 684; Value: 'American Samoa'),
  522.     (Ident: 685; Value: 'Western Samoa'),
  523.     (Ident: 686; Value: 'Kiribati Republic'),
  524.     (Ident: 687; Value: 'New Caledonia'),
  525.     (Ident: 688; Value: 'Tuvalu'),
  526.     (Ident: 689; Value: 'French Polynesia'),
  527.     (Ident: 690; Value: 'Tokelau'),
  528.     (Ident: 691; Value: 'Micronesia, Federated States of'),
  529.     (Ident: 692; Value: 'Marshall Islands'),
  530.     (Ident: 705; Value: 'Kazakhstan'),
  531.     (Ident: 706; Value: 'Kyrgyz Republic'),
  532.     (Ident: 708; Value: 'Tajikistan'),
  533.     (Ident: 709; Value: 'Turkmenistan'),
  534.     (Ident: 711; Value: 'Uzbekistan'),
  535.     (Ident: 800; Value: 'International Freephone Service'),
  536.     (Ident: 850; Value: 'Korea (North)'),
  537.     (Ident: 852; Value: 'Hong Kong'),
  538.     (Ident: 853; Value: 'Macau'),
  539.     (Ident: 855; Value: 'Cambodia'),
  540.     (Ident: 856; Value: 'Laos'),
  541.     (Ident: 870; Value: 'INMARSAT'),
  542.     (Ident: 871; Value: 'INMARSAT (Atlantic-East)'),
  543.     (Ident: 872; Value: 'INMARSAT (Pacific)'),
  544.     (Ident: 873; Value: 'INMARSAT (Indian)'),
  545.     (Ident: 874; Value: 'INMARSAT (Atlantic-West)'),
  546.     (Ident: 880; Value: 'Bangladesh'),
  547.     (Ident: 886; Value: 'Taiwan, Republic of China'),
  548.     (Ident: 960; Value: 'Maldives'),
  549.     (Ident: 961; Value: 'Lebanon'),
  550.     (Ident: 962; Value: 'Jordan'),
  551.     (Ident: 963; Value: 'Syria'),
  552.     (Ident: 964; Value: 'Iraq'),
  553.     (Ident: 965; Value: 'Kuwait'),
  554.     (Ident: 966; Value: 'Saudi Arabia'),
  555.     (Ident: 967; Value: 'Yemen'),
  556.     (Ident: 968; Value: 'Oman'),
  557.     (Ident: 971; Value: 'United Arab Emirates'),
  558.     (Ident: 972; Value: 'Israel'),
  559.     (Ident: 973; Value: 'Bahrain'),
  560.     (Ident: 974; Value: 'Qatar'),
  561.     (Ident: 975; Value: 'Bhutan'),
  562.     (Ident: 976; Value: 'Mongolia'),
  563.     (Ident: 977; Value: 'Nepal'),
  564.     (Ident: 994; Value: 'Azerbaijan'),
  565.     (Ident: 995; Value: 'Georgia'),
  566.     (Ident: 2691; Value: 'Comoros'),
  567.     (Ident: 4101; Value: 'Liechtenstein'),
  568.     (Ident: 4201; Value: 'Slovak Republic'),
  569.     (Ident: 5399; Value: 'Guantanamo Bay'),
  570.     (Ident: 5901; Value: 'French Antilles'),
  571.     (Ident: 6101; Value: 'Cocos-Keeling Islands'),
  572.     (Ident: 6701; Value: 'Rota Island'),
  573.     (Ident: 6702; Value: 'Tinian Island'),
  574.     (Ident: 6721; Value: 'Australian Antarctic Territory'),
  575.     (Ident: 6722; Value: 'Norfolk Island'),
  576.     (Ident: 9999; Value: 'Unknown'));
  578.   Languages: array[0..72] of record Ident: Byte; Value: String end =
  579.     ((Ident: 1; Value: 'Arabic'),
  580.     (Ident: 2; Value: 'Bhojpuri'),
  581.     (Ident: 3; Value: 'Bulgarian'),
  582.     (Ident: 4; Value: 'Burmese'),
  583.     (Ident: 5; Value: 'Cantonese'),
  584.     (Ident: 6; Value: 'Catalan'),
  585.     (Ident: 7; Value: 'Chinese'),
  586.     (Ident: 8; Value: 'Croatian'),
  587.     (Ident: 9; Value: 'Czech'),
  588.     (Ident: 10; Value: 'Danish'),
  589.     (Ident: 11; Value: 'Dutch'),
  590.     (Ident: 12; Value: 'English'),
  591.     (Ident: 13; Value: 'Esperanto'),
  592.     (Ident: 14; Value: 'Estonian'),
  593.     (Ident: 15; Value: 'Farci'),
  594.     (Ident: 16; Value: 'Finnish'),
  595.     (Ident: 17; Value: 'French'),
  596.     (Ident: 18; Value: 'Gaelic'),
  597.     (Ident: 19; Value: 'German'),
  598.     (Ident: 20; Value: 'Greek'),
  599.     (Ident: 21; Value: 'Hebrew'),
  600.     (Ident: 22; Value: 'Hindi'),
  601.     (Ident: 23; Value: 'Hungarian'),
  602.     (Ident: 24; Value: 'Icelandic'),
  603.     (Ident: 25; Value: 'Indonesian'),
  604.     (Ident: 26; Value: 'Italian'),
  605.     (Ident: 27; Value: 'Japanese'),
  606.     (Ident: 28; Value: 'Khmer'),
  607.     (Ident: 29; Value: 'Korean'),
  608.     (Ident: 30; Value: 'Lao'),
  609.     (Ident: 31; Value: 'Latvian'),
  610.     (Ident: 32; Value: 'Lithuanian'),
  611.     (Ident: 33; Value: 'Malay'),
  612.     (Ident: 34; Value: 'Norwegian'),
  613.     (Ident: 35; Value: 'Polish'),
  614.     (Ident: 36; Value: 'Portuguese'),
  615.     (Ident: 37; Value: 'Romanian'),
  616.     (Ident: 38; Value: 'Russian'),
  617.     (Ident: 39; Value: 'Serbo-Croatian'),
  618.     (Ident: 40; Value: 'Slovak'),
  619.     (Ident: 41; Value: 'Slovenian'),
  620.     (Ident: 42; Value: 'Somali'),
  621.     (Ident: 43; Value: 'Spanish'),
  622.     (Ident: 44; Value: 'Swahili'),
  623.     (Ident: 45; Value: 'Swedish'),
  624.     (Ident: 46; Value: 'Tagalog'),
  625.     (Ident: 47; Value: 'Tatar'),
  626.     (Ident: 48; Value: 'Thai'),
  627.     (Ident: 49; Value: 'Turkish'),
  628.     (Ident: 50; Value: 'Ukrainian'),
  629.     (Ident: 51; Value: 'Urdu'),
  630.     (Ident: 52; Value: 'Vietnamese'),
  631.     (Ident: 53; Value: 'Yiddish'),
  632.     (Ident: 54; Value: 'Yoruba'),
  633.     (Ident: 55; Value: 'Afrikaans'),
  634.     (Ident: 56; Value: 'Bosnian'),
  635.     (Ident: 57; Value: 'Persian'),
  636.     (Ident: 58; Value: 'Albanian'),
  637.     (Ident: 59; Value: 'Armenian'),
  638.     (Ident: 60; Value: 'Punjabi'),
  639.     (Ident: 61; Value: 'Chamorro'),
  640.     (Ident: 62; Value: 'Mongolian'),
  641.     (Ident: 63; Value: 'Mandarin'),
  642.     (Ident: 64; Value: 'Taiwanese'),
  643.     (Ident: 65; Value: 'Macedonian'),
  644.     (Ident: 66; Value: 'Sindhi'),
  645.     (Ident: 67; Value: 'Welsh'),
  646.     (Ident: 68; Value: 'Azerbaijani'),
  647.     (Ident: 69; Value: 'Kurdish'),
  648.     (Ident: 70; Value: 'Gujarati'),
  649.     (Ident: 71; Value: 'Tamil'),
  650.     (Ident: 72; Value: 'Belorussian'),
  651.     (Ident: 255; Value: 'Unknown'));
  653.   Occupations: array[1..17] of record Ident: Byte; Value: String end =
  654.     ((Ident: 1; Value: 'Academic'),
  655.     (Ident: 2; Value: 'Administrative'),
  656.     (Ident: 3; Value: 'Art/Entertainment'),
  657.     (Ident: 4; Value: 'College Student'),
  658.     (Ident: 5; Value: 'Computers'),
  659.     (Ident: 6; Value: 'Community & Social'),
  660.     (Ident: 7; Value: 'Education'),
  661.     (Ident: 8; Value: 'Engineering'),
  662.     (Ident: 9; Value: 'Financial Services'),
  663.     (Ident: 10; Value: 'Government'),
  664.     (Ident: 11; Value: 'High School Student'),
  665.     (Ident: 12; Value: 'Home'),
  666.     (Ident: 13; Value: 'ICQ - Providing Help'),
  667.     (Ident: 14; Value: 'Law'),
  668.     (Ident: 15; Value: 'Managerial'),
  669.     (Ident: 16; Value: 'Manufacturing'),
  670.     (Ident: 17; Value: 'Medical/Health'));
  672.   Interests: array[100..150] of record Ident: Byte; Value: String end =
  673.     ((Ident: 100; Value: 'Art'),
  674.     (Ident: 101; Value: 'Cars'),
  675.     (Ident: 102; Value: 'Celebrity Fans'),
  676.     (Ident: 103; Value: 'Collections'),
  677.     (Ident: 104; Value: 'Computers'),
  678.     (Ident: 105; Value: 'Culture & Literature'),
  679.     (Ident: 106; Value: 'Fitness'),
  680.     (Ident: 107; Value: 'Games'),
  681.     (Ident: 108; Value: 'Hobbies'),
  682.     (Ident: 109; Value: 'ICQ - Providing Help'),
  683.     (Ident: 110; Value: 'Internet'),
  684.     (Ident: 111; Value: 'Lifestyle'),
  685.     (Ident: 112; Value: 'Movies/TV'),
  686.     (Ident: 113; Value: 'Music'),
  687.     (Ident: 114; Value: 'Outdoor Activities'),
  688.     (Ident: 115; Value: 'Parenting'),
  689.     (Ident: 116; Value: 'Pets/Animals'),
  690.     (Ident: 117; Value: 'Religion'),
  691.     (Ident: 118; Value: 'Science/Technology'),
  692.     (Ident: 119; Value: 'Skills'),
  693.     (Ident: 120; Value: 'Sports'),
  694.     (Ident: 121; Value: 'Web Design'),
  695.     (Ident: 122; Value: 'Nature and Environment'),
  696.     (Ident: 123; Value: 'News & Media'),
  697.     (Ident: 124; Value: 'Government'),
  698.     (Ident: 125; Value: 'Business & Economy'),
  699.     (Ident: 126; Value: 'Mystics'),
  700.     (Ident: 127; Value: 'Travel'),
  701.     (Ident: 128; Value: 'Astronomy'),
  702.     (Ident: 129; Value: 'Space'),
  703.     (Ident: 130; Value: 'Clothing'),
  704.     (Ident: 131; Value: 'Parties'),
  705.     (Ident: 132; Value: 'Women'),
  706.     (Ident: 133; Value: 'Social science'),
  707.     (Ident: 134; Value: '60''s'),
  708.     (Ident: 135; Value: '70''s'),
  709.     (Ident: 136; Value: '80''s'),
  710.     (Ident: 137; Value: '50''s'),
  711.     (Ident: 138; Value: 'Finance and corporate'),
  712.     (Ident: 139; Value: 'Entertainment'),
  713.     (Ident: 140; Value: 'Consumer electronics'),
  714.     (Ident: 141; Value: 'Retail stores'),
  715.     (Ident: 142; Value: 'Health and beauty'),
  716.     (Ident: 143; Value: 'Media'),
  717.     (Ident: 144; Value: 'Household products'),
  718.     (Ident: 145; Value: 'Mail order catalog'),
  719.     (Ident: 146; Value: 'Business services'),
  720.     (Ident: 147; Value: 'Audio and visual'),
  721.     (Ident: 148; Value: 'Sporting and athletic'),
  722.     (Ident: 149; Value: 'Publishing'),
  723.     (Ident: 150; Value: 'Home automation'));
  725.   RandGroups: array[1..11] of record Ident: Byte; Value: String end =
  726.     ((Ident: 1; Value: 'General'),
  727.     (Ident: 2; Value: 'Romance'),
  728.     (Ident: 3; Value: 'Games'),
  729.     (Ident: 4; Value: 'Students'),
  730.     (Ident: 5; Value: '20 something'),
  731.     (Ident: 6; Value: '30 something'),
  732.     (Ident: 7; Value: '40 something'),
  733.     (Ident: 8; Value: '50+'),
  734.     (Ident: 9; Value: 'Romance'),
  735.     (Ident: 10; Value: 'Man requesting woman'),
  736.     (Ident: 11; Value: 'Woman requesting man'));
  738.   Organizations: array[0..19] of record Ident: Word; Value: String end =
  739.     ((Ident: 200; Value: 'Alumni Org.'),
  740.     (Ident: 201; Value: 'Charity Org.'),
  741.     (Ident: 202; Value: 'Club/Social Org.'),
  742.     (Ident: 203; Value: 'Community Org.'),
  743.     (Ident: 204; Value: 'Cultural Org.'),
  744.     (Ident: 205; Value: 'Fan Clubs'),
  745.     (Ident: 206; Value: 'Fraternity/Sorority'),
  746.     (Ident: 207; Value: 'Hobbyists Org.'),
  747.     (Ident: 208; Value: 'International Org.'),
  748.     (Ident: 209; Value: 'Nature and Environment Org.'),
  749.     (Ident: 210; Value: 'Professional Org.'),
  750.     (Ident: 211; Value: 'Scientific/Technical Org.'),
  751.     (Ident: 212; Value: 'Self Improvement Group'),
  752.     (Ident: 213; Value: 'Spiritual/Religious Org.'),
  753.     (Ident: 214; Value: 'Sports Org.'),
  754.     (Ident: 215; Value: 'Support Org.'),
  755.     (Ident: 216; Value: 'Trade and Business Org.'),
  756.     (Ident: 217; Value: 'Union'),
  757.     (Ident: 218; Value: 'Volunteer Org.'),
  758.     (Ident: 299; Value: 'Other'));
  760.   Pasts: array[0..7] of record Ident: Word; Value: String end =
  761.     ((Ident: 300; Value: 'Elementary School'),
  762.     (Ident: 301; Value: 'High School'),
  763.     (Ident: 302; Value: 'College'),
  764.     (Ident: 303; Value: 'University'),
  765.     (Ident: 304; Value: 'Military'),
  766.     (Ident: 305; Value: 'Past Work Place'),
  767.     (Ident: 306; Value: 'Past Organization'),
  768.     (Ident: 399; Value: 'Other'));
  772. //------------------------------------------------------------------------------------------------------------
  773. //@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
  775. implementation
  776. const
  777.   FileSignature: array[0..15] of Byte = ($f0, $2d, $12, $d9, $30, $91, $d3, $11,
  778.                                          $8d, $d7, $00, $10, $4b, $06, $46, $2e);
  780.   ContactsSignature: array[0..15] of Byte = ($2a, $0e, $7d, $46, $76, $76, $d4, $11,
  781.                                              $bc, $e6, $00, $04, $ac, $96, $1e, $a6);
  785. function IntToStr(Value: Int64): String;
  786. begin
  787.   Str(Value, Result);
  788. end;
  790. function StrToInt(const Value: String): LongWord;
  791. var
  792.   nCode: Integer;
  793. begin
  794.   Val(Value, Result, nCode);
  795. end;
  797. const
  798.   HexChars: array[0..15] of Char = ('0', '1', '2', '3', '4', '5',
  799.                                     '6', '7', '8', '9', 'a', 'b',
  800.                                     'c', 'd', 'e', 'f');
  802. function IntToHex(Int: Int64; IntSize: Byte): String;
  803. var
  804.   n: Byte;
  805. begin
  806.   Result := '';
  807.   for n := 0 to IntSize - 1 do
  808.   begin
  809.     Result := HexChars[Int and $F] + Result;
  810.     Int := Int shr $4;
  811.   end;
  812. end;
  814. function HexToInt(Value: String): LongWord;
  815. const
  816.   HexStr: String = '0123456789abcdef';
  817. var
  818.   i: Word;
  819. begin
  820.   Result := 0;
  821.   if Value = '' then Exit;
  822.   for i := 1 to Length(Value) do
  823.     Inc(Result, (Pos(Value[i], HexStr) - 1) shl ((Length(Value) - i) shl 2));
  824. end;
  826. const
  827.   TXorData: array[0..15] of Byte = (
  828.     $F3, $26, $81, $C4, $39, $86, $DB, $92,
  829.     $71, $A3, $B9, $E6, $53, $7A, $95, $7C
  830.   );
  832. procedure ICQEncryptPass(SrcBuf: Pointer; BufLen: LongWord); assembler;
  833. asm
  834.   or    edx,edx
  835.   jz    @@end
  836. @@loop:
  837.   mov   cl,byte ptr[eax + edx - 1]
  838.   xor   cl,byte ptr[TXorData + edx - 1]
  839.   mov   byte ptr[eax + edx - 1],cl
  840.   dec   edx
  841.   jnz   @@loop
  842. @@end:
  843. end;
  845. procedure ICQEncryptPassStr(var Pass: String);
  846. var
  847.   i: Word;
  848. begin
  849.   for i := 1 to Length(Pass) do
  850.     Pass[i] := Chr(Ord(Pass[i]) xor TXorData[i - 1]);
  851. end;
  853. function Swap16(Value: Word): Word; assembler;
  854. asm
  855.   rol   ax,8
  856. end;
  858. function Swap32(Value: LongWord): LongWord; assembler;
  859. asm
  860.   bswap eax
  861. end;
  863. {----------------------------------------------}
  864. //Adding data in reverse order
  865. procedure PktAddData(Pkt: PRawPkt; Data: Pointer; DataLen: LongWord);
  866. var
  867.   i: Word;
  868. begin
  869.   if DataLen = 0 then Exit;
  870.   for i := 0 to DataLen - 1 do
  871.     PByte(LongWord(Pkt) + Pkt^.Len + i)^ := PByte(LongWord(Data) + DataLen - i - 1)^;
  872.   Inc(Pkt^.Len, DataLen);
  873. end;
  875. //Adding data in direct order(local arrays, merging 2 or more packets)
  876. procedure PktAddArrBuf(Pkt: PRawPkt; Data: Pointer; DataLen: LongWord);
  877. begin
  878.   if DataLen = 0 then Exit;
  879.   Move(Data^, Ptr(LongWord(Pkt) + Pkt^.Len)^, DataLen);
  880.   Inc(Pkt^.Len, DataLen);
  881. end;
  883. procedure PktInt(Pkt: PRawPkt; Value: LongWord; IntSize: Byte);
  884. begin
  885.   PktAddData(Pkt, @Value, IntSize);
  886. end;
  888. procedure PktLInt(Pkt: PRawPkt; Value: LongWord; IntSize: Byte);
  889. begin
  890.   PktAddArrBuf(Pkt, @Value, IntSize);
  891. end;
  893. procedure PktStr(Pkt: PRawPkt; const S: String);
  894. begin
  895.   if Length(S) = 0 then Exit;
  896.   Move(PChar(S)^, Ptr(LongWord(Pkt) + Pkt.Len)^, Length(S));
  897.   Inc(Pkt^.Len, Length(S));
  898. end;
  900. procedure PktLStr(Pkt: PRawPkt; const S: String); overload;
  901. begin
  902.   PktInt(Pkt, Length(S), 1);
  903.   PktStr(Pkt, S);
  904. end;
  906. procedure PktLStr(Pkt: PRawPkt; S: LongWord); overload;
  907. begin
  908.   PktLStr(Pkt, IntToStr(S));
  909. end;
  911. procedure PktWStr(Pkt: PRawPkt; const S: String);
  912. begin
  913.   if Length(S) = 0 then
  914.   begin
  915.     PktInt(Pkt, 0, 2);
  916.     Exit;
  917.   end;
  918.   PktInt(Pkt, Length(S), 2);
  919.   PktStr(Pkt, S);
  920. end;
  922. procedure PktDWStr(Pkt: PRawPkt; const S: String);
  923. begin
  924.   PktLInt(Pkt, Length(S), 4);
  925.   PktStr(Pkt, S);
  926. end;
  928. procedure PktLNTS(Pkt: PRawPkt; const S: String);
  929. begin
  930.   if Length(S) = 0 then
  931.   begin
  932.     PktInt(Pkt, 0, 2);
  933.     Exit;
  934.   end;
  935.   PktLInt(Pkt, Length(S) + 1, 2);
  936.   PktStr(Pkt, S);
  937.   PktInt(Pkt, 0, 1);
  938. end;
  940. procedure PktLLNTS(Pkt: PRawPkt; const S: String);
  941. begin
  942.   if Length(S) = 0 then
  943.   begin
  944.     PktInt(Pkt, 0, 2);
  945.     Exit;
  946.   end;
  947.   PktLInt(Pkt, Length(S) + 3, 2);
  948.   PktLNTS(Pkt, S);
  949. end;
  953. {--}
  954. function GetInt(Pkt: PRawPkt; IntSize: Byte): LongWord;
  955. var
  956.   i: Word;
  957. begin
  958.   Result := 0;
  959.   if IntSize = 0 then Exit;
  960.   if Pkt^.Len > 8100 then Exit;
  961.   for i := Pkt^.Len to Pkt^.Len + IntSize - 1 do
  962.     Inc(Result, PByte(LongWord(Pkt) + i)^ shl ((Pkt^.Len + IntSize - 1 - i) * 8));
  963.   Inc(Pkt^.Len, IntSize);
  964. end;
  966. function GetLInt(Pkt: PRawPkt; IntSize: Byte): LongWord;
  967. var
  968.   i, c: Word;
  969. begin
  970.   Result := 0; c := 0;
  971.   if IntSize = 0 then Exit;
  972.   if Pkt^.Len > 8100 then Exit;
  973.   for i := Pkt^.Len to Pkt^.Len + IntSize - 1 do
  974.   begin
  975.     Inc(Result, PByte(LongWord(Pkt) + Pkt^.Len + IntSize - c - 1)^ shl ((Pkt^.Len + IntSize - 1 - i) * 8));
  976.     Inc(c);
  977.   end;
  978.   Inc(Pkt^.Len, IntSize);
  979. end;
  981. function GetStr(Pkt: PRawPkt; StrLen: Word): String;
  982. begin
  983.   Result := '';
  984.   while StrLen > 0 do
  985.   begin
  986.     Result := Result + PChar(LongWord(Pkt) + Pkt^.Len)^;
  987.     Inc(Pkt^.Len);
  988.     Dec(StrLen);
  989.     if Pkt^.Len > 8100 then Exit;
  990.   end;
  991. end;
  993. function GetTLVStr(Pkt: PRawPkt; var T: Word): String;
  994. var
  995.   ISize: Word;
  996. begin
  997.   T := GetInt(Pkt, 2);          //Get type
  998.   ISize := GetInt(Pkt, 2);      //Get data length
  999.   Result := GetStr(Pkt, ISize); //Get data
  1000. end;
  1002. function GetTLVInt(Pkt: PRawPkt; var T: Word): LongWord;
  1003. var
  1004.   ISize: Word;
  1005. begin
  1006.   T := GetInt(Pkt, 2);          //Get type
  1007.   ISize := GetInt(Pkt, 2);      //Get data length
  1008.   Result := GetInt(Pkt, ISize); //Get data
  1009. end;
  1011. procedure GetSnac(Pkt: PRawPkt; var Snac: TSnacHdr);
  1012. begin
  1013.   Snac := PSnacHdr(LongWord(Pkt) + Pkt^.Len)^;
  1014.   Snac.Family := Swap16(Snac.Family);
  1015.   Snac.SubType := Swap16(Snac.SubType);
  1016.   Snac.ReqID := Swap32(Snac.ReqID);
  1017.   Inc(Pkt^.Len, TSNACSZ);
  1018. end;
  1020. function GetLStr(Pkt: PRawPkt): String;
  1021. begin
  1022.   Result := GetStr(Pkt, GetInt(Pkt, 1));
  1023. end;
  1025. function GetWStr(Pkt: PRawPkt): String;
  1026. begin
  1027.   Result := GetStr(Pkt, GetInt(Pkt, 2));
  1028. end;
  1030. function GetDWStr(Pkt: PRawPkt): String;
  1031. begin
  1032.   Result := GetStr(Pkt, GetLInt(Pkt, 4));
  1033. end;
  1035. function GetLNTS(Pkt: PRawPkt): String;
  1036. begin
  1037.   Result := GetStr(Pkt, GetLInt(Pkt, 2) - 1);
  1038.   Inc(Pkt^.Len, 1);
  1039. end;
  1042. {--------}
  1043. procedure PktTLV(Pkt: PRawPkt; T, L: Word; V: LongWord); overload;
  1044. begin
  1045.   PktInt(Pkt, T, 2);  //Add type
  1046.   PktInt(Pkt, L, 2);  //Add length
  1047.   PktInt(Pkt, V, L);  //Add value
  1048. end;
  1050. procedure PktTLV(Pkt: PRawPkt; T: Word; const V: String); overload;
  1051. begin
  1052.   PktInt(Pkt, T, 2);            //Add type
  1053.   PktInt(Pkt, Length(V), 2);    //Add length
  1054.   PktStr(Pkt, V);               //Add value
  1055. end;
  1057. procedure PktTLV(Pkt: PRawPkt; T, L: Word; V: Pointer); overload; //for arrays
  1058. begin
  1059.   PktInt(Pkt, T, 2);            //Add type
  1060.   PktInt(Pkt, L, 2);            //Add length
  1061.   PktAddArrBuf(Pkt, V, L);      //Add value
  1062. end;
  1064. procedure PktInit(Pkt: PRawPkt; Channel: Byte; var Seq: Word);
  1065. begin
  1066.   Pkt^.Len := 0;                //Starting size of packet to 0
  1067.   PktInt(Pkt, $2A, 1);          //Ident, always $2A
  1068.   PktInt(Pkt, Channel, 1);      //Channel
  1069.   PktInt(Pkt, SEQ, 2); Inc(SEQ);//Seq
  1070.   PktInt(Pkt, 0, 2);            //Reserved for size
  1071. end;
  1074. {$IFDEF USE_ASM}
  1075. procedure PktInitRaw(Pkt: PRawPkt); assembler;
  1076. asm
  1077.   mov   word ptr[eax + MAX_DATA_LEN], 0         //Default size of the packet
  1078. end;
  1079. {$ELSE}
  1080. procedure PktInitRaw(Pkt: PRawPkt);
  1081. begin
  1082.   Pkt^.Len := 0;                                //Default size of the packet
  1083. end;
  1084. {$ENDIF}
  1087. //Used with PktInit only
  1088. {$IFDEF USE_ASM}
  1089. procedure PktFinal(Pkt: PRawPkt); assembler;
  1090. asm
  1091.   mov   cx,word ptr[eax + MAX_DATA_LEN]
  1092.   sub   cx,TFLAPSZ
  1093.   rol   cx,8
  1094.   mov   word ptr[eax + 4], cx   //Store the packet size (without flap header size)
  1095. end;
  1096. {$ELSE}
  1097. procedure PktFinal(Pkt: PRawPkt);
  1098. begin
  1099.   PWord(LongWord(Pkt) + 4)^ := Swap16(Pkt.Len - TFLAPSZ); //Store the packet size (without flap header size)
  1100. end;
  1101. {$ENDIF}
  1103. procedure PktSnac(Pkt: PRawPkt; Family, SubType: Word; ID: LongWord; Flags: Word);
  1104. begin
  1105.   PktInt(Pkt, Family, 2);       //Snac family
  1106.   PktInt(Pkt, SubType, 2);      //Snac subtype
  1107.   PktInt(Pkt, Flags, 2);        //Snac flags
  1108.   PktInt(Pkt, ID, 4);           //Snac reference
  1109. end;
  1111. {@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@}
  1112. function StrToLanguageI(const Value: String): Word;
  1113. var
  1114.   i: Word;
  1115. begin
  1116.   for i := Low(Languages) to High(Languages) do
  1117.     if Languages[i].Value = Value then
  1118.     begin
  1119.       Result := Languages[i].Ident;
  1120.       Exit;
  1121.     end;
  1122.   Result := 0;
  1123. end;
  1125. function StrToCountryI(const Value: String): Word;
  1126. var
  1127.   i: Word;
  1128. begin
  1129.   for i := Low(Countries) to High(Countries) do
  1130.     if Countries[i].Value = Value then
  1131.     begin
  1132.       Result := Countries[i].Ident;
  1133.       Exit;
  1134.     end;
  1135.   Result := 0;
  1136. end;
  1138. function StrToInterestI(const Value: String): Word;
  1139. var
  1140.   i: Word;
  1141. begin
  1142.   for i := Low(Interests) to High(Interests) do
  1143.     if Interests[i].Value = Value then
  1144.     begin
  1145.       Result := Interests[i].Ident;
  1146.       Exit;
  1147.     end;
  1148.   Result := 0;
  1149. end;
  1151. function StrToOccupationI(const Value: String): Word;
  1152. var
  1153.   i: Word;
  1154. begin
  1155.   for i := Low(Occupations) to High(Occupations) do
  1156.     if Occupations[i].Value = Value then
  1157.     begin
  1158.       Result := Occupations[i].Ident;
  1159.       Exit;
  1160.     end;
  1161.   Result := 0;
  1162. end;
  1164. function StrToPastI(const Value: String): Word;
  1165. var
  1166.   i: Word;
  1167. begin
  1168.   for i := Low(Pasts) to High(Pasts) do
  1169.     if Pasts[i].Value = Value then
  1170.     begin
  1171.       Result := Pasts[i].Ident;
  1172.       Exit;
  1173.     end;
  1174.   Result := 0;
  1175. end;
  1177. function StrToOrganizationI(const Value: String): Word;
  1178. var
  1179.   i: Word;
  1180. begin
  1181.   for i := Low(Organizations) to High(Organizations) do
  1182.     if Organizations[i].Value = Value then
  1183.     begin
  1184.       Result := Organizations[i].Ident;
  1185.       Exit;
  1186.     end;
  1187.   Result := 0;
  1188. end;
  1190. {Parse contacts responses.}
  1191. procedure ParseContacts(Value: String; var List: TStringList);
  1192. var
  1193.   i, l: Word;
  1194.   FName, FUIN: String;
  1195. begin
  1196.   l := 0; FName := ''; FUIN := '';
  1197.   if Length(Value) > Pos(#$fe, Value) + 1 then
  1198.     for i := Pos(#$fe, Value) + 1 to Length(Value) do
  1199.     begin
  1200.       if Value[i] = #$fe then
  1201.         Inc(l)
  1202.       else
  1203.       begin
  1204.         if l mod 2 = 0 then
  1205.           FName := FName + Value[i]
  1206.         else
  1207.           FUIN := FUIN + Value[i];
  1208.       end;
  1209.       if l = 2 then
  1210.       begin
  1211.         if (FName <> '') and (FUIN <> '') then
  1212.           List.Add(FName + '=' + FUIN);
  1213.         FName := '';
  1214.         FUIN := '';
  1215.         l := 0;
  1216.       end;
  1217.     end;
  1218. end;
  1220. {Create string representation of list with contacts.}
  1221. function MakeContactsStr(Contacts: TStringList): String;
  1222. var
  1223.   i, count: Word;
  1224.   S: String;
  1225. begin
  1226.   count := 0;
  1227.   S := '';
  1228.   if Contacts.Count > 0 then
  1229.     for i := 0 to Contacts.Count - 1 do
  1230.     begin
  1231.       if ExtractName(Contacts.Strings[i]) <> '' then
  1232.       begin
  1233.         S := S + ExtractName(Contacts.Strings[i]) + #$fe;
  1234.         if ExtractValue(Contacts.Strings[i]) = '' then
  1235.           S := S + ExtractName(Contacts.Strings[i]) + #$fe
  1236.         else
  1237.           S := S + ExtractValue(Contacts.Strings[i]) + #$fe;
  1238.         Inc(count);
  1239.       end;
  1240.     end;
  1241.   Result := IntToStr(count) + #$fe + S;
  1242. end;
  1244. {-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}
  1245. {The first packet sent by the client after connecting and receiving
  1246. the SRV_HELLO packet from the server. The packet basiclly identifies
  1247. what kind and version of client is connecting along with the user's
  1248. UIN and password.}
  1249. procedure CreateCLI_IDENT(Pkt: PRawPkt; UIN: LongWord; Password: String; var Seq: Word);
  1250. begin
  1251.   PktInit(Pkt, 1, Seq);                         //Channel 1
  1252.   PktInt(Pkt, 1, 4);                            //00 00 00 01
  1253.   PktTLV(Pkt, 1, IntToStr(UIN));                //Adding user's UIN
  1255.   ICQEncryptPassStr(Password);                  //Encrypt password
  1256.   PktTLV(Pkt, 2, Password);                     //Adding encrypted password
  1258.   PktTLV(Pkt, 3, 'ICQ Inc. - Product of ICQ (TM).2001b.5.15.1.3634.85');   //Cookie
  1259.   //Uknowns
  1260.   PktInt(Pkt, $00160002, 4); PktInt(Pkt, $010a, 2);
  1261.   PktInt(Pkt, $00170002, 4); PktInt(Pkt, $0005, 2);
  1262.   PktInt(Pkt, $00180002, 4); PktInt(Pkt, $000f, 2);
  1263.   PktInt(Pkt, $00190002, 4); PktInt(Pkt, $0001, 2);
  1264.   PktInt(Pkt, $001a0002, 4); PktInt(Pkt, $0e32, 2);
  1265.   PktInt(Pkt, $00140004, 4); PktInt(Pkt, $00000055, 4);
  1266.   PktTLV(Pkt, $000f, 'en');
  1267.   PktTLV(Pkt, $000e, 'us');
  1268.   PktFinal(Pkt);                                //Finalize packet
  1269. end;
  1271. {Sent as the first packet after the client has logged in
  1272. to the second server and received the SRV_HELLO packet.}
  1273. procedure CreateCLI_COOKIE(Pkt: PRawPkt; const Cookie: String; var Seq: Word);
  1274. begin
  1275.   PktInit(Pkt, 1, Seq);                         //Channel 1
  1276.   PktInt(Pkt, 1, 4);                            //00 00 00 01
  1277.   PktTLV(Pkt, 6, Cookie);                       //TLV(06) Cookie
  1278.   PktFinal(Pkt);                                //Finalize packet
  1279. end;
  1281. {This packet is a response to SNAC(1,3), SRV_FAMILIES. This tells
  1282. the server which SNAC families and their corresponding versions
  1283. which the client understands. This also seems to identify the client
  1284. as an ICQ vice AIM client to the server.}
  1285. procedure CreateCLI_FAMILIES(Pkt: PRawPkt; var Seq: Word);
  1286. begin
  1287.   PktInit(Pkt, 2, Seq);                         //Channel 2
  1288.   PktSnac(Pkt, 1, $17, 0, 0);                   //Snac: Type x01/x17, ID x0000, Flags 0
  1289.   PktInt(Pkt, $00010003, 4);                    //Family x01 is Version x03
  1290.   PktInt(Pkt, $00130002, 4);                    //Family x13 at Version x02
  1291.   PktInt(Pkt, $00020001, 4);                    //Family x02 at Version x01
  1292.   PktInt(Pkt, $00030001, 4);                    //Family x03 at Version x01
  1293.   PktInt(Pkt, $00150001, 4);                    //Family x15 at Version x01
  1294.   PktInt(Pkt, $00040001, 4);                    //Family x04 at Version x01
  1295.   PktInt(Pkt, $00060001, 4);                    //Family x06 at Version x01
  1296.   PktInt(Pkt, $00090001, 4);                    //Family x09 at Version x01
  1297.   PktInt(Pkt, $000A0001, 4);                    //Family x0A at Version x01
  1298.   PktInt(Pkt, $000B0001, 4);                    //Family x0B at Version x01
  1299.   PktFinal(Pkt);                                //Finalize packet
  1300. end;
  1302. {This packet requests from the server several bits of information most
  1303. likely regarding how fast certain packets can be sent to the server and
  1304. possibly a maximum packet size as well.}
  1305. procedure CreateCLI_RATESREQUEST(Pkt: PRawPkt; var Seq: Word);
  1306. begin
  1307.   PktInit(Pkt, 2, Seq);                         //Channel 2
  1308.   PktSnac(Pkt, $01, $06, 0, 0);                 //Snac: Type x01/x06, ID x0000, Flags 0
  1309.   PktFinal(Pkt);                                //Finalize packet
  1310. end;
  1312. {This packet is sent in response to the SRV_RATES SNAC(1,7). This
  1313. packet contains the same group numbers as was in the SRV_RATES
  1314. packet and is an acknowledgement of their receipt.}
  1315. procedure CreateCLI_ACKRATES(Pkt: PRawPkt; var Seq: Word);
  1316. begin
  1317.   PktInit(Pkt, 2, Seq);                         //Channel 2
  1318.   PktSnac(Pkt, $01, $08, 0, 0);                 //Type x01/x08, ID x0000, Flags 0
  1319.   PktInt(Pkt, $0001, 2);                        //Group1 - 0x0001
  1320.   PktInt(Pkt, $0002, 2);                        //Group2 - 0x0002
  1321.   PktInt(Pkt, $0003, 2);                        //Group3 - 0x0003
  1322.   PktInt(Pkt, $0004, 2);                        //Group4 - 0x0004
  1323.   PktInt(Pkt, $0005, 2);                        //Group5 - 0x0005
  1324.   PktFinal(Pkt);                                //Finalize packet
  1325. end;
  1327. {This command requests from the server certain information
  1328. about the client that is stored on the server}
  1329. procedure CreateCLI_REQINFO(Pkt: PRawPkt; var Seq: Word);
  1330. begin
  1331.   PktInit(Pkt, 2, Seq);                         //Channel 2
  1332.   PktSnac(Pkt, $01, $0E, 0, 0);                 //Snac: Type x01/x0E, ID x0000, Flags 0
  1333.   PktFinal(Pkt);                                //Finalize packet
  1334. end;
  1336. {Unknown}
  1337. procedure CreateCLI_REQUNKNOWN(Pkt: PRawPkt; var Seq: Word);
  1338. begin
  1339.   PktInit(Pkt, 2, Seq);                         //Channel 2
  1340.   PktSnac(Pkt, $13, $02, 0, 0);                 //Snac: Type x13/x02, ID x0000, Flags 0
  1341.   PktFinal(Pkt);                                //Finalize packet
  1342. end;
  1344. {This command, like CLI_CHECKROSTER, requests the server side contact list.
  1345. The difference between CLI_REQROSTER and CLI_CHECKROSTER is that CLI_REQROSTER
  1346. has no parameters, and always causes SRV_REPLYROSTER (rather than
  1347. SRV_REPLYROSTEROK). My guess is that CLI_REQROSTER is sent instead of
  1348. CLI_CHECKROSTER when the client does not have a cached copy of the contact
  1349. list; ie, the first time a user logs in with a particular client.}
  1350. procedure CreateCLI_REQROSTER(Pkt: PRawPkt; var Seq: Word);
  1351. begin
  1352.   PktInit(Pkt, 2, Seq);                         //Channel 2
  1353.   PktSnac(Pkt, $13, $04, $00010004, 0);         //Snac: Type x13/x04, ID x00010004, Flags 0
  1354.   PktFinal(Pkt);                                //Finalize packet
  1355. end;
  1357. {Synchronizes the server side contact list with the client's.
  1358. If the passed values match those on the server, SNAC(13,F)
  1359. SRV_REPLYROSTEROK will be returned. If the values are older
  1360. than what is on the server then SNAC(13,6) SRV_REPLYROSTER will
  1361. be returned.}
  1362. procedure CreateCLI_CHECKROSTER(Pkt: PRawPkt; var Seq: Word);
  1363. begin
  1364.   PktInit(Pkt, 2, Seq);                         //Channel 2
  1365.   PktSnac(Pkt, $13, $05, $00010005, 0);         //Snac: Type x13/x05, ID x00010005, Flags 0
  1366.   PktInt(Pkt, $3C36D709, 4);                    //time(NULL), The last modification time of the server side contact list.
  1367.   PktInt(Pkt, $0000, 2);                        //Size of server side contact list.
  1368.   PktFinal(Pkt);                                //Finalize packet
  1369. end;
  1371. {Request rights information for location service. This is from
  1372. the OSCAR document.}
  1373. procedure CreateCLI_REQLOCATION(Pkt: PRawPkt; var Seq: Word);
  1374. begin
  1375.   PktInit(Pkt, 2, Seq);                         //Channel 2
  1376.   PktSnac(Pkt, $02, $02, 0, 0);                 //Snac: Type x02/x02, ID x0000, Flags 0
  1377.   PktFinal(Pkt);                                //Finalize packet
  1378. end;
  1380. {Request rights information for buddy service. This from the OSCAR document.}
  1381. procedure CreateCLI_REQBUDDY(Pkt: PRawPkt; var Seq: Word);
  1382. begin
  1383.   PktInit(Pkt, 2, Seq);                         //Channel 2
  1384.   PktSnac(Pkt, $03, $02, 0, 0);                 //Snac: Type x03/x02, ID x0000, Flags 0
  1385.   PktFinal(Pkt);                                //Finalize packet
  1386. end;
  1388. {Request rights information for ICBM (instant messages) operations. This
  1389. from the OSCAR document.}
  1390. procedure CreateCLI_REQICBM(Pkt: PRawPkt; var Seq: Word);
  1391. begin
  1392.   PktInit(Pkt, 2, Seq);                         //Channel 2
  1393.   PktSnac(Pkt, $04, $04, 0, 0);                 //Snac: Type x04/x04, ID x0000, Flags 0
  1394.   PktFinal(Pkt);                                //Finalize packet
  1395. end;
  1397. {Request BOS rights. This from the OSCAR document.}
  1398. procedure CreateCLI_REQBOS(Pkt: PRawPkt; var Seq: Word);
  1399. begin
  1400.   PktInit(Pkt, 2, Seq);                         //Channel 2
  1401.   PktSnac(Pkt, $09, $02, 0, 0);                 //Snac: Type x09/x02, ID x0000, Flags 0
  1402.   PktFinal(Pkt);                                //Finalize packet
  1403. end;
  1405. {This packet sends the client's capabilities information to the server.}
  1406. procedure CreateCLI_SETUSERINFO(Pkt: PRawPkt; var Seq: Word);
  1407. const
  1408.   caps: array[0..$40 - 1] of Byte = (
  1409.     $09, $46, $13, $49, $4C, $7F, $11, $D1, $82, $22, $44, $45, $53, $54, $00, $00,
  1410.     $97, $B1, $27, $51, $24, $3C, $43, $34, $AD, $22, $D6, $AB, $F7, $3F, $14, $92,
  1411.     $2E, $7A, $64, $75, $FA, $DF, $4D, $C8, $88, $6F, $EA, $35, $95, $FD, $B6, $DF,
  1412.     $09, $46, $13, $44, $4C, $7F, $11, $D1, $82, $22, $44, $45, $53, $54, $00, $00
  1413.   );
  1414. begin
  1415.   PktInit(Pkt, 2, Seq);                         //Channel 2
  1416.   PktSnac(Pkt, $02, $04, 0, 0);                 //Snac: Type x02/x04, ID x0000, Flags 0
  1417.   PktTLV(Pkt, 5, Length(caps), @caps);          //Client's capabilities
  1418.   PktFinal(Pkt);                                //Finalize packet
  1419. end;
  1421. {This packet seems to change some of the values passed from the server
  1422. in SRV_REPLYICBM SNAC(4,5).}
  1423. procedure CreateCLI_SETICBM(Pkt: PRawPkt; var Seq: Word);
  1424. begin
  1425.   PktInit(Pkt, 2, Seq);                         //Channel 2
  1426.   PktSnac(Pkt, $04, $02, 0, 0);                 //Snac: Type x04/x02, ID x0000, Flags 0
  1427.   PktInt(Pkt, 0, 4);                            //0, Unknown; Numbers similar to x04/x05
  1428.   PktInt(Pkt, $0003, 2);                        //3, Unknown
  1429.   PktInt(Pkt, $1F40, 2);                        //8000, Unknown
  1430.   PktInt(Pkt, $03E7, 2);                        //999, Unknown
  1431.   PktInt(Pkt, $03E7, 2);                        //999, Unknown
  1432.   PktInt(Pkt, 0, 4);                            //0, Unknown
  1433.   PktFinal(Pkt);                                //Finalize packet
  1434. end;
  1436. {This sets the clients online status code and some other direct client
  1437. to client information as well. Used in login sequence.}
  1438. procedure CreateCLI_SETSTATUS(Pkt: PRawPkt; Status: LongWord; IP: LongInt; Port: Word; Cookie: LongWord; ProxyType: TProxyType; var Seq: Word);
  1439. var
  1440.   lpkt: TRawPkt;
  1441. begin
  1442.   PktInit(Pkt, 2, Seq);                         //Channel 2
  1443.   PktSnac(Pkt, $01, $1E, 0, 0);                 //Snac: Type x01/x1E, ID x0000, Flags 0
  1444.   PktTLV(Pkt, $06, 4, Status);                  //TLV(06) Status
  1445.   PktTLV(Pkt, $08, 2, 0);                       //TLV(08) Error code
  1446.   PktInitRaw(@lpkt);
  1447.   //{$R-}
  1448.   PktInt(@lpkt, Swap32(IP), 4);                 //The client computer's local IP address.(internal)
  1449.   //{$R+}
  1450.   PktInt(@lpkt, Port, 4);                       //This is the port to connect with when making client to client connections.
  1451.   if ProxyType = P_NONE then
  1452.     PktInt(@lpkt, $04, 1)                       //01 = Firewall (or HTTPS proxy); 02 = SOCKS4/5 proxy; 04 = 'normal' connection
  1453.   else if (ProxyType = P_SOCKS4) or (ProxyType = P_SOCKS5) then
  1454.     PktInt(@lpkt, $02, 1);
  1455.   PktInt(@lpkt, $0008, 2);                      //The highest client to client protocol version this client uses.
  1456.   PktInt(@lpkt, Cookie, 4);                     //Probably a direct client to client connection cookie.
  1457.   PktInt(@lpkt, $0000, 2);                      //0, Unknown
  1458.   PktInt(@lpkt, $0050, 2);                      //80, Unknown
  1459.   PktInt(@lpkt, $0000, 2);                      //0, Unknown
  1460.   PktInt(@lpkt, $0003, 2);                      //Count: 3
  1461.     //Theese are used in miranda-icq
  1462.     //PktInt(@lpkt, $FFFFFFFF, 4);                  //time(NULL): Wed Sep 19 13:53:51 2001
  1463.     //PktInt(@lpkt, $00010201, 4);                  //time(NULL): Thu Nov 08 22:54:27 2001
  1464.     //PktInt(@lpkt, $3B7248ED, 4);                  //time(NULL): Thu Nov 08 22:49:54 2001
  1465.   PktInt(@lpkt, $00000000, 4);                  //time(NULL)
  1466.   PktInt(@lpkt, $00000000, 4);                  //time(NULL)
  1467.   PktInt(@lpkt, $00000000, 4);                  //time(NULL)
  1468.   PktInt(@lpkt, $0000, 2);                      //0, Unknown
  1469.   PktTLV(Pkt, $0C, lpkt.len, @lpkt.Data);       //TLV(0C)
  1470.   PktFinal(Pkt);                                //Finalize packet
  1471. end;
  1473. {Set client's online status after login.}
  1474. procedure CreateCLI_SETSTATUS_SHORT(Pkt: PRawPkt; Status: LongWord; var Seq: Word);
  1475. begin
  1476.   PktInit(Pkt, 2, Seq);                         //Channel 2
  1477.   PktSnac(Pkt, $01, $1E, 0, 0);                 //Snac: Type x01/x1E, ID x0000, Flags 0
  1478.   PktTLV(Pkt, $06, 4, Status);                  //TLV(06) Status
  1479.   PktFinal(Pkt);                                //Finalize packet
  1480. end;
  1482. {This packet seems to pass the SNAC Families and their versions
  1483. along with some unknown other information back to the server.}
  1484. procedure CreateCLI_READY(Pkt: PRawPkt; var Seq: Word);
  1485. const
  1486.   buf: array[0..79] of Byte = (
  1487.     $00, $01, $00, $03, $01, $10, $04, $7B,
  1488.     $00, $13, $00, $02, $01, $10, $04, $7B,
  1489.     $00, $02, $00, $01, $01, $01, $04, $7B,
  1490.     $00, $03, $00, $01, $01, $10, $04, $7B,
  1491.     $00, $15, $00, $01, $01, $10, $04, $7B,
  1492.     $00, $04, $00, $01, $01, $10, $04, $7B,
  1493.     $00, $06, $00, $01, $01, $10, $04, $7B,
  1494.     $00, $09, $00, $01, $01, $10, $04, $7B,
  1495.     $00, $0A, $00, $01, $01, $10, $04, $7B,
  1496.     $00, $0B, $00, $01, $01, $10, $04, $7B
  1497.   );
  1498. begin
  1499.   PktInit(Pkt, 2, Seq);                         //Channel 2
  1500.   PktSnac(Pkt, $01, $02, 0, 0);                 //Snac: Type x01/x02, ID x0000, Flags 0
  1501.   PktAddArrBuf(Pkt, @buf, SizeOf(buf));         //Number sequence matches SNAC(x01/x17)
  1502.   PktFinal(Pkt);                                //Finalize packet
  1503. end;
  1505. {This packet seems to act as an interface between the AIM OSCAR-based server
  1506. and the old original ICQ server database.}
  1507. procedure CreateCLI_TOICQSRV(Pkt: PRawPkt; UIN: LongWord; Command: Word; Data: Pointer; DataLen: LongWord; var Seq, Seq2: Word);
  1508. var
  1509.   lpkt: TRawPkt;
  1510.   len: Word;
  1511. begin
  1512.   PktInit(Pkt, 2, Seq);                         //Channel 2
  1513.   if Seq2 = 2 then
  1514.     PktSnac(Pkt, $15, $02, $00010002, 0)        //Snac: Type x15/x02, ID x00010002, Flags 0
  1515.   else
  1516.     PktSnac(Pkt, $15, $02, $00000000, 0);       //Snac: Type x15/x02, ID x00000000, Flags 0
  1517.   PktInitRaw(@lpkt);
  1518.   Inc(lpkt.Len, 2);
  1519.   PktInt(@lpkt, Swap32(UIN), 4);
  1520.   PktInt(@lpkt, Swap16(Command), 2);
  1521.   PktInt(@lpkt, Swap16(Seq2), 2);
  1522.   PktAddArrBuf(@lpkt, Data, DataLen);
  1523.   //Store remaining size
  1524.   len := lpkt.Len;
  1525.   lpkt.Len := 0;
  1526.   PktLInt(@lpkt, len - 2, 2);
  1527.   lpkt.Len := len;
  1528.   //--
  1529.   PktTLV(Pkt, 1, lpkt.Len, @lpkt);
  1530.   PktFinal(Pkt);
  1531.   Inc(Seq2);
  1532. end;
  1534. {This is sent at login and when you add a new user to your
  1535. contact list. It contains a list of all the uin's in you're
  1536. contact list. ****May be repeated multiple times****}
  1537. procedure CreateCLI_ADDCONTACT(Pkt: PRawPkt; UIN: String; var Seq: Word);
  1538. begin
  1539.   PktInit(Pkt, 2, Seq);                         //Channel 2
  1540.   PktSnac(Pkt, $03, $04, 0, 0);                 //Snac: Type x03/x04, ID x0000, Flags 0
  1541.   PktLStr(Pkt, UIN);                            //UIN
  1542.   PktFinal(Pkt);                                //Finalize packet
  1543. end;
  1545. {Sent to remove contacts from contact list.}
  1546. procedure CreateCLI_REMOVECONTACT(Pkt: PRawPkt; UIN: LongWord; var Seq: Word);
  1547. begin
  1548.   PktInit(Pkt, 2, Seq);                         //Channel 2
  1549.   PktSnac(Pkt, $03, $05, 0, 0);                 //Snac: Type x03/x05, ID x0000, Flags 0
  1550.   PktLStr(Pkt, IntToStr(UIN));                  //List of UINs to remove from contact list.
  1551.   PktFinal(Pkt);                                //Finalize packet
  1552. end;
  1554. {Add UINs to your visible list.}
  1555. procedure CreateCLI_ADDVISIBLE(Pkt: PRawPkt; UINs: TStrings; var Seq: Word);
  1556. var
  1557.   i: Word;
  1558. begin
  1559.   PktInit(Pkt, 2, Seq);                         //Channel 2
  1560.   PktSnac(Pkt, $09, $05, 0, 0);                 //Snac: Type x09/x05, ID x0000, Flags 0
  1561.   if UINs.Count > 0 then
  1562.     for i := 0 to UINs.Count - 1 do
  1563.       PktLStr(Pkt, UINs.Strings[i]);
  1564.   PktFinal(Pkt);                                //Finalize packet
  1565. end;
  1567. {Remove UINs from your visible list.}
  1568. procedure CreateCLI_REMVISIBLE(Pkt: PRawPkt; UIN: LongWord; var Seq: Word);
  1569. begin
  1570.   PktInit(Pkt, 2, Seq);                         //Channel 2
  1571.   PktSnac(Pkt, $09, $06, 0, 0);                 //Snac: Type x09/x05, ID x0000, Flags 0
  1572.   PktLStr(Pkt, IntToStr(UIN));                  //The UINs to remove from your invisible list.
  1573.   PktFinal(Pkt);                                //Finalize packet
  1574. end;
  1576. {List of UINs to add to invisible list. ****May be repeated multiple times****}
  1577. procedure CreateCLI_ADDINVISIBLE(Pkt: PRawPkt; UINs: TStrings; var Seq: Word);
  1578. var
  1579.   i: Word;
  1580. begin
  1581.   PktInit(Pkt, 2, Seq);                         //Channel 2
  1582.   PktSnac(Pkt, $09, $07, 0, 0);                 //Snac: Type x09/x05, ID x0000, Flags 0
  1583.   if UINs.Count > 0 then
  1584.     for i := 0 to UINs.Count - 1 do
  1585.       PktLStr(Pkt, UINs.Strings[i]);
  1586.   PktFinal(Pkt);                                //Finalize packet
  1587. end;
  1589. {Remove UINs from your invisible list...}
  1590. procedure CreateCLI_REMINVISIBLE(Pkt: PRawPkt; UIN: LongWord; var Seq: Word);
  1591. begin
  1592.   PktInit(Pkt, 2, Seq);                         //Channel 2
  1593.   PktSnac(Pkt, $09, $08, 0, 0);                 //Snac: Type x09/x05, ID x0000, Flags 0
  1594.   PktLStr(Pkt, IntToStr(UIN));                  //The UINs to remove from your invisible list.
  1595.   PktFinal(Pkt);                                //Finalize packet
  1596. end;
  1598. {Acknowledge the receipt of all offline messages.}
  1599. procedure CreateCLI_ACKOFFLINEMSGS(Pkt: PRawPkt; UIN: LongWord; var Seq, Seq2: Word);
  1600. begin
  1601.   CreateCLI_TOICQSRV(Pkt, UIN, CMD_ACKOFFMSG, nil, 0, Seq, Seq2);
  1602. end;
  1604. {Send a message.}
  1605. procedure CreateCLI_SENDMSG(Pkt: PRawPkt; ITime, IRandom, UIN: LongWord; const Msg: String; var Seq: Word);
  1606. var
  1607.   lpkt: TRawPkt;
  1608.   pmsg: TRawPkt;
  1609. begin
  1610.   PktInit(Pkt, 2, Seq);                         //Channel 2
  1611.   PktSnac(Pkt, $04, $06, 0, 0);                 //Snac: Type x04/x06, ID x0000, Flags 0
  1612.   PktInt(Pkt, ITime, 4);                        //MID
  1613.   PktInt(Pkt, IRandom, 4);                      //MID
  1614.   PktInt(Pkt, 1, 2);                            //type, 1 - text messages
  1615.   PktLStr(Pkt, UIN);                            //The UIN to send the message to.
  1616.   PktInitRaw(@lpkt);                            //Allocate packet for incapsulated TLV(02)
  1617.   PktTLV(@lpkt, 1281, 1, 1);                    //Unknown: 0x1 = 1.
  1618.   PktInitRaw(@pmsg);                            //Allocate packet for incapsulated TLV(257)
  1619.   PktInt(@pmsg, 0, 4);                          //Unknown: empty. vICQ uses 00 00 ff ff.
  1620.   PktStr(@pmsg, Msg);                           //Finally, the message to send.
  1621.   PktTLV(@lpkt, 257, pmsg.Len, @pmsg);          //Add TLV(257)
  1622.   PktTLV(Pkt, 2, lpkt.Len, @lpkt);              //Add TLV(2)
  1623.   PktTLV(Pkt, 6, 0, 0);                         //Always present empty TLV.
  1624.   PktFinal(Pkt);                                //Finalize packet
  1625. end;
  1627. {Send an URL.}
  1628. procedure CreateCLI_SENDURL(Pkt: PRawPkt; ITime, IRandom, MyUIN, UIN: LongWord; const URL, Description: String; var Seq: Word);
  1629. var
  1630.   lpkt: TRawPkt;
  1631.   S: String;
  1632. begin
  1633.   PktInit(Pkt, 2, Seq);                         //Channel 2
  1634.   PktSnac(Pkt, $04, $06, 0, 0);                 //Snac: Type x04/x06, ID x0000, Flags 0
  1635.   PktInt(Pkt, ITime, 4);                        //MID
  1636.   PktInt(Pkt, IRandom, 4);                      //MID
  1637.   PktInt(Pkt, 4, 2);                            //type, 1 - url etc messages
  1638.   PktLStr(Pkt, UIN);                            //The UIN to sent the message to.
  1639.   PktInitRaw(@lpkt);                            //Allocate packet for incapsulated TLV(5)
  1640.   PktLInt(@lpkt, MyUIN, 4);                     //My UIN.
  1641.   PktInt(@lpkt, 4, 1);                          //The message type as in the old protocol.
  1642.   PktInt(@lpkt, 0, 1);                          //Unknown flags; possibly the message flags.
  1643.   S := Description + #$fe + URL;                //Concatinate: Decription + 0xFE + URL
  1644.   PktLNTS(@lpkt, S);                            //Finally the URL to send.
  1645.   PktTLV(Pkt, 5, lpkt.Len, @lpkt);              //Add TLV(5)
  1646.   PktTLV(Pkt, 6, 0, 0);                         //Always present empty TLV.
  1647.   PktFinal(Pkt);                                //Finalize packet
  1648. end;
  1650. {Grant another user's request for authorization (in response to SRV_AUTH_REQ).}
  1651. procedure CreateCLI_AUTHORIZE(Pkt: PRawPkt; UIN: LongWord; Auth: Byte; Reason: String; var Seq: Word);
  1652. begin
  1653.   if Auth = 1 then Reason := '';
  1654.   PktInit(Pkt, 2, Seq);                         //Channel 2
  1655.   PktSnac(Pkt, $13, $1A, 0, 0);                 //Snac: Type x13/x1A, ID x0000, Flags 0
  1656.   PktLStr(Pkt, UIN);                            //UIN of the user to authorize.
  1657.   PktInt(Pkt, Auth, 1);                         //Decline or authorize the contact add request: 00 - decline, 01 - authorize
  1658.   PktInt(Pkt, Length(Reason), 2);               //Length of the following reason; always 0 for authorize.
  1659.   PktStr(Pkt, Reason);                          //Reason for declining authorization as ASCII string.
  1660.   PktInt(Pkt, 0, 2);                            //Unknown: empty.
  1661.   PktFinal(Pkt);                                //Finalize packet
  1662. end;
  1664. {Request information about another user.}
  1665. procedure CreateCLI_METAREQINFO(Pkt: PRawPkt; UIN, dUIN: LongWord; var Seq, Seq2: Word);
  1666. var
  1667.   lpkt: TRawPkt;
  1668. begin
  1669.   PktInitRaw(@lpkt);
  1670.   PktLInt(@lpkt, $04b2, 2); //CLI_METAREQINFO 0x04d0, ICQ 2002a sends 0xb204
  1671.   PktLInt(@lpkt, dUIN, 4);
  1672.   CreateCLI_TOICQSRV(Pkt, UIN, $07D0, @lpkt, lpkt.Len, Seq, Seq2);
  1673. end;
  1675. {Searches user by email.}
  1676. procedure CreateCLI_SEARCHBYMAIL(Pkt: PRawPkt; UIN: LongWord; const Email: String; var Seq, Seq2: Word);
  1677. var
  1678.   lpkt: TRawPkt;
  1679. begin
  1680.   PktInitRaw(@lpkt);
  1681.   PktInt(@lpkt, $7305, 2); //CLI_SEARCHBYMAIL
  1682.   PktInt(@lpkt, $5e01, 2); //The key to search for: 0x15e = 350 = email address
  1683.   PktLLNTS(@lpkt, Email);  //The email address to search for.
  1684.   CreateCLI_TOICQSRV(Pkt, UIN, $07D0, @lpkt, lpkt.Len, Seq, Seq2); //Incapsulate in CLI_TOICQSRV
  1685. end;
  1687. {Searches user by UIN.}
  1688. procedure CreateCLI_SEARCHBYUIN(Pkt: PRawPkt; UIN: LongWord; DUIN: LongWord; var Seq, Seq2: Word);
  1689. var
  1690.   lpkt: TRawPkt;
  1691. begin
  1692.   PktInitRaw(@lpkt);
  1693.   PktInt(@lpkt, $6905, 2); //CLI_SEARCHBYUIN
  1694.   PktInt(@lpkt, $3601, 2); //The key to search for: 0x15e = 350 = email address
  1695.   PktInt(@lpkt, $0400, 2); //Length of the following data
  1696.   PktInt(@lpkt, Swap32(DUIN), 4); //UIN
  1697.   CreateCLI_TOICQSRV(Pkt, UIN, $07D0, @lpkt, lpkt.Len, Seq, Seq2); //Incapsulate in CLI_TOICQSRV
  1698. end;
  1700. {Search for a user by most common options.}
  1701. procedure CreateCLI_SEARCHBYNAME(Pkt: PRawPkt; UIN: LongWord; const FirstName, LastName, NickName, Email: String; var Seq, Seq2: Word);
  1702. var
  1703.   lpkt: TRawPkt;
  1704. begin
  1705.   PktInitRaw(@lpkt);
  1706.   PktInt(@lpkt, $5F05, 2);      //CLI_SEARCHBYNAME
  1707.   if Length(FirstName) <> 0 then
  1708.   begin
  1709.     PktInt(@lpkt, $4001, 2);    //The key to search for: 0x140 = 320 = first name.
  1710.     PktLLNTS(@lpkt, FirstName); //The first name to search for.
  1711.   end;
  1712.   if Length(LastName) <> 0 then
  1713.   begin
  1714.     PktInt(@lpkt, $4a01, 2);    //The key to search for: 0x14a = 330 = last name.
  1715.     PktLLNTS(@lpkt, LastName);  //The last name to search for.
  1716.   end;
  1717.   if Length(NickName) <> 0 then
  1718.   begin
  1719.     PktInt(@lpkt, $5401, 2);    //The key to search for: 0x154 = 340 = nick.
  1720.     PktLLNTS(@lpkt, NickName);  //The nick name to search for.
  1721.   end;
  1722.   if Length(Email) <> 0 then
  1723.   begin
  1724.     PktInt(@lpkt, $5e01, 2);    //The key to search for: 0x15e = 350 = email address.
  1725.     PktLLNTS(@lpkt, Email);     //The email address to search for.
  1726.   end;
  1727.   CreateCLI_TOICQSRV(Pkt, UIN, $07D0, @lpkt, lpkt.Len, Seq, Seq2); //Incapsulate in CLI_TOICQSRV
  1728. end;
  1730. {Ask for a random UIN from a user in given chat group.}
  1731. procedure CreateCLI_SEARCHRANDOM(Pkt: PRawPkt; UIN: LongWord; Group: Word; var Seq, Seq2: Word);
  1732. var
  1733.   lpkt: TRawPkt;
  1734. begin
  1735.   PktInitRaw(@lpkt);
  1736.   PktInt(@lpkt, $4E07, 2); //CLI_SEARCHRANDOM Channel: 2, SNAC(21,2) 2000/1870
  1737.   PktInt(@lpkt, Swap16(Group), 2); //The random chat group to request a UIN from.
  1738.   CreateCLI_TOICQSRV(Pkt, UIN, $07D0, @lpkt, lpkt.Len, Seq, Seq2); //Incapsulate in CLI_TOICQSRV
  1739. end;
  1741. {Do an extensive search for a user.}
  1742. procedure CreateCLI_SEARCHWP(Pkt: PRawPkt; UIN: LongWord; First, Last, Nick, Email: String; MinAge, MaxAge: Word;
  1743.   Gender: Byte; Language: Byte; City: String; Country: Word; Company, Department, Position: String;
  1744.   Occupation: Byte; Organization: Word; OrganKeyWords: String; Affiliation: Word; AffiKeyWords,
  1745.   KeyWord: String; Online: Byte; var Seq, Seq2: Word);
  1746. var
  1747.   lpkt: TRawPkt;
  1748. begin
  1749.   if (Gender <> GEN_MALE) and (Gender <> GEN_FEMALE) then
  1750.     Gender := 0;                        //Don't care about gender
  1751.   PktInitRaw(@lpkt);                    //Initialize temporary packet
  1752.   PktInt(@lpkt, $5F05, 2);              //CLI_SEARCHBYPERSINF, Channel: 2, SNAC(21,2) 2000/1375
  1753.   if First <> '' then begin PktInt(@lpkt, $4001, 2); PktLLNTS(@lpkt, First); end;                                       //Fist Name
  1754.   if Last <> '' then begin PktInt(@lpkt, $4a01, 2); PktLLNTS(@lpkt, Last); end;                                         //Last Name
  1755.   if Nick <> '' then begin PktInt(@lpkt, $5401, 2); PktLLNTS(@lpkt, Nick); end;                                         //Nick Name
  1756.   if Email <> '' then begin PktInt(@lpkt, $5e01, 2); PktLLNTS(@lpkt, Email); end;                                       //Email
  1757.   if Gender <> 0 then begin PktInt(@lpkt, $7c01, 2); PktInt(@lpkt, $0100, 2); PktInt(@lpkt, Gender, 1);  end;           //Gender
  1758.   if (MinAge <> 0) and (MaxAge <> 0) then begin PktInt(@lpkt, $6801, 2); PktInt(@lpkt, $0400, 2); PktLInt(@lpkt, MinAge, 2); PktLInt(@lpkt, MaxAge, 2); end;      //Age
  1759.   if City <> '' then begin PktInt(@lpkt, $9001, 2); PktLLNTS(@lpkt, City); end;                                         //City/State
  1760.   if Country <> 0 then begin PktInt(@lpkt, $a401, 2); PktInt(@lpkt, $0200, 2); PktLInt(@lpkt, Country, 2); end;         //Country
  1761.   if Language <> 0 then begin PktInt(@lpkt, $8601, 2); PktInt(@lpkt, $0200, 2); PktLInt(@lpkt, Language, 2); end;       //Language
  1762.   if Company <> '' then begin PktInt(@lpkt, $ae01, 2); PktLLNTS(@lpkt, Company); end;                                   //Company
  1763.   if Department <> '' then begin PktInt(@lpkt, $b801, 2); PktLLNTS(@lpkt, Department); end;                             //Department
  1764.   if Occupation <> 0 then begin PktInt(@lpkt, $cc01, 2); PktInt(@lpkt, $0200, 2); PktLInt(@lpkt, Occupation, 2); end;   //Occupation
  1765.   if Position <> '' then begin PktInt(@lpkt, $c201, 2); PktLLNTS(@lpkt, Position); end;
  1766.   if Affiliation <> 0 then begin PktInt(@lpkt, $d601, 2); PktInt(@lpkt, 3 + Length(AffiKeyWords), 2); PktLInt(@lpkt, Affiliation, 2); PktLNTS(@lpkt, AffiKeyWords); end;     //Affiliation
  1767.   if Organization <> 0 then begin PktInt(@lpkt, $fe01, 2); PktInt(@lpkt, 3 + Length(OrganKeyWords), 2); PktLInt(@lpkt, Organization, 2); PktLNTS(@lpkt, OrganKeyWords); end; //Organization
  1768.   if KeyWord <> '' then begin PktInt(@lpkt, $2602, 2); PktLLNTS(@lpkt, KeyWord); end;                                   //Search by KeyWord
  1769.   if Online = 1 then begin PktInt(@lpkt, $3002, 2); PktInt(@lpkt, $0100, 2); PktInt(@lpkt, $01, 1); end;                //Search only online users
  1770.   CreateCLI_TOICQSRV(Pkt, UIN, $07D0, @lpkt, lpkt.Len, Seq, Seq2); //Incapsulate in CLI_TOICQSRV
  1771. end;
  1773. {Set more information about yourself.}
  1774. procedure CreateCLI_METASETMORE(Pkt: PRawPkt; UIN: LongWord; Age: Word; Gender: Byte; HomePage: String; BirthYear: Word; BirthMonth, BirthDay, Lang1, Lang2, Lang3: Byte; var Seq, Seq2: Word);
  1775. var
  1776.   lpkt: TRawPkt;
  1777. begin
  1778.   if (Gender <> GEN_MALE) and (Gender <> GEN_FEMALE) then
  1779.     Gender := 0;                //Gender not specified.
  1780.   PktInitRaw(@lpkt);            //Initialize packet
  1781.   PktInt(@lpkt, $FD03, 2);      //CLI_METASETMORE Channel: 2, SNAC(21,2) 2000/1021
  1782.   PktLInt(@lpkt, Age, 2);       //Your age.
  1783.   PktInt(@lpkt, Gender, 1);     //Your gender.
  1784.   PktLNTS(@lpkt, HomePage);     //Your personal home page.
  1785.   PktLInt(@lpkt, BirthYear, 2); //Your year of birth.
  1786.   PktInt(@lpkt, BirthMonth, 1); //Your month of birth.
  1787.   PktInt(@lpkt, BirthDay, 1);   //Your day of birth.
  1788.   PktInt(@lpkt, Lang1, 1);      //Your first language. Numbers according to a table.
  1789.   PktInt(@lpkt, Lang2, 1);      //Your second language. Numbers according to a table.
  1790.   PktInt(@lpkt, Lang3, 1);      //Your third language. Numbers according to a table.
  1791.   CreateCLI_TOICQSRV(Pkt, UIN, $07D0, @lpkt, lpkt.Len, Seq, Seq2); //Incapsulate in CLI_TOICQSRV
  1792. end;
  1794. {Set general information about yourself.}
  1795. procedure CreateCLI_METASETGENERAL(Pkt: PRawPkt; UIN: LongWord; const NickName, FirstName, LastName, Email, City, State, Phone, Fax, Street, Cellular, Zip: String; Country: Word; TimeZone: Byte; PublishEmail: Boolean; var Seq, Seq2: Word);
  1796. var
  1797.   lpkt: TRawPkt;
  1798. begin
  1799.   PktInitRaw(@lpkt);
  1800.   PktInt(@lpkt, $EA03, 2);      //CLI_METASETGENERAL Channel: 2, SNAC(21,2) 2000/1002
  1801.   PktLNTS(@lpkt, NickName);     //The nick of the user.
  1802.   PktLNTS(@lpkt, FirstName);    //The first name of the user.
  1803.   PktLNTS(@lpkt, LastName);     //The last name of the user.
  1804.   PktLNTS(@lpkt, Email);        //The email address of the user.
  1805.   PktLNTS(@lpkt, City);         //The city the user lives in.
  1806.   PktLNTS(@lpkt, State);        //The state the user lives in.
  1807.   PktLNTS(@lpkt, Phone);        //The phone number of the user.
  1808.   PktLNTS(@lpkt, Fax);          //The fax number of the user.
  1809.   PktLNTS(@lpkt, Street);       //The street the user lives in.
  1810.   PktLNTS(@lpkt, Cellular);     //The cell phone number of the user.
  1811.   PktLNTS(@lpkt, Zip);          //The zip code of the user.
  1812.   PktLInt(@lpkt, Country, 2);   //The country the user lives in according to a table.
  1813.   PktInt(@lpkt, TimeZone, 1);   //The timezone the user lives in, as multiples of 30minutes relative to UTC.
  1814.   PktInt(@lpkt, Ord(PublishEmail), 1); //Publush email: 1 = yes, 0 = no. 
  1815.   CreateCLI_TOICQSRV(Pkt, UIN, $07D0, @lpkt, lpkt.Len, Seq, Seq2); //Incapsulate in CLI_TOICQSRV
  1816. end;
  1818. {Set the about string.}
  1819. procedure CreateCLI_METASETABOUT(Pkt: PRawPkt; UIN: LongWord; const About: String; var Seq, Seq2: Word);
  1820. var
  1821.   lpkt: TRawPkt;
  1822. begin
  1823.   PktInitRaw(@lpkt);
  1824.   PktInt(@lpkt, $0604, 2);      //CLI_METASETABOUT Channel: 2, SNAC(21,2) 2000/1030
  1825.   PktLNTS(@lpkt, About);        //The about information string to set.
  1826.   CreateCLI_TOICQSRV(Pkt, UIN, $07D0, @lpkt, lpkt.Len, Seq, Seq2); //Incapsulate in CLI_TOICQSRV
  1827. end;
  1829. {Send SMS message.}
  1830. procedure CreateCLI_SENDSMS(Pkt: PRawPkt; UIN: LongWord; const Destination, Text: String; CodePage: Word; const Time: String; var Seq, Seq2: Word);
  1831. var
  1832.   lpkt: TRawPkt;
  1833.   S: String;
  1834. begin
  1835.   PktInitRaw(@lpkt);
  1836.   PktInt(@lpkt, $8214, 2);      //CLI_SENDSMS Channel: 2, SNAC(21,2) 2000/5250
  1837.   PktInt(@lpkt, $0001, 2);      //Unknown: 0x1 = 1.
  1838.   PktInt(@lpkt, $0016, 2);      //Unknown: 0x16 = 22.
  1839.   PktInt(@lpkt, 0, 4);
  1840.   PktInt(@lpkt, 0, 4);
  1841.   PktInt(@lpkt, 0, 4);
  1842.   PktInt(@lpkt, 0, 4);
  1843.   //Format message
  1844.   S := '<icq_sms_message>' +
  1845.        '<destination>' + Destination + '</destination>' +
  1846.        '<text>' + StrToUTF8(Text) + '</text>' +
  1847.        '<codepage>' + IntToStr(CodePage) + '</codepage>' +
  1848.        '<senders_UIN>' + IntToStr(UIN) + '</senders_UIN>' +
  1849.        '<senders_name>TICQClient</senders_name>' +
  1850.        '<delivery_receipt>Yes</delivery_receipt>' +
  1851.        '<time>' + Time + '</time>' +
  1852.        '</icq_sms_message>';
  1853.   PktTLV(@lpkt, 0, S);          //The message as a XML entity
  1854.   CreateCLI_TOICQSRV(Pkt, UIN, $07D0, @lpkt, lpkt.Len, Seq, Seq2); //Incapsulate in CLI_TOICQSRV
  1855. end;
  1857. {Sends a messaged/request with advanced options}
  1858. procedure CreateCLI_SENDADVMSG_CUSTOM(Pkt: PRawPkt; FFSeq: Word; ITime, IRandom, UIN: LongWord; CMD, MSGTYPE: Byte; ACMD: Word; const Msg: String; Data: Pointer; DataLen: LongWord; RTFFormat: Boolean; var Seq: Word; Accept: Boolean = True);
  1859. var
  1860.   lpTLV05: TRawPkt;
  1861.   lpTLV2711: TRawPkt;
  1862. const
  1863.   StrGuid: String = '{97B12751-243C-4334-AD22-D6ABF73F1492}';
  1864.   Capabilities: array[0..15] of Byte = ($09, $46, $13, $49, $4C, $7F, $11, $D1,
  1865.                                         $82, $22, $44, $45, $53, $54, $00, $00);
  1866. begin
  1867.   PktInit(Pkt, 2, Seq);                         //Channel 2
  1868.   PktSnac(Pkt, $04, $06, 0, 0);                 //Snac: Type x04/x06, ID x0000, Flags 0
  1869.   PktInt(Pkt, ITime, 4);                        //Seems to be a time stamp in 1/1500 sec since 8am of that Sunday.
  1870.   PktInt(Pkt, IRandom, 2);                      //A seemingly random ID generated for each message.
  1871.   PktInt(Pkt, $00000002, 4);                    //The message type used
  1872.   PktLStr(Pkt, UIN);                            //Destination UIN.
  1874.   PktInitRaw(@lpTLV2711);                       //TLV(2711)
  1875.   PktInt(@lpTLV2711, $1b, 1);                   //If this value is not present, this is not a message packet.
  1876.   PktInt(@lpTLV2711, $0008, 2);                 //This is the version of the TCP protocol that the sending client uses.
  1877.   PktInt(@lpTLV2711, $00, 1);                   //Unknown
  1878.   PktInt(@lpTLV2711, $00000000, 4);             //Caps, empty
  1879.   PktInt(@lpTLV2711, $00000000, 4);             //Caps, empty
  1880.   PktInt(@lpTLV2711, $00000000, 4);             //Caps, empty
  1881.   PktInt(@lpTLV2711, $00000000, 4);             //Caps, empty
  1882.   PktInt(@lpTLV2711, $0000, 2);                 //Unknown
  1883.   PktInt(@lpTLV2711, $03, 1);                   //Unknown
  1884.   PktInt(@lpTLV2711, $00000000, 4);             //0 = normal message, 4 = file ok or file request.
  1885.   PktInt(@lpTLV2711, FFSeq, 2);                 //SEQ1
  1886.   PktInt(@lpTLV2711, $0e00, 2);                 //Unknown, seen: 0x1200 and 0x0e00.
  1887.   PktInt(@lpTLV2711, FFSeq, 2);                 //SEQ1
  1888.   PktInt(@lpTLV2711, $00000000, 4);             //Unknown, always zero.
  1889.   PktInt(@lpTLV2711, $00000000, 4);             //Unknown, always zero.
  1890.   PktInt(@lpTLV2711, $00000000, 4);             //Unknown, always zero.
  1891.   PktInt(@lpTLV2711, CMD, 1);                   //0x01 - normal message, 0x1a - filerequest/response, contacts
  1892.   PktInt(@lpTLV2711, MSGTYPE, 1);               //00 - normal message 80 - multiple recipients 03 - auto reply message request.
  1893.   PktInt(@lpTLV2711, $0000, 2);                 //Usually 0, seen 0x2000.
  1894.   PktInt(@lpTLV2711, $0000, 2);                 //Usually 0, seen 0x0002 in information request messages.
  1896.   if Length(Msg) = 0 then
  1897.   begin
  1898.     PktLInt(@lpTLV2711, $0001, 2);              //Length of the message
  1899.     PktInt(@lpTLV2711, $00, 1);                 //The message should always have null terminator, event if it's empty
  1900.   end else
  1901.     PktLNTS(@lpTLV2711, Msg);                   //The message!
  1903.   if CMD = $01 then
  1904.   begin
  1905.     PktInt(@lpTLV2711, $00000000, 4);           //Only present in actual real messages, this will be the background color of the text box in RGB0 format.
  1906.     PktInt(@lpTLV2711, $FFFFFF00, 4);           //Only present in actual real messages, this will be the text color of the message in RGB0 format.
  1907.   end else
  1908.     PktAddArrBuf(@lpTLV2711, Data, DataLen);    //Add packet specific data
  1910.   if RTFFormat then                             //If we are using RTF format, then add GUID
  1911.   begin
  1912.     PktLInt(@lpTLV2711, Length(StrGuid), 4);    //This is a little-endian string length of the following GUID. This is only present in real messages sent by the latest 2001b client build 3659.
  1913.     PktStr(@lpTLV2711, StrGuid);                //This GUID seems to indicate that the client is capable of handling Multibyte Wide Character Strings as messages. Only present in real messages sent by build 3659 2001b clients.
  1914.   end;
  1916.   PktInitRaw(@lpTLV05);                         //TLV(05)
  1917.   PktInt(@lpTLV05, $0000, 2);                   //0x0000 - normal message
  1918.   PktInt(@lpTLV05, ITime, 4);                   //Seems to be a time stamp in 1/1500 sec since 8am of that Sunday.
  1919.   PktInt(@lpTLV05, IRandom, 2);                 //A seemingly random ID generated for each message.
  1920.   PktInt(@lpTLV05, $0000, 2);                   //Unknown: 0.
  1921.   PktAddArrBuf(@lpTLV05, @Capabilities, 16);    //One of the capabilities sent in CLI_SETUSERINFO
  1922.   PktTLV(@lpTLV05, $000a, 2, ACMD);             //0x0001 - normal message 0x0002 - file ack or file ok
  1923.   PktTLV(@lpTLV05, $000f, 0, $00);              //Unknown, empty.
  1924.   //PktTLV(@lpTLV05, $0003, $0004, $c0a86516);    //Timestamp
  1925.   //PktTLV(@lpTLV05, $0005, $0002, $5d3c);        //Unknown
  1927.   PktTLV(@lpTLV05, $2711, lpTLV2711.Len, @lpTLV2711); //Incapsulate TLV2711 into TLV05
  1929.   PktTLV(Pkt, $05, lpTLV05.Len, @lpTLV05);      //Incapsulate TLV05 into Pkt
  1931.   PktTLV(Pkt, $0003, 0, 0);                     //Unknown, empty TLV(03)
  1932.   PktFinal(Pkt);                                //Finalize packet
  1933. end;
  1935. {Sends a messaged with advanced options}
  1936. procedure CreateCLI_SENDMSG_ADVANCED(Pkt: PRawPkt; ITime, IRandom, UIN: LongWord; const Msg: String; RTFFormat: Boolean; var Seq: Word);
  1937. begin
  1938.   CreateCLI_SENDADVMSG_CUSTOM(Pkt, $FFFF, ITime, IRandom, UIN, $01, $00, $0001, Msg, nil, 0, RTFFormat, Seq, True);
  1939. end;
  1941. {Sends an ack  with advanced options}
  1942. procedure CreateCLI_SENDMSG_FILEACK(Pkt: PRawPkt; FFSeq: Word; ITime, IRandom, UIN, FileSize: LongWord; const FileDesc, FileName: String; Port: Word; var Seq: Word);
  1943. var