Code: Select all
procedure TClientHandshakeLayer.ReplyToMessage(Message: THandshakeMessage);
begin
...
htHelloRequest:
MakeClientRenegotiateMessage;
...
end;
Code: Select all
procedure TClientHandshakeLayer.MakeClientHelloMessage;
...
begin
if (FState <> htNothing) and (FState <> htFinished) and (FState <> htServerHello) then
raise EscError.Create(seUnexpectedPacketType);
Replacing with
Code: Select all
// if (FState <> htHelloRequest) and (FState <> htNothing) and (FState <> htFinished) and (FState <> htServerHello) then
if not (FState in [htHelloRequest, htNothing, htFinished, htServerHello]) then
raise EscError.Create(seUnexpectedPacketType);