Inutil [scanneur de sous liens de sites]

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 951 fois - Téléchargée 28 fois

Contenu du snippet

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 / Exemple :


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!

A voir également

Ajouter un commentaire Commentaires
Messages postés
20
Date d'inscription
samedi 16 avril 2005
Statut
Membre
Dernière intervention
10 janvier 2006

Comme son nom l'indique, c'est le truc qui sert à rien! <- pq tu le post ? ;)
Messages postés
26
Date d'inscription
mardi 29 avril 2003
Statut
Membre
Dernière intervention
8 septembre 2010

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! :-(
Messages postés
290
Date d'inscription
mardi 21 janvier 2003
Statut
Membre
Dernière intervention
29 février 2008

Systeme de paiement par téléphone , ils te filent un code qui prouvent la facturationn pour avoir acces au reste du site.
Messages postés
708
Date d'inscription
lundi 15 juillet 2002
Statut
Membre
Dernière intervention
17 mars 2005

c'est quoi un allopass ? pourquoi tout le monde en parle ?
Messages postés
26
Date d'inscription
mardi 29 avril 2003
Statut
Membre
Dernière intervention
8 septembre 2010

je ne pense pas qu'il puisse le faire franchement ^^
Afficher les 13 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (nxtreme)