Discussion :

[Olivier Regnier]

Bonjour

Comme expliqué dans le titre, je désire récupérer l'adresse ip d'un visiteur même si celui-ci passe par un serveur proxy.

J'ai le code PHP:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
<?php
$ip = (getenv('HTTP_X_FORWARDED_FOR') ? getenv('HTTP_X_FORWARDED_FOR') : getenv('REMOTE_ADDR'));
return $ip;
?>

En perl, toujours un problème de syntaxe:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
sub ip
{
     our $ip=(($ENV{'HTTP_X_FORWARDED_FOR'}) ? ($ENV{'HTTP_X_FORWARDED_FOR'}) : ($ENV{'REMOTE_ADDR'}));
     return $ip;
}

J'ai bien entendu testé le script PHP et il fonctionne même en passant par exemple avec le serveur proxy de Free.

Merci

[Olivier Regnier]

J'ai trouvé une solution pour trouvé l'adresse IP du client, le nom d'hôte et les mêmes informations concernant le proxy s'il l'utilise.

Début:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
package Utils;     # Package name
use strict;        # Checking all variables
 
my $cgi=new CGI;   # New CGI object

Client:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
sub visitor
{
	our $visitor_ip=$ENV{HTTP_X_FORWARDED_FOR} || $cgi->remote_addr();
	our $visitor_host=(gethostbyaddr(pack("C4", split(/\./, $visitor_ip)), 2))[0];
	return $visitor_ip;
	return $visitor_host;
}

Proxy:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
sub proxy
{
	our $proxy_ip=$ENV{HTTP_X_FORWARDED_FOR} && $cgi->remote_addr();
	our $proxy_host=(gethostbyaddr(pack("C4", split(/\./, $proxy_ip)), 2))[0];
	return $proxy_ip;
	return $proxy_host;
}
 
1:

Dans l'exemple, j'utilise un module d'ou l'utilisation de our.

++