PBYTE icq_httpGatewayUnwrapRecv(NETLIBHTTPREQUEST* nlhr, PBYTE buf, int len, int* outBufLen, void *(*NetlibRealloc)(void *, size_t))
{
WORD wLen, wType;
DWORD dwPackSeq;
PBYTE tbuf;
int i, copyBytes;
tbuf = buf;
for(i = 0;;)
{
if (tbuf - buf + 2 > len)
break;
unpackWord(&tbuf, &wLen);
if (wLen < 12)
break;
if (tbuf - buf + wLen > len)
break;
tbuf += 2; /* version */
unpackWord(&tbuf, &wType);
tbuf += 4; /* flags */
unpackDWord(&tbuf, &dwPackSeq);
if (wType == HTTP_PACKETTYPE_FLAP)
{ // it is normal data packet
copyBytes = wLen - 12;
if (copyBytes > len - i)
{
/* invalid data - do our best to get something out of it */
copyBytes = len - i;
}
memcpy(buf + i, tbuf, copyBytes);
i += copyBytes;
}
else if (wType == HTTP_PACKETTYPE_LOGINREPLY)
{ // our "virtual connection" was established, good
BYTE bRes;
unpackByte(&tbuf, &bRes);
wLen -= 1;
if (!bRes)
Netlib_Logf( NULL, "Gateway Connection #%d Established.", dwPackSeq);
else
Netlib_Logf( NULL, "Gateway Connection #%d Failed, error: %d", dwPackSeq, bRes);
}
else if (wType == HTTP_PACKETTYPE_CLOSEREPLY)
{ // "virtual connection" closed - only received if any other "virual connection" still active
Netlib_Logf( NULL, "Gateway Connection #%d Closed.", dwPackSeq);
}
tbuf += wLen - 12;
}
*outBufLen = i;
return buf;
}
int unpackSessionDataItem(oscar_tlv_chain *pChain, WORD wItemType, BYTE **ppItemData, WORD *pwItemSize, BYTE *pbItemFlags)
{
int len = 0;
BYTE *data;
oscar_tlv *tlv = pChain->getTLV(0x1D, 1);
if (tlv) {
len = tlv->wLen;
data = tlv->pData;
}
while (len >= 4) {
// parse session data items one by one
WORD itemType;
BYTE itemFlags, itemLen;
unpackWord(&data, &itemType);
unpackByte(&data, &itemFlags);
unpackByte(&data, &itemLen);
len -= 4;
// just some validity check
if (itemLen > len)
itemLen = len;
if (itemType == wItemType) {
// found the requested item
if (ppItemData)
*ppItemData = data;
if (pwItemSize)
*pwItemSize = itemLen;
if (pbItemFlags)
*pbItemFlags = itemFlags;
return 1; // Success
}
data += itemLen;
len -= itemLen;
}
return 0;
}
void CIcqProto::handleDirectMessage(directconnect* dc, PBYTE buf, WORD wLen)
{
WORD wCommand;
WORD wCookie;
BYTE bMsgType,bMsgFlags;
WORD wStatus;
WORD wFlags;
WORD wTextLen;
char* pszText = NULL;
// The first part of the packet should always be at least 31 bytes
if (wLen < 31)
{
NetLog_Direct("Error during parsing of DC packet 2 PEER_MSG (too short)");
return;
}
// Skip packet checksum
buf += 4;
wLen -= 4;
// Command:
// 0x07d0 = 2000 - cancel given message.
// 0x07da = 2010 - acknowledge message.
// 0x07ee = 2030 - normal message/request.
unpackLEWord(&buf, &wCommand);
wLen -= 2;
// Unknown, always 0xe (14)
buf += 2;
wLen -= 2;
// Sequence number
unpackLEWord(&buf, &wCookie);
wLen -=2;
// Unknown, always zeroes
buf += 12;
wLen -= 12;
// Peer message type
unpackByte(&buf, &bMsgType);
// Peer message flags
unpackByte(&buf, &bMsgFlags);
wLen -= 2;
// The current status of the user, or whether the message was accepted or not.
// 0x00 - user is online, or message was receipt, or file transfer accepted
// 0x01 - refused
// 0x04 - auto-refused, because of away
// 0x09 - auto-refused, because of occupied
// 0x0a - auto-refused, because of dnd
// 0x0e - auto-refused, because of na
unpackLEWord(&buf, &wStatus);
wLen -= 2;
// Flags, or priority
// Seen: 1 - Chat request
// 0 - File auto accept (type 3)
// 33 - priority ?
unpackLEWord(&buf, &wFlags);
wLen -= 2;
// Messagetext. This is either the status message or the actual message
// when this is a PEER_MSG_MSG packet
unpackLEWord(&buf, &wTextLen);
if (wTextLen > 0)
{
pszText = (char*)_alloca(wTextLen+1);
unpackString(&buf, pszText, wTextLen);
pszText[wTextLen] = '\0';
}
wLen = (wLen - 2) - wTextLen;
#ifdef _DEBUG
NetLog_Direct("Handling PEER_MSG '%s', command %u, cookie %u, messagetype %u, messageflags %u, status %u, flags %u", pszText, wCommand, wCookie, bMsgType, bMsgFlags, wStatus, wFlags);
#else
NetLog_Direct("Message through direct - UID: %u", dc->dwRemoteUin);
#endif
// The remaining actual message is handled either as a status message request,
// a greeting message, a acknowledge or a normal (text, url, file) message
if (wCommand == DIRECT_MESSAGE)
switch (bMsgType)
{
case MTYPE_FILEREQ: // File inits
handleFileRequest(buf, wLen, dc->dwRemoteUin, wCookie, 0, 0, pszText, 7, TRUE);
break;
case MTYPE_AUTOAWAY:
case MTYPE_AUTOBUSY:
case MTYPE_AUTONA:
case MTYPE_AUTODND:
case MTYPE_AUTOFFC:
{
char **szMsg = MirandaStatusToAwayMsg(AwayMsgTypeToStatus(bMsgType));
if (szMsg)
icq_sendAwayMsgReplyDirect(dc, wCookie, bMsgType, ( const char** )szMsg);
}
break;
case MTYPE_PLUGIN: // Greeting
handleDirectGreetingMessage(dc, buf, wLen, wCommand, wCookie, bMsgType, bMsgFlags, wStatus, wFlags, pszText);
break;
default:
{
message_ack_params pMsgAck = {0};
uid_str szUID;
buf -= wTextLen;
wLen += wTextLen;
pMsgAck.bType = MAT_DIRECT;
pMsgAck.pDC = dc;
pMsgAck.wCookie = wCookie;
pMsgAck.msgType = bMsgType;
pMsgAck.bFlags = bMsgFlags;
handleMessageTypes(dc->dwRemoteUin, szUID, time(NULL), 0, 0, wCookie, dc->wVersion, (int)bMsgType, (int)bMsgFlags, 0, (DWORD)wLen, wTextLen, (char*)buf, MTF_DIRECT, &pMsgAck);
break;
}
}
else if (wCommand == DIRECT_ACK)
{
if (bMsgFlags == 3)
{ // this is status reply
uid_str szUID;
buf -= wTextLen;
wLen += wTextLen;
handleMessageTypes(dc->dwRemoteUin, szUID, time(NULL), 0, 0, wCookie, dc->wVersion, (int)bMsgType, (int)bMsgFlags, 2, (DWORD)wLen, wTextLen, (char*)buf, MTF_DIRECT, NULL);
}
else
{
MCONTACT hCookieContact;
cookie_message_data *pCookieData = NULL;
if (!FindCookie(wCookie, &hCookieContact, (void**)&pCookieData))
{
NetLog_Direct("Received an unexpected direct ack");
}
else if (hCookieContact != dc->hContact)
{
NetLog_Direct("Direct Contact does not match Cookie Contact(0x%x != 0x%x)", dc->hContact, hCookieContact);
ReleaseCookie(wCookie); // This could be a bad idea, but I think it is safe
}
else
{ // the ack is correct
int ackType = -1;
switch (bMsgType)
{
case MTYPE_PLAIN:
ackType = ACKTYPE_MESSAGE;
break;
case MTYPE_URL:
ackType = ACKTYPE_URL;
break;
case MTYPE_CONTACTS:
ackType = ACKTYPE_CONTACTS;
break;
case MTYPE_FILEREQ: // File acks
handleFileAck(buf, wLen, dc->dwRemoteUin, wCookie, wStatus, pszText);
break;
case MTYPE_PLUGIN: // Greeting
handleDirectGreetingMessage(dc, buf, wLen, wCommand, wCookie, bMsgType, bMsgFlags, wStatus, wFlags, pszText);
break;
default:
NetLog_Direct("Skipped packet from direct connection");
break;
}
if (ackType != -1)
{ // was a good ack to broadcast ?
ProtoBroadcastAck(dc->hContact, ackType, ACKRESULT_SUCCESS, (HANDLE)wCookie, 0);
ReleaseCookie(wCookie);
}
}
}
}
else if (wCommand == DIRECT_CANCEL)
{
NetLog_Direct("Cannot handle abort messages yet... :(");
}
else
NetLog_Direct("Unknown wCommand, packet skipped");
}
void CIcqProto::handleUserOnline(BYTE *buf, size_t wLen, serverthread_info*)
{
DWORD dwPort = 0;
DWORD dwRealIP = 0;
DWORD dwUIN;
uid_str szUID;
DWORD dwDirectConnCookie = 0;
DWORD dwWebPort = 0;
DWORD dwFT1 = 0, dwFT2 = 0, dwFT3 = 0;
const char *szClient = NULL;
BYTE bClientId = 0;
WORD wVersion = 0;
WORD wTLVCount;
WORD wWarningLevel;
WORD wStatusFlags;
WORD wStatus = 0, wOldStatus = 0;
BYTE nTCPFlag = 0;
char szStrBuf[MAX_PATH];
// Unpack the sender's user ID
if (!unpackUID(&buf, &wLen, &dwUIN, &szUID))
return;
// Syntax check
if (wLen < 4)
return;
// Warning level?
unpackWord(&buf, &wWarningLevel);
wLen -= 2;
// TLV count
unpackWord(&buf, &wTLVCount);
wLen -= 2;
// Ignore status notification if the user is not already on our list
MCONTACT hContact = HContactFromUID(dwUIN, szUID, NULL);
if (hContact == INVALID_CONTACT_ID) {
debugLogA("Ignoring user online (%s)", strUID(dwUIN, szUID));
return;
}
// Read user info TLVs
oscar_tlv_chain *pChain;
oscar_tlv *pTLV;
// Syntax check
if (wLen < 4)
return;
// Get chain
if (!(pChain = readIntoTLVChain(&buf, wLen, wTLVCount)))
return;
// Get Class word
WORD wClass = pChain->getWord(0x01, 1);
int nIsICQ = wClass & CLASS_ICQ;
if (dwUIN) {
// Get DC info TLV
pTLV = pChain->getTLV(0x0C, 1);
if (pTLV && (pTLV->wLen >= 15)) {
BYTE *pBuffer = pTLV->pData;
nIsICQ = TRUE;
unpackDWord(&pBuffer, &dwRealIP);
unpackDWord(&pBuffer, &dwPort);
unpackByte(&pBuffer, &nTCPFlag);
unpackWord(&pBuffer, &wVersion);
unpackDWord(&pBuffer, &dwDirectConnCookie);
unpackDWord(&pBuffer, &dwWebPort); // Web front port
pBuffer += 4; // Client features
// Get faked time signatures, used to identify clients
if (pTLV->wLen >= 0x23) {
unpackDWord(&pBuffer, &dwFT1);
unpackDWord(&pBuffer, &dwFT2);
unpackDWord(&pBuffer, &dwFT3);
}
}
// Get Status info TLV
pTLV = pChain->getTLV(0x06, 1);
if (pTLV && (pTLV->wLen >= 4)) {
BYTE *pBuffer = pTLV->pData;
unpackWord(&pBuffer, &wStatusFlags);
unpackWord(&pBuffer, &wStatus);
}
else if (!nIsICQ) {
// Connected thru AIM client, guess by user class
if (wClass & CLASS_AWAY)
wStatus = ID_STATUS_AWAY;
else if (wClass & CLASS_WIRELESS)
wStatus = ID_STATUS_ONTHEPHONE;
else
wStatus = ID_STATUS_ONLINE;
wStatusFlags = 0;
}
else {
// Huh? No status TLV? Lets guess then...
wStatusFlags = 0;
wStatus = ICQ_STATUS_ONLINE;
}
}
else {
nIsICQ = FALSE;
if (wClass & CLASS_AWAY)
wStatus = ID_STATUS_AWAY;
else if (wClass & CLASS_WIRELESS)
wStatus = ID_STATUS_ONTHEPHONE;
else
wStatus = ID_STATUS_ONLINE;
wStatusFlags = 0;
}
debugLogA("Flags are %x", wStatusFlags);
debugLogA("Status is %x", wStatus);
// Get IP TLV
DWORD dwIP = pChain->getDWord(0x0A, 1);
// Get Online Since TLV
DWORD dwOnlineSince = pChain->getDWord(0x03, 1);
// Get Away Since TLV
DWORD dwAwaySince = pChain->getDWord(0x29, 1);
// Get Member Since TLV
DWORD dwMemberSince = pChain->getDWord(0x05, 1);
// Get Idle timer TLV
WORD wIdleTimer = pChain->getWord(0x04, 1);
time_t tIdleTS = 0;
if (wIdleTimer) {
time(&tIdleTS);
tIdleTS -= (wIdleTimer*60);
}
if (wIdleTimer)
debugLogA("Idle timer is %u.", wIdleTimer);
debugLogA("Online since %s", time2text(dwOnlineSince));
if (dwAwaySince)
debugLogA("Status was set on %s", time2text(dwAwaySince));
// Check client capabilities
if (hContact != NULL) {
wOldStatus = getContactStatus(hContact);
// Collect all Capability info from TLV chain
BYTE *capBuf = NULL;
WORD capLen = 0;
// Get Location Capability Info TLVs
oscar_tlv *pFullTLV = pChain->getTLV(0x0D, 1);
oscar_tlv *pShortTLV = pChain->getTLV(0x19, 1);
if (pFullTLV && (pFullTLV->wLen >= BINARY_CAP_SIZE))
capLen += pFullTLV->wLen;
if (pShortTLV && (pShortTLV->wLen >= 2))
capLen += (pShortTLV->wLen * 8);
capBuf = (BYTE*)_alloca(capLen + BINARY_CAP_SIZE);
if (capLen) {
BYTE *pCapability = capBuf;
capLen = 0; // we need to recount that
if (pFullTLV && (pFullTLV->wLen >= BINARY_CAP_SIZE)) {
// copy classic Capabilities
BYTE *cData = pFullTLV->pData;
int cLen = pFullTLV->wLen;
while (cLen) {
// be impervious to duplicates (AOL sends them sometimes)
if (!capLen || !MatchCapability(capBuf, capLen, (capstr*)cData, BINARY_CAP_SIZE)) {
// not present, add
memcpy(pCapability, cData, BINARY_CAP_SIZE);
capLen += BINARY_CAP_SIZE;
pCapability += BINARY_CAP_SIZE;
}
cData += BINARY_CAP_SIZE;
cLen -= BINARY_CAP_SIZE;
}
}
if (pShortTLV && (pShortTLV->wLen >= 2)) {
// copy short Capabilities
capstr tmp;
BYTE *cData = pShortTLV->pData;
int cLen = pShortTLV->wLen;
memcpy(tmp, capShortCaps, BINARY_CAP_SIZE);
while (cLen) {
// be impervious to duplicates (AOL sends them sometimes)
tmp[2] = cData[0];
tmp[3] = cData[1];
if (!capLen || !MatchCapability(capBuf, capLen, &tmp, BINARY_CAP_SIZE)) {
// not present, add
memcpy(pCapability, tmp, BINARY_CAP_SIZE);
capLen += BINARY_CAP_SIZE;
pCapability += BINARY_CAP_SIZE;
}
cData += 2;
cLen -= 2;
}
}
debugLogA("Detected %d capability items.", capLen / BINARY_CAP_SIZE);
}
if (capLen) {
// Update the contact's capabilies if present in packet
SetCapabilitiesFromBuffer(hContact, capBuf, capLen, wOldStatus == ID_STATUS_OFFLINE);
char *szCurrentClient = wOldStatus == ID_STATUS_OFFLINE ? NULL : getSettingStringUtf(hContact, "MirVer", NULL);
szClient = detectUserClient(hContact, nIsICQ, wClass, dwOnlineSince, szCurrentClient, wVersion, dwFT1, dwFT2, dwFT3, dwDirectConnCookie, dwWebPort, capBuf, capLen, &bClientId, szStrBuf);
// Check if the client changed, if not do not change
if (szCurrentClient && !strcmpnull(szCurrentClient, szClient))
szClient = (const char*)-1;
SAFE_FREE(&szCurrentClient);
}
else if (wOldStatus == ID_STATUS_OFFLINE) {
// Remove the contact's capabilities if coming from offline
ClearAllContactCapabilities(hContact);
// no capability
debugLogA("No capability info TLVs");
szClient = detectUserClient(hContact, nIsICQ, wClass, dwOnlineSince, NULL, wVersion, dwFT1, dwFT2, dwFT3, dwDirectConnCookie, dwWebPort, NULL, capLen, &bClientId, szStrBuf);
}
else // Capabilities not present in update packet, do not touch
szClient = (const char*)-1; // we don't want to client be overwritten
// handle Xtraz status
char *moodData = NULL;
WORD moodSize = 0;
unpackSessionDataItem(pChain, 0x0E, (BYTE**)&moodData, &moodSize, NULL);
if (capLen || wOldStatus == ID_STATUS_OFFLINE)
handleXStatusCaps(dwUIN, szUID, hContact, capBuf, capLen, moodData, moodSize);
else
handleXStatusCaps(dwUIN, szUID, hContact, NULL, 0, moodData, moodSize);
// Determine support for extended status messages
if (pChain->getWord(0x08, 1) == 0x0A06)
SetContactCapabilities(hContact, CAPF_STATUS_MESSAGES);
else if (wOldStatus == ID_STATUS_OFFLINE)
ClearContactCapabilities(hContact, CAPF_STATUS_MESSAGES);
if (wOldStatus == ID_STATUS_OFFLINE) {
if (CheckContactCapabilities(hContact, CAPF_SRV_RELAY))
debugLogA("Supports advanced messages");
else
debugLogA("Does NOT support advanced messages");
}
if (!nIsICQ) {
// AIM clients does not advertise these, but do support them
SetContactCapabilities(hContact, CAPF_UTF | CAPF_TYPING);
// Server relayed messages are only supported by ICQ clients
ClearContactCapabilities(hContact, CAPF_SRV_RELAY);
if (dwUIN && wOldStatus == ID_STATUS_OFFLINE)
debugLogA("Logged in with AIM client");
}
if (nIsICQ && wVersion < 8) {
ClearContactCapabilities(hContact, CAPF_SRV_RELAY);
if (wOldStatus == ID_STATUS_OFFLINE)
debugLogA("Forcing simple messages due to compability issues");
}
// Process Avatar Hash
pTLV = pChain->getTLV(0x1D, 1);
if (pTLV)
handleAvatarContactHash(dwUIN, szUID, hContact, pTLV->pData, pTLV->wLen);
else
handleAvatarContactHash(dwUIN, szUID, hContact, NULL, 0);
// Process Status Note
parseStatusNote(dwUIN, szUID, hContact, pChain);
}
// Free TLV chain
disposeChain(&pChain);
// Save contacts details in database
if (hContact != NULL) {
setDword(hContact, "LogonTS", dwOnlineSince);
setDword(hContact, "AwayTS", dwAwaySince);
setDword(hContact, "IdleTS", tIdleTS);
if (dwMemberSince)
setDword(hContact, "MemberTS", dwMemberSince);
if (nIsICQ) {
// on AIM these are not used
setDword(hContact, "DirectCookie", dwDirectConnCookie);
setByte(hContact, "DCType", (BYTE)nTCPFlag);
setWord(hContact, "UserPort", (WORD)(dwPort & 0xffff));
setWord(hContact, "Version", wVersion);
}
else {
delSetting(hContact, "DirectCookie");
delSetting(hContact, "DCType");
delSetting(hContact, "UserPort");
delSetting(hContact, "Version");
}
// if no detection, set uknown
if (!szClient)
szClient = (nIsICQ ? "Unknown" : "Unknown AIM");
if (szClient != (char*)-1) {
db_set_utf(hContact, m_szModuleName, "MirVer", szClient);
setByte(hContact, "ClientID", bClientId);
}
if (wOldStatus == ID_STATUS_OFFLINE) {
setDword(hContact, "IP", dwIP);
setDword(hContact, "RealIP", dwRealIP);
}
else {
// if not first notification only write significant information
if (dwIP)
setDword(hContact, "IP", dwIP);
if (dwRealIP)
setDword(hContact, "RealIP", dwRealIP);
}
setWord(hContact, "Status", (WORD)IcqStatusToMiranda(wStatus));
// Update info?
if (dwUIN) {
// check if the local copy of user details is up-to-date
if (IsMetaInfoChanged(hContact))
icq_QueueUser(hContact);
}
}
LPCTSTR ptszStatus = pcli->pfnGetStatusModeDescription(IcqStatusToMiranda(wStatus), 0);
if (wOldStatus != IcqStatusToMiranda(wStatus)) {
// And a small log notice... if status was changed
if (nIsICQ)
debugLogA("%u changed status to %S (v%d).", dwUIN, ptszStatus, wVersion);
else
debugLogA("%s changed status to %S.", strUID(dwUIN, szUID), ptszStatus);
}
if (szClient == cliSpamBot) {
if (getByte("KillSpambots", DEFAULT_KILLSPAM_ENABLED) && db_get_b(hContact, "CList", "NotOnList", 0)) {
// kill spammer
icq_DequeueUser(dwUIN);
icq_sendRemoveContact(dwUIN, NULL);
AddToSpammerList(dwUIN);
if (getByte("PopupsSpamEnabled", DEFAULT_SPAM_POPUPS_ENABLED))
ShowPopupMsg(hContact, LPGEN("Spambot Detected"), LPGEN("Contact deleted & further events blocked."), POPTYPE_SPAM);
CallService(MS_DB_CONTACT_DELETE, hContact, 0);
debugLogA("Contact %u deleted", dwUIN);
}
}
}
void CIcqProto::handleFileTransferPacket(directconnect* dc, PBYTE buf, WORD wLen)
{
if (wLen < 1)
return;
NetLog_Direct("Handling file packet");
switch (buf[0])
{
case PEER_FILE_INIT: /* first packet of a file transfer */
if (dc->initialised)
return;
if (wLen < 19)
return;
buf += 5; /* id, and unknown 0 */
dc->type = DIRECTCONN_FILE;
{
DWORD dwFileCount;
DWORD dwTotalSize;
DWORD dwTransferSpeed;
WORD wNickLength;
int bAdded;
unpackLEDWord(&buf, &dwFileCount);
unpackLEDWord(&buf, &dwTotalSize);
unpackLEDWord(&buf, &dwTransferSpeed);
unpackLEWord(&buf, &wNickLength);
dc->ft = FindExpectedFileRecv(dc->dwRemoteUin, dwTotalSize);
if (dc->ft == NULL)
{
NetLog_Direct("Unexpected file receive");
CloseDirectConnection(dc);
return;
}
dc->ft->dwFileCount = dwFileCount;
dc->ft->dwTransferSpeed = dwTransferSpeed;
dc->ft->hContact = HContactFromUIN(dc->ft->dwUin, &bAdded);
dc->ft->dwBytesDone = 0;
dc->ft->iCurrentFile = -1;
dc->ft->fileId = -1;
dc->ft->hConnection = dc->hConnection;
dc->ft->dwLastNotify = GetTickCount();
dc->initialised = 1;
file_sendTransferSpeed(this, dc);
file_sendNick(this, dc);
}
BroadcastAck(dc->ft->hContact, ACKTYPE_FILE, ACKRESULT_INITIALISING, dc->ft, 0);
break;
case PEER_FILE_INIT_ACK:
if (wLen < 8)
return;
buf++;
unpackLEDWord(&buf, &dc->ft->dwTransferSpeed);
/* followed by nick */
file_sendNextFile(this, dc);
break;
case PEER_FILE_NEXTFILE:
if (wLen < 20)
return;
buf++; /* id */
{
char *szAnsi;
WORD wThisFilenameLen, wSubdirLen;
BYTE isDirectory;
unpackByte(&buf, &isDirectory);
unpackLEWord(&buf, &wThisFilenameLen);
if (wLen < 19 + wThisFilenameLen)
return;
SAFE_FREE(&dc->ft->szThisFile);
szAnsi = (char *)_malloca(wThisFilenameLen + 1);
memcpy(szAnsi, buf, wThisFilenameLen);
szAnsi[wThisFilenameLen] = '\0';
dc->ft->szThisFile = ansi_to_utf8(szAnsi);
buf += wThisFilenameLen;
unpackLEWord(&buf, &wSubdirLen);
if (wLen < 18 + wThisFilenameLen + wSubdirLen)
return;
SAFE_FREE(&dc->ft->szThisSubdir);
szAnsi = (char *)_malloca(wSubdirLen + 1);
memcpy(szAnsi, buf, wSubdirLen);
szAnsi[wSubdirLen] = '\0';
dc->ft->szThisSubdir = ansi_to_utf8(szAnsi);
buf += wSubdirLen;
unpackLEDWord(&buf, &dc->ft->dwThisFileSize);
unpackLEDWord(&buf, &dc->ft->dwThisFileDate);
unpackLEDWord(&buf, &dc->ft->dwTransferSpeed);
/* no cheating with paths */
if (!IsValidRelativePath(dc->ft->szThisFile) || !IsValidRelativePath(dc->ft->szThisSubdir))
{
NetLog_Direct("Invalid path information");
break;
}
char *szFullPath = (char*)SAFE_MALLOC(strlennull(dc->ft->szSavePath)+strlennull(dc->ft->szThisSubdir)+strlennull(dc->ft->szThisFile)+3);
strcpy(szFullPath, dc->ft->szSavePath);
NormalizeBackslash(szFullPath);
strcat(szFullPath, dc->ft->szThisSubdir);
NormalizeBackslash(szFullPath);
// _chdir(szFullPath); // set current dir - not very useful
strcat(szFullPath, dc->ft->szThisFile);
// we joined the full path to dest file
SAFE_FREE(&dc->ft->szThisFile);
dc->ft->szThisFile = szFullPath;
dc->ft->dwFileBytesDone = 0;
dc->ft->iCurrentFile++;
if (isDirectory)
{
MakeDirUtf(dc->ft->szThisFile);
dc->ft->fileId = -1;
}
else
{
/* file resume */
PROTOFILETRANSFERSTATUS pfts = {0};
file_buildProtoFileTransferStatus(dc->ft, &pfts);
if (BroadcastAck(dc->ft->hContact, ACKTYPE_FILE, ACKRESULT_FILERESUME, dc->ft, (LPARAM)&pfts))
break; /* UI supports resume: it will call PS_FILERESUME */
dc->ft->fileId = OpenFileUtf(dc->ft->szThisFile, _O_BINARY | _O_CREAT | _O_TRUNC | _O_WRONLY, _S_IREAD | _S_IWRITE);
if (dc->ft->fileId == -1)
{
icq_LogMessage(LOG_ERROR, LPGEN("Your file receive has been aborted because Miranda could not open the destination file in order to write to it. You may be trying to save to a read-only folder."));
CloseDirectConnection(dc);
dc->ft->hConnection = NULL;
break;
}
}
}
file_sendResume(this, dc);
BroadcastAck(dc->ft->hContact, ACKTYPE_FILE, ACKRESULT_NEXTFILE, dc->ft, 0);
break;
case PEER_FILE_RESUME:
if (dc->ft->fileId == -1 && !dc->ft->currentIsDir)
return;
if (wLen < 13)
return;
if (wLen < 17)
NetLog_Direct("Warning: Received short PEER_FILE_RESUME");
buf++;
{
DWORD dwRestartFrom;
unpackLEDWord(&buf, &dwRestartFrom);
if (dwRestartFrom > dc->ft->dwThisFileSize)
return;
buf += 4; /* unknown. 0 */
unpackLEDWord(&buf, &dc->ft->dwTransferSpeed);
buf += 4; /* unknown. 1 */
if (!dc->ft->currentIsDir)
_lseek(dc->ft->fileId, dwRestartFrom, 0);
dc->wantIdleTime = 1;
dc->ft->dwBytesDone += dwRestartFrom;
dc->ft->dwFileBytesDone += dwRestartFrom;
}
break;
case PEER_FILE_SPEED:
if (wLen < 5)
return;
buf++;
unpackLEDWord(&buf, &dc->ft->dwTransferSpeed);
dc->ft->dwLastNotify = GetTickCount();
break;
case PEER_FILE_DATA:
if (!dc->ft->currentIsDir)
{
if (dc->ft->fileId == -1)
break;
buf++; wLen--;
_write(dc->ft->fileId, buf, wLen);
}
else
wLen = 0;
dc->ft->dwBytesDone += wLen;
dc->ft->dwFileBytesDone += wLen;
if (GetTickCount() > dc->ft->dwLastNotify + 500 || wLen < 2048)
{
PROTOFILETRANSFERSTATUS pfts;
file_buildProtoFileTransferStatus(dc->ft, &pfts);
BroadcastAck(dc->ft->hContact, ACKTYPE_FILE, ACKRESULT_DATA, dc->ft, (LPARAM)&pfts);
dc->ft->dwLastNotify = GetTickCount();
}
if (wLen < 2048)
{
/* EOF */
if (!dc->ft->currentIsDir)
_close(dc->ft->fileId);
dc->ft->fileId = -1;
if ((DWORD)dc->ft->iCurrentFile == dc->ft->dwFileCount - 1)
{
dc->type = DIRECTCONN_CLOSING; /* this guarantees that we won't accept any more data but that the sender is still free to closesocket() neatly */
BroadcastAck(dc->ft->hContact, ACKTYPE_FILE, ACKRESULT_SUCCESS, dc->ft, 0);
}
}
break;
default:
NetLog_Direct("Unknown file transfer packet ignored.");
break;
}
}
void CIcqProto::handleServiceFam(BYTE *pBuffer, size_t wBufferLength, snac_header *pSnacHeader, serverthread_info *info)
{
icq_packet packet;
switch (pSnacHeader->wSubtype) {
case ICQ_SERVER_READY:
debugLogA("Server is ready and is requesting my Family versions");
debugLogA("Sending my Families");
// This packet is a response to SRV_FAMILIES SNAC(1,3).
// This tells the server which SNAC families and their corresponding
// versions which the client understands. This also seems to identify
// the client as an ICQ vice AIM client to the server.
// Miranda mimics the behaviour of ICQ 6
serverPacketInit(&packet, 54);
packFNACHeader(&packet, ICQ_SERVICE_FAMILY, ICQ_CLIENT_FAMILIES);
packDWord(&packet, 0x00220001);
packDWord(&packet, 0x00010004);
packDWord(&packet, 0x00130004);
packDWord(&packet, 0x00020001);
packDWord(&packet, 0x00030001);
packDWord(&packet, 0x00150001);
packDWord(&packet, 0x00040001);
packDWord(&packet, 0x00060001);
packDWord(&packet, 0x00090001);
packDWord(&packet, 0x000a0001);
packDWord(&packet, 0x000b0001);
sendServPacket(&packet);
break;
case ICQ_SERVER_FAMILIES2:
/* This is a reply to CLI_FAMILIES and it tells the client which families and their versions that this server understands.
* We send a rate request packet */
debugLogA("Server told me his Family versions");
debugLogA("Requesting Rate Information");
serverPacketInit(&packet, 10);
packFNACHeader(&packet, ICQ_SERVICE_FAMILY, ICQ_CLIENT_REQ_RATE_INFO);
sendServPacket(&packet);
break;
case ICQ_SERVER_RATE_INFO:
debugLogA("Server sent Rate Info");
/* init rates management */
m_rates = new rates(this, pBuffer, wBufferLength);
/* ack rate levels */
debugLogA("Sending Rate Info Ack");
m_rates->initAckPacket(&packet);
sendServPacket(&packet);
/* CLI_REQINFO - This command requests from the server certain information about the client that is stored on the server. */
debugLogA("Sending CLI_REQINFO");
serverPacketInit(&packet, 10);
packFNACHeader(&packet, ICQ_SERVICE_FAMILY, ICQ_CLIENT_REQINFO);
sendServPacket(&packet);
if (m_bSsiEnabled) {
cookie_servlist_action* ack;
DWORD dwCookie;
DWORD dwLastUpdate = getDword("SrvLastUpdate", 0);
WORD wRecordCount = getWord("SrvRecordCount", 0);
// CLI_REQLISTS - we want to use SSI
debugLogA("Requesting roster rights");
serverPacketInit(&packet, 16);
packFNACHeader(&packet, ICQ_LISTS_FAMILY, ICQ_LISTS_CLI_REQLISTS);
packTLVWord(&packet, 0x0B, 0x000F); // mimic ICQ 6
sendServPacket(&packet);
if (!wRecordCount) { // CLI_REQROSTER
// we do not have any data - request full list
debugLogA("Requesting full roster");
serverPacketInit(&packet, 10);
ack = (cookie_servlist_action*)SAFE_MALLOC(sizeof(cookie_servlist_action));
if (ack) { // we try to use standalone cookie if available
ack->dwAction = SSA_CHECK_ROSTER; // loading list
dwCookie = AllocateCookie(CKT_SERVERLIST, ICQ_LISTS_CLI_REQUEST, 0, ack);
}
else // if not use that old fake
dwCookie = ICQ_LISTS_CLI_REQUEST << 0x10;
packFNACHeader(&packet, ICQ_LISTS_FAMILY, ICQ_LISTS_CLI_REQUEST, 0, dwCookie);
sendServPacket(&packet);
}
else { // CLI_CHECKROSTER
debugLogA("Requesting roster check");
serverPacketInit(&packet, 16);
ack = (cookie_servlist_action*)SAFE_MALLOC(sizeof(cookie_servlist_action));
if (ack) { // TODO: rewrite - use get list service for empty list
// we try to use standalone cookie if available
ack->dwAction = SSA_CHECK_ROSTER; // loading list
dwCookie = AllocateCookie(CKT_SERVERLIST, ICQ_LISTS_CLI_CHECK, 0, ack);
}
else // if not use that old fake
dwCookie = ICQ_LISTS_CLI_CHECK << 0x10;
packFNACHeader(&packet, ICQ_LISTS_FAMILY, ICQ_LISTS_CLI_CHECK, 0, dwCookie);
// check if it was not changed elsewhere (force reload, set that setting to zero)
if (IsServerGroupsDefined()) {
packDWord(&packet, dwLastUpdate); // last saved time
packWord(&packet, wRecordCount); // number of records saved
}
else { // we need to get groups info into DB, force receive list
packDWord(&packet, 0); // last saved time
packWord(&packet, 0); // number of records saved
}
sendServPacket(&packet);
}
}
// CLI_REQLOCATION
debugLogA("Requesting Location rights");
serverPacketInit(&packet, 10);
packFNACHeader(&packet, ICQ_LOCATION_FAMILY, ICQ_LOCATION_CLI_REQ_RIGHTS);
sendServPacket(&packet);
// CLI_REQBUDDY
debugLogA("Requesting Client-side contactlist rights");
serverPacketInit(&packet, 16);
packFNACHeader(&packet, ICQ_BUDDY_FAMILY, ICQ_USER_CLI_REQBUDDY);
// Query flags: 1 = Enable Avatars
// 2 = Enable offline status message notification
// 4 = Enable Avatars for offline contacts
// 8 = Use reject for not authorized contacts
packTLVWord(&packet, 0x05, 0x0007);
sendServPacket(&packet);
// CLI_REQICBM
debugLogA("Sending CLI_REQICBM");
serverPacketInit(&packet, 10);
packFNACHeader(&packet, ICQ_MSG_FAMILY, ICQ_MSG_CLI_REQICBM);
sendServPacket(&packet);
// CLI_REQBOS
debugLogA("Sending CLI_REQBOS");
serverPacketInit(&packet, 10);
packFNACHeader(&packet, ICQ_BOS_FAMILY, ICQ_PRIVACY_REQ_RIGHTS);
sendServPacket(&packet);
break;
case ICQ_SERVER_PAUSE:
debugLogA("Server is going down in a few seconds... (Flags: %u)", pSnacHeader->wFlags);
// This is the list of groups that we want to have on the next server
serverPacketInit(&packet, 30);
packFNACHeader(&packet, ICQ_SERVICE_FAMILY, ICQ_CLIENT_PAUSE_ACK);
packWord(&packet, ICQ_SERVICE_FAMILY);
packWord(&packet, ICQ_LISTS_FAMILY);
packWord(&packet, ICQ_LOCATION_FAMILY);
packWord(&packet, ICQ_BUDDY_FAMILY);
packWord(&packet, ICQ_EXTENSIONS_FAMILY);
packWord(&packet, ICQ_MSG_FAMILY);
packWord(&packet, 0x06);
packWord(&packet, ICQ_BOS_FAMILY);
packWord(&packet, ICQ_LOOKUP_FAMILY);
packWord(&packet, ICQ_STATS_FAMILY);
sendServPacket(&packet);
debugLogA("Sent server pause ack");
break;
case ICQ_SERVER_MIGRATIONREQ:
debugLogA("Server migration requested (Flags: %u)", pSnacHeader->wFlags);
pBuffer += 2; // Unknown, seen: 0
wBufferLength -= 2;
{
oscar_tlv_chain *chain = readIntoTLVChain(&pBuffer, wBufferLength, 0);
if (info->cookieDataLen > 0)
SAFE_FREE((void**)&info->cookieData);
info->newServer = chain->getString(0x05, 1);
info->newServerSSL = chain->getNumber(0x8E, 1);
info->cookieData = (BYTE*)chain->getString(0x06, 1);
info->cookieDataLen = chain->getLength(0x06, 1);
disposeChain(&chain);
if (!info->newServer || !info->cookieData) {
icq_LogMessage(LOG_FATAL, LPGEN("A server migration has failed because the server returned invalid data. You must reconnect manually."));
SAFE_FREE(&info->newServer);
SAFE_FREE((void**)&info->cookieData);
info->cookieDataLen = 0;
info->isNewServerReady = false;
return;
}
debugLogA("Migration has started. New server will be %s", info->newServer);
m_iDesiredStatus = m_iStatus;
SetCurrentStatus(ID_STATUS_CONNECTING); // revert to connecting state
info->isNewServerReady = info->isMigrating = true;
}
break;
case ICQ_SERVER_NAME_INFO: // This is the reply to CLI_REQINFO
debugLogA("Received self info");
{
BYTE bUinLen;
unpackByte(&pBuffer, &bUinLen);
pBuffer += bUinLen;
pBuffer += 4; /* warning level & user class */
wBufferLength -= 5 + bUinLen;
// This is during the login sequence
if (pSnacHeader->dwRef == ICQ_CLIENT_REQINFO << 0x10) {
// TLV(x01) User type?
// TLV(x0C) Empty CLI2CLI Direct connection info
// TLV(x0A) External IP
// TLV(x0F) Number of seconds that user has been online
// TLV(x03) The online since time.
// TLV(x0A) External IP again
// TLV(x22) Unknown
// TLV(x1E) Unknown: empty.
// TLV(x05) Member of ICQ since.
// TLV(x14) Unknown
oscar_tlv_chain *chain = readIntoTLVChain(&pBuffer, wBufferLength, 0);
// Save external IP
DWORD dwValue = chain->getDWord(0x0A, 1);
setDword("IP", dwValue);
// Save member since timestamp
dwValue = chain->getDWord(0x05, 1);
if (dwValue) setDword("MemberTS", dwValue);
dwValue = chain->getDWord(0x03, 1);
setDword("LogonTS", dwValue ? dwValue : time(NULL));
disposeChain(&chain);
// If we are in SSI mode, this is sent after the list is acked instead
// to make sure that we don't set status before seing the visibility code
if (!m_bSsiEnabled || info->isMigrating)
handleServUINSettings(wListenPort, info);
}
}
break;
case ICQ_SERVER_RATE_CHANGE:
if (wBufferLength >= 2) {
WORD wStatus, wClass;
DWORD dwLevel;
// We now have global rate management, although controlled are only some
// areas. This should not arrive in most cases. If it does, update our
// local rate levels & issue broadcast.
unpackWord(&pBuffer, &wStatus);
unpackWord(&pBuffer, &wClass);
pBuffer += 20;
unpackDWord(&pBuffer, &dwLevel);
{
mir_cslock l(m_ratesMutex);
m_rates->updateLevel(wClass, dwLevel);
}
if (wStatus == 2 || wStatus == 3) {
// this is only the simplest solution, needs rate management to every section
ProtoBroadcastAck(NULL, ICQACKTYPE_RATEWARNING, ACKRESULT_STATUS, (HANDLE)wClass, wStatus);
if (wStatus == 2)
debugLogA("Rates #%u: Alert", wClass);
else
debugLogA("Rates #%u: Limit", wClass);
}
else if (wStatus == 4) {
ProtoBroadcastAck(NULL, ICQACKTYPE_RATEWARNING, ACKRESULT_STATUS, (HANDLE)wClass, wStatus);
debugLogA("Rates #%u: Clear", wClass);
}
}
break;
case ICQ_SERVER_REDIRECT_SERVICE: // reply to family request, got new connection point
{
oscar_tlv_chain *pChain = NULL;
cookie_family_request *pCookieData;
if (!(pChain = readIntoTLVChain(&pBuffer, wBufferLength, 0))) {
debugLogA("Received Broken Redirect Service SNAC(1,5).");
break;
}
// pick request data
WORD wFamily = pChain->getWord(0x0D, 1);
if ((!FindCookie(pSnacHeader->dwRef, NULL, (void**)&pCookieData)) || (pCookieData->wFamily != wFamily)) {
disposeChain(&pChain);
debugLogA("Received unexpected SNAC(1,5), skipping.");
break;
}
FreeCookie(pSnacHeader->dwRef);
// new family entry point received
char *pServer = pChain->getString(0x05, 1);
BYTE bServerSSL = pChain->getNumber(0x8E, 1);
char *pCookie = pChain->getString(0x06, 1);
WORD wCookieLen = pChain->getLength(0x06, 1);
if (!pServer || !pCookie) {
debugLogA("Server returned invalid data, family unavailable.");
SAFE_FREE(&pServer);
SAFE_FREE(&pCookie);
SAFE_FREE((void**)&pCookieData);
disposeChain(&pChain);
break;
}
// Get new family server ip and port
WORD wPort = info->wServerPort; // get default port
parseServerAddress(pServer, &wPort);
// establish connection
NETLIBOPENCONNECTION nloc = { 0 };
if (m_bGatewayMode)
nloc.flags |= NLOCF_HTTPGATEWAY;
nloc.szHost = pServer;
nloc.wPort = wPort;
HANDLE hConnection = NetLib_OpenConnection(m_hNetlibUser, wFamily == ICQ_AVATAR_FAMILY ? "Avatar " : NULL, &nloc);
if (hConnection == NULL)
debugLogA("Unable to connect to ICQ new family server.");
// we want the handler to be called even if the connecting failed
else if (bServerSSL) { /* Start SSL session if requested */
debugLogA("(%p) Starting SSL negotiation", CallService(MS_NETLIB_GETSOCKET, (WPARAM)hConnection, 0));
if (!CallService(MS_NETLIB_STARTSSL, (WPARAM)hConnection, 0)) {
debugLogA("Unable to connect to ICQ new family server, SSL could not be negotiated");
NetLib_CloseConnection(&hConnection, FALSE);
}
}
(this->*pCookieData->familyHandler)(hConnection, pCookie, wCookieLen);
// Free allocated memory
// NOTE: "cookie" will get freed when we have connected to the avatar server.
disposeChain(&pChain);
SAFE_FREE(&pServer);
SAFE_FREE((void**)&pCookieData);
break;
}
case ICQ_SERVER_EXTSTATUS: // our session data
debugLogA("Received owner session data.");
while (wBufferLength > 4) { // loop thru all items
WORD itemType = pBuffer[0] * 0x10 | pBuffer[1];
BYTE itemFlags = pBuffer[2];
size_t itemLen = pBuffer[3];
if (itemType == AVATAR_HASH_PHOTO) { /// TODO: handle photo item
// skip photo item
debugLogA("Photo item recognized");
}
else if ((itemType == AVATAR_HASH_STATIC || itemType == AVATAR_HASH_FLASH) && (itemLen >= 0x10)) {
debugLogA("Avatar item recognized");
if (m_bAvatarsEnabled && !info->bMyAvatarInited) { // signal the server after login
// this refreshes avatar state - it used to work automatically, but now it does not
if (getByte("ForceOurAvatar", 0)) { // keep our avatar
TCHAR *file = GetOwnAvatarFileName();
SetMyAvatar(0, (LPARAM)file);
SAFE_FREE(&file);
}
else { // only change avatar hash to the same one
BYTE hash[0x14];
memcpy(hash, pBuffer, 0x14);
hash[2] = 1; // update image status
updateServAvatarHash(hash, 0x14);
}
info->bMyAvatarInited = true;
break;
}
// process owner avatar hash changed notification
handleAvatarOwnerHash(itemFlags, pBuffer, itemLen + 4);
}
else if (itemType == 0x02) {
debugLogA("Status message item recognized");
}
else if (itemType == 0x0E) {
debugLogA("Status mood item recognized");
}
// move to next item
if (wBufferLength >= itemLen + 4) {
wBufferLength -= itemLen + 4;
pBuffer += itemLen + 4;
}
else {
pBuffer += wBufferLength;
wBufferLength = 0;
}
}
break;
case ICQ_ERROR: // Something went wrong, probably the request for avatar family failed
{
WORD wError;
if (wBufferLength >= 2)
unpackWord(&pBuffer, &wError);
else
wError = 0;
LogFamilyError(ICQ_SERVICE_FAMILY, wError);
}
break;
// Stuff we don't care about
case ICQ_SERVER_MOTD:
debugLogA("Server message of the day");
break;
default:
debugLogA("Warning: Ignoring SNAC(x%02x,x%02x) - Unknown SNAC (Flags: %u, Ref: %u)", ICQ_SERVICE_FAMILY, pSnacHeader->wSubtype, pSnacHeader->wFlags, pSnacHeader->dwRef);
break;
}
}
void CIcqProto::handleDirectoryQueryResponse(BYTE *databuf, WORD wPacketLen, WORD wCookie, WORD wReplySubtype, WORD wFlags)
{
WORD wBytesRemaining = 0;
snac_header requestSnac = {0};
BYTE requestResult;
#ifdef _DEBUG
debugLogA("Received directory query response");
#endif
if (wPacketLen >= 2)
unpackLEWord(&databuf, &wBytesRemaining);
wPacketLen -= 2;
_ASSERTE(wPacketLen == wBytesRemaining);
if (!unpackSnacHeader(&requestSnac, &databuf, &wPacketLen) || !requestSnac.bValid)
{
debugLogA("Error: Failed to parse directory response");
return;
}
cookie_directory_data *pCookieData;
MCONTACT hContact;
// check request cookie
if (!FindCookie(wCookie, &hContact, (void**)&pCookieData) || !pCookieData)
{
debugLogA("Warning: Ignoring unrequested directory reply type (x%x, x%x)", requestSnac.wFamily, requestSnac.wSubtype);
return;
}
/// FIXME: we should really check the snac contents according to cookie data here ??
// Check if this is the last packet for this request
BOOL bMoreDataFollows = wFlags&0x0001 && requestSnac.wFlags&0x0001;
if (wPacketLen >= 3)
unpackByte(&databuf, &requestResult);
else
{
debugLogA("Error: Malformed directory response");
if (!bMoreDataFollows)
ReleaseCookie(wCookie);
return;
}
if (requestResult != 1 && requestResult != 4)
{
debugLogA("Error: Directory request failed, status %u", requestResult);
if (!bMoreDataFollows)
{
if (pCookieData->bRequestType == DIRECTORYREQUEST_INFOUSER)
ProtoBroadcastAck(hContact, ACKTYPE_GETINFO, ACKRESULT_FAILED, (HANDLE)1 ,0);
else if (pCookieData->bRequestType == DIRECTORYREQUEST_SEARCH)
ProtoBroadcastAck(NULL, ACKTYPE_SEARCH, ACKRESULT_SUCCESS, (HANDLE)wCookie, 0); // should report error here, but Find/Add module does not support that
ReleaseCookie(wCookie);
}
return;
}
WORD wLen;
unpackWord(&databuf, &wLen);
wPacketLen -= 3;
if (wLen)
debugLogA("Warning: Data in error message present!");
if (wPacketLen <= 0x16)
{ // sanity check
debugLogA("Error: Malformed directory response");
if (!bMoreDataFollows)
{
if (pCookieData->bRequestType == DIRECTORYREQUEST_INFOUSER)
ProtoBroadcastAck(hContact, ACKTYPE_GETINFO, ACKRESULT_FAILED, (HANDLE)1 ,0);
else if (pCookieData->bRequestType == DIRECTORYREQUEST_SEARCH)
ProtoBroadcastAck(NULL, ACKTYPE_SEARCH, ACKRESULT_SUCCESS, (HANDLE)wCookie, 0); // should report error here, but Find/Add module does not support that
ReleaseCookie(wCookie);
}
return;
}
databuf += 0x10; // unknown stuff
wPacketLen -= 0x10;
DWORD dwItemCount;
WORD wPageCount;
/// FIXME: check itemcount, pagecount against the cookie data ???
unpackDWord(&databuf, &dwItemCount);
unpackWord(&databuf, &wPageCount);
wPacketLen -= 6;
if (pCookieData->bRequestType == DIRECTORYREQUEST_SEARCH && !bMoreDataFollows)
debugLogA("Directory Search: %d contacts found (%u pages)", dwItemCount, wPageCount);
if (wPacketLen <= 2)
{ // sanity check, block expected
debugLogA("Error: Malformed directory response");
if (!bMoreDataFollows)
{
if (pCookieData->bRequestType == DIRECTORYREQUEST_INFOUSER)
ProtoBroadcastAck(hContact, ACKTYPE_GETINFO, ACKRESULT_FAILED, (HANDLE)1 ,0);
else if (pCookieData->bRequestType == DIRECTORYREQUEST_SEARCH)
ProtoBroadcastAck(NULL, ACKTYPE_SEARCH, ACKRESULT_SUCCESS, (HANDLE)wCookie, 0); // should report error here, but Find/Add module does not support that
ReleaseCookie(wCookie);
}
return;
}
WORD wData;
unpackWord(&databuf, &wData); // This probably the count of items following (a block)
wPacketLen -= 2;
if (wPacketLen >= 2 && wData >= 1)
{
unpackWord(&databuf, &wLen); // This is the size of the first item
wPacketLen -= 2;
}
if (wData == 0 && pCookieData->bRequestType == DIRECTORYREQUEST_SEARCH)
{
debugLogA("Directory Search: No contacts found");
ProtoBroadcastAck(NULL, ACKTYPE_SEARCH, ACKRESULT_SUCCESS, (HANDLE)wCookie, 0);
ReleaseCookie(wCookie);
return;
}
_ASSERTE(wData == 1 && wPacketLen == wLen);
if (wData != 1 || wPacketLen != wLen)
{
debugLogA("Error: Malformed directory response (missing data)");
if (!bMoreDataFollows)
{
if (pCookieData->bRequestType == DIRECTORYREQUEST_INFOUSER)
ProtoBroadcastAck(hContact, ACKTYPE_GETINFO, ACKRESULT_FAILED, (HANDLE)1 ,0);
else if (pCookieData->bRequestType == DIRECTORYREQUEST_SEARCH)
ProtoBroadcastAck(NULL, ACKTYPE_SEARCH, ACKRESULT_SUCCESS, (HANDLE)wCookie, 0); // should report error here, but Find/Add module does not support that
ReleaseCookie(wCookie);
}
return;
}
oscar_tlv_chain *pDirectoryData = readIntoTLVChain(&databuf, wLen, -1);
if (pDirectoryData)
{
switch (pCookieData->bRequestType)
{
case DIRECTORYREQUEST_INFOOWNER:
parseDirectoryUserDetailsData(NULL, pDirectoryData, wCookie, pCookieData, wReplySubtype);
break;
case DIRECTORYREQUEST_INFOUSER:
{
DWORD dwUin = 0;
char *szUid = pDirectoryData->getString(0x32, 1);
if (!szUid)
{
debugLogA("Error: Received unrecognized data from the directory");
break;
}
if (IsStringUIN(szUid))
dwUin = atoi(szUid);
if (hContact != HContactFromUID(dwUin, szUid, NULL))
{
debugLogA("Error: Received data does not match cookie contact, ignoring.");
SAFE_FREE(&szUid);
break;
}
else
SAFE_FREE(&szUid);
}
case DIRECTORYREQUEST_INFOMULTI:
parseDirectoryUserDetailsData(hContact, pDirectoryData, wCookie, pCookieData, wReplySubtype);
break;
case DIRECTORYREQUEST_SEARCH:
parseDirectorySearchData(pDirectoryData, wCookie, pCookieData, wReplySubtype);
break;
default:
debugLogA("Error: Unknown cookie type %x for directory response!", pCookieData->bRequestType);
}
disposeChain(&pDirectoryData);
}
else
debugLogA("Error: Failed parsing directory response");
// Release Memory
if (!bMoreDataFollows)
ReleaseCookie(wCookie);
}
void CIcqProto::parseSearchReplies(unsigned char *databuf, WORD wPacketLen, WORD wCookie, WORD wReplySubtype, BYTE bResultCode)
{
BYTE bParsingOK = FALSE; // For debugging purposes only
BOOL bLastUser = FALSE;
cookie_search *pCookie;
if (!FindCookie(wCookie, NULL, (void**)&pCookie))
{
debugLogA("Warning: Received unexpected search reply");
pCookie = NULL;
}
switch (wReplySubtype)
{
case SRV_LAST_USER_FOUND: // Search: last user found reply
bLastUser = TRUE;
case SRV_USER_FOUND: // Search: user found reply
if (bLastUser)
debugLogA("SNAC(0x15,0x3): Last search reply");
else
debugLogA("SNAC(0x15,0x3): Search reply");
if (bResultCode == 0xA)
{
ICQSEARCHRESULT sr = {0};
DWORD dwUin;
char szUin[UINMAXLEN];
WORD wLen;
sr.hdr.cbSize = sizeof(sr);
// Remaining bytes
if (wPacketLen < 2)
break;
unpackLEWord(&databuf, &wLen);
wPacketLen -= 2;
_ASSERTE(wLen <= wPacketLen);
if (wLen > wPacketLen)
break;
// Uin
if (wPacketLen < 4)
break;
unpackLEDWord(&databuf, &dwUin); // Uin
wPacketLen -= 4;
sr.uin = dwUin;
_itoa(dwUin, szUin, 10);
sr.hdr.id = (FNAMECHAR*)szUin;
// Nick
if (wPacketLen < 2)
break;
unpackLEWord(&databuf, &wLen);
wPacketLen -= 2;
if (wLen > 0)
{
if (wPacketLen < wLen || (databuf[wLen-1] != 0))
break;
sr.hdr.nick = (FNAMECHAR*)databuf;
databuf += wLen;
}
else
{
sr.hdr.nick = NULL;
}
// First name
if (wPacketLen < 2)
break;
unpackLEWord(&databuf, &wLen);
wPacketLen -= 2;
if (wLen > 0)
{
if (wPacketLen < wLen || (databuf[wLen-1] != 0))
break;
sr.hdr.firstName = (FNAMECHAR*)databuf;
databuf += wLen;
}
else
{
sr.hdr.firstName = NULL;
}
// Last name
if (wPacketLen < 2)
break;
unpackLEWord(&databuf, &wLen);
wPacketLen -= 2;
if (wLen > 0)
{
if (wPacketLen < wLen || (databuf[wLen-1] != 0))
break;
sr.hdr.lastName = (FNAMECHAR*)databuf;
databuf += wLen;
}
else
{
sr.hdr.lastName = NULL;
}
// E-mail name
if (wPacketLen < 2)
break;
unpackLEWord(&databuf, &wLen);
wPacketLen -= 2;
if (wLen > 0)
{
if (wPacketLen < wLen || (databuf[wLen-1] != 0))
break;
sr.hdr.email = (FNAMECHAR*)databuf;
databuf += wLen;
}
else
{
sr.hdr.email = NULL;
}
// Authentication needed flag
if (wPacketLen < 1)
break;
unpackByte(&databuf, &sr.auth);
// Finally, broadcast the result
ProtoBroadcastAck(NULL, ACKTYPE_SEARCH, ACKRESULT_DATA, (HANDLE)wCookie, (LPARAM)&sr);
// Broadcast "Last result" ack if this was the last user found
if (wReplySubtype == SRV_LAST_USER_FOUND)
{
if (wPacketLen>=10)
{
DWORD dwLeft;
databuf += 5;
unpackLEDWord(&databuf, &dwLeft);
if (dwLeft)
debugLogA("Warning: %d search results omitted", dwLeft);
}
ReleaseSearchCookie(wCookie, pCookie);
}
bParsingOK = TRUE;
}
else
{
// Failed search
debugLogA("SNAC(0x15,0x3): Search error %u", bResultCode);
ReleaseSearchCookie(wCookie, pCookie);
bParsingOK = TRUE;
}
break;
case SRV_RANDOM_FOUND: // Random search server reply
default:
if (pCookie)
ReleaseCookie(wCookie);
break;
}
// For debugging purposes only
if (!bParsingOK)
{
debugLogA("Warning: Parsing error in 15/03 search reply type x%x", wReplySubtype);
_ASSERTE(!bParsingOK);
}
}
void CIcqProto::handleExtensionMetaResponse(BYTE *databuf, WORD wPacketLen, WORD wCookie, WORD wFlags)
{
WORD wReplySubtype;
BYTE bResultCode;
_ASSERTE(wPacketLen >= 3);
if (wPacketLen >= 3)
{
// Reply subtype
unpackLEWord(&databuf, &wReplySubtype);
wPacketLen -= 2;
// Success byte
unpackByte(&databuf, &bResultCode);
wPacketLen -= 1;
switch (wReplySubtype)
{
case META_SET_PASSWORD_ACK:
parseUserInfoUpdateAck(databuf, wPacketLen, wCookie, wReplySubtype, bResultCode);
break;
case SRV_RANDOM_FOUND:
case SRV_USER_FOUND:
case SRV_LAST_USER_FOUND:
parseSearchReplies(databuf, wPacketLen, wCookie, wReplySubtype, bResultCode);
break;
case META_PROCESSING_ERROR: // Meta processing error server reply
// Todo: We only use this as an SMS ack, that will have to change
{
// Terminate buffer
char *pszInfo = (char *)_alloca(wPacketLen + 1);
if (wPacketLen > 0)
memcpy(pszInfo, databuf, wPacketLen);
pszInfo[wPacketLen] = 0;
ProtoBroadcastAck(NULL, ICQACKTYPE_SMS, ACKRESULT_FAILED, (HANDLE)wCookie, (LPARAM)pszInfo);
FreeCookie(wCookie);
break;
}
break;
case META_SMS_DELIVERY_RECEIPT:
// Todo: This overlaps with META_SET_AFFINFO_ACK.
// Todo: Check what happens if result != A
if (wPacketLen > 8)
{
WORD wNetworkNameLen;
WORD wAckLen;
char *pszInfo;
databuf += 6; // Some unknowns
wPacketLen -= 6;
unpackWord(&databuf, &wNetworkNameLen);
if (wPacketLen >= (wNetworkNameLen + 2))
{
databuf += wNetworkNameLen;
wPacketLen -= wNetworkNameLen;
unpackWord(&databuf, &wAckLen);
if (pszInfo = (char *)_alloca(wAckLen + 1))
{
// Terminate buffer
if (wAckLen > 0)
memcpy(pszInfo, databuf, wAckLen);
pszInfo[wAckLen] = 0;
ProtoBroadcastAck(NULL, ICQACKTYPE_SMS, ACKRESULT_SENTREQUEST, (HANDLE)wCookie, (LPARAM)pszInfo);
FreeCookie(wCookie);
// Parsing success
break;
}
}
}
// Parsing failure
debugLogA("Error: Failure parsing META_SMS_DELIVERY_RECEIPT");
break;
case META_DIRECTORY_DATA:
case META_DIRECTORY_RESPONSE:
if (bResultCode == 0x0A)
handleDirectoryQueryResponse(databuf, wPacketLen, wCookie, wReplySubtype, wFlags);
else
debugLogA("Error: Directory request failed, code %u", bResultCode);
break;
case META_DIRECTORY_UPDATE_ACK:
if (bResultCode == 0x0A)
handleDirectoryUpdateResponse(databuf, wPacketLen, wCookie, wReplySubtype);
else
debugLogA("Error: Directory request failed, code %u", bResultCode);
break;
case META_BASIC_USERINFO:
case META_WORK_USERINFO:
case META_MORE_USERINFO:
case META_NOTES_USERINFO:
case META_EMAIL_USERINFO:
case META_INTERESTS_USERINFO:
case META_AFFILATIONS_USERINFO:
case META_SHORT_USERINFO:
case META_HPAGECAT_USERINFO:
debugLogA("Warning: Ignored 15/03 (legacy user info) replysubtype x%x", wReplySubtype);
break;
default:
debugLogA("Warning: Ignored 15/03 replysubtype x%x", wReplySubtype);
// _ASSERTE(0);
break;
}
// Success
return;
}
// Failure
debugLogA("Warning: Broken 15/03 ExtensionMetaResponse");
}
void CIcqProto::handleDirectoryUpdateResponse(BYTE *databuf, WORD wPacketLen, WORD wCookie, WORD wReplySubtype)
{
WORD wBytesRemaining = 0;
snac_header requestSnac = {0};
BYTE requestResult;
#ifdef _DEBUG
debugLogA("Received directory update response");
#endif
if (wPacketLen >= 2)
unpackLEWord(&databuf, &wBytesRemaining);
wPacketLen -= 2;
_ASSERTE(wPacketLen == wBytesRemaining);
if (!unpackSnacHeader(&requestSnac, &databuf, &wPacketLen) || !requestSnac.bValid)
{
debugLogA("Error: Failed to parse directory response");
return;
}
cookie_directory_data *pCookieData;
MCONTACT hContact;
// check request cookie
if (!FindCookie(wCookie, &hContact, (void**)&pCookieData) || !pCookieData)
{
debugLogA("Warning: Ignoring unrequested directory reply type (x%x, x%x)", requestSnac.wFamily, requestSnac.wSubtype);
return;
}
/// FIXME: we should really check the snac contents according to cookie data here ??
if (wPacketLen >= 3)
unpackByte(&databuf, &requestResult);
else
{
debugLogA("Error: Malformed directory response");
ReleaseCookie(wCookie);
return;
}
if (requestResult != 1 && requestResult != 4)
{
debugLogA("Error: Directory request failed, status %u", requestResult);
if (pCookieData->bRequestType == DIRECTORYREQUEST_UPDATEOWNER)
ProtoBroadcastAck(NULL, ACKTYPE_SETINFO, ACKRESULT_FAILED, (HANDLE)wCookie, 0);
ReleaseCookie(wCookie);
return;
}
WORD wLen;
unpackWord(&databuf, &wLen);
wPacketLen -= 3;
if (wLen)
debugLogA("Warning: Data in error message present!");
if (pCookieData->bRequestType == DIRECTORYREQUEST_UPDATEOWNER)
ProtoBroadcastAck(NULL, ACKTYPE_SETINFO, ACKRESULT_SUCCESS, (HANDLE)wCookie, 0);
if (wPacketLen == 0x18)
{
DWORD64 qwMetaTime;
BYTE pbEmptyMetaToken[0x10] = {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0};
unpackQWord(&databuf, &qwMetaTime);
setSettingBlob(NULL, DBSETTING_METAINFO_TIME, (BYTE*)&qwMetaTime, 8);
if (memcmp(databuf, pbEmptyMetaToken, 0x10))
setSettingBlob(NULL, DBSETTING_METAINFO_TOKEN, databuf, 0x10);
}
ReleaseCookie(wCookie);
}
int CIcqProto::handleServerPackets(BYTE *buf, int len, serverthread_info *info)
{
BYTE channel;
WORD sequence;
WORD datalen;
int bytesUsed = 0;
while (len > 0)
{
if (info->bReinitRecver)
break;
// All FLAPS begin with 0x2a
if (*buf++ != FLAP_MARKER)
break;
if (len < 6)
break;
unpackByte(&buf, &channel);
unpackWord(&buf, &sequence);
unpackWord(&buf, &datalen);
if (len < 6 + datalen)
break;
#ifdef _DEBUG
NetLog_Server("Server FLAP: Channel %u, Seq %u, Length %u bytes", channel, sequence, datalen);
#endif
switch (channel) {
case ICQ_LOGIN_CHAN:
handleLoginChannel(buf, datalen, info);
break;
case ICQ_DATA_CHAN:
handleDataChannel(buf, datalen, info);
break;
case ICQ_ERROR_CHAN:
handleErrorChannel(buf, datalen);
break;
case ICQ_CLOSE_CHAN:
handleCloseChannel(buf, datalen, info);
break; // we need this for walking thru proxy
case ICQ_PING_CHAN:
handlePingChannel(buf, datalen);
break;
default:
NetLog_Server("Warning: Unhandled Server FLAP Channel: Channel %u, Seq %u, Length %u bytes", channel, sequence, datalen);
break;
}
/* Increase pointers so we can check for more FLAPs */
buf += datalen;
len -= (datalen + 6);
bytesUsed += (datalen + 6);
}
return bytesUsed;
}
