Scanneur de clones

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

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)