Unnamed

dialog multiscan {
  title "** Multi Scanner ** V1 By Sorn_Drixer Modified by ZeAnGeL"
  size -1 -1 278 296
  option dbu
  list 6, 8 23 124 52, size
  text "Proxys reconnus :", 2, 9 12 45 8
  box "Détecteur de proxys", 3, 4 2 135 122
  box "Détecteur d'IDENTS", 4, 140 2 135 122
  text "IDENTS reconnus :", 5, 146 12 45 8
  list 1, 145 23 125 52, size
  list 7, 8 135 263 72, size
  box "Résultats", 8, 4 126 271 97
  text "Si détecté ( listes spéciaux ) :", 9, 4 230 74 8
  check "Kicker", 10, 83 229 27 10
  check "Ban", 11, 112 229 22 10
  text "Multi Scanner By Sorn_Drixer", 13, 4 277 72 8, disable
  link "Http://www.Bot-Corporation.fr.st", 14, 4 286 88 8
  button "&Valider", 15, 239 229 37 12
  button "&Annuler", 16, 200 229 37 12, ok
  button "Clear Listes", 17, 162 229 37 12
  button "&Ajouter", 18, 9 78 37 12
  button "&Supprimer", 19, 10 93 37 12
  button "&Supprimer", 20, 148 93 37 12
  button "&Ajouter", 21, 147 78 37 12
  button "&SCANNER", 22, 162 243 114 17
  button "Liste...", 23, 10 108 37 12
  button "Liste...", 25, 148 108 37 12
  button "Clear liste", 26, 51 108 37 12
  button "Clear liste", 27, 189 108 37 12
  edit "", 28, 49 79 82 10
  edit "", 29, 187 79 82 10
  text "Channel à scanner :", 12, 26 240 50 8
  edit "#", 24, 82 239 50 10
  button "Ajouter en &PROXY", 30, 9 208 47 12
  button "Ajouter en &IDENT", 31, 58 208 47 12
  check "Kline", 32, 135 229 24 10
  text "Détecte lors d'un JOIN :", 33, 17 250 59 8
  check "oui", 34, 83 250 19 10
}

ON *:LOAD:{
  echo -a 2Bienvenue dans Multiscan Modified By ZeAnGeL
  echo -a 2Pour ouvrir le scanner, faites /multiscan
  echo -a Pour + d'addons : http://www.Bot-Corporation.fr.st
}

on *:dialog:multiscan:init:*:{
  if ($exists(proxyban.txt) == $true) { loadbuf -o multiscan 6 proxyban.txt }
  if ($exists(scanident.txt) == $true) { loadbuf -o multiscan 1 scanident.txt }
  if ($readini(multiscanconfig.ini, options , kick) == on) { did -c multiscan 10 }
  if ($readini(multiscanconfig.ini, options , kick) == off) { }
  if ($readini(multiscanconfig.ini, options , kick) == $null) { }
  if ($readini(multiscanconfig.ini, options , ban) == on) { did -c multiscan 11 }
  if ($readini(multiscanconfig.ini, options , ban) == off) { }
  if ($readini(multiscanconfig.ini, options , ban) == $null) { }
  if ($readini(multiscanconfig.ini, options , kline) == on) { did -c multiscan 32 }
  if ($readini(multiscanconfig.ini, options , kline) == off) { }
  if ($readini(multiscanconfig.ini, options , kline) == $null) { }
  if ($readini(multiscanconfig.ini, options , join) == on) { did -c multiscan 34 }
  if ($readini(multiscanconfig.ini, options , join) == off) { }
  if ($readini(multiscanconfig.ini, options , join) == $null) { }
  if (%schan == $null) { halt }
  else { did -ra multiscan 24 %schan | halt }
}

