Winsock. Различить запрос.

[ExiliM]

Возможно ли как то различить полученные данные?
то есть например приняты данные, в виде "X" и "X" но одно из них является к примеру фраза для добавление в чат, а другое означает команду?(допустим передать файл).
з.ы либо самый оптимальный вариант "Х" который идёт в чат, отправлять пустым, а к команде добавлять какой нибудь знак/знаки? которые при получении будут проверятся сервером и отсеиваться?

[Хакер]

Человек, ты, что, издеваешься?

Тебе дали возможность передавать данные. Любые. Этого, что, мало? Не способен придумать протокол? Тогда брось заниматься этим.

[iGrok]

з.ы либо самый оптимальный вариант "Х" который идёт в чат, отправлять пустым, а к команде добавлять какой нибудь знак/знаки? которые при получении будут проверятся сервером и отсеиваться?

Нуу.. Зачатки протокола уже есть. Мысль пошла в правильном направлении. Но не понятно, почему она вдруг остановилась?

[ExiliM]

дык как я могу "придумать" протокол? если он уже придуман задолго до меня...мне просто нужно создать некую функцию, которая бы различала что куда пришло, и желательно с наименьшей потерей времени(скорости).
з.ы у меня под ником не стоит "Гуру" так что не нужно так сильно на меня налегать)
з.з.ы да кстати

Тогда брось заниматься этим.

что творишь!), и так безNetовские платформы скоро станут не востребованны, когда наберут скорость..а ты народу предлагаешь забить на всё)

[Денис]

дык как я могу "придумать" протокол?

Значит, слухай сюды: Твой протокол будет пользовательским. Как OSCAR аськи, например. Понял теперь, о каком протоколе тут толкуют?

[ExiliM]

на сколько я понял из одной статьи.

FLAP — Frame Layer Protocol
В протоколе OSCAR, FLAP обспечивает работу с серверами на уровне TCP или слоя TLS. Каждое сообщение, посланное в или от клиента, заключено в структуре FLAP, которую легко идентифицировать, используя 6-ти байтовый заголовок, который сопровождается данными. Данные в FLAP — в большинстве случаев содеражат SNAC.

и

SNAC — Simple Network Atomic Communication
SNAC представляют сообщения протокола, которые посылают между собой клиент и сервер. Эти сообщения разделены на различные группы, в данной документации назваемые «foodgroup». В пределах каждой из группы есть различные виды сообщений, связанных с группой.

вначале отсылается блок состоящий из текста и заголовка, который по прибытии "Data_Arrival" проверяется заголовком, и на месте отсеивается?
так же проверяется структура, и неизвестная игнорируеся, то есть переходит как бы в окно чата?

[MIT]

OSCAR был приведен в качестве примера клиентского протокола. Тебе совсем не обязательно делать тоже самое, сделай проще, по своим потребностям.
Например:

Код: Выделить всё

4 байта — идентификатор сессии связи
2 байта — тип сообщения
4 байта — длина тела сообщения
byte() — тело сообщения

Всё. Готово. Осталось только реализовать.

[ExiliM]

не совсем понял про идентификатор сессии связи, по какому принципу он будет определяться?

[Денис]

не совсем понял про идентификатор сессии связи, по какому принципу он будет определяться?

Это из-за непонимания ответа №1, данного Хакером. Вы открываете сессию связи. Вы присваиваете ей порядковый номер. Вы записываете порядковый номер в заголовок пакета. Вы формируете пакет. По Вашему стандарту Вы формируете. Пакет. Ну поймите уж это, наконец!
_________________

Единственное, что хотелось бы добавить к предложению MIT, это сигнатуру вашего протокола. Она должна идти вначале. Чтобы ваша программа сначала читала сигнатуру принятого пакета, и если это что-то левое, сразу отбрасывала.

Код: Выделить всё

N байт — сигнатура протокола (фиксированное строковое значение (рекомендуется использовать латиницу, чтобы бейсик не городил огород с уникодом)
4 байта — идентификатор сессии связи
2 байта — тип сообщения
4 байта — длина тела сообщения
byte() — тело сообщения

Как-то так:

Код: Выделить всё

Public Type PROTOKOL
    mdpSign as String(8)
    mdpSID as Long
    mdpMID as Integer
    mdpLength as Long
    mdpData() as Byte
End Type

Потом присваиваем сигнатуру и отправляем (это серверная часть)

Код: Выделить всё

Dim Packet as PROTOKOL

Packet.mdpSign = "PROTOKOL"

В клиентской части принимаем и смотрим сигнатуру:

Код: Выделить всё

if not Packet.mdpSign = "PROTOKOL" then exit sub

_________________

Ха-ха! Кстати! Я только что изобрел протокол PROTOKOL!

[ExiliM]

спасибо большое, наверняка приятно иногда помочь не знающему человеку ))
а вот вопрос такой...не может ли клиент подделать и послать "левый" пакет, который сервер распознает как "свой"?

[Sirik]

а если сообщение будет длинным (не помню точно вроде > 8Кб), то сообщение будет разрезано на куски, посему надо либо ограничить длину, либо собирать и потом только анализировать.

зы.

а вот вопрос такой...не может ли клиент подделать и послать "левый" пакет, который сервер распознает как "свой"?

конечно может) сделай, что в момент конекта клиента к серверу, ему присваивался какой-не будь рандомный номер-код

[ExiliM]

а если просто напросто c=a xor b?
и при получении обратно? вряд ли юзер додумается?

[Денис]

спасибо большое, наверняка приятно иногда помочь не знающему человеку ))
а вот вопрос такой...не может ли клиент подделать и послать "левый" пакет, который сервер распознает как "свой"?

Значит, слухай сюды: Если тебе нужна защита от дурака, то следуй совету Sirik, если же тебе нужна тру-Ъ-крипто-шифрация, то генерируй сертификаты и передавай шифрованные данные в пакетах. Даже если посторонний и сгенерирует пакет, похожий на твой, если у него не будет твоего ключа, он ничего не сможет передать.

[ExiliM]

всем спасибо) наконец то в этом разобрался)

[ExiliM]

Вопрос такой, можно передать Тип? или обязательно показывать какой из элементов передавать, как тут?
имею ввиду например Dim Packet as ASX .........ws.SendData Packet? но на это ругается, а возмонжно как то легче сделать чем ниже?

Код: Выделить всё

Private Type ASX
Signature As String
DataLen As Byte
Data As String
End Type
Dim Packet As ASX

Function Set_Pack(message As String) As String
With Packet
.Signature = "ASX"
.DataLen = Len(.Data)
.Data = message
Set_Pack = .Signature & vbCrLf & .DataLen & vbCrLf & .Data
End With
End Function

и соответственно в клиенте:

Код: Выделить всё

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
ws.GetData Packet.Signature
If Not CRYPTO.Message_Decrypt(Packet.Signature) = "ASX" Then MsgBox "Packet is missing! Or bad signature!", vbCritical
End Sub

либо лучше загрузить весь пакет в переменную? и mid'om left'om и т.д уже разбивать?
то есть отправить весь тип клиенту в переменную?

Код: Выделить всё

Dim Incomming_Data As String
ws.GetData Incomming_Data

ps.
Crypto эт дллка котрая шифрует/дешифрует пакет, вообщем не суть.

[BION]

ExiliM,

Вот тут почитай: http://www.vbstreets.ru/VB/Articles/65986.aspx
В конце исходник.

[ExiliM]

О, спасиб..