[igord]

Сообщение от Pilot_Red

так а что не понятного. вычисляешь хеш:

Код:

uses
IdHashMessageDigest
...............
function md5(s: string): string; 
 begin 
  Result := ''; 
  with TIdHashMessageDigest5.Create do 
  try 
  Result := AnsiLowerCase(AsHex(HashValue(s))); 
  finally 
  Free; 
  end; 
 end;

и отправляешь его строчкой serverSocket1.Socket.Connections[0].SendText

SendText отправляет текстовые строки.
И эта ваша функция вернёт строку такого плана d41d8cd98f00b204e9800998ecf8427e.

Поэтому ответ сервера будет выглядеть так(смотрю сниффером портов):

Код:

HTTP/1.1 101 Web Socket Protocol Handshake
Upgrade: WebSocket
Connection: Upgrade
Sec-WebSocket-Origin: http://example.com
Sec-WebSocket-Location: ws://example.com/demo
Sec-WebSocket-Protocol: sample
 
d41d8cd98f00b204e9800998ecf8427e

А надо так:

Код:

HTTP/1.1 101 Web Socket Protocol Handshake
Upgrade: WebSocket
Connection: Upgrade
Sec-WebSocket-Origin: http://example.com
Sec-WebSocket-Location: ws://example.com/demo
Sec-WebSocket-Protocol: sample
 
8jKS'y:G*Co,Wxa-