clone scan

Question

Bonjour je debute et j' ai trouver ce code pou scanner les clones il marche en faisans 
/clonescan
ca me met une fenetre @scanner mais quand un clone se connecte  j' aurai voulu qui me l' affiche direct  dans la fenetre  et  en notice aussi avec l' adresse 
quelqu' un peu m' aider ????

-------------------------------------------------------------

menu channel {
  Clonescan:/clonescan
}

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 &#x0;2;&#x0;3;0[&#x0;2;&#x0;3;12Clones&#x0;2;&#x0;3;0]&#x0;2;&#x0;3;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  &#x0;2;&#x0;3;0[&#x0;2;&#x0;3;12Clones&#x0;2;&#x0;3;0]&#x0;2;&#x0;3;12 - Détection sur %ichan | echo @Scanner  $timestamp &#x0;2;&#x0;3;0[&#x0;2;&#x0;3;12Clones&#x0;2;&#x0;3;0]&#x0;2;&#x0;3;12 - Résultat: $numtok(%istock,32) clones pour %itotal host(s) | var %e 1 | while ($hget(c,%e)) { echo @Scanner $timestamp  &#x0;2;&#x0;3;0[&#x0;2;&#x0;3;12Clones&#x0;2;&#x0;3;0]&#x0;2;&#x0;3;12 - %e $+ . $hget(c,%e) | inc %e } }
    if (%itotal == 0) { echo @Scanner $timestamp &#x0;2;&#x0;3;0[&#x0;2;&#x0;3;12Clones&#x0;2;&#x0;3;0]&#x0;2;&#x0;3;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 &#x0;3;1+&#x0;3; $parm6 }
  }
  inc %Chan.Total | halt
}
raw 315:*:{
  echo 2 $parm2 &#x0;2;&#x0;3;6???&#x0;2;&#x0;3; Stat. de $parm2 &#x0;2;&#x0;3;6???&#x0;3;&#x0;2;
  echo 2 $parm2 &#x0;3;6?&#x0;3;&#x0;2;OQP&#x0;2;&#x0;3;6?&#x0;3; %Chan.Gone &#x0;3;6?&#x0;3;&#x0;2; %Chan.pseudo &#x0;2;&#x0;3;6?&#x0;3;
  echo 2 $parm2 &#x0;3;6?&#x0;3;&#x0;2;Clones &#x0;2;&#x0;3;6?&#x0;3; %Chan.Clones
  echo 2 $parm2 &#x0;2;&#x0;3;6???&#x0;2;&#x0;3; Fin de Stat. total: %Chan.Total &#x0;2;&#x0;3;6???&#x0;3;&#x0;2;
  .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)
  }
}
}
---------------------------

merci a celui qui me repondra :)

cs_PaDa · Answer

Donc en gros, tu viens pour qu'on comprenne le code d'un autre (qui n'est pas complet au passage), et qu'on te le modifie pour faire ce que tu veux ?
Qu'as tu essayé déjà ? Que comprends tu de ce code ? Est-ce que tu as déjà des pistes pour faire ce que tu veux ou tu veux qu'on te fasse tout ? Si oui combien tu payes ?
Désolé de répondre à ta question par autant d'autres questions ;-)

WorldDMT · Answer

salut


et pk pas faire un simple clone scan sans window juste avec un simple echo :)


regarde /help $ialchan et /help on join je pense que ça va t'aidé ^^ 

@+

Clone scan

2 réponses

Votre réponse

Discussions similaires