3 scanneurs différents

Soyez le premier à donner votre avis sur cette source.

Vue 5 800 fois - Téléchargée 495 fois

Description

Ce code est en réalité l'update d'un autre. A la base il n'y avait qu'un scann de fullname, mais il manquait d'options. Je lui ai donc rajouter 2 scans.
- scan clone
- scan fullname
- scan IRCop

Source / Exemple :


dialog scaninfo {
  title "Scanneurs"
  size -1 -1 300 40
  combo 1 , 95 5 100 100 , vsbar , drop , size , sort
  list 2 , 10 30 280 200
  list 3 , 10 230 90 120
  edit "Clones Interdits" , 4 , 190 270 100 20 , autohs
  button "KICK" , 5 , 190 295 40 20
  button "KICKBAN" , 6 , 235 295 56 20
  text "" , 7 , 105 230 130 20
  button "scanner" , 8 , 240 230 50 20
  list 9 , 10 30 280 200
  button "scanner" , 10 , 120 220 50 20
  list 11 , 10 30 280 200
  list 12 , 10 230 100 50
  button "scanner" , 13 , 240 230 50 20
}
on *:dialog:scaninfo:init:*:{
  dll $stdl MarkDialog scaninfo
  dll $stdl SetMircVersion $version
  dll $stdl SetControlMDX scaninfo 9,11 ListView showsel rowselect infotip report grid > views.mdx
  did -i $dname 9 1 headerdims 90 185
  did -i $dname 9 1 headertext $+(Pseudos,$chr(9),Info)
  did -i $dname 11 1 headerdims 90 185
  did -i $dname 11 1 headertext $+(Pseudos,$chr(9),Statut)
  did -h $dname 2,3,4,5,6,7,8,9,10,11,12,13
  did -a $dname 1 Scan?Clone
  did -a $dname 1 Scan?Fullname
  did -a $dname 1 Scan?IRCop
}
on *:dialog:scaninfo:sclick:*:{
  if ($did(1) == Scan?Clone) { .dialog -s scaninfo -1 -1 300 350 | .did -h $dname 9,10,11,12,13 | .did -v $dname 2,3,4,5,6,7,8 }
  if ($did(1) == Scan?Fullname) { .dialog -s scaninfo -1 -1 300 250 | did -h $dname 2,3,4,5,6,7,8,9,12,13 | .did -v $dname 9,10 }
  if ($did(1) == Scan?IRCop) { .dialog -s scaninfo -1 -1 300 270 | did -h $dname 2,3,4,5,6,7,8,9,10 | .did -v $dname 11,12,13 }
  if ($did == 5) { .kick $active $did(3).seltext $did(4) }
  if ($did == 6) { .ban $active $did(3).seltext 2 | .kick $active $did(3).seltext $did(4) }
  if ($did == 8) { .bcs }
  if ($did == 10) { .bfull }
  if ($did == 13) { .bcop }
}
alias stdl { return Dlls\mdx.dll }
alias f9 /scaninfo
alias scaninfo $iif($active != $chan,echo -a [Erreur] Mauvaise fenêtre. Choisissez un canal.,dialog -mdr scaninfo scaninfo)
alias bfull { %scan = 2 | did -r scaninfo 9 | enable #scnn | who $active }
alias bcop { %scan = 3 | did -r scaninfo 11,12 | enable #scnn | who $active }
alias beginsc {
  set %n 0
  :loop1
  inc %n 1
  if ($nick(%itchan,%n) isin %istock) { goto end }
  if ($ialchan($address($nick(%itchan,%n),2),%itchan,0) > 1) {
    inc %ittotal 1
    unset %inick | set %l 0
    :loop2
    inc %l 1
    if ($ialchan($address($nick(%itchan,%n),2),%itchan,%l).nick) {
      set %istock %istock $ialchan($address($nick(%itchan,%n),2),%itchan,%l).nick
      did -a scaninfo 3 $ialchan($address($nick(%itchan,%n),2),%itchan,%l).nick
      set %inick %inick = [ $ialchan($address($nick(%itchan,%n),2),%itchan,%l).nick ]
      goto loop2
    }
    did -a scaninfo 2 $str(?,57)
    did -a scaninfo 2 $str($chr(160),2) > $right(%inick,-2) :
    did -a scaninfo 2 $str($chr(160),2) > $address($nick(%itchan,%n),2)
    did -a scaninfo 2 $str(?,57)
  }
  :end
  if (%n < $nick(%itchan,0)) { goto loop1 }
  if (%n == $nick(%itchan,0)) { evall }
}
alias evall {
  %itpr = [ $calc(%ittotal * 100) ] / %itnick
  did -a scaninfo 7 Total: %ittotal host, soit ~ ( $+ $int(%itpr) $+ % $+ )
  if (%ittotal == 0) { did -r scaninfo 2 | did -b scaninfo 5,6 | did -a scaninfo 2 $str($chr(160),25) ?aucun clone detecté. }
  if (%ittotal != 0) { did -e scaninfo 5,6 }
  else { did -e scaninfo 5,6 }
  unset %it*
  unset %istock
}
alias bcs {
  %scan = 1
  did -r scaninfo 2,3,7
  .ial on
  .enable #scnn
  who $active
  set %itchan $active
  set %itnick $nick($active,0)
  set %ittotal 0
  did -a scaninfo 2 $str($chr(160),30) ?detection..
  unset %inick
}
#scnn off
raw 352:*:{
  if (%scan == 1) { halt }
  elseif (%scan == 2) { haltdef | .did -a scaninfo 9 $6 $chr(9) $strip($9-) }
  elseif (%scan == 3) { haltdef | .did -a scaninfo 11 $6 $chr(9) $iif(* isin $7,$+($str($chr(160),5),IRCop),simple tchatteur) | $iif(* isin $7,did -a scaninfo 12 $6,halt) }
}
raw 315:*:{
  if (%scan == 1) { .disable #scnn | beginsc | halt }
  else { .disable #scnn | haltdef }
}
#scnn end

Conclusion :


Je met donc le code -et- le zip si vous n'avez pas les dlls. Une fois les dlls prises mettez-les dans le dossier intitulé Dlls, dans la racine de votre script.
Après, il suffit de taper soit /scaninfo soit appuyer sur F9 dans votre mIRC.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
136
Date d'inscription
jeudi 22 juillet 2004
Statut
Membre
Dernière intervention
20 octobre 2007

ok.
merci :)
Messages postés
6
Date d'inscription
vendredi 1 octobre 2004
Statut
Membre
Dernière intervention
14 mai 2006

Oui jai lu ça,et je lai fait mais le probleme c'est que javais tout mis dans "dlls" donc le views.mdx marchait pas.Mais maintenant e l'ai placé à la racine du script et ça marche merci il est génial 8/10
Messages postés
136
Date d'inscription
jeudi 22 juillet 2004
Statut
Membre
Dernière intervention
20 octobre 2007

c'est surement un probleme du au mauvais placement de ta dll mdx.
ma source va chercher la dll dans Dlls\mdx.dll, il faut que tu créés un sous dossier "Dlls" dans le dossier où se trouve ton script où tu fous mdx.dll dedans.
Messages postés
6
Date d'inscription
vendredi 1 octobre 2004
Statut
Membre
Dernière intervention
14 mai 2006

Bonjour,

Ils sont bien tes scanners mais j'ai un petit probleme, l'affichage du scan fullname et Ircop marche mal il est écrit:
headertext pseudo Status
headerdims 90 185

Pourrez tu m'aider?
merci
Messages postés
264
Date d'inscription
lundi 19 mai 2003
Statut
Membre
Dernière intervention
7 juillet 2009

oops une erreur de ma part:


hadd -m %table $address(%nick,2)

>


hadd -m %table $address(%nick,2) %nick

sinon ca iras pas, ce qui nous donne:

alias scanclones {
var %n $nick($chan,0) , %table wbs.clones.scan.tmp
if ($hget(%table)) { hfree %table }
while (%n > 0) {
var %nick $nick($chan,%n), %tmp $hget(%table,$address(%nick,2)
if (%tmp) && (%nick !isop $chan) {
if ($me isop $chan) {
mode $chan +bbb %nick $address(%nick,2) %tmp
kick $chan %nick Clones
kick $chan %tmp Clones
}
else { echo -a Clones: %tmp %nick $chr(40) $+ $address(%nick,2) $+ $chr(41) }
}
hadd -m %table $address(%nick,2) %nick
dec %n
}
hfree %table
}


voila et dsl pour le double post :$
Afficher les 18 commentaires

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.