Clonescan

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...
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)