Bonjour,
en développant une petite application permettant de se connecter à un serveur, une nouvelle contrainte m'a été imposée, le client doit passer un proxy privé avant d'atteindre le serveur de destination.
Résumé :

Mon Client sur mon poste ---> PROXY ---> SERVEUR

En prendant un code comme celui là (basé sur un code trouvé sur le forum):

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
#!/usr/local/bin/perl   
use IO::Socket;   
$socket1 = IO::Socket::INET->new(  
Type => SOCK_STREAM, 
PeerAddr => "80.10.220.XX", 
Proto => "tcp", PeerPort => 1337  );     
 
print $socket1 "Message de la socket vers le serveur\n\n\n";   
 
# Réponse de <server1> 
$ligne = <$socket1>; 
print "Message du serveur reçu par la socket = $ligne\n
Ici donc, on se connecte au serveur 80.10.... sur le 1337.
Comment faire pour répondre à ma problèmatique ??

D'avance merci