1. Accueil
  2. Tous les snippets
  3. Snippets IRC
  4. Anti clone 1.3 ou scan clone ou détecteur de clone

Anti clone 1.3 ou scan clone ou détecteur de clone

Soyez le premier à donner votre avis sur cette source.

Snippet vu 11 295 fois - Téléchargée 27 fois

Commenter

Contenu du snippet

Détecteur de clone ( Scan Clone ou Anti Clone Comme vous le voulez) Je vien de modifier la version 1.3 car elle avait un petit problème je crois l'avoir arrenger, prochaine version à venir :) et d'Autre source a venir

J'aimerais préciser que les sources Antérieurs sont des sources Noobs très Noobs alors je suis désolé faite assemblant que mon ANTI CLONE Est ma première source et le reste seras encore meilleur :)

Source / Exemple : 


;######################### 
;####### Clone Scan ###### 
;###### Version 1.3 ###### 
;## ©© Par OmbreNoir ©© ## 
;## Tous Droits Résevés ## 
;# Canal #DoYouSoundGood # 
;### Canal #Script-Irc ### 
;######################### 

;Pour vos commantaires Vener me voir sur les canaux. 

;Section Dialog 
On *:load:{ 
  Echo -a Aller le configurer, pour ce faire, Bouton de droite sur un canal, Clone Scan/Configuration 
  Echo -a Aller voir la Section Créateur Merci! 
  Echo -a Tous Droits mes réservés!!! OmbreNoir © 
  set %ACNWBAN Oui 
  set %ACNWKick Oui 
  set %ACNWAdve Non 
  set %ACNWPh Vous devez enelver tout clones sur le canal. Merci. 
  set %ACNWM Notice 
  set %ActiveAC0 Oui 
} 

dialog CfAC { 
  title "Anti-Clone Configuration Version 1.3 ©" 
  size -1 -1 156 221 
  option dbu 
  tab "Infos", 1, 3 4 148 214 
  tab "Ajouter", 2 
  tab "Général", 31 
  box "", 4, 59 28 91 149, tab 1 
  box "", 6, 9 28 52 149, tab 1 
  box "", 67, 9 177 141 38, tab 1 
  box "La Phrase de Kick", 3, 8 110 141 42, tab 2 
  box "Pseudonyme à Ne Pas Kicker ou Bannir", 14, 7 23 141 39, tab 2 
  box "*!*@Adresse à Ne Pas Kicker ou Bannir", 19, 7 64 141 44, tab 2 
  box "Option d'Anti-Clone", 32, 6 19 140 74, tab 31 
  box "Option Sauvegardé", 48, 6 94 142 68, tab 31 
  box "", 13, 6 162 141 54, tab 31 
  box "", 12, 71 19 75 74, tab 31 
  list 7, 11 51 45 124, tab 1 size 
  list 11, 62 51 83 124, tab 1 size 
  text "Pseudo", 8, 20 40 25 8, tab 1 
  text "Pseudo et *!*@Adresse à ne pas bannir", 9, 19 22 97 8, tab 1 
  text "*!*@Adresse", 10, 79 40 35 8, tab 1 
  text "", 66, 32 203 93 8, tab 1 
  text "Pseudo", 15, 10 33 23 8, tab 2 
  text "U@H", 20, 10 75 20 8, tab 2 
  text "Bannir", 33, 19 27 19 8, tab 31 
  text "Kicker", 36, 19 44 18 8, tab 31 
  text "Avertir", 39, 19 64 22 8, tab 31 
  text "Phrase d'avertissement", 42, 77 26 60 8, disable tab 31 
  text "Méthode de méssage", 44, 76 47 56 8, disable tab 31 
  text "Bannir", 49, 9 106 19 8, tab 31 
  text "Par défault - Oui -", 51, 51 120 57 8, tab 31 
  text "Par défault - Oui -", 54, 51 107 58 8, tab 31 
  text "Kicker", 52, 9 118 19 8, tab 31 
  text "Avertir", 55, 9 131 21 8, tab 31 
  text "Par défault - Non -", 57, 51 131 56 8, tab 31 
  text "Par défault - Notice -", 62, 92 151 52 8, tab 31 
  text "Méthode de méssage", 60, 9 151 56 8, disable tab 31 
  text "Phrase d'avertissement", 58, 8 141 60 8, disable tab 31 
  text "Exécuter les informations enrégistré ou seulement se faire avertir?", 97, 9 187 135 14, tab 31 
  text "Exécuter le Scan dès que quelqu'un entre dans un canal.", 23, 7 166 138 8, tab 31 
  edit "", 64, 23 182 110 10, tab 1 read 
  edit "", 16, 36 31 105 10, tab 2 
  edit "", 18, 52 46 90 11, tab 2 read 
  edit "", 21, 30 74 112 10, tab 2 
  edit "", 25, 51 90 90 10, tab 2 read 
  edit "Pas Encore modifiable", 26, 11 119 77 10, tab 2 autohs read 
  edit "No{[Sc|ri|pT}]War", 27, 89 119 52 10, tab 2 read 
  edit "", 30, 51 134 90 10, tab 2 read 
  edit "Vous devez enelver tout clones sur le canal. Merci.", 43, 73 35 68 10, disable tab 31 autohs 
  edit "Oui", 50, 32 106 17 10, tab 31 read 
  edit "Oui", 53, 32 118 17 10, tab 31 read 
  edit "Non", 56, 32 130 17 10, tab 31 read 
  edit "Vous devez enelver tout clones sur le canal. Merci.", 59, 70 139 69 10, disable tab 31 autohs 
  edit "Notice", 61, 68 150 22 10, tab 31 read 
  edit "Désactiver", 29, 8 175 34 10, tab 31 read 
  button "Supprimer", 65, 47 192 53 10, tab 1 
  button "Enrégistrer", 17, 11 46 37 10, disable tab 2 
  button "Enrégistrer", 22, 10 89 37 10, disable tab 2 
  button "Enregistrer", 28, 12 134 37 10, disable tab 2 
  button "Enregistrer", 47, 73 69 33 10, tab 31 
  button "Par Défault", 68, 108 69 33 10, tab 31 
  button "Rapide", 5, 90 80 37 10, tab 31 
  button "Activer", 24, 43 175 37 10, tab 31 
  button "Ok", 100, 92 203 26 10, tab 31 ok 
  check "Oui", 34, 9 35 22 10, tab 31 
  check "Non", 35, 34 36 24 10, tab 31 
  check "Oui", 37, 9 53 22 10, tab 31 
  check "Non", 38, 34 53 24 10, tab 31 
  check "Oui", 40, 9 73 21 10, tab 31 
  check "Non", 41, 34 73 22 9, tab 31 
  check "Notice", 45, 74 57 27 10, disable tab 31 
  check "Msg", 46, 110 57 25 10, disable tab 31 
  check "Exécuter", 98, 10 203 38 10, tab 31 
  check "Avertir", 99, 53 203 32 9, tab 31 
} 

