begin process at 2012 02 09 03:24:55
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Réseau & Internet

 > CONNAÎTRE SON FAI (FOURNISSEUR D'ACCÈS À INTERNET)

CONNAÎTRE SON FAI (FOURNISSEUR D'ACCÈS À INTERNET)


 Information sur la source

Note :
9,67 / 10 - par 3 personnes
9,67 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Réseau & Internet Classé sous :connaitre, fai, fournisseur, acces, internet Niveau :Initié Date de création :28/05/2004 Date de mise à jour :29/05/2004 12:49:29 Vu / téléchargé :39 752 / 814
Auteur : Jiggy35

Ecrire un message privé
Commentaire sur cette source (17)
Ajouter un commentaire et/ou une note

 Description

*** MODIFICATION DU CODE SOURCE ***

J'ai modifié les fonctions de récupération de l'IP et de l'hôte DNS de façon à rendre le code PHP plus compatible envers les serveurs PHP.

**********************************

Cette source permet la détection de votre fournisseur d'accès depuis un programme VB se servant du résultat d'une page PHP.

Le script PHP utilise la commande "gethostbyaddr()" qui permet de connaître son nom d'hôte. Le résultat est ensuite analysé afin de reconnaître le nom de votre FAI.
Ma base de donnée des FAI en fonction des noms d'hôte est de loin incomplète mais permet déjà de reconnaître les principaux FAI. Si votre FAI n'est pas reconnu, le programme affichera simplement l'adresse web du FAI au lieu de son nom.

Ce projet m'est utile dans la réalisation d'un autre projet qui permet l'envoi de rapports de configuration automatisés par e-mail. Mon problème était que pour utiliser la fonction mail, le serveur E-Mail et le provider doivent correspondre puisque les serveur ne font plus de relais.

Avec cet outil, on peu à présent déterminer le FAI et avec un peu de jugeotte utiliser le serveur mail approprié.

J'espère que vous aurez compris le but de programme et j'espère également avoir l'heureuse surprise de vous voir me donner les informations manquantes à ma recherche, à savoir

les signatures DNS manquantes de la liste suivante :

AOL = cache-prs-ac08.proxy.aol.com
Bluewin = 98.108.77.83.cust.bluewin.ch
Cablecom(swissonline) = 62-2-184-71.business.cablecom.ch dclient80-218- 137-40.hispeed.ch
COLT France = host.12.37.23.62.rev.coltfrance.com
Club Internet = f02v-4-169.d3.club-internet.fr
Cybernet =
Econophone =
Fnac =
Free = lns-th2-4f-81-56-218-46.adsl.proxad.net
Freesurf =
Green =
Intergga = cable-ggar48-043.intergga.ch
Liberty Surf =
Magnet =
Noos = e228.dhcp212-198-149.noos.fr
tg-netcache-01.noos.net
Profitel =
SecurePoP = spfwsail01.securepop.ch
Solnet =
Sunrise = adsl-XX-XXX-XXX-XX.adslplus.ch
pop-zh-15-1-dialu p-71.freesurf.ch
Sympatico = Toronto-HSE-pppXXXXXXX.sympatico.ca
Tiscali Suisse = adsl-35-76-fixip.tiscali.ch
Tiscali France = dyn-xxx-xx-xxx-xxx.ppp.tiscali.fr
Tele2 France = d80-170-255-173.cust.tele2.fr
Urbanet =
Vidéotron = modemcableXXX.XXX-XXX-XXX.mc.videotron.ca
VTX = adsl-soholight-1-c58-p225.vtx.ch
Wanadoo = ADijon-106-1-29-20.w81-248.abo.wanadoo.fr
World Online =
9 Telecom =

ainsi vous contribuerai à l'amélioration de la reconnaissance FAI sur votre système.

Egalement si vous connaissez l'adresse des seveurs SMTP des FAI ci-dessus ou d'autres, faites-les moi connaître. Merci

Source

  • <?
  • if ($HTTP_SERVER_VARS["HTTP_X_FORWARDED_FOR"] != ""){
  • $ip = $HTTP_SERVER_VARS["HTTP_X_FORWARDED_FOR"];
  • $host = @gethostbyaddr($HTTP_SERVER_VARS["HTTP_X_FORWARDED_FOR"]);
  • }
  • else{
  • $ip = $HTTP_SERVER_VARS["REMOTE_ADDR"];
  • $host = @gethostbyaddr($HTTP_SERVER_VARS["REMOTE_ADDR"]);
  • }
  • //ancienne méthode de récupération de l'hôte et de l'IP
  • //méthode pas 100% compatible avec tous les serveurs PHP
  • //
  • //$ip = getenv('REMOTE_ADDR');
  • //$host = gethostbyaddr($ip);
  • //
  • $tmp = explode(".", $host);
  • $serv = '(www.'.$tmp[sizeof($tmp) - 2].'.'.$tmp[sizeof($tmp) - 1].')';
  • if (ereg("aol", $host)) {$fai="AOL";}
  • elseif (ereg("bluewin", $host)) {$fai="Bluewin $serv";}
  • elseif (ereg("cablecom", $host)) {$fai="Cablecom - swissonline $serv";}
  • elseif (ereg("hispeed", $host)) {$fai="Cablecom - swissonline $serv";}
  • elseif (ereg("coltfrance", $host)) {$fai="COLT France $serv";}
  • elseif (ereg("club-internet", $host)) {$fai="Club Internet $serv";}
  • elseif (ereg("proxad", $host)) {$fai="Free $serv";}
  • elseif (ereg("intergga", $host)) {$fai="InterGGA $serv";}
  • elseif (ereg("noos", $host)) {$fai="Noos $serv";}
  • elseif (ereg("securepop", $host)) {$fai="SecurePoP $serv";}
  • elseif (ereg("adslplus", $host)) {$fai="Sunrise $serv";}
  • elseif (ereg("freesurf", $host)) {$fai="Sunrise $serv";}
  • elseif (ereg("tiscali.fr", $host)) {$fai="Tiscali France $serv";}
  • elseif (ereg("tiscali.ch", $host)) {$fai="Tiscali Suisse $serv";}
  • elseif (ereg("tele2.fr", $host)) {$fai="Tele2 France $serv";}
  • elseif (ereg("videotron", $host)) {$fai="Vidéotron $serv";}
  • elseif (ereg("sympatico", $host)) {$fai="Sympatico $serv";}
  • elseif (ereg("vtx", $host)) {$fai="VTX $serv";}
  • elseif (ereg("wanadoo", $host)) {$fai="Wanadoo $serv";}
  • else {$fai = 'www.'.$tmp[sizeof($tmp) - 2].'.'.$tmp[sizeof($tmp) - 1];}
  • if ($fai=="www.proxad.net") {$fai="www.free.fr";}
  • echo $fai;
  • echo "<br>";
  • echo $host;
  • ?>
<?

if ($HTTP_SERVER_VARS["HTTP_X_FORWARDED_FOR"] != ""){  
	$ip = $HTTP_SERVER_VARS["HTTP_X_FORWARDED_FOR"];  
	$host = @gethostbyaddr($HTTP_SERVER_VARS["HTTP_X_FORWARDED_FOR"]);  
	}
else{
	$ip = $HTTP_SERVER_VARS["REMOTE_ADDR"];  
	$host = @gethostbyaddr($HTTP_SERVER_VARS["REMOTE_ADDR"]);
	}

//ancienne méthode de récupération de l'hôte et de l'IP
//méthode pas 100% compatible avec tous les serveurs PHP
//
//$ip = getenv('REMOTE_ADDR');
//$host = gethostbyaddr($ip);
//

$tmp = explode(".", $host); 
$serv = '(www.'.$tmp[sizeof($tmp) - 2].'.'.$tmp[sizeof($tmp) - 1].')';

if (ereg("aol", $host)) {$fai="AOL";}
elseif (ereg("bluewin", $host)) {$fai="Bluewin $serv";}
elseif (ereg("cablecom", $host)) {$fai="Cablecom - swissonline $serv";}
elseif (ereg("hispeed", $host)) {$fai="Cablecom - swissonline $serv";}
elseif (ereg("coltfrance", $host)) {$fai="COLT France $serv";}
elseif (ereg("club-internet", $host)) {$fai="Club Internet $serv";}
elseif (ereg("proxad", $host)) {$fai="Free $serv";}
elseif (ereg("intergga", $host)) {$fai="InterGGA $serv";}
elseif (ereg("noos", $host)) {$fai="Noos $serv";}
elseif (ereg("securepop", $host)) {$fai="SecurePoP $serv";}
elseif (ereg("adslplus", $host)) {$fai="Sunrise $serv";}
elseif (ereg("freesurf", $host)) {$fai="Sunrise $serv";}
elseif (ereg("tiscali.fr", $host)) {$fai="Tiscali France $serv";}
elseif (ereg("tiscali.ch", $host)) {$fai="Tiscali Suisse $serv";}
elseif (ereg("tele2.fr", $host)) {$fai="Tele2 France $serv";}
elseif (ereg("videotron", $host)) {$fai="Vidéotron $serv";}
elseif (ereg("sympatico", $host)) {$fai="Sympatico $serv";}
elseif (ereg("vtx", $host)) {$fai="VTX $serv";}
elseif (ereg("wanadoo", $host)) {$fai="Wanadoo $serv";}
else {$fai = 'www.'.$tmp[sizeof($tmp) - 2].'.'.$tmp[sizeof($tmp) - 1];}

if ($fai=="www.proxad.net") {$fai="www.free.fr";}

echo $fai;
echo "<br>";
echo $host;

?>

 Conclusion

LE code VB est dans le ZIP.

Pour faire fonctionner le code vous devez :

1) Mettre en ligne le fichier PHP
2) Lancer le programme VB et inscrire le lien exact du fichier PHP

REMARQUE :
Le module de lecture de page web, n'est pas de moi et est dispo sur vbfrance, merci à son auteur pour ce précieux rendu.

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip VBVSPHP MAILER OU COMMENT ENVOYER UN MAIL SANS WINSOCK NI SE...
Source avec Zip SUPPRIMER AUTOMATIQUEMENT SON EXÉCUTABLE EN QUITTANT
Source avec Zip TEST DE VALIDITÉ DU FORMAT D'UNE ADRESSE E-MAIL ET SMTP
Toutes les sources de Jiggy35

 Sources de la même categorie

Source avec Zip Source avec une capture GESTIONNAIRE DE TÉLÉCHARGEMENT, AVEC REPRISE ET MULTITHREADI... par Madx23
Source avec Zip Source avec une capture CONVERTIR DU TEXTE RTF EN CODE HTML ET VICE-VERSA par vicosta
Source avec Zip Source avec une capture DICTIONAIRE TEXT/AUDIO/VISUELLE ANGLAIS AVEC WEBBROWSER CONT... par majnounmajda
Source avec Zip Source .NET (Dotnet) NSLOOKUP EN VB.NET OU COMMENT FAIRE UNE REQÛETE DNS EN PRÉCI... par ShareVB
Source avec Zip Source avec une capture MINI SEVEUR HTTP AVEC INTERFACE GRAPHIQUE ET IMPLÉMENTATIONS... par lemout
Toutes les sources de la catégorie Réseau & Internet

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture Source .NET (Dotnet) UN NAVIGATEUR INTERNET EN VB.NET par azrti
Source avec Zip Source avec une capture Source .NET (Dotnet) NAVIGATEUR WEB par ouattararomuald
Source avec Zip VOTRE IP PUBLIQUE DANS LE SYSTRAY par jack
Source avec Zip Source avec une capture IP PUBLIQUE POUR TOUT LE MONDE par jack
Source avec Zip MANIPULATIONS DE IE par jack

