(например: 2.Сервер отвечает, отправляя сообщение «hello Server» для клиента, а также случайное значение сервера.

А как пакет выглядеть должен?)

procedure TForm1.Button1Click(Sender: TObject);

Var

HTTP:TidHTTP;

IdSSLOpenSSL:TIdSSLIOHandlerSocketOpenSSL;

Data:String;

begin

HTTP:=TidHTTP.Create(nil);

IdSSLOpenSSL:=TIdSSLIOHandlerSocketOpenSSL.Create(nil);

HTTP.HandleRedirects:=True;

IdSSLOpenSSL.SSLOptions.Method:= sslvSSLv3;

IdSSLOpenSSL.SSLOptions.Mode := sslmUnassigned;

IdSSLOpenSSL.SSLOptions.VerifyMode := [];

IdSSLOpenSSL.SSLOptions.VerifyDepth := 0;

HTTP.IOHandler:=IdSSLOpenSSL;

Data:=HTTP.Get('https://firstvds.com');

Memo1.Text := Data;

IdSSLOpenSSL.Free;

HTTP.Free;

end;

function SSL_connect(ssl: pointer):Integer; cdecl; external SSL_LIB_NAME;

 

function TSLESH_SSL_Socket.Connect(ip:string; port:word):boolean;

var

  nip:integer;

  phe:PHostEnt;

begin

  result := false;

  sock := socket(AF_INET, SOCK_STREAM, 0);

  ErrorFlag := sock = INVALID_SOCKET;

  // если сокет создался

  if (ErrorFlag = false) then

  begin

    nip := inet_addr(pansichar(ip));

    if nip = INADDR_NONE then // если указано доменное имя а не IP

    begin

      // резолвим имя

      phe := gethostbyname(pansichar(ip));

      if phe <> nil then

      begin

        nip := integer(pointer(phe^.h_addr^)^);

      end;

    end;

 

     //  если есть адрес сервера

    if nip <> INADDR_NONE then

    begin

      caddr.sin_family := AF_INET;

      caddr.sin_addr.s_addr := nip;

      caddr.sin_port := htons(port);

 

      // коннектитмся

      if winsock.connect(sock, caddr, sizeof(caddr)) <> SOCKET_ERROR then

      begin

        // если сконнектились то настраиваем SSL

        SSL_set_fd(ssl, sock);

        SSL_connect(ssl);

        result := true;

      end;

    end;

  end;

 

  Connected := result;

end;

GET / HTTP/1.0

или

GET / HTTP/1.1

??

 

User-Agent ???

и тд