Scanneur de clones

Soyez le premier à donner votre avis sur cette source.

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

Commenter

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
cs_mikl59 Messages postés 21 Date d'inscription samedi 4 août 2007 Statut Membre Dernière intervention 31 octobre 2008
23 janv. 2009 à 09:05
bonjour,
comment faire pour scanner tout les chan en meme temps ?
tit1012 Messages postés 47 Date d'inscription dimanche 12 octobre 2003 Statut Membre Dernière intervention 4 mars 2007
9 nov. 2003 à 20:12
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 )
nitro120 Messages postés 229 Date d'inscription vendredi 16 août 2002 Statut Membre Dernière intervention 9 juillet 2003
29 janv. 2003 à 17:01
oups dsl apres recherche on diré kill a disparu pourtant je tassure kill a éxisté
nitro120 Messages postés 229 Date d'inscription vendredi 16 août 2002 Statut Membre Dernière intervention 9 juillet 2003
29 janv. 2003 à 16:36
t o couran ke JHD a fait le MEME script et sur IRCFR en plus ?
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 (m3n2o)