Commentaires et avis

Commentaire de Golog le 28/05/2004 18:09:47

Super interresant tout sa , c'est clair que ta liste est encore petite , mais si les gens se prenne au jeux , et qu'il complete cette liste (en pensant la mettre en ligne) sa serais super :)

9/10 , belle originalité (meme si j'avoue ne pas avoir chercher si ce genre de source existe deja sur vbfrance)

Commentaire de Frecky le 28/05/2004 20:10:13

Se soir je vais essayé de te donner quelque addresse de FAI du Québec tel que  Vidéotron, Sympatico et Sympatico Haute Vitesse
Un bon début cette source. l'utilité je ne sais pas.. mais bonne prog :)

Commentaire de azerty25 le 28/05/2004 22:30:03

Bon chti projet tout ça ;)

Commentaire de Frecky le 28/05/2004 22:59:49

Vidéotron:  modemcableXXX.XXX-XXX-XXX.mc.videotron.ca
Sympatico: Toronto-HSE-pppXXXXXXX.sympatico.ca

Commentaire de Jiggy35 le 29/05/2004 11:46:27

M E R C I !

...d'avoir joué de le jeu et de m'aider dans la recherche de nouvelles signatures.

je mettrai à jour la source lorsque j'aurai plus de FAI connus.

il faut savoir encore un détail, c'est que tous les providers n'acceptent pas forcément mon code PHP. Lycos a du mal par exemple.

