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 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)
}
}
}
---------------------------
merci a celui qui me repondra :)