begin process at 2010 03 17 05:23:20
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

AddOns

 > INUTIL [SCANNEUR DE SOUS LIENS DE SITES]

INUTIL [SCANNEUR DE SOUS LIENS DE SITES]


 Information sur la source

Note :
Aucune note
Catégorie :AddOns Niveau :Initié Date de création :01/07/2004 Vu :1 858
Auteur : nxtreme

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

 Description

Comme son nom l'indique, c'est le truc qui sert à rien!
Vous lui donnez un site, et il vous trouvera tous les sous liens pour les afficher dans une list d'un dialog tres simple d'utilisation, il servira plus à comprendre le fonctionnement des sockets plutot que pour faire mumuse avec!
Ne reccopiez pas ce code, inspirez vous en seulement, et j'en serai ravi d'aider d'autre personnes avec, meme si il reste encore très basique.


/inut pour activer la bête!

Source

  • alias inut { dialog -m Intl Intl }
  • dialog Intl {
  • title "InutiL, le script inutile"
  • size 250 200 500 320
  • button "",1,1 1 1 1,close
  • text "Adresse du site:",2,10 12 80 15
  • edit "vtff.fr.st",3,100 10 120 20,autohs
  • button "Scan",4,240 10 80 20,flat
  • text "Scripté par nxtreme",5,330 10 160 30,center
  • list 6,10 40 480 280, sort, extsel, vsbar, hsbar
  • }
  • on *:dialog:Intl:sclick:4:{
  • if ($did(4) == Scan) {
  • did -ra intl 4 Stop
  • did -ra intl 6 $null
  • did -ra Intl 5 Scanne $did(3) 80
  • sockclose inut
  • sockopen inut $did(3) 80
  • if ((www. isin $did(3)) || (http:// isin $did(3))) {
  • did -ra intl 5 Réinscrivez l'adresse sans www. ou http://
  • did -e intl 4
  • }
  • else set %serveurinutile $did(3)
  • }
  • else {
  • sockclose inut
  • did -ra intl 4 Scan
  • }
  • }
  • on *:sockopen:inut:{
  • sockwrite -n inut GET / HTTP/1.1
  • sockwrite -n $sockname Host: %serveurinutile $+ $str($crlf ,2)
  • }
  • on *:sockread:inut:{
  • sockread %a.tmp
  • if (<html> isin %a.tmp) { did -ra intl 5 Connexion établie: %serveurinutile }
  • if (href=" isin %a.tmp) {
  • if ((/ isin $gettok(%a.tmp,2,34)) && (< !isin $gettok(%a.tmp,2,34))) { did -a intl 6 $gettok(%a.tmp,2,34) }
  • }
  • if (</html> isin %a.tmp) {
  • did -ra intl 5 Terminé
  • did -ra intl 4 Scan
  • }
  • }
alias inut { dialog -m Intl Intl }
dialog Intl {
  title "InutiL, le script inutile"
  size 250 200 500 320
  button "",1,1 1 1 1,close
  text "Adresse du site:",2,10 12 80 15
  edit "vtff.fr.st",3,100 10 120 20,autohs
  button "Scan",4,240 10 80 20,flat
  text "Scripté par nxtreme",5,330 10 160 30,center
  list 6,10 40 480 280, sort, extsel, vsbar, hsbar

}
on *:dialog:Intl:sclick:4:{
  if ($did(4) == Scan) {
    did -ra intl 4 Stop
    did -ra intl 6 $null
    did -ra Intl 5 Scanne $did(3) 80
    sockclose inut
    sockopen inut $did(3) 80
    if ((www. isin $did(3)) || (http:// isin $did(3))) {
      did -ra intl 5 Réinscrivez l'adresse sans www. ou http://
      did -e intl 4
    }
    else set %serveurinutile $did(3)
  }
  else {
    sockclose inut
    did -ra intl 4 Scan
  }
}
on *:sockopen:inut:{
  sockwrite -n inut GET / HTTP/1.1
  sockwrite -n $sockname Host: %serveurinutile $+ $str($crlf ,2)
}
on *:sockread:inut:{ 
  sockread %a.tmp
  if (<html> isin %a.tmp) { did -ra intl 5 Connexion établie: %serveurinutile }
  if (href=" isin %a.tmp) {
    if ((/ isin $gettok(%a.tmp,2,34)) && (< !isin $gettok(%a.tmp,2,34))) { did -a intl 6 $gettok(%a.tmp,2,34) }
  }
  if (</html> isin %a.tmp) { 
    did -ra intl 5 Terminé
    did -ra intl 4 Scan
  }
}

 Conclusion

Ne donnez pas de fausses adresses au script, il ne saura pas les recconaitre, j'ai eu la fleme de faire une fonction comme ca, ce script à été créé en 1heure!


 Sources du même auteur

Source avec Zip Source avec une capture MIRC ADDONS
Toutes les sources de nxtreme

 Sources de la même categorie

TCL - AJOUT SUPPRESSION DE LOGS par Atok
BLACKLIST PSEUDOS/MASKS par usurpateur
Source avec une capture [XCHAT] ANTI KICK / AWAY C++ par GeroXXXX
JEU DU CODE par alanpersonproject
SERVEUR FTP par hisoka2501
Toutes les sources de la catégorie AddOns

Commentaires et avis

Commentaire de nxtreme le 01/07/2004 14:07:11

Laissez vos commentaires svp! merci
nxtreme

Commentaire de Solisoft le 01/07/2004 14:20:52

As lire le titre: INUTIL [SCANNEUR DE SOUS LIENS DE SITES]


Laissez vos commentaires svp! merci nxtreme:

Ce qui me viens en 1er as l'esprit de te dire c'est: Si c'est inutile et que ca sert as rien pourquoi tu le poste ? -.-

Commentaire de SornDrixer le 01/07/2004 18:12:13 administrateur CS

La façon dont tu détectes les liens n'est pas très sûr, une utilisation des regex serait plus approprié.

Commentaire de nxtreme le 01/07/2004 19:17:58

oui je sais pas, je sais aps utiliser les regex de toutes maniere...
^^
mais ca en detecte quand meme pas mal :)

Commentaire de Kerrigan le 01/07/2004 19:48:05

si on a envie de se coder un internet explorer en socket (ptdrrrrrrr) ça serait bien de connaitre tous les sous liens et a ce moment la peut etre que ta source serait utile. Encore faudrait t'il coder ce truc de dingue :)

Commentaire de Huitre le 02/07/2004 08:19:24

Hum c pas mal mais faut compléter, trop hasardeu ton scan :)
La vérification du debut/fin n' est pas trop sure (g jamais foutu de balises &lt;html&gt;&lt;/html&gt;).
Si tu ve en faire un truc utile, transforme ca en image viewer ;) tu vérif le fichier distant (jpg,gif,png...) et tu renvois le lien ou un thumbnail :D
Voila, bonne chance a toi petit padawan que le scripting soit avec toi :&gt;