POUR PERMETTRE A CEUX QUI NE SAVENT PAS COMMENT VERIFIER LEURS SIGNATURES, JE LES INVITE A VISITER LE LIEN SUIVANT ET DE POSTER LE RESULTAT ICI !

http://ophidianlair.free.fr/prisedetete/fai
(Merci à Ophidian d'héberger provisoirement mon code)

Pensez également à me donner l'adresse du serveur SMTP de votre FAI également, puisque le but ultime est d'assigner un serveur valide pour l'envoi de mails à aprtir de VB.

Merci et continuez de poster !

@+

Commentaire de OphidiaN le 29/05/2004 14:17:23

hehe ;) g00d job !

Commentaire de azerty25 le 29/05/2004 15:18:30

Si tu veux les listes des SMTP, tu devrai nous donner la liste que tu possede déja, a moins que tu es déja les meme que pour les noms d'FAI

Commentaire de Jiggy35 le 29/05/2004 15:22:37

en effet c'est la même, mais elle loin d'être exhaustive.

voici l'état de mes recherches acutellement pour les serveurs SMTP car la liste des hôtes DNS est à jour plus haut :

AOL France = smtp.fr.aol.com
Bluewin = mail.bluewin.ch
Cablecom(swissonline) = smtp.hispeed.ch
Club Internet = mail.club-internet.fr
Cybernet = smtp.cybercity.ch
Econophone = mail.econophone.ch
Fnac = mail.fnac.net
Free = smtp.free.fr
Freesurf = mail.freesurf.fr
Green = smtp.green.ch
Intergga = mail.intergga.ch
Liberty Surf = mail.libertysurf.fr
Magnet = smtp.magnet.ch
Noos = mail.noos.fr
Profitel = mail.profitel.ch
SecurePoP = aucun ?
Solnet = mail.solnet.ch
Sunrise = smtp.sunrise.ch
Sympatico =
Tiscali Suisse = mail.tiscalinet.ch
Tiscali France = smtp.tiscali.fr
Tele2 France = smtp.tele2.fr
Urbanet = smtp.urbanet.ch
Vidéotron =
VTX = smtp.vtxnet.ch
Wanadoo = smtp.wanadoo.fr
World Online = smtp.worldonline.fr
9 Telecom = smtp.neuf.fr

voilà.

@+

Commentaire de azerty25 le 29/05/2004 15:25:38

Je pense que tu a une erreur, selon ce que j'ai lu, le serveur de mails pour AOL est un IMAP

Commentaire de azerty25 le 29/05/2004 15:27:11

Le ping du serveur de ta liste le confirme (aucune réponse ;))

Commentaire de Jiggy35 le 29/05/2004 15:28:36

par contre l'accès par telnet sur le port 25 me dit ceci :

220 air-id06.mx.aol.com ESMTP mail_in-id6.2; Sat, 29 May 2004 09:30:17 -0400

ce qui confirme que ça doit être un SMTP...

non? je sais pas en fait puis que je ne peux le tester...

Commentaire de azerty25 le 29/05/2004 15:36:44

