IdMappedPortTCP OnOutboundConnect Support SSL

Question

J'essaie de créer un programme simple qui permet aux clients non-SSL de communiquer via SSL.

Fondamentalement, IdMappedPortTCP accepte les clients non cryptés (non SSL) et transmet les données via SSL aux propriétés MappedHost et MappedPort spécifiées.

Jusqu'à présent, j'essayé le code suivant sur l'événement OnOutboundConnect mais il semble ne fonctionne pas:

AContext.Connection.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(AContext.Connection); 

Pensez comme une version simple de stunnel (proxy SSL/TLS)

Answer 1

Vous attribue le mauvais IOHandler dans le mauvais événement.

Vous affectez le IOHandler de la connexion au client, pas le IOHandler de la connexion au serveur mappé. Et vous le faites dans l'événement qui est déclenché après que la connexion au serveur mappé a été établie.

De même, lors de l'établissement de la session SSL, vous devez définir la propriété PassThrough de SSLIOHandler sur False. C'est vrai par défaut.

En cas OnConnect au lieu de l'événement OnOutboundConnect, utilisez ceci:

var 
    Conn: TIdTCPConnection; 
    SSL: TIdSSLIOHandlerSocketOpenSSL; 
begin 
    Conn := TIdMappedPortContext(AContext).OutboundClient; 
    SSL := TIdSSLIOHandlerSocketOpenSSL.Create(Conn); 
    SSL.PassThrough := False; 
    Conn.IOHandler := SSL; 
end;