Commentaire de nxtreme le 02/07/2004 11:27:17

oui c vrai qu'il est tres hasardeux, j'ai pas cherché a faire de trucs trop complikés pour un debut en programation mirc...

J'essayerai l'image viewer , faut que je me renseigne d'abbord comment télécharger des images via sockets lol (je suis qu'une pitite newbie)

Commentaire de VestaX le 02/07/2004 17:50:18

Ben moi par exemple je ne dirrais pas que ton addon sert a rien!! Il peux toujours servir a contourner les allopass :p ca peux toujours servir :)

Commentaire de nxtreme le 02/07/2004 19:09:24

je ne pense pas qu'il puisse le faire franchement ^^

Commentaire de Kerrigan le 02/07/2004 19:14:52

c'est quoi un allopass ? pourquoi tout le monde en parle ?

Commentaire de Huitre le 02/07/2004 23:02:24

Systeme de paiement par téléphone , ils te filent un code qui prouvent la facturationn pour avoir acces au reste du site.

Commentaire de nxtreme le 03/07/2004 13:24:15

c pas si facile d'avoir ca malheureusement ^^si vous arrivez à faire ca avec mon script vous me le dites alors lol, sans le savoir j'auré créé un logiciel de piratage! :-(

Commentaire de Wallach le 21/04/2005 00:18:17

Comme son nom l'indique, c'est le truc qui sert à rien! <- pq tu le post ? ;)

 Ajouter un commentaire

Nos sponsors


Sondage...

Comparez les prix


iPod touch 8Go - 2ème génération
Entre 189€ et 224€

Visiter le guide achat

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Photothèque

  
  

Visiter la photothèque
 
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,577 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)