1. Accueil
  2. Tous les snippets
  3. Snippets IRC
  4. Clonescan

Clonescan

0/5 (5 avis)

Snippet vu 5 426 fois - Téléchargée 27 fois

Commenter

Contenu du snippet

J'ai repris la source http://www.ircfr.com/article.aspx?Val=305 et je l'ai retravaillé un peu. Il n'y a pas de fenêtre @Scanner qui s'ouvre, le message est directement envoyé sur le canal. Si le moteur ne trouve rien, il ne dit rien. À chaque entré, le scanner se met en route et dit s'il à trouver un host similaire. Ce n'est pas des gros changements mais c'est plus pratique si vous faites un script. C'est beaucoup mieu quand tout est automatique n'est-ce pas? :o)

Bug corrigés:
  • /hmake: table 'c' exists
  • /hfree: no such table 'c'
  • /hadd: no such table 'c'

Source / Exemple : 


alias clonescan { 
  unset %i* 
  .ial on 
  who # 
  set %ichan # 
  set %itnick $nick(#,0) 
  set %itotal 0
}
alias scaning { 
  set %n 0 
  :p 
  inc %n
  if ($nick(%ichan,%n) isin %istock) { goto e }
  if ($ialchan($address($nick(%ichan,%n),2),%ichan,0) > 1) { 
    inc %itotal 
    unset %inick 
    set %l 0 
    :l 
    inc %l
    if ($ialchan($address($nick(%ichan,%n),2),%ichan,%l).nick) { set %istock %istock $ialchan($address($nick(%ichan,%n),2),%ichan,%l).nick 
      set %inick %inick $+ , $ialchan($address($nick(%ichan,%n),2),%ichan,%l).nick 
    goto l } 
  hadd -m c %itotal ( $+ $right($address($nick(%ichan,%n),2),-4) $+ ) $right(%inick,-2) }
  :e
  if (%n < $nick(%ichan,0)) { goto p }
  if (%n = $nick(%ichan,0)) {
    if (%itotal != 0) { 
      echo %ichan $timestamp 4 $numtok(%istock,32) clones détectés sur %itotal host(s).
      var %e = 1 
      while ($hget(c,%e)) { 
        echo %ichan $timestamp 4 %e $+ . $hget(c,%e) 
      inc %e } 
    }
    unset %i* 
    if ($hget(c,0)) { .hfree c }
  }
}
ppub {
  if (%option.81 == 1) {
    if ($me isop $chan) {
      if (%option.82 == 1) { .notice $nick La publicité est interdite sur ce canal. }
      if (%option.83 == 1) { kick $chan $nick La publicité n'est pas toléré sur ce canal. }
      if (%option.84 == 1) { mode $chan +b $adress | kick $chan $nick La publicité n'est pas toléré sur ce canal. }
    }
  }
}
urllog {
  if ($input(Désirez-vous sauvegarder l'url: $crlf $crlf %c,yvq,ZFC IRC Script) == $yes) {
    set %urlN %urlN + 1
    set %inputurl $input(Modifier l'adresse si nécessaire $chr(40) $+ inclure http:// $+ $chr(41),65,ZFC IRC Script,%c)
    if ($window(@URL) == $null) { window -anl @URL 220 0 300 1000 Comic Sans MS 12 }
    aline @URL %inputurl
    write $mircdirSystem\url.txt %inputurl
    unset %c
  }
}

Conclusion :


Snakeunion.com, nous gardons espoir...
Programmation VB :: Delphi :: PHP :: Et plus encore...
Ajouter un commentaire Commentaires
cs_neo66 Messages postés 125 Date d'inscription mercredi 15 octobre 2003 Statut Membre Dernière intervention 20 mai 2006
24 oct. 2003 à 17:28
Super le scann clones, mais ya un petit probleme c'est que tu scann un channel: EX 10 clones sur 5 hosts. bon ok sa affiche les clones. mais apres si je le fait sur un autre channel ou ya 4 clones sur 2 hosts. Sa me dit les 4 clones MAIS EN PLUS LES 6CLONES QUI AVAIT SUR LE CHAN D'AVANT DONC SA M**DE !!!
bon voila ctout @++
NitriX Messages postés 21 Date d'inscription mercredi 12 mars 2003 Statut Membre Dernière intervention 9 avril 2003
22 mars 2003 à 19:27
C'est bien a la base mais daumage que ca repete a chak foi que kekun entre ou sort du salon :)
cs_wbr Messages postés 110 Date d'inscription dimanche 11 août 2002 Statut Membre Dernière intervention 21 juillet 2006
8 févr. 2003 à 22:54
Où j'ai dis que le tien ne marchais pas?
i0Lo Messages postés 62 Date d'inscription jeudi 7 novembre 2002 Statut Membre Dernière intervention 5 mai 2004
8 févr. 2003 à 22:51
Je ne vois pas ou tu as vu que la source d'origine ne fonctionnait pas
Je trouve ca bizarre j'ai beau le tester il fonctionne
enfin bref ...
cs_wbr Messages postés 110 Date d'inscription dimanche 11 août 2002 Statut Membre Dernière intervention 21 juillet 2006
8 févr. 2003 à 22:24
Je n'ai pas réussi à rajouter une options "Appuyez sur F? pour kicker, F? pour bannir [...]" alors si quelqun y arrive, envoyez moi un mail, je vais en avoir besoin. a+

wbr@snakeunion.com
S'inscrire maintenant

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 (cs_wbr)