Scanneur de clones

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 467 fois - Téléchargée 27 fois

Contenu du snippet

Scanne les clones et affiche tout les who dans une nouvelle fenetre

Source / Exemple :


alias clonescan { unset %i* | .ial on | window -kn @Scanner | .enable #cln | who # | set %ichan # | set %itnick $nick(#,0) | set %itotal 0 | hmake c 10 | echo %ichan $timestamp 0[12Clones0]12 - Recherche en cours... }
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 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 @Scanner $timestamp  0[12Clones0]12 - Détection sur %ichan | echo @Scanner  $timestamp 0[12Clones0]12 - Résultat: $numtok(%istock,32) clones pour %itotal host(s) | var %e = 1 | while ($hget(c,%e)) { echo @Scanner $timestamp  0[12Clones0]12 - %e $+ . $hget(c,%e) | inc %e } }
    if (%itotal == 0) { echo @Scanner $timestamp 0[12Clones0]12 - Pas de clones détecté sur %ichan $+ . }
  unset %i* | hfree c }
}
#cln off
raw 315:*:.disable #cln | scaning | halt
#cln end
#Scan.Channel off
raw 352:*:{
  if ( $parm3 $+ @ $+ $parm4 isin %Chan.Address) { inc %Chan.Clones } | else { %Chan.Address = %Chan.Address $parm3 $+ @ $+ $parm4 }
  if (G isin $parm7) { 
    inc %Chan.Gone
    if (%Chan.pseudo == $null) { %Chan.pseudo = $parm6  }
    alse { %Chan.pseudo = %Chan.pseudo 1+ $parm6 }
  }
  inc %Chan.Total | halt
}
raw 315:*:{
  echo 2 $parm2 6??? Stat. de $parm2 6???
  echo 2 $parm2 6?OQP6? %Chan.Gone 6? %Chan.pseudo 6?
  echo 2 $parm2 6?Clones 6? %Chan.Clones
  echo 2 $parm2 6??? Fin de Stat. total: %Chan.Total 6???
  .disable #Scan.Channel | unset %Chan.* | halt
}
#Scan.Channel end
menu @Scanner {
  Effacer:clear
  -
  Fermer:window -c @Scanner
}
alias whowin {
  if $window(@who) == $null {
    window -klm -t10,30,33,36,49 +e @who 0 0 1100 500 arial 12
    aline $colour(normal) @who Pseudo $chr(9) Adresse $chr(9) IRCop $chr(9) Away $chr(9) Vrai Nom $chr(9) Serveur
    aline @who $chr(160)
    aline @who $chr(160)
  }
}

Conclusion :


pour scanner, se metre sur le salon et taper /clonescan

A voir également

Ajouter un commentaire Commentaires
Messages postés
21
Date d'inscription
samedi 4 août 2007
Statut
Membre
Dernière intervention
31 octobre 2008

bonjour,
comment faire pour scanner tout les chan en meme temps ?
Messages postés
47
Date d'inscription
dimanche 12 octobre 2003
Statut
Membre
Dernière intervention
4 mars 2007

peut etre mais c un autre qui a mis le meme
avec en plus
menu menubar
Scan clones : /clonescan
}

c i0lo je croi
et les nom c :
Scan clones trés rapide (une fenetre par salon )
Messages postés
229
Date d'inscription
vendredi 16 août 2002
Statut
Membre
Dernière intervention
9 juillet 2003

oups dsl apres recherche on diré kill a disparu pourtant je tassure kill a éxisté
Messages postés
229
Date d'inscription
vendredi 16 août 2002
Statut
Membre
Dernière intervention
9 juillet 2003

t o couran ke JHD a fait le MEME script et sur IRCFR en plus ?

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.