[reseaux] SOCKET - Connection via proxy
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:
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