on *:dialog:multiscan:sclick:15:{
  if ($did(10).state == 1) { writeini multiscanconfig.ini options kick on }
  if ($did(10).state == 0) { writeini multiscanconfig.ini options kick off }
  if ($did(11).state == 1) { writeini multiscanconfig.ini options ban on }
  if ($did(11).state == 0) { writeini multiscanconfig.ini options ban off  }
  if ($did(32).state == 1) { writeini multiscanconfig.ini options kline on }
  if ($did(32).state == 0) { writeini multiscanconfig.ini options kline off  }
  if ($did(34).state == 1) { writeini multiscanconfig.ini options join on | .enable #joinscan }
  if ($did(34).state == 0) { writeini multiscanconfig.ini options join off | .disable #joinscan }
  if ($did(10).state == $null) { remini multiscanconfig.ini options kick }
  if ($did(11).state == $null) { remini multiscanconfig.ini options ban }
  if ($did(32).state == $null) { remini multiscanconfig.ini options kline }
  if ($did(34).state == $null) { remini multiscanconfig.ini options join }
  echo -a 14[ 4Multi Scan 14 ] 7Changement effectué 
  else { halt }
}

on *:dialog:multiscan:sclick:22:{
  scan
}

on *:dialog:multiscan:sclick:17:{
  if ($exists(proxyban.txt) == $true) { did -r multiscan 6 | .remove proxyban.txt }
  if ($exists(scanident.txt) == $true) { did -r multiscan 1 | .remove scanident.txt }
  else { halt }
}

on *:dialog:multiscan:sclick:30:{
  if ($did(7).seltext == $null) { echo -a 4[ ERREUR ] => Vous n'avez pas sélectionné de proxy à ajouter. | halt }
  else { did -a multiscan 6 $read(resultat.txt,$did(7).sel) | write proxyban.txt $read(resultat.txt,$did(7).sel) | halt }
}

on *:dialog:multiscan:sclick:31:{
  if ($did(7).seltext == $null) { echo -a 4[ ERREUR ] => Vous n'avez pas sélectionné d'IDENT à ajouter. | halt }
  else { did -a multiscan 1 $gettok($read(resultat2.txt,$did(7).sel),1,64) | write scanident.txt $gettok($read(resultat2.txt,$did(7).sel),1,64) | halt }
}


on *:dialog:multiscan:sclick:26:{
  if ($exists(proxyban.txt) == $true) { did -r multiscan 6 | .remove proxyban.txt }
  else { halt }
}

on *:dialog:multiscan:sclick:18:{
  if ($did(28) == $null) { echo -a 4[ ERREUR ] => Vous n'avez pas spécifié de proxy à ajouter. | halt }
  else { did -a multiscan 6 $did(28) | write proxyban.txt $did(28) | did -r multiscan 28 | halt }
}

on *:dialog:multiscan:sclick:19:{
  if ($did(6).sel == $null) { echo -a 4[ ERREUR ] => Vous n'avez pas spécifié de proxy à supprimer. | halt }
  else { write -ds $+ $did(6).seltext proxyban.txt | did -d multiscan 6 $did(6).sel | $read(fichier.truc,s,#chan) }
}

on *:dialog:multiscan:sclick:23:{
  set %listeproxy $sfile(*.txt,Selectionnez une liste de proxys,Selectionner)
  if (%listeproxy == $null) { halt }
  else { goto verif }
  :verif
  if ($lines(%listeproxy) > 300) { echo -a 4[Erreur] => Liste trop grande. Veuillez la diminuer à moins de 300. }
  else { goto load }
  :load
  var %x = 1
  :next
  did -a multiscan 6 $read(%listeproxy,%x)
  inc %nbproxy
  inc %x
  if (%x < $lines(%listeproxy)) goto next
  else { unset %x | unset %listeproxy }
}

########

on *:dialog:multiscan:sclick:27:{
  if ($exists(scanident.txt) == $true) { did -r multiscan 1 | .remove scanident.txt }
  else { halt }
}

on *:dialog:multiscan:sclick:21:{
  if ($did(29) == $null) { echo -a 4[ ERREUR ] => Vous n'avez pas spécifié d'ident à ajouter. | halt }
  else { did -a multiscan 1 $did(29) | write scanident.txt $did(29) | did -r multiscan 29 | halt }
}

on *:dialog:multiscan:sclick:20:{
  if ($did(1).sel == $null) { echo -a 4[ ERREUR ] => Vous n'avez pas spécifié d'ident à supprimer. | halt }
  else { write -ds $+ $did(1).seltext scanident.txt | did -d multiscan 1 $did(1).sel }
}

on *:dialog:multiscan:sclick:25:{
  set %listident $sfile(*.txt,Selectionnez une liste d'IDENT,Selectionner)
  if (%listident == $null) { halt }
  else { goto verif }
  :verif
  if ($lines(%listident) > 300) { echo -a 4[Erreur] => Liste trop grande. Veuillez la diminuer à moins de 300. }
  else { goto load }
  :load
  var %x = 1
  :next
  did -a multiscan 1 $read(%listident,%x)
  inc %nbident
  inc %x
  if (%x < $lines(%listident)) goto next
  else { unset %x | unset %listident }
}

alias read.proxys {
  set %a 1
  set %aa $lines(proxyban.txt)
  :re
  set %proxy1 $read(proxyban.txt,%a)
  inc %a
  if (%a < %aa) goto re
  else { halt | unset %a | unset %aa | echo -a ## FINI ## }
}

alias multiscan { 
  if ($dialog(multiscan)) { return }
  else { dialog -mdr multiscan multiscan }
}

alias scan {
  if $did(24) == $null) { echo -a 4[Erreur] => Canal à scanner non spécifié | halt }
  else { set %schan $did(24) | goto verif }
  :verif
  if ($exists(resultat.txt) == $true) { .remove resultat.txt }
  if ($exists(resultat2.txt) == $true) { .remove resultat2.txt }
  if ($me ison %schan) { goto verif2 }
  else { echo -a 4[Erreur] => Vous n'êtes pas sur le canal à scanner | halt }
  :verif2
  did -r multiscan 7
  var %nb2 0 
  var %inconnu 0
  set %nb $nick(%schan,0)
  did -b multiscan 18,19,20,21,10,11,17,15,23,25
  did -a multiscan 7 ## SCAN STARTED ##
  write resultat.txt ## SCAN STARTED ##
  write resultat2.txt ## SCAN STARTED ##
  :suite
  inc %nb2
  set %hscan $address($nick(%schan,%nb2),2)
  set %iscan $address($nick(%schan,%nb2),1)
  write resultat.txt %hscan
  write resultat2.txt %iscan
  if (%hscan == $null) { inc %inconnu | did -a multiscan 7 $nick(%schan,%nb2) : Host inconnu | write resultat.txt inconnu | write resultat2.txt inconnu | goto aa }
  if (%hscan == $read(proxyban.txt,w,%hscan)) { goto proxy }
  if ($gettok(%iscan,1,64) == $read(scanident.txt,w,$gettok(%iscan,1,64))) { goto ident }
  else { goto pays }
  :proxy
  did -a multiscan 7 $nick(%schan,%nb2) : %hscan   ( PROXY )
  if ($readini(multiscanconfig.ini, options , kick) == on) { kick %schan $nick(%schan,%nb2) 14[mUlti ScAn 4By Sorn_Drixer14] | goto bb }
  if ($readini(multiscanconfig.ini, options , kick) == off) { goto bb }
  if ($readini(multiscanconfig.ini, options , kick) == $null) { goto bb }
  else { goto aa }
  :ident
  did -a multiscan 7 $nick(%schan,%nb2) : $gettok(%iscan,1,64)   ( IDENT )
  if ($readini(multiscanconfig.ini, options , kick) == on) { kick %schan $nick(%schan,%nb2) 14[mUlti ScAn 4By Sorn_Drixer14] | goto bb }
  if ($readini(multiscanconfig.ini, options , kick) == off) { goto bb }
  if ($readini(multiscanconfig.ini, options , kick) == $null) { goto bb }
  else { goto aa }
  :bb
  if ($readini(multiscanconfig.ini, options , ban) == on) { ban %schan $nick(%schan,%nb2) | goto cc }
  if ($readini(multiscanconfig.ini, options , ban) == off) { goto cc }
  if ($readini(multiscanconfig.ini, options , ban) == $null) { goto cc }
  :cc
  if ($readini(multiscanconfig.ini, options , kline) == on) { kline $nick(%schan,%nb2) :Multiscan By Sorn_Drixer used by $me | goto aa }
  if ($readini(multiscanconfig.ini, options , kline) == off) { goto aa }
  if ($readini(multiscanconfig.ini, options , kline) == $null) { goto aa }
  :pays
  if ($right(%hscan,3) == .fr) { did -a multiscan 7 $nick(%schan,%nb2) : %hscan   ( FRANCE ) | goto aa }
  if ($right(%hscan,3) == .be) { did -a multiscan 7 $nick(%schan,%nb2) : %hscan   ( BELGIQUE ) | goto aa }
  if ($right(%hscan,3) == .am) { did -a multiscan 7 $nick(%schan,%nb2) : %hscan   ( AMERIQUE ) | goto aa }
  if ($right(%hscan,3) == .ca) { did -a multiscan 7 $nick(%schan,%nb2) : %hscan   ( CANADA ) | goto aa }
  if ($right(%hscan,3) == .br) { did -a multiscan 7 $nick(%schan,%nb2) : %hscan   ( BRESIL ) | goto aa }
  if ($right(%hscan,3) == .es) { did -a multiscan 7 $nick(%schan,%nb2) : %hscan   ( ESPAGNE ) | goto aa }
  if ($right(%hscan,3) == .gr) { did -a multiscan 7 $nick(%schan,%nb2) : %hscan   ( GRECE ) | goto aa }
  if ($right(%hscan,4) == .com) { did -a multiscan 7 $nick(%schan,%nb2) : %hscan   ( INTERNATIONAL ) | goto aa  }
  if ($right(%hscan,4) == .net) { did -a multiscan 7 $nick(%schan,%nb2) : %hscan   ( INTERNATIONAL ) | goto aa  }
  if ($right(%hscan,4) == .org) { did -a multiscan 7 $nick(%schan,%nb2) : %hscan   ( ORGANISATION ) | goto aa }
  if ($right(%hscan,3) == .it) { did -a multiscan 7 $nick(%schan,%nb2) : %hscan   ( ITALIE ) | goto aa }
  if ($right(%hscan,3) == .jp) { did -a multiscan 7 $nick(%schan,%nb2) : %hscan   ( JAPON ) | goto aa }
  if ($right(%hscan,3) == .ch) { did -a multiscan 7 $nick(%schan,%nb2) : %hscan   ( SUISSE ) | goto aa }
  else { did -a multiscan 7 $nick(%schan,%nb2) : %hscan   ( AUTRES PAYS ) }
  :aa
  if (%nb > %nb2) goto suite
  else { write resultat.txt ## SCAN FINISHED ( %nb2 host scanné, %inconnu host inconnu ) ## | write resultat2.txt ## SCAN FINISHED ( %nb2 host scanné, %inconnu host inconnu ) ## | did -e multiscan 18,19,20,21,10,11,17,15,23,25 | did -a multiscan 7 ## SCAN FINISHED ( %nb2 host scanné, %inconnu host inconnu ) ## | unset %inconnu | unset %nb | unset %nb2 | unset %hscan }
}

#joinscan off
ON *:JOIN:#:{
  var %nb2 0 
  var %inconnu 0
  set %nb $nick($chan,0)
  write resultat.txt ## SCAN STARTED ##
  write resultat2.txt ## SCAN STARTED ##
  :suite
  inc %nb2
  set %hscan $address($nick($chan,%nb2),2)
  set %iscan $address($nick($chan,%nb2),1)
  write resultat.txt %hscan
  write resultat2.txt %iscan
  if (%hscan == $null) { inc %inconnu | write resultat.txt inconnu | write resultat2.txt inconnu | goto aa }
  if (%hscan == $read(proxyban.txt,w,%hscan)) { goto proxy }
  if ($gettok(%iscan,1,64) == $read(scanident.txt,w,$gettok(%iscan,1,64))) { goto ident }
  else { goto aa }
  :proxy
  if ($readini(multiscanconfig.ini, options , kick) == on) { kick $chan $nick($chan,%nb2) 14[mUlti ScAn 4By Sorn_Drixer14] | goto bb }
  if ($readini(multiscanconfig.ini, options , kick) == off) { goto bb }
  if ($readini(multiscanconfig.ini, options , kick) == $null) { goto bb }
  else { goto aa }
  :ident
  if ($readini(multiscanconfig.ini, options , kick) == on) { kick $chan $nick($chan,%nb2) 14[mUlti ScAn 4By Sorn_Drixer14] | goto bb }
  if ($readini(multiscanconfig.ini, options , kick) == off) { goto bb }
  if ($readini(multiscanconfig.ini, options , kick) == $null) { goto bb }
  else { goto aa }
  :bb
  if ($readini(multiscanconfig.ini, options , ban) == on) { ban $chan $nick($chan,%nb2) | goto cc }
  if ($readini(multiscanconfig.ini, options , ban) == off) { goto cc }
  if ($readini(multiscanconfig.ini, options , ban) == $null) { goto cc }
  :cc
  if ($readini(multiscanconfig.ini, options , kline) == on) { kline $nick($chan,%nb2) :Multiscan By Sorn_Drixer used by $me | goto aa }
  if ($readini(multiscanconfig.ini, options , kline) == off) { goto aa }
  if ($readini(multiscanconfig.ini, options , kline) == $null) { goto aa }
  :aa
  if (%nb > %nb2) goto suite
  else { write resultat.txt ## SCAN FINISHED ( %nb2 host scanné, %inconnu host inconnu ) ## | write resultat2.txt ## SCAN FINISHED ( %nb2 host scanné, %inconnu host inconnu ) ## | unset %nb | unset %nb2 | unset %hscan }
}
#joinscan end