如何使用Synapse建立安全连接？

Question

我正在测试 Synapse，想知道如何建立安全连接。我注意到它支持 SSL，但我不确定它是否适合我的需要。我没有 CA 的证书。我只想加密服务器程序和客户端程序之间的所有数据。当然，我可以在发送之前自己加密数据。但如果 SSL 可以加密数据，也许我就可以使用它。据我所知，SSL是用于“加密”和“身份验证”。我需要的只是“加密”。 Synapse 可以吗？

更新：

感谢 daemon_x 和 Synapse 作者 Lukas Gebauer 的帮助，我想我终于让它工作了。以下是我所做的：

服务器端：

1）在您的设备中使用 ssl_openssl 并将“libeay32.dll”和“ssleay32.dll”放入 exe 文件的同一目录中

2）连接后接受，为新创建的套接字添加以下代码行。

fclient.SSLAcceptConnection;

客户端：

1）在您的设备中使用ssl_openssl，并将'libeay32.dll'和'ssleay32.dll'放入exe文件的同一目录中

2）连接到服务器后，添加以下行。

fclient.SSLDoConnect;

如果没有发生错误，则连接现在是安全的。但是，当您运行代码时，如 Synapse 文档中所述，您可能会注意到 SSLAcceptConnection 需要一些时间才能返回。因此，如果您想加快速度，最好预先创建证书文件和私钥文件。并在 SSLAcceptConnection 前添加以下代码

  fclient.SSL.CertificateFile := 'bs-cert';
  fclient.SSL.PrivateKeyFile := 'bs-privatekey';

如果您没有证书和私钥，请参考 ssl_openssl 中的“CreateSelfSignedCert”获取自签名证书和私钥。您可以通过 WriteStrToStream 将 FCertificate 和 FPrivatekey 保存到文件中，并在以后使用它们。

Answer 1

是的;您可以使用 Synapse 附带的插件之一。正如那里也提到的，最好是使用 ssl_openssl.pas。如果您决定遵循这一点，除了 Sysapse 之外，您还需要 OpenSSL 库。作者推荐 OpenSSL 0.9.7 但正如他在我们本地所说的那样论坛似乎也适用于 OpenSSL 1.0.0d。

请注意，如果您使用的是 D2009 以上，您将需要 Unicode 支持，但该版本尚未完全支持。请下载最新版本。

以下示例代码接收前 1024 个字节，作为对使用 SSL 加密的安全网站的 HTTP GET 方法的响应。我用过它 OpenSSL 0.9.8h 与 Synapse 的最新版本。请注意，您需要将 OpenSSL 包中的 libssl32.dll 和 libeay32.dll 放入输出目录中才能正常工作。让我们有一个带有按钮和备忘录的表单，我们可以在其中接收结果。

uses blcksock, synautil, synsock, ssl_openssl, ssl_openssl_lib;

procedure TForm1.Button1Click(Sender: TObject);
var Socket: TTCPBlockSocket;

begin
  Socket := TTCPBlockSocket.Create;

  try
    Socket.Connect('www.yousendit.com', '443'); // connect to the host
    Socket.SSLDoConnect; // start SSL connection; only server has a certificate

    if Socket.LastError = 0 then
      begin
        Socket.SendString('GET' + CRLF); // request GET method
        Memo1.Text := Socket.RecvBufferStr(1024, 1000); // receive 1024 bytes
      end;

  finally
    Socket.Free;
  end;
end;