ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
04.02.2008, 04:09
|
|
Новичок
Регистрация: 11.04.2006
Сообщений: 26
Провел на форуме:
46451
Репутация:
4
|
|
TICQClient && XSTATUS
Всем привет,
Пытался изменить компонент так, что бы можно было выставлять х-статус. Следовал инструкциям одного товарища - http://forum.asechka.ru/showpost.php?p=326491&postcount=95 (с учётом всех его постов из темы). Откомпилил - толку нет. Кто нибудь напишите код выставления x-статуса, спасибо  |
|
|
04.02.2008, 12:55
|
|
Постоянный
Регистрация: 03.08.2007
Сообщений: 367
Провел на форуме:
876216
Репутация:
209
|
|
Насколько знаю, х-статусы отсылаются клиентом как его capabilities, если нужен список - могу выложить...
|
|
|
|
04.02.2008, 13:05
|
|
Новичок
Регистрация: 11.04.2006
Сообщений: 26
Провел на форуме:
46451
Репутация:
4
|
|
Да я если честно, просто банально не шарю в этом протоколе и что куда настрочить не знаю. Ниже функция, в которую автор рекомендует вставить код, может подскажешь что добавить или изменить, потому что его код у меня не заработал  Далее он писал, что не работало потому что сначало надо выполнить SSLActivate (код тоже выкладывал), но и она ничего не изменила.
{This packet sends the client's capabilities information to the server.}
procedure CreateCLI_SETUSERINFO(Pkt: PRawPkt; var Seq: Word);
const
caps: array[0..$40 - 1] of Byte = (
$09, $46, $13, $49, $4C, $7F, $11, $D1, $82, $22, $44, $45, $53, $54, $00, $00,
$97, $B1, $27, $51, $24, $3C, $43, $34, $AD, $22, $D6, $AB, $F7, $3F, $14, $92,
$2E, $7A, $64, $75, $FA, $DF, $4D, $C8, $88, $6F, $EA, $35, $95, $FD, $B6, $DF,
$09, $46, $13, $44, $4C, $7F, $11, $D1, $82, $22, $44, $45, $53, $54, $00, $00
);
begin
PktInit(Pkt, 2, Seq); //Channel 2
PktSnac(Pkt, $02, $04, 0, 0); //Snac: Type x02/x04, ID x0000, Flags 0
PktTLV(Pkt, 5, Length(caps), @caps); //Client's capabilities
PktFinal(Pkt); //Finalize packet
end;
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