Oula, excusez moi, je délire. Le IMAP c'est pour récuperer les mails, pas pour les envoyer. Par contre, j'ai vérifié, smtp.fr.aol.com est normalement ok. (si tu veux toujours me contacter sur MSN, pas de probs, mais sa sera pour plus tard car faut que je parte :()

Commentaire de Frecky le 30/05/2004 05:36:37

Pour vidéotron le SMTP c'est  relais.videotron.ca  Ece SMTP je sais pu trop, mais à vous de vérifié !

Aller continue, bon travaiL!

Commentaire de Jiggy35 le 30/05/2004 10:58:35

Merci Frecky,

avec l'ajout de :

Sympatico = smtp1.sympatico.ca
Vidéotron = relais.videotron.ca

ma liste de Serveurs SMTP est complète. j'aimerais bien pouvoir finir la liste des DNS avant de trouver de nouveaux providers.

mes signatures manquantes concernent les FAI suivant :

Cybernet, Econophone, Fnac, Freesurf, Green, Liberty Surf, Magnet, Profitel, Solnet, Urbanet, World Online, 9 Telecom

je vous rappelle que vous pouvez tester votre signature et la poster ici par la suite en visitant les adresses suivantes :

http://ophidianlair.free.fr/prisedetete/fai/

et maintenant

http://membres.lycos.fr/jiggymask/fai/

merci de votre participation.

@+

Commentaire de Noxid le 16/06/2004 14:12:34

Sérieux, GG pour ca! Vraiment cool! J'en avais trop besoin!
Thx et GJ a toi!

++

Commentaire de wallon14 le 30/06/2004 10:37:48

C'est bien, un nouveau truc de trouvé :o)

(mais moi je connais mon FAI :oP )

Commentaire de rapbizz le 05/07/2007 12:28:23

eu212-87-100-253.adsl.euphonynet.be

euphony

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Connaitre le provider en cours de connection [ par Julien ] J'ai déja réussi à détecter la connection internet, mais je voudrai savoir avec quel provider la connection est en cours (ex : libertysurf ou waika9) important et introuvable ce tutoriaux [ par Dragon ] j`ai chercher vraiment partout et ça commence à être urgent, puisque je peut pas continuer mon projet sans çapremièrement, comment on peut connaitre l vb et fournisseur d acces [ par stiratlant ] VB utilise des fournisseurs d acces de type microsoft.jet.3.51 ainsi qu un msdatashape(du moins c ce que j ai choisi pour mes acces bases access)J ess vb et fournisseur d acces [ par stiratlant ] VB utilise des fournisseurs d acces de type microsoft.jet.3.51 ainsi qu un msdatashape(du moins c ce que j ai choisi pour mes acces bases access)J ess vb et fournisseur d acces [ par stiratlant ] VB utilise des fournisseurs d acces de type microsoft.jet.3.51 ainsi qu un msdatashape(du moins c ce que j ai choisi pour mes acces bases access)J ess acces à internet à partir d'une textbox [ par CANARDBLEU ] Mon problème est le suivant. J'ai une textbox dans laquelle s'affichent diverses adresses de site internet à mesure que je fais défiler ma base de don Connaitre le nombre d'octet qui entre et qui sort d'internet ... [ par lamouche2004 ] BonjourJ'aimerais determiner le nombre d'octet entrant et sortant d'internet avec un modem 56K en utilisant les api RasGetConnectionStatistics et RasE connaitre les url des fenetres internet ouverte [ par yannn ] Sur le projet d'un keylogger, je souhaiterai détecter l'ouverture d'une fentre IE ou netscape... et récupérer l'url des differentes pages visités.qq' connaitre les url des fenetres internet ouverte [ par yannn ] Sur le projet d'un keylogger, je souhaiterai détecter l'ouverture d'une fentre IE ou netscape... et récupérer l'url des differentes pages visités.qq' connaitre les url des fenetres internet ouverte [ par yannn ] je souhaiterai savoir comment déplacer un fichier d'un repertoire a un autre le plus simplement du monde (peut etre en utilisant filecopy et kill) ?


Nos sponsors


Sondage...

Comparez les prix


Samsung Galaxy Tab (GT-P1000) Tablet PC
Entre 699€ et 699€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,640 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)