begin process at 2012 02 10 19:04:49
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

AddOns

 > 3 SCANNEURS DIFFÉRENTS

3 SCANNEURS DIFFÉRENTS


 Information sur la source

Note :
7,11 / 10 - par 9 personnes
7,11 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :AddOns Classé sous :scan, scanner, clone, fullname, ircop Niveau :Débutant Date de création :03/07/2005 Date de mise à jour :04/07/2005 15:22:26 Vu / téléchargé :4 676 / 434

Auteur : AgoRa_ScripT

Ecrire un message privé
Site perso
Commentaire sur cette source (18)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
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

  • 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
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.

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !
  • mdx.dllTélécharger ce fichier [Réservé aux membres club]42 496 octets
  • scaninfo.mrcTélécharger ce fichier [Réservé aux membres club]Voir ce fichier4 016 octets
  • views.mdxTélécharger ce fichier [Réservé aux membres club]53 760 octets

Télécharger le zip


 Historique

04 juillet 2005 11:33:00 :
elseif au lieu des if
04 juillet 2005 14:51:32 :
$iif de l'alias scaninfo.
04 juillet 2005 14:53:22 :
$iif de l'alias scaninfo.
04 juillet 2005 15:20:35 :
$iif de l'alias scaninfo.
04 juillet 2005 15:22:07 :
$iif de l'alias scaninfo.
04 juillet 2005 15:22:26 :
$iif de l'alias scaninfo.

 Sources du même auteur

Source avec Zip Source avec une capture PROGRAMME TV (PICWIN)
Source avec une capture DERNIERES INFOS DU NET. (SITE PC INPACT)
Source avec une capture SYSTEME DE WHOIS
Source avec Zip Source avec une capture SCANNEUR D'IP...
Source avec Zip BARRE DE PROGRESSION POUR LES MP3 >> EN ECHO <<

 Sources de la même categorie

PACMAN MULTI-JOUEUR EN LIGNE par wims
PROXY&SOCKS SCANNER+LEECHER par independentt
GESTIONNAIRE DE HIGHLIGHT AVANCÉ AVEC IGNORE SALON OU PSEUDO par doob666
AUTOJOIN HTABLE MULTISERVER par doob666
TCL - AJOUT SUPPRESSION DE LOGS par Atok

 Sources en rapport avec celle ci

PROXY&SOCKS SCANNER+LEECHER par independentt
NICK SCAN SUR TOUT LES SALONS :) par ExtenZ93
Source avec une capture SCAN IRCOP BY DEVORZ par devorZ
Source avec une capture CLONE KICKER ON JOIN par hackman_teta_
SCANNER DE CLONES par MaX_62

Commentaires et avis

Commentaire de AgoRa_ScripT le 03/07/2005 04:39:56

Je remet en brouillon les commentaires de mon ancien code ....

> Commentaire de : tofu le 01/07/2005 19:44:11:

tu le fermes jms le group #scaninfo ? donc qd tu fais un who ça change la raw tt le temps? ... pas super.. puis penses à bloquer le raw 'end who' ds le même group ..
personnellement ce que j'avais fais c'était qu'une connexion en sockets me rapporte les fullname (donc comme c'est le socket qui fait le who aucun lag sur les gros chans), et aussi les badchans badnick badident etc...

-----------------------------------------------

> Commentaire de : MaX_62 le 02/07/2005 08:07:03:

Franchement ton alias $tab sert pas a grand chose... tu n'as qu'a mettre :
$+(Pseudos,$chr(9),Infos) au lieu de $tab(Pseudos,Infos) ...
tu nous oblige a mettre mdx dans le répertoire Dlls, et tu supposes également que views.mdx est dans la racine du script ><

Sinon c'est très basique, et ça sert pas a grand chose je trouve... essaie d'intégrer quelques options, comme c'est dit plus haut ^

-----------------------------------------------

> Commentaire de : loadation le 02/07/2005 12:02:46 :

j'aime bien ;)

-----------------------------------------------

Considéré cet add-on comme essayant de répondre à vos remarques :s , le précédent ayant buggé -.-

Commentaire de Alain Proviste le 03/07/2005 04:54:09 administrateur CS

bonne continuation.

Commentaire de AgoRa_ScripT le 03/07/2005 05:05:36

merci :]

Commentaire de Lestat_2070 le 03/07/2005 09:54:23

