Erlang OTP 25中OCSP Stapling的替代方案咨询

问题说明 #

Erlang OTP 25 中的 OCSP stapling 仍处于开发阶段（WIP），直接在 SSLOpts 中配置 {ocsp_stapling, true} 会触发以下错误：

TLS client: In state certify at ssl_handshake.erl:363 generated CLIENT ALERT: Fatal - Internal Error

• {unexpected_error,badarg}
  ** exception error: no match of right hand side value {error,{tls_alert,{internal_error,"TLS client: In state certify at ssl_handshake.erl:363 generated CLIENT ALERT: Fatal - Internal Error
  {unexpected_error,badarg}"}}}

以下是手动实现OCSP状态注入的替代方案：

手动实现OCSP Stapling的步骤 #

1. 预先获取OCSP响应 #

可以通过 openssl 命令手动从CA的OCSP端点获取响应，或者在Erlang代码中构造请求并发起HTTP调用：

# 使用openssl获取OCSP响应
openssl ocsp -issuer issuer.crt -cert server.crt -url http://ocsp.your-ca.com -respout ocsp_response.der

如果用Erlang实现，可借助 public_key 模块解析证书，提取OCSP端点信息、证书序列号等字段，构造ASN.1格式的OCSP请求，再通过HTTP POST发送到端点获取响应。

2. 将OCSP响应注入TLS扩展 #

Erlang SSL模块支持通过 {ssl_extensions, Extensions} 选项自定义TLS扩展。OCSP stapling对应的扩展编号为 13#0005（对应OID 1.3.6.1.5.5.7.1.1），只需将获取到的OCSP二进制响应作为扩展值传入即可：

% 读取预先生成的OCSP响应文件
{ok, OcspRespBin} = file:read_file("ocsp_response.der"),
% 构造status_request扩展
StatusRequestExt = {13#0005, OcspRespBin},
% 配置SSL选项
SslOpts = [
    {certfile, "server.crt"},
    {keyfile, "server.key"},
    {ssl_extensions, [StatusRequestExt]},
    % 添加其他必要的SSL配置项
    {versions, ['tlsv1.2', 'tlsv1.3']}
],
% 启动SSL监听（服务端场景）
{ok, ListenSocket} = ssl:listen(443, SslOpts),
% 或者发起SSL连接（客户端场景）
{ok, Socket} = ssl:connect("example.com", 443, SslOpts).

3. 关键注意事项 #

• 确保OCSP响应未过期，且与当前使用的服务器证书、颁发者证书完全匹配。
• 实现响应缓存机制，避免每次TLS握手都重新请求OCSP端点，减少性能损耗。
• 处理OCSP端点不可达的情况：此时可选择不注入该扩展，或使用缓存的有效旧响应。

关于内置OCSP Stapling的错误 #

OTP 25 中该特性未完成开发，内部逻辑存在缺陷，因此直接启用 {ocsp_stapling, true} 会触发badarg错误，暂不建议使用，可通过上述手动扩展注入的方式替代。

内容的提问来源于stack exchange，提问作者Danesh Mondegarian