dialog RapideCSNW { 
  title "Chosir le Canal" 
  size -1 -1 98 56 
  option dbu 
  button "Continuer", 1, 28 45 37 10 
  list 2, 3 5 95 40, size 
} 

dialog RapideScan { 
  title "Rapide Scan" 
  size -1 -1 207 221 
  option dbu 
  list 1, 8 29 70 75, size 
  box "", 2, 2 4 202 215 
  text "NickName", 3, 9 20 59 8 
  list 4, 81 29 117 76, size 
  text "Address ( User@Host )", 5, 83 20 115 8 
  list 6, 8 123 69 74, size 
  text "Clones Trouvés", 7, 20 114 40 8 
  button "Scan", 8, 85 194 34 8 
  button "Kick", 9, 85 151 37 10 
  button "Bannir", 10, 85 161 37 10 
  button "Op", 11, 85 130 37 10 
  button "Voice", 12, 85 141 37 10 
  button "Avertir", 13, 85 171 37 10 
  button "Ignoré", 14, 85 181 37 10 
  text "", 16, 13 198 30 8 
  text "", 17, 48 198 30 8 
  text "Clone Scan Pour %chan", 18, 10 10 117 8 
  box "", 15, 79 123 50 71 
} 

;Construction des boutons etc des dialog. 