Je trouve ça beaucoup mieux AgoRa_ScripT :), même si je n'ai pas vraiment un 'haut niveau' pour en parler. Oui, on peux dire que les dll mdx sont en trop, et qu'il faut utiliser les picwins; mais lol, c'est déjà très bien comme ca je trouve ;). A part ça, pourquoi ne pas mettre le 'reste' du code comme sur le screen?
6/10

Commentaire de Lestat_2070 le 03/07/2005 10:02:18

Ah, j'ai rien dit... tout est comme il faut: tout est fournit xD
Désolé, j'avais à peine regardé le code ^^

Commentaire de AgoRa_ScripT le 03/07/2005 13:23:57

;o)) Merci Lestat_2070.

Commentaire de lebiloute le 04/07/2005 09:48:07

Bien bien bien c'est bien simple et efficace juste un truc que tu n'as pas fait :
# 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 }
# }

remplace les "if" par des "elseif" voila c'est tout : 6/10 :)

Commentaire de AgoRa_ScripT le 04/07/2005 11:34:10

Le problème persiste, je peux pas changer mon code. Mais merci LEBILOUTE :)

Commentaire de AgoRa_ScripT le 04/07/2005 11:34:46

Ah ben si mdr, ça marche ...

Commentaire de AgoRa_ScripT le 04/07/2005 15:29:12

Oula, j'ai vraiment un gros problème d'update.. en plus que ma souris clique 2 fois.
Et euh merci pour le 10 Oo

Commentaire de MaX_62 le 04/07/2005 17:59:46

C'est vrai que c'est beaucoup mieux. Cependant, évites d'associer les boucles /goto aux variables globales... utilises une boucle /while avec des variables locales (/var) !
Les points devant /did sont inutiles...

Commentaire de AgoRa_ScripT le 04/07/2005 18:27:21

Je sais, c'est ma façon de scripter ^^'

Commentaire de hisoka2501 le 04/07/2005 21:46:31

goto pour une boucle  beurk

pour ce qui est des clones:

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)
dec %n
}
hfree %table
}  

voila je pensse ne pas avoir fait d'erreur :)
les while sonts bcp plus rapides que les goto, de plus pensse a chainer tes variables et ne pas trop abuser des /set

Commentaire de hisoka2501 le 04/07/2005 21:47:52

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 :$

Commentaire de Riri59 le 12/05/2006 14:03:28

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

Commentaire de AgoRa_ScripT le 14/05/2006 14:22:18

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.

Commentaire de Riri59 le 14/05/2006 22:06:27

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

Commentaire de AgoRa_ScripT le 15/05/2006 15:31:58

ok.
merci :)

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

IRCOP ET notice [ par bastar ] Bonjour certain d'entre vous connaissent les SNOTICE exemple un user vous whois ca vous le dit mais j'aimeras que ca me le dise dans mon -a (active ) Scan Nicklist [ par phil1957 ] Bjr a tous,Je cherche comment faire un scan de nicklist pour pseudo interdit sur un chan. Qui auarit la gentillesse de m'aider SVP merci.Phil974 Bot Anti-clone [ par shadowsexpect ] Bonjour a tous, je construit mon bot depuis maintenant une semaine, et je voudrais qu'il serve aussi pour la sécurtié du server, pour ce faire j'aimer Je cherche un clone control pour.. [ par Seriakz ] alors voila, je cherche un clone control (un systeme de control de clones avec masskick, massdeop, massjoin, masspart..) pour controlé mes bnc & bots scan adresse [ par titeuf28310 ] Je recherche un addon qui scan les adresses ip, car sur mon salon, mes ami(e)s changent tant de fois de pseudo que je sais meme plus qui es qui... alo [?] scane clone visible pour bot [?] [ par Xrf ] slt je cherche depui 2 mois un scane clone pour mon bot, de plus je suis novice ... donc je ne peu meme pas le fair tout seul, si vous en avais un je pb de couleur Ircop avec Nicklust.dll [ par _Dams_ ] SltBon et bien voilatoutes les 60s je fè un Who sur tout les salons ou je me trouve et je mets dans une variable %ircop tous les pseudos IRCOP.Ensuite Scan proxy [ par T4X ] Bonjour , je voudrais savoir ou je peut trouver un scanner de proxy ( genre je met une liste de proxy et il sort les bon proxy ) j'ai dégà cherchée p socket [ par KiNdErMaXi ] bonjour,j'aurai voulus savoir comment connecter un socket dans une fenetre (un clone) et pouvoir lui faire faire des actions ( msg, etc ... )j'ai lus


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,466 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales