Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

ANNUAIRE TÉLÉPHONIQUE AOL : CONSULTATION MULTIDÉPARTEMENTALE


Information sur la source

Catégorie :AddOns Niveau : Initié Date de création : 29/12/2002 Date de mise à jour : 29/12/2002 22:27:37 Vu : 6 517

Note :
9 / 10 - par 1 personne
9,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

Commentaire sur cette source (4)
Ajouter un commentaire et/ou une note

Description

Ce code utilise l'annuaire téléphonique d'AOL selon le protocole HTTP.

Pour lancer l'annuaire, taper :  /annu <prénom> <nom>
Exemple : /annu christian clavier

Lorsque les départements auront été scannés, une fenêtre donne
la liste des noms et adresses (le tout enregistré au Bureau dans un fichier log)
et le code s'arrête de lui-même après le scan.

 

Source

  • ;; AOL ANNUAIRE Recherche multidépartement
  • ;; Syntaxe : /annu <prénom> <nom>
  • alias ann {
  • set %fname $1
  • set %name $2
  • set %file c:\windows\bureau\AnnuAOL- $+ %fname $+ - $+ %name $+ .lwp
  • window -e @aol | titlebar @aol $1 $2 $3
  • sockopen annu $+ $rand(0,100000) www.annu.aol.fr 80
  • }
  • ;========================
  • on *:sockclose:annu*:{
  • if (%dep <= 98) {
  • inc %dep 1
  • ann %fname %name
  • }
  • }
  • ;========================
  • alias annu {
  • ;; set %num 10
  • set %dep 1
  • ann $1 $2
  • }
  • ;========================
  • on *:sockopen:annu*:{
  • if ($sockerr > 0) return
  • sockwrite -n $sockname GET /cgi-bin/www.cgi?info=particulier&submit=Rechercher&nom= $+ %name $+ &prenom= $+ %fname $+ &adresse=&ville=&dep= $+ %dep $+ &rech=Recherche
  • }
  • ;========================
  • on *:sockread:annu*:{
  • if ($sockerr > 0) return
  • :annu
  • sockread %aol
  • if ($sockbr == 0) return
  • if (%aol != $null) {
  • ;; set %key &num= $+ %num
  • if ((id= isin %aol) && (imprimer !isin %aol) && ([Page !isin %aol)) {
  • ; set %reduc $remove(%aol,<a,href=",">,</a>)
  • ; set %reduc $replace(%reduc,amp;, )
  • ; set %reduc $replace(%reduc,&country=fr, )
  • ; set %reduc $replace(%reduc,&partenaire=&url_partenaire=, )
  • ; if ($right(%reduc,1) != r) set %reduc $remove(%reduc,$right(%reduc,1))
  • ; if ($right(%reduc,1) != r) set %reduc $remove(%reduc,$right(%reduc,1))
  • ; set %cv $remove($left($remove(%reduc,/,cgi-bin,www.cgi,?),7),&cv=,&,n,u,m)
  • ; set %id $remove($left($remove(%reduc,/,cgi-bin,www.cgi?cv=,%cv,%num,&num=,&id=),19),&,n,b,%cv,%num)
  • ; set %nb $remove($right(%reduc,22),=,b,&i,n,foparticulier)
  • }
  • ;===================================================
  • if (bgcolor="#C2D7EB"><b><span class="txtbld"> isin %aol) {
  • set %quidonc $remove(%aol,<td,bgcolor="#C2D7EB">,<b>,<span,class="txtbld">,</span>,</b>,</td>)
  • aline -ph 1 @aol Identité: %quidonc
  • write %file %quidonc
  • }
  • ;===================================================
  • if (bgcolor="#C2D7EB"><span class="txt"></font> isin %aol) {
  • set %tel $remove(%aol,<td,valign="top",align="right",bgcolor="#C2D7EB">,<span,class="txt">,</font>,</span>,<b>,</b>,</td>)
  • aline -ph 1 @aol Tel: %tel
  • write %file %tel
  • }
  • ;===================================================
  • if (</b><font class="txt"> isin %aol) {
  • set %adresse $remove(%aol,<td,width="50%",class="txt">,<b>,</b>,<font,class="txt",>)
  • aline -ph 1 @aol Adresse: %adresse
  • write %file %adresse
  • }
  • ;===================================================
  • if ((%dep isin $gettok(%aol,2,32)) && (- isin %aol) && (bgcolor !isin %aol) && (src !isin %aol) && (href !isin %aol)) {
  • set %zipcode $gettok(%aol,2,32) $remove($gettok(%aol,3,32),</font>,</td>) $remove($gettok(%aol,4,32),</font>,</td>) $remove($gettok(%aol,5,32),</font>,</td>) $remove($gettok(%aol,6,32),</font>,</td>)
  • aline -ph 1 @aol $remove(%zipcode,<br>)
  • aline -ph 1 @aol ------------------
  • write %file $remove(%zipcode,<br>)
  • write %file -----------------
  • }
  • ;===================================================
  • }
  • goto annu
  • }
  • ;===============================================
;;  AOL ANNUAIRE Recherche multidépartement
;; Syntaxe : /annu <prénom> <nom>

alias ann {
  set %fname $1
  set %name $2
  set %file c:\windows\bureau\AnnuAOL- $+ %fname $+ - $+ %name $+ .lwp
  window -e @aol | titlebar @aol $1 $2 $3
  sockopen annu $+ $rand(0,100000) www.annu.aol.fr 80
}

;========================

on *:sockclose:annu*:{
  if (%dep <= 98) {
    inc %dep 1
    ann %fname %name
  }
}


;========================

alias annu {
  ;; set %num 10
  set %dep 1
  ann $1 $2
}

;========================


on *:sockopen:annu*:{
  if ($sockerr > 0) return
  sockwrite -n $sockname GET /cgi-bin/www.cgi?info=particulier&submit=Rechercher&nom= $+ %name $+ &prenom= $+ %fname $+ &adresse=&ville=&dep= $+ %dep $+ &rech=Recherche
}
;========================

on *:sockread:annu*:{
  if ($sockerr > 0) return
  :annu
  sockread %aol
  if ($sockbr == 0) return
  if (%aol != $null) {

    ;; set %key &num= $+ %num

    if ((id= isin %aol) && (imprimer !isin %aol) && ([Page !isin %aol)) {
      ; set %reduc $remove(%aol,<a,href=",">,</a>)
      ; set %reduc $replace(%reduc,amp;, )
      ; set %reduc $replace(%reduc,&country=fr, )
      ; set %reduc $replace(%reduc,&partenaire=&url_partenaire=, )

      ; if ($right(%reduc,1) != r) set %reduc $remove(%reduc,$right(%reduc,1))
      ; if ($right(%reduc,1) != r) set %reduc $remove(%reduc,$right(%reduc,1))

      ;  set %cv $remove($left($remove(%reduc,/,cgi-bin,www.cgi,?),7),&cv=,&,n,u,m)
      ;  set %id $remove($left($remove(%reduc,/,cgi-bin,www.cgi?cv=,%cv,%num,&num=,&id=),19),&,n,b,%cv,%num)
      ; set %nb $remove($right(%reduc,22),=,b,&i,n,foparticulier)

    }

    ;===================================================
    if (bgcolor="#C2D7EB"><b><span class="txtbld"> isin %aol) {
      set %quidonc $remove(%aol,<td,bgcolor="#C2D7EB">,<b>,<span,class="txtbld">,</span>,</b>,</td>)
      aline -ph 1 @aol Identité: %quidonc
      write %file %quidonc
    }
    ;===================================================
    if (bgcolor="#C2D7EB"><span class="txt"></font> isin %aol) {
      set %tel $remove(%aol,<td,valign="top",align="right",bgcolor="#C2D7EB">,<span,class="txt">,</font>,</span>,<b>,</b>,</td>)
      aline -ph 1 @aol Tel: %tel
      write %file %tel    
    }
    ;===================================================
    if (</b><font class="txt"> isin %aol) {
      set %adresse $remove(%aol,<td,width="50%",class="txt">,<b>,</b>,<font,class="txt",>)
      aline -ph 1 @aol Adresse: %adresse
      write %file %adresse
    }
    ;===================================================
    if ((%dep isin $gettok(%aol,2,32)) && (- isin %aol) && (bgcolor !isin %aol) && (src !isin %aol) && (href !isin %aol)) {
      set %zipcode $gettok(%aol,2,32) $remove($gettok(%aol,3,32),</font>,</td>) $remove($gettok(%aol,4,32),</font>,</td>) $remove($gettok(%aol,5,32),</font>,</td>) $remove($gettok(%aol,6,32),</font>,</td>)
      aline -ph 1 @aol $remove(%zipcode,<br>)

      aline -ph 1 @aol ------------------
      write %file $remove(%zipcode,<br>)
      write %file -----------------
    }
    ;===================================================
  }
  goto annu
}

;===============================================

Conclusion

Ce code peut être modifié de façon à faire une recherche
d'un même prénom dans un département ou même une ville.
Par exemple, la liste de toutes les Isabelle à Rouen ou tous les Olivier
du département de la Corrèze... Voire même la liste de tous les abonnés
d'une rue bien précise dans une ville.

Je ne suis pas encore parvenu à réaliser ce code-là, sauf qu'il se limite à la 1ère page.
L'astuce se trouve cependant dans le code html de la page web de l'annuaire
AOL, où on peut voir dans une url des variables comme cv, id et nb qui permettent de lire d'une page à l'autre pour voir la liste complète des abonnés trouvés.
Le code ci-dessus ne permet d'éditer que la première page, mais
page suffisante pour des recherches ciblées et restreintes, quand le prénom est associé au nom.

Bonne chasse.   ;o)


Code recommandé pour retrouver vos copines d'enfance, hehehe.

 

Commentaires et avis

signaler à un administrateur
Commentaire de jhd le 30/12/2002 10:55:08

Un superbe addon. Un excellent maniement des socket et des balises http de koi rendre jaloux. Franchement bonne continuation

signaler à un administrateur
Commentaire de koko le 30/12/2002 11:50:35

fait gaffe car tu as mis le bureau de windows 95/98... et de plus en plus de monde sont sous 2000 ou xp

signaler à un administrateur
Commentaire de Sverdlovsky le 31/07/2005 18:50:03


Bien des personnes s'intéressent à ce code source et je vous remercie.
Cependant, j'ai récemment reçu un courriel d'un jeune inscrit écrivant dans une orthographe proche du langage SMS (je tairai le pseudo).Cet inscrit me demanda si mon script exploitait une quelconque faille d'AOL.Je précise que ce script fonctionne comme un navigateur web, et lance des requêtes sur un site web, lequel offre le service d'annuaire téléphonique en ligne.Non, je n'écris pas d'"exploits" qui sont, il faut le rappeler, des activités illégales, et je dois signaler publiquement que je ne donnerai aucune réponse favorable à quiconque m'écrira un message sollicitant des conseils de hack/piratage, surtout quand le messager n'a jamais écrit le moindre code de sa vie, ce qui est le cas de l'inscrit qui m'a écrit.Je suis disponible pour tout renseignement concernant la programmation (IRC, C++, VBScript, HTML) dans la limite de mes compétences en ce domaine, seulement s'il s'agit de loisirs didactiques et honnêtes. Merci de votre compréhension.

signaler à un administrateur
Commentaire de Sverdlovsky le 31/07/2005 18:53:15

S'il arrive que ce script ne fonctionne plus, ce que je n'ai pas vérifié, c'est probablement parce que le site d'annuaire d'AOL n'a plus la même structure HTML et aurait été remis à jour.En effet, cette source commence à dater (environ 2 ans et demi).

Ajouter un commentaire



Nos sponsors

Sondage...

CalendriCode

Janvier 2009
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

Consulter la suite du CalendriCode



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, 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
Temps d'éxécution de la page : 0,265 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.