On *:dialog:RapideScan:*:*:{ 
  If ($devent == init) { 
    If ($Did == 0) { 
      did -a RapideScan 18 Clone Scan Pour %SetCanal 
      var %WhileJadoreSa = 1 
      while (%WhileJadoreSa <= $nick(%SetCanal,0)) { 
        did -a RapideScan 1 $nick(%SetCanal, %WhileJadoreSa) 
        did -a RapideScan 4 $address($nick(%SetCanal, %WhileJadoreSa),2) 
        var %VaRNickClone = $nick(%SetCanal, %WhileJadoreSa) 
        var %YoWhile23 = 1 
        If ($read(ScanClone2.NOWAR, s, $address(%VaRNickClone,2)) == Yup) { 
          If (%NbClone2) { 
            Inc %NbClone2 
          } 
          If (!%NbClone2) { 
            set %NbClone2 1 
          } 
          var %CloneTrouverAddress = $address($nick(%SetCanal, %WhileJadoreSa),2) 
          while (%YoWhile23 <= $Nick(%SetCanal,0)) { 
            If ($address($Nick(%SetCanal,%YoWhile23),2) == %CloneTrouverAddress) { 
              If (!$Read(CloneTrouve2.NOWAR, w, * [ $+ [ $Nick(%SetCanal, %YoWhile23) ] ] [ $+ [ * ] ])) { 
                write CloneTrouve2.NOWAR $Nick(%SetCanal, %YoWhile23) 
              } 
            } 
            Inc %YoWhile23 
          } 
        } 
        If ($read(ScanClone2.NOWAR, s, $address(%VaRNickClone,2)) != Yup) { 
          write ScanClone2.NOWAR $address($nick(%SetCanal, %WhileJadoreSa),2) Yup 
        } 
        Inc %WhileJadoreSa 
      } 
    } 
  } 
  If ($devent == Sclick) { 
    If ($Did == 8) { 
      If (!$Exists(CloneTrouve2.NOWAR)) { 
        Did -a RapideScan 6 Aucun Clone Trouvé 
      } 
      var %BonBonBonAutresWhile = 1 
      While (%BonBonBonAutresWhile <= $Lines(CloneTrouve2.NOWAR)) { 
        did -a RapideScan 6 $Read(CloneTrouve2.NOWAR, %BonBonBonAutresWhile) 
        Inc %BonBonBonAutresWhile 
      } 
      If (%NbClone2) { 
        Did -a RapideScan 16 %NbClone2 Host 
      } 
      If (!%NbClone2) { 
        Did -a RapideScan 16 Aucun Clone 
      } 
      .Remove ScanClone2.NOWAR 
      .Remove CloneTrouve2.NOWAR 
      .Unset %NbClone2 
    } 
    IF ($did == 11) { 
      mode %SetCanal +o $did($dname,6).seltext 
    } 
    If ($did == 12) { 
      mode %SetCanal +v $did($dname,6).seltext 
    } 
    IF ($did == 9) { 
      var %raisonKick = $$?="Marquer Une Raison Du kick" 
      kick %SetCanal $did($dname,6).seltext %RaisonKick 
    } 
    If ($did == 10) { 
      mode %setcanal +b $did($dname,6).seltext 
      kick %SetCanal $did($dname,6).seltext Clone Trouvé No{[Sc|ri|pT}]War 
    } 
    If ($did == 13) { 
      var %NoticeRaison0 = $$?="Marquer Votre Avertissement" 
      .notice $did($dname,6).seltext %NoticeRaison0 
    } 
    If ($did == 14) { 
      var %Nbtempsignore = $$?="Le Temp que tu veux l'ignorer en seconde" 
      .ignore $did($dname,6).seltext 
      .timer $+ $did($dname,6).seltext 1 %Nbtempsignore ignore -r $did($dname,6).seltext 
    } 
  } 
} 

