summaryrefslogtreecommitdiff
path: root/protocols/Tlen/src/tlen_util.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'protocols/Tlen/src/tlen_util.cpp')
-rw-r--r--protocols/Tlen/src/tlen_util.cpp444
1 files changed, 0 insertions, 444 deletions
diff --git a/protocols/Tlen/src/tlen_util.cpp b/protocols/Tlen/src/tlen_util.cpp
deleted file mode 100644
index b0efd769ba..0000000000
--- a/protocols/Tlen/src/tlen_util.cpp
+++ /dev/null
@@ -1,444 +0,0 @@
-/*
-
-Jabber Protocol Plugin for Miranda IM
-Tlen Protocol Plugin for Miranda NG
-Copyright (C) 2002-2004 Santithorn Bunchua
-Copyright (C) 2004-2007 Piotr Piastucki
-
-This program is free software; you can redistribute it and/or
-modify it under the terms of the GNU General Public License
-as published by the Free Software Foundation; either version 2
-of the License, or (at your option) any later version.
-
-This program is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-GNU General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with this program; if not, write to the Free Software
-Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-
-*/
-
-#include "stdafx.h"
-#include "tlen_list.h"
-#include <ctype.h>
-#include <win2k.h>
-
-void TlenSerialInit(TlenProtocol *proto)
-{
- proto->serial = 0;
-}
-
-unsigned int TlenSerialNext(TlenProtocol *proto)
-{
- unsigned int ret;
-
- mir_cslock lck(proto->csSerial);
- ret = proto->serial;
- proto->serial++;
- return ret;
-}
-
-// Caution: DO NOT use TlenSend() to send binary (non-string) data
-
-int TlenSend(TlenProtocol *proto, const char *fmt, ...)
-{
- char *str;
- int size;
- va_list vararg;
- int result = 0;
-
- mir_cslock lck(proto->csSend);
-
- va_start(vararg, fmt);
- size = 512;
- str = (char *)mir_alloc(size);
- while (mir_vsnprintf(str, size, fmt, vararg) == -1) {
- size += 512;
- str = (char *)mir_realloc(str, size);
- }
- va_end(vararg);
-
- proto->debugLogA("SEND:%s", str);
- size = (int)mir_strlen(str);
- if (proto->threadData != nullptr) {
- if (proto->threadData->useAES) {
- result = TlenWsSendAES(proto, str, size, &proto->threadData->aes_out_context, proto->threadData->aes_out_iv);
- }
- else {
- result = TlenWsSend(proto, proto->threadData->s, str, size);
- }
- }
-
- mir_free(str);
- return result;
-}
-
-char *TlenResourceFromJID(const char *jid2)
-{
- char *p;
- char *nick;
- char* jid = mir_strdup(jid2);
-
- p = strchr(jid, '/');
- if (p != nullptr && p[1] != '\0') {
- p++;
- if ((nick = (char *)mir_alloc(1 + mir_strlen(jid) - (p - jid))) != nullptr) {
- strncpy(nick, p, mir_strlen(jid) - (p - jid));
- nick[mir_strlen(jid) - (p - jid)] = '\0';
- }
- }
- else {
- nick = mir_strdup(jid);
- }
-
- mir_free(jid);
- return nick;
-}
-
-char *TlenNickFromJID(const char *jid2)
-{
- char *p;
- char *nick;
- char* jid = mir_strdup(jid2);
-
- if ((p = strchr(jid, '@')) == nullptr)
- p = strchr(jid, '/');
- if (p != nullptr) {
- if ((nick = (char *)mir_alloc((p - jid) + 1)) != nullptr) {
- strncpy(nick, jid, p - jid);
- nick[p - jid] = '\0';
- }
- }
- else {
- nick = mir_strdup(jid);
- }
-
- mir_free(jid);
- return nick;
-}
-
-char *TlenLoginFromJID(const char *jid2)
-{
- char *p;
- char *nick;
- char* jid = mir_strdup(jid2);
-
- p = strchr(jid, '/');
- if (p != nullptr) {
- if ((nick = (char *)mir_alloc((p - jid) + 1)) != nullptr) {
- strncpy(nick, jid, p - jid);
- nick[p - jid] = '\0';
- }
- }
- else {
- nick = mir_strdup(jid);
- }
-
- mir_free(jid);
- return nick;
-}
-
-char *TlenLocalNickFromJID(const char *jid)
-{
- char *p;
- char *localNick;
-
- p = TlenNickFromJID(jid);
- localNick = TlenTextDecode(p);
- mir_free(p);
- return localNick;
-}
-
-char *TlenSha1(char *str)
-{
- mir_sha1_ctx sha;
- DWORD digest[5];
- char* result;
-
- if (str == nullptr)
- return nullptr;
-
- mir_sha1_init(&sha);
- mir_sha1_append(&sha, (BYTE*)str, (int)mir_strlen(str));
- mir_sha1_finish(&sha, (BYTE*)digest);
- if ((result = (char *)mir_alloc(41)) == nullptr)
- return nullptr;
- sprintf(result, "%08x%08x%08x%08x%08x", (int)htonl(digest[0]), (int)htonl(digest[1]), (int)htonl(digest[2]), (int)htonl(digest[3]), (int)htonl(digest[4])); //!!!!!!!!!!!
- return result;
-}
-
-char *TlenSha1(char *str, int len)
-{
- mir_sha1_ctx sha;
- BYTE digest[20];
- char* result;
- int i;
-
- if (str == nullptr)
- return nullptr;
-
- mir_sha1_init(&sha);
- mir_sha1_append(&sha, (BYTE*)str, len);
- mir_sha1_finish(&sha, digest);
- if ((result = (char*)mir_alloc(20)) == nullptr)
- return nullptr;
- for (i = 0; i < 20; i++)
- result[i] = digest[4 * (i >> 2) + (3 - (i & 0x3))];
- return result;
-}
-
-char *TlenPasswordHash(const char *str)
-{
- int magic1 = 0x50305735, magic2 = 0x12345671, sum = 7;
- char *p, *res;
-
- if (str == nullptr) return nullptr;
- for (p = (char *)str; *p != '\0'; p++) {
- if (*p != ' ' && *p != '\t') {
- magic1 ^= (((magic1 & 0x3f) + sum) * ((char)*p)) + (magic1 << 8);
- magic2 += (magic2 << 8) ^ magic1;
- sum += ((char)*p);
- }
- }
- magic1 &= 0x7fffffff;
- magic2 &= 0x7fffffff;
- res = (char *)mir_alloc(17);
- sprintf(res, "%08x%08x", magic1, magic2); //!!!!!!!!!!!
- return res;
-}
-
-char *TlenUrlEncode(const char *str)
-{
- char *p, *q, *res;
- unsigned char c;
-
- if (str == nullptr) return nullptr;
- res = (char *)mir_alloc(3 * mir_strlen(str) + 1);
- for (p = (char *)str, q = res; *p != '\0'; p++, q++) {
- if (*p == ' ') {
- *q = '+';
- }
- else if (*p < 0x20 || *p >= 0x7f || strchr("%&+:'<>\"", *p) != nullptr) {
- // Convert first from CP1252 to ISO8859-2
- switch ((unsigned char)*p) {
- case 0xa5: c = (unsigned char)0xa1; break;
- case 0x8c: c = (unsigned char)0xa6; break;
- case 0x8f: c = (unsigned char)0xac; break;
- case 0xb9: c = (unsigned char)0xb1; break;
- case 0x9c: c = (unsigned char)0xb6; break;
- case 0x9f: c = (unsigned char)0xbc; break;
- default: c = (unsigned char)*p; break;
- }
- sprintf(q, "%%%02X", c); //!!!!!!!!!!!
- q += 2;
- }
- else {
- *q = *p;
- }
- }
- *q = '\0';
- return res;
-}
-
-void TlenUrlDecode(char *str)
-{
- char *p, *q;
- unsigned int code;
-
- if (str == nullptr) return;
- for (p = q = str; *p != '\0'; p++, q++) {
- if (*p == '+') {
- *q = ' ';
- }
- else if (*p == '%' && *(p + 1) != '\0' && isxdigit(*(p + 1)) && *(p + 2) != '\0' && isxdigit(*(p + 2))) {
- sscanf(p + 1, "%2x", &code);
- *q = (char)code;
- // Convert from ISO8859-2 to CP1252
- switch ((unsigned char)*q) {
- case 0xa1: *q = (char)0xa5; break;
- case 0xa6: *q = (char)0x8c; break;
- case 0xac: *q = (char)0x8f; break;
- case 0xb1: *q = (char)0xb9; break;
- case 0xb6: *q = (char)0x9c; break;
- case 0xbc: *q = (char)0x9f; break;
- }
- p += 2;
- }
- else {
- *q = *p;
- }
- }
- *q = '\0';
-}
-
-char * TlenGroupDecode(const char *str)
-{
- char *p, *q;
- if (str == nullptr) return nullptr;
- p = q = TlenTextDecode(str);
- for (; *p != '\0'; p++) {
- if (*p == '/') {
- *p = '\\';
- }
- }
- return q;
-}
-
-char * TlenGroupEncode(const char *str)
-{
- char *p, *q;
- if (str == nullptr) return nullptr;
- p = q = mir_strdup(str);
- for (; *p != '\0'; p++) {
- if (*p == '\\') {
- *p = '/';
- }
- }
- p = TlenTextEncode(q);
- mir_free(q);
- return p;
-}
-
-char *TlenTextEncode(const char *str)
-{
- char *s1;
-
- if (str == nullptr) return nullptr;
- if ((s1 = TlenUrlEncode(str)) == nullptr)
- return nullptr;
- return s1;
-}
-
-char *TlenTextDecode(const char *str)
-{
- char *s1;
-
- if (str == nullptr) return nullptr;
- s1 = mir_strdup(str);
- TlenUrlDecode(s1);
- return s1;
-}
-
-/*
- * Apply Polish Daylight Saving Time rules to get "DST-unbiased" timestamp
- */
-
-time_t TlenTimeToUTC(time_t time) {
- struct tm *timestamp;
- timestamp = gmtime(&time);
- if ((timestamp->tm_mon > 2 && timestamp->tm_mon < 9) ||
- (timestamp->tm_mon == 2 && timestamp->tm_mday - timestamp->tm_wday >= 25) ||
- (timestamp->tm_mon == 9 && timestamp->tm_mday - timestamp->tm_wday < 25)) {
- //time -= 3600;
- }
- else {
- //time += 3600;
- }
- return time;
-}
-
-time_t TlenIsoToUnixTime(char *stamp)
-{
- struct tm timestamp;
- char date[9];
- char *p;
- int i, y;
- time_t t;
-
- if (stamp == nullptr) return (time_t)0;
-
- p = stamp;
-
- // Get the date part
- for (i = 0; *p != '\0' && i < 8 && isdigit(*p); p++, i++)
- date[i] = *p;
-
- // Parse year
- if (i == 6) {
- // 2-digit year (1970-2069)
- y = (date[0] - '0') * 10 + (date[1] - '0');
- if (y < 70) y += 100;
- }
- else if (i == 8) {
- // 4-digit year
- y = (date[0] - '0') * 1000 + (date[1] - '0') * 100 + (date[2] - '0') * 10 + date[3] - '0';
- y -= 1900;
- }
- else
- return (time_t)0;
- timestamp.tm_year = y;
- // Parse month
- timestamp.tm_mon = (date[i - 4] - '0') * 10 + date[i - 3] - '0' - 1;
- // Parse date
- timestamp.tm_mday = (date[i - 2] - '0') * 10 + date[i - 1] - '0';
-
- // Skip any date/time delimiter
- for (; *p != '\0' && !isdigit(*p); p++);
-
- // Parse time
- if (sscanf(p, "%d:%d:%d", &(timestamp.tm_hour), &(timestamp.tm_min), &(timestamp.tm_sec)) != 3)
- return (time_t)0;
-
- timestamp.tm_isdst = 0; // DST is already present in _timezone below
- _tzset();
- t = mktime(&timestamp);
- t -= _timezone;
- t = TlenTimeToUTC(t);
-
- if (t >= 0)
- return t;
- else
- return (time_t)0;
-}
-
-void TlenStringAppend(char **str, int *sizeAlloced, const char *fmt, ...)
-{
- va_list vararg;
- char *p;
- int size, len;
-
- if (str == nullptr) return;
-
- if (*str == nullptr || *sizeAlloced <= 0) {
- *sizeAlloced = size = 2048;
- *str = (char *)mir_alloc(size);
- len = 0;
- }
- else {
- len = (int)mir_strlen(*str);
- size = *sizeAlloced - (int)mir_strlen(*str);
- }
-
- p = *str + len;
- va_start(vararg, fmt);
- while (mir_vsnprintf(p, size, fmt, vararg) == -1) {
- size += 2048;
- (*sizeAlloced) += 2048;
- *str = (char *)mir_realloc(*str, *sizeAlloced);
- p = *str + len;
- }
- va_end(vararg);
-}
-
-BOOL IsAuthorized(TlenProtocol *proto, const char *jid)
-{
- TLEN_LIST_ITEM *item = TlenListGetItemPtr(proto, LIST_ROSTER, jid);
- if (item != nullptr) {
- return item->subscription == SUB_BOTH || item->subscription == SUB_FROM;
- }
- return FALSE;
-}
-
-
-void TlenLogMessage(TlenProtocol *proto, MCONTACT hContact, DWORD flags, const char *message)
-{
- int size = (int)mir_strlen(message) + 2;
- char *localMessage = (char *)mir_alloc(size);
- mir_strcpy(localMessage, message);
- localMessage[size - 1] = '\0';
- TlenDBAddEvent(proto, hContact, EVENTTYPE_MESSAGE, flags, (PBYTE)message, (DWORD)size);
- mir_free(localMessage);
-}
generated by cgit v1.2.3 (git 2.25.1) at 2025-02-13 00:09:07 +0000