On *:dialog:RapideCSNW:*:*:{ 
  If ($devent == Init) { 
    If ($did == 0) { 
      var %VarName = 1 
      while (%VarName <= $Chan(0)) { 
        did -a RapideCSNW 2 $Chan(%VarName) 
        Inc %VarName 
      } 
    } 
  } 
  If ($devent == Sclick) { 
    If ($did == 1) { 
      set %SetCanal $did(RapideCSNW,2).seltext 
      dialog -m RapideScan RapideScan 
      dialog -c RapideCSNW 
    } 
  } 
} 
On *:dialog:CfAC:*:*:{ 
  If ($Devent == Init) { 
    If ($Did == 0) { 
      var %EtEncoreUnWhile = 1 
      While (%EtEncoreUnWhile <= $Lines(NickNoBan.NOWAR)) { 
        did -a CfAC 7 $Read(NickNoBan.NOWAR, %EtEncoreUnWhile) 
        Inc %EtEncoreUnWhile 
      } 
    } 
    var %WoWUnWhile = 1 
    while (%WoWUnWhile <= $Lines(AddressNoBan.NOWAR)) { 
      did -a CfAC 11 $Read(AddressNoBan.NOWAR, %WowUnWhile) 
      Inc %WoWUnWhile 
    } 
    If (%ActiveAJ) { 
      did -ra CfAC 29 Activer 
      did -ra CfAC 24 Désactiver 
    } 
    If (!%ActiveAJ) { 
      did -ra CfAC 29 Désactiver 
      did -ra CfAC 24 Activer 
    } 
    If (%ACNWBAN == Non) { 
      did -c CfAC 35 
      did -ra CfAC 50 Non 
    } 
    If (%ACNWBAN == Oui) { 
      did -c CfAC 34 
      did -ra CfAC 50 Oui 
    } 
    If (%ACNWKick == Non) { 
      did -c CfAC 38 
      did -ra CfAC 53 Non 
    } 
    If (%ACNWKick == Oui) { 
      did -c CfAC 37 
      did -ra CfAC 56 Oui 
    } 
    If (%ACNWAdve == Oui) { 
      did -e CfAC 58,60 
      did -ra CfAC 50,53 Non 
      did -ra CfAC 56 Oui 
      did -ra CfAC 59 %ACNWPh 
      did -c CfAC 40 
      did -b CfAC 34,35,37,38 
      did -e CfAC 42,43,44,45,46 
      did -ra CfAC 43 %ACNWPh 
    } 
    If (%ACNWAdve == Non) { 
      did -c CfAC 41 
      did -ra CfAC 56 Non 
    } 
    If (%ACNWM == Notice) { 
      did -c CfAC 45 
      did -ra CfAC 61 Notice 
    } 
    If (%ACNWM == Msg) { 
      did -c CfAC 46 
      did -ra CfAC 61 Msg 
    } 
    If (%Join == VS) { 
      did -c CfAC 99 
    } 
    If (%Join == Ex) { 
      did -c CfAC 98 
    } 
  } 
  If ($devent == Sclick) { 
    If ($did == 98) { 
      did -u CfAC 99 
      set %Join Ex 
    } 
    If ($did == 99) { 
      did -u CfAC 98 
      Set %Join VS 
    } 
    If ($did == 7) { 
      did -ra CfAC 64 $did(CfAC,7).seltext 
      did -u CfAC 11 
    } 
    If ($did == 11) { 
      did -ra CfAC 64 $did(CfAC,11).seltext 
      did -u CfAC 7 
    } 
    If ($did == 5) { 
      dialog -m RapideCSNW RapideCSNW 
    } 
    If ($did == 65) { 
      If ($did(CfAC,11).seltext) { 
        If ($Lines(AddressNoBan.NOWAR) == 1) { 
          .Remove AddressNoBan.NOWAR 
          did -r CfAC 11 
        } 
        If ($Lines(AddressNoBan.NOWAR) > 1) { 
          write -ds $+ $did(CfAC,11).seltext AddressNoBan.NOWAR 
          var %WoWUnWhile = 1 
          did -r CfAC 11 
          while (%WoWUnWhile <= $Lines(AddressNoBan.NOWAR)) { 
            did -a CfAC 11 $Read(AddressNoBan.NOWAR, %WowUnWhile) 
            Inc %WoWUnWhile 
          } 
        } 
      } 
      If ($did(CfAC,7).seltext) { 
        If ($Lines(NickNoBan.NOWAR) == 1) { 
          .Remove NickNoBan.NOWAR 
          did -r CfAC 7 
        } 
        If ($Lines(NickNoBan.NOWAR) > 1) { 
          write -ds $+ $did(CfAC,7).seltext NickNoBan.NOWAR 
          var %EtEncoreUnWhile = 1 
          did -r CfAC 7 
          While (%EtEncoreUnWhile <= $Lines(NickNoBan.NOWAR)) { 
            did -a CfAC 7 $Read(NickNoBan.NOWAR, %EtEncoreUnWhile) 
            Inc %EtEncoreUnWhile 
          } 
        } 
      } 
    } 
    If ($Did == 17) { 
      if (!$read(NickNoBan.NOWAR, w, $did(CfAC,16))) {
        write NickNoBan.NOWAR $did(CfAC,16) 
        did -ra CfAC 18 $Did(CfAC,16) 
        did -r CfAC 7 
        var %EtEncoreUnWhile = 1 
        While (%EtEncoreUnWhile <= $Lines(NickNoBan.NOWAR)) { 
          did -a CfAC 7 $Read(NickNoBan.NOWAR, %EtEncoreUnWhile) 
          Inc %EtEncoreUnWhile 
        } 
      }
      else {
        did -ra CfAC 18 Désolé il est déjà dans votre liste.
      }
    } 
    If ($Did == 22) { 
      if (!$read(AddressNoBan.NOWAR, w, $did(CfAC,21))) {
        write AddressNoBan.NOWAR $did(CfAC,21) 
        did -ra CfAC 25 $Did(CfAC,21) 
        did -r CfAC 11 
        var %WoWUnWhile = 1 
        while (%WoWUnWhile <= $Lines(AddressNoBan.NOWAR)) { 
          did -a CfAC 11 $Read(AddressNoBan.NOWAR, %WowUnWhile) 
          Inc %WoWUnWhile 
        } 
      } 
      else {
        did -ra CfAC 25 Désolé il est déjà dans votre liste.
      }
    }
    If ($did == 34) { 
      If ($did(CfAC,35).state == 1) { 
        did -u CfAC 35 
      } 
    } 
    If ($did == 35) { 
      If ($did(CfAC,34).state == 1) { 
        did -u CfAC 34 
      } 
    } 
    If ($did == 37) { 
      If ($did(CfAC,38).state == 1) { 
        did -u CfAC 38 
      } 
    } 
    If ($Did == 38) { 
      If ($Did(CfAC,37).state == 1) { 
        did -u CfAC 37 
      } 
    } 
    If ($did == 40) { 
      If ($did(CfAC,41).state == 1) { 
        did -u CfAC 41 
      } 
      If (%did40) { 
        did -e CfAC 34,35,37,38 
        did -ub CfAC 42,43,44,45,46 
        did -c CfAC 41 
        unset %did40 
        halt 
      } 
      If (!%did40) { 
        set %did40 40 
        did -ub CfAC 34,35,37,38 
        did -e CfAC 42,43,44,45,46 
        halt 
      } 
    } 
    If ($Did == 41) { 
      If ($Did(CfAC,40).state == 1) { 
        did -u CfAC 40 
        did -e CfAC 34,35,37,38 
        did -b CfAC 42,43,44,45,46 
        unset %did40 
      } 
    } 
    If ($did == 45) { 
      If ($did(CfAC,46).state == 1) { 
        did -u CfAC 46 
      } 
    } 
    If ($Did == 46) { 
      If ($Did(CfAC,45).state == 1) { 
        did -u CfAC 45 
      } 
    } 
    If ($did == 68) { 
      set %ACNWBAN Oui 
      Set %ACNWKick Oui 
      Set %ACNWAdve Non 
      did -u CfAC 40 
      did -e CfAC 34,35,37,38 
      did -b CfAC 42,43,44,45,46 
      did -c CfAC 34,37,41 
      did -u CfAC 35,38,40 
      did -ra CfAC 50 Oui 
      did -ra CfAC 53 Oui 
      did -ra CfAC 56 Non 
      Unset %ACNWM %ACNWPh 
    } 
    If ($Did == 47) { 
      If ($did(CfAC,34).state == 1) { 
        set %ACNWBAN Oui 
      } 
      If ($did(CfAC,34).state == 0) { 
        set %ACNWBAN Non 
      } 
      If ($did(CfAC,37).state == 1) { 
        set %ACNWKick Oui 
      } 
      If ($did(CfAC,37).state == 0) { 
        set %ACNWKick Non 
      } 
      If ($did(CfAC,40).state == 1) { 
        set %ACNWAdve Oui 
        set %ACNWPh $did(CfAC,43) 
        If ($did(CfAC,46).state == 1) { 
          set %ACNWM Msg 
        } 
        If ($did(CfAC,45).state == 1) { 
          set %ACNWM Notice 
        } 
        If ($did(CfAC,45).state == 0) && ($did(CfAC,46).state == 0) { 
          set %ACNWM Notice 
        } 
      } 
      did -ra CfAC 50 %ACNWBAN 
      did -ra CfAC 53 %ACNWKick 
      did -ra CfAC 56 %ACNWAdve 
      did -ra CfAC 59 %ACNWPh 
      did -ra CfAC 61 %ACNWM 
      If ($did(CfAC,40).state == 0) { 
        set %ACNWAdve Non 
      } 
    } 
    If ($Did == 24) { 
      If (!%ActiveAJ) { 
        Set %ActiveAJ Oui 
        did -ra CfAC 29 Activer 
        did -a CfAC 24 Désactiver 
        halt 
      } 
      If (%ActiveAJ) { 
        did -ra CfAC 29 Désactiver 
        unset %ActiveAJ 
        did -a CfAC 24 Activer 
      } 
    } 
  } 
  If ($devent == Close) { 
    If (%did40) { 
      unset %did40 
    } 
  } 
  If ($Devent == Edit) { 
    If ($Did == 16) { 
      did -e CfAC 17 
    } 
    If ($Did == 21) { 
      did -e CfAC 22 
    } 
    If ($Did == 26) { 
      did -e CfAC 28 
    } 
  } 
} 
;Commande que j'avais oublié Merci à ESTsidAZZ 
On *:join:#:{ 
  if ($Nick == $Me) { 
    .who # 
  } 
  If (%ActiveAJ) { 
    If (%Join == Ex) { 
      BanClone 
    } 
    If (%Join == VS) { 
      var %banclone1 = 1 
      while (%banclone1 <= $nick(#,0)) { 
        If (!$read(CloneScan.txt, s, $address($Nick(#, %banclone1) ,2))) { 
          Write CloneScan.txt $address($Nick(#,%banclone1),2) $nick(#, %banclone1) 
        } 
        Else { 
          var %addressban = $address($Nick(#, %banclone1),2)) 
          var %clonedetect = $nick(#, %banclone1) 
          var %CloneScan2 = 1 
          while (%cloneScan2 <= $nick(#,0)) { 
            var %NickCheck = $Nick(#, %CloneScan2) 
            If ($address(%NickCheck, 2) == %addressban) { 
              If ($Read(ScanClonesTxt.txt, s, $address(%NickCheck,2))) { 
                If (!$Read(ScanClonesTxt.txt, w, * $+ %NickCheck $+ *)) { 
                  var %line00 = $read(ScanClonesTxT.txt, s, $address(%NickCheck,2)) 
                  write -ds $+ $address(%NickCheck,2) ScanClonesTxT.txt 
                  write ScanClonesTxT.txt $address(%NickCheck,2) $Nick(#, %CloneScan2) %line00 
                  Write ScanCloneNick.txt $Nick(#, %CloneScan2) 
                  Set %NbCloness $calc(%NbCloness + 1) 
                } 
              } 
              If (!$Read(ScanClonesTxt.txt, s, $address(%NickCheck,2))) { 
                write ScanClonesTxT.txt $address(%NickCheck,2) $Nick(#, %CloneScan2) 
                Set %NbCloness $calc(%NbCloness + 1) 
                Write ScanCloneNick.txt $Nick(#, %CloneScan2) 
              } 
            } 
            Inc %CloneScan2 
          } 
        } 
        Inc %banclone1 
      } 
      If ($exists(ScanClonesTxT.txt) == $True) { 
        window -n @CloneScan 
        Aline @CloneScan $str($chr(160),30) 14C15lone 14S15can 14P15ar 14O15mbreNoir No{[Sc|ri|pT}]War 
        Aline @CloneScan $str($chr(160),25) 14C15lones 14D15écouvert 14S15ur # 14(15 $+ $Lines(ScanClonesTxT.txt) 14H15ost 14P15our %NbCloness 14C15lones $+ 14)15: 
        Aline @CloneScan $chr(160) 
        var %CloneScan3 = 1 
        while (%CloneScan3 <= $Lines(ScanClonesTxT.txt)) { 
          Aline @CloneScan $chr(35) $+ %CloneScan3 $+ = $Read(ScanClonesTxT.txt, %CloneScan3) 
          Inc %CloneScan3 
        } 
      } 
      .Remove ScanClonesTxT.txt 
      .Unset %NbCloness 
      .Remove CloneScan.txt 
      .Remove ScanCloneNick.txt 
    } 
  } 
} 

Menu Channel { 
  Clone Scan 
  .Configuration:/dialog -m CfAC CfAC 
  .Seulement Voir:/VoirCLONE 
  .Exécuter:/BanClone 
} 
Alias BanClone { 
  var %banclone1 = 1 
  while (%banclone1 <= $nick(#,0)) { 
    If (!$read(CloneScan.txt, s, $address($Nick(#, %banclone1) ,2))) { 
      Write CloneScan.txt $address($Nick(#,%banclone1),2) $nick(#, %banclone1) 
    } 
    Else { 
      var %addressban = $address($Nick(#, %banclone1),2)) 
      var %clonedetect = $nick(#, %banclone1) 
      var %CloneScan2 = 1 
      while (%cloneScan2 <= $nick(#,0)) { 
        var %NickCheck = $Nick(#, %CloneScan2) 
        If ($address(%NickCheck, 2) == %addressban) { 
          If ($Read(ScanClonesTxt.txt, s, $address(%NickCheck,2))) { 
            If (!$Read(ScanClonesTxt.txt, w, * $+ %NickCheck $+ *)) { 
              var %line00 = $read(ScanClonesTxT.txt, s, $address(%NickCheck,2)) 
              write -ds $+ $address(%NickCheck,2) ScanClonesTxT.txt 
              write ScanClonesTxT.txt $address(%NickCheck,2) $Nick(#, %CloneScan2) %line00 
              Write ScanCloneNick.txt $Nick(#, %CloneScan2) 
              Set %NbCloness $calc(%NbCloness + 1) 
            } 
          } 
          If (!$Read(ScanClonesTxt.txt, s, $address(%NickCheck,2))) { 
            write ScanClonesTxT.txt $address(%NickCheck,2) $Nick(#, %CloneScan2) 
            Set %NbCloness $calc(%NbCloness + 1) 
            Write ScanCloneNick.txt $Nick(#, %CloneScan2) 
          } 
        } 
        Inc %CloneScan2 
      } 
    } 
    Inc %banclone1 
  } 
  If ($exists(ScanClonesTxT.txt) == $True) { 
    window -n @CloneScan 
    Aline @CloneScan $str($chr(160),30) 14C15lone 14S15can 14P15ar 14O15mbreNoir No{[Sc|ri|pT}]War 
    Aline @CloneScan $str($chr(160),25) 14C15lones 14D15écouvert 14S15ur # 14(15 $+ $Lines(ScanClonesTxT.txt) 14H15ost 14P15our %NbCloness 14C15lones $+ 14)15: 
    Aline @CloneScan $chr(160) 
    var %CloneScan3 = 1 
    while (%CloneScan3 <= $Lines(ScanClonesTxT.txt)) { 
      Aline @CloneScan $chr(35) $+ %CloneScan3 $+ = $Read(ScanClonesTxT.txt, %CloneScan3) 
      Inc %CloneScan3 
    } 
  } 
  If ($exists(ScanClonesTxT.txt) == $False) { 
    window -n @CloneScan 
    Aline @CloneScan $str($chr(160),30) 14C15lone 14S15can 14P15ar 14O15mbreNoir No{[Sc|ri|pT}]War 
    Aline @CloneScan $str($chr(160),35) 14A15ucun 14C15lone 14D15étecté 14S15ur # 
  } 
  Var %FuckWhile = 1 
  While (%FuckWhile <= $Lines(ScanCloneNick.txt)) { 
    If (!$Read(NickNoBan.NOWAR, w, * $+ $Read(ScanCloneNick.txt, %FuckWhile) $+ *)) { 
      If (!$Read(AddressNoBan.NOWAR, w, * $+ %addressban $+ *)) { 
        If (%ACNWBAN == Oui) { 
          If ($me Isop $chan) { 
            mode # +b %addressban 
          } 
        } 
        If ($me Isop $chan) { 
          If (%ACNWKick == Oui) { 
            kick # $Read(ScanCloneNick.txt, %FuckWhile) 14C15lones 14D15étectés 14S15ur # No{[Sc|ri|pT}]War 
          } 
        } 
        If (%ACNWAdve == Oui) { 
          . $+ %ACNWM $Read(ScanCloneNick.txt, %FuckWhile) %ACNWPh 
        } 
      } 
    } 
    Inc %FuckWhile 
  } 
  .Remove ScanClonesTxT.txt 
  .Unset %NbCloness 
  .Remove CloneScan.txt 
  .Remove ScanCloneNick.txt 
} 
Alias VoirCLONE { 
  var %banclone1 = 1 
  while (%banclone1 <= $nick(#,0)) { 
    If (!$read(CloneScan.txt, s, $address($Nick(#, %banclone1) ,2))) { 
      Write CloneScan.txt $address($Nick(#,%banclone1),2) $nick(#, %banclone1) 
    } 
    Else { 
      window @CloneScan 
      var %addressban = $address($Nick(#, %banclone1),2)) 
      var %clonedetect = $nick(#, %banclone1) 
      var %CloneScan2 = 1 
      while (%cloneScan2 <= $nick(#,0)) { 
        var %NickCheck = $Nick(#, %CloneScan2) 
        If ($address(%NickCheck, 2) == %addressban) { 
          If ($Read(ScanClonesTxt.txt, s, $address(%NickCheck,2))) { 
            If (!$Read(ScanClonesTxt.txt, w, * $+ %NickCheck $+ *)) { 
              var %line00 = $read(ScanClonesTxT.txt, s, $address(%NickCheck,2)) 
              write -ds $+ $address(%NickCheck,2) ScanClonesTxT.txt 
              write ScanClonesTxT.txt $address(%NickCheck,2) $Nick(#, %CloneScan2) %line00 
              Write ScanCloneNick.txt $Nick(#, %CloneScan2) 
              Set %NbCloness $calc(%NbCloness + 1) 
            } 
          } 
          If (!$Read(ScanClonesTxt.txt, s, $address(%NickCheck,2))) { 
            write ScanClonesTxT.txt $address(%NickCheck,2) $Nick(#, %CloneScan2) 
            Set %NbCloness $calc(%NbCloness + 1) 
            Write ScanCloneNick.txt $Nick(#, %CloneScan2) 
          } 
        } 
        Inc %CloneScan2 
      } 
    } 
    Inc %banclone1 
  } 
  If ($exists(ScanClonesTxT.txt) == $True) { 
    Aline @CloneScan $str($chr(160),30) 14C15lone 14S15can 14P15ar 14O15mbreNoir No{[Sc|ri|pT}]War 
    Aline @CloneScan $str($chr(160),25) 14C15lones 14D15écouvert 14S15ur # 14(15 $+ $Lines(ScanClonesTxT.txt) 14H15ost 14P15our %NbCloness 14C15lones $+ 14)15: 
    Aline @CloneScan $chr(160) 
    var %CloneScan3 = 1 
    while (%CloneScan3 <= $Lines(ScanClonesTxT.txt)) { 
      Aline @CloneScan $chr(35) $+ %CloneScan3 $+ = $Read(ScanClonesTxT.txt, %CloneScan3) 
      Inc %CloneScan3 
    } 
  } 
  If ($exists(ScanClonesTxT.txt) == $False) { 
    window @CloneScan 
    Aline @CloneScan $str($chr(160),30) 14C15lone 14S15can 14P15ar 14O15mbreNoir No{[Sc|ri|pT}]War 
    Aline @CloneScan $str($chr(160),35) 14A15ucun 14C15lone 14D15étecté 14S15ur # 
  } 
  .Remove ScanClonesTxT.txt 
  .Unset %NbCloness 
  .Remove CloneScan.txt 
  .Remove ScanCloneNick.txt 
} 

;######################### 
;####### Clone Scan ###### 
;###### Version 1.3 ###### 
;## ©© Par OmbreNoir ©© ## 
;## Tous Droits Résevés ## 
;# Canal #DoYouSoundGood # 
;### Canal #Script-Irc ### 
;#########################

A voir également

Ajouter un commentaire Commentaires
griffondorr Messages postés 427 Date d'inscription dimanche 6 juillet 2008 Statut Membre Dernière intervention 4 mai 2009
9 nov. 2008 à 16:09
en tout cas, j'espère qu'il yauras une mise à jour à cette source, car il manque beaucoup choses, j'espère que la 1.4 sortiras bientôt ;)
zebra468 Messages postés 2 Date d'inscription vendredi 28 septembre 2007 Statut Membre Dernière intervention 9 novembre 2008
9 nov. 2008 à 11:45
bonjour
desolé ton anti clone ne fonctionne pas juste ces 3lignes en salle
Aller le configurer, pour ce faire, Bouton de droite sur un canal, Clone Scan/Configuration
Aller voir la Section Créateur Merci!
Tous Droits mes réservés!!! OmbreNoir ©
et en salle avec clic droit nada , rien et jais enlever tout les #
oalors ou est le bug je donne ma langue au chat
cordialement
oncle-jo
griffondorr Messages postés 427 Date d'inscription dimanche 6 juillet 2008 Statut Membre Dernière intervention 4 mai 2009
13 oct. 2008 à 09:38
ok mais j'espère que quand t'auras au top des autres langages web que tu reviendra un jour au mirc scripting pour modifié et mettre à jour ta source ;), vu que tu es sur undernet, tu peux me passer l'adresse irc server et le port et ton pseudo sur le tchat pour que je puisse te reconnaitre, comme sa on pourra mieux parler de sa ;) Et de rien pour le commentaire. "sans commentaires yaurais jamais de nouvelle version des addons, c'est les critiques qui font avancé les choses" ;)
cs_OmbreNoir Messages postés 67 Date d'inscription samedi 1 février 2003 Statut Membre Dernière intervention 10 juin 2011
13 oct. 2008 à 00:44
Comme tu as dû le voir ce script à été mis en 2004, et depuis j'ai voulu faire des chagements mais j'en ai pas faite, donc aujourd'hui en 2008 c'est clair qu'il manque beaucoup de chose, que le code est vraiment pas optimiser, et cette anti clone, qui ressemble à d'autre ou non, c'est entièrement moi qui l'ai faite, sans avoir vu d'autre scan clone.

Je fais tout moi même, en premier lieu pour moi. Par la suie j'ai pas mal modifier mais malheureusement il aura jamais de nouvelle modification pour plusieurs raison.. j'ai maintenant ma petite compagnie j'ai pas vraiment le temp de travaille sur un script mIRC. Et depuis environ 2005-2006 j'ai arrêté completement le mIRC Scripting pour me lancer dans php, xhtml, javascript, c# (cSharp)
Donc je pourrais pas l'optimiser à son maximum avec les nouveau code car je suis pas à jour sur sa.
Je suis toujours sur mIRC par contre sur Undernet sur #doyousoundgood ou #multibox.org

Mais merci tous de même pour le commentaire!!
Sa me fait toujours plaisir de reçevoir des commentaires :)

Alors voilà
griffondorr Messages postés 427 Date d'inscription dimanche 6 juillet 2008 Statut Membre Dernière intervention 4 mai 2009
9 oct. 2008 à 14:48
sa manque d'option , on peut meme pas configurer si on veut proteger un salon par exemple on peut meme pas l'indiquer et on peut meme pas indiquer le salon qu'on veut proteger sur quel server on veut le proteger. et puis ta source, elle ressemble trop à celle là je trouve : http://www.ircfr.com/codes/MULTISCAN-ANTI-PROXY-ANTI-IDENT_14503.aspx mais sauf qu'elle mille fois moins bien que sorndrixer, donc ton anti clones il est a revoir fortement ;), j'ai mis 7 sur 10 parce qu'il est mieux que les autres sources anti clones mais faut revoir et améliorer ton codag je crois malgré la bonne note que t'a eu ;)
Afficher les 35 commentaires
S'inscrire maintenant

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.

Du même auteur (cs_OmbreNoir)