Blacklist pseudos/masks

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 281 fois - Téléchargée 17 fois

Contenu du snippet

Cette black-list utilise un fichier ini, permet d'ajouter des pseudos ou masks et autorise des exceptions de chans. Elle est désactivable à tout moment.
Il est possible de supprimer/lister des entrées, des numéros dans la liste ou même des plages de numéros
L'aide est inclue ( !bl ) et il y a des indications supplémentaire à lire en début de code
Elle ne fonctionne que si vous êtes @ et le ban se fait sur le pseudo/mask contenu dans la liste, on join.

Source / Exemple :


;Remote de blacklist (aide/1ère utilisation => taper: !bl IMPÉRATIVEMENT),
;kick+ban d'après le mask(*!*@*) ou pseudo fourni sur les chans où l'on est @, exceptions possibles, fonctionne ON JOIN
;alt+R puis ouvrir un nouveau fichier dans son script pour la charger
;utilisable silencieusement à travers d'autres scripts avec les alias /addbl /delbl /setbl /clearbl
;les hosts/pseudos sont stockés dans le fichier configuration.ini, créé automatiquement.

#bl on
;-Partie détection:
on !@*:join:#:{ 
  if ( $readini(configuration.ini,blackliste,status) == on && $ini(configuration.ini,bliste,0) ) {
    var %k = 1
    while ( %k <= $ini(configuration.ini,bliste,0) ) { 
      if ( $ini(configuration.ini,bliste,%k) iswm $address($nick,5) ) {
        var %chansbl = $wildtok($readini(configuration.ini,bliste,$$ini(configuration.ini,bliste,%k)),[*],1,32)
        if ( $+([,$chr(35),]) isin %chansbl || ( $+(-,$chan) !isin %chansbl && $+([,-) isin %chansbl ) || ( $chan isin %chansbl && $+(-,$chan) !isin %chansbl ) ) {
          kick # $nick $gettok($readini(configuration.ini,bliste,$$ini(configuration.ini,bliste,%k)),1,91)
          mode # -e+b $$ini(configuration.ini,bliste,%k) $$ini(configuration.ini,bliste,%k)
        }
      }
      inc %k
    }
  }
}
;-Partie gestion de la liste:
on *:input:*: {
  if ( $1 == !bl ) { haltdef | bl $2 | if ( !$isfile(configuration.ini) ) { clearbl } }
  elseif ( $1 == !listbl ) { haltdef | listbl $2- }
  elseif ( $1 == !clearbl ) { haltdef | set %noticebl on | clearbl }
  elseif ( $1 == !setbl ) { haltdef | set %noticebl on | setbl $2 }
  elseif ( $1 == !addbl ) { haltdef | set %noticebl on | addbl $2- }
  elseif ( $1 == !delbl ) { haltdef | set %noticebl on | delbl $2- }
}
alias setbl {
  if ( !$istok(on off echo pv,$1,32) ) { .notice $me Syntaxe erronée, taper !bl }
  elseif ( $1 == $readini(configuration.ini,blackliste,status) || $1 == $readini(configuration.ini,blackliste,mode) ) { if ( %noticebl == on ) { .notice $me C'est déjà le cas! } } 
  elseif ( $istok(on off,$1,32) ) { writeini configuration.ini blackliste status $1 | if ( %noticebl == on ) { .notice $me blacklist $replace($readini(configuration.ini,blackliste,status),on,activée!,off,désactivée) } }
  else { writeini configuration.ini blackliste mode $1 | if ( %noticebl == on ) { .notice $me blacklist $replace($readini(configuration.ini,blackliste,mode),pv,avec liste en pv,echo,avec liste en echo) } } 
  unset %noticebl 
}
alias clearbl {
  .remini configuration.ini blackliste
  .remini configuration.ini bliste
  .fopen -on configuration configuration.ini
  .fwrite -n configuration [blackliste]
  .fwrite -n configuration status=on
  .fwrite -n configuration masks=
  .fwrite -n configuration mode=pv
  .fwrite -n configuration [bliste]
  .fclose configuration
  if ( %noticebl == on ) { .notice $me Blacklist effacée (et sur "activée", liste en "pv"), fichier réinitialisé. }
  unset %noticebl
}
alias addbl {
  if ( !$2 || $chr(35) isin $2 ) { if ( %noticebl == on ) { .notice $me il faut au moins un mask et une raison (taper !bl pour revoir la syntaxe) } }
  else {
    var %mask = $1 , %raison = $2- 
    if ( !$wildtok(%raison,[*],1,32) ) { var %raison = $+(%raison,$chr(32),[,$chr(35),]) }
    if ( $chr(33) !isin %mask && $chr(64) !isin %mask ) { var %mask = $+(%mask,!*@*) }
    if ( !$istok($readini(configuration.ini,blackliste,masks),%mask,32) ) { writeini configuration.ini blackliste masks $+($readini(configuration.ini,blackliste,masks),$chr(32),%mask) | if ( %noticebl == on ) { .notice $me Mask %mask ajouté avec succès } }
    elseif ( %noticebl == on ) { .notice $me ban modifié avec succès }
    writeini configuration.ini bliste %mask %raison $asctime(HH:nn-dd/mm/yy)
  }
  unset %noticebl
}
alias delbl { 
  var %black = 1
  while ( %black <= $numtok($1-,32) ) {
    if ( $istok($readini(configuration.ini,blackliste,masks),$gettok($1-,%black,32),32) ) { var %blackyes = $+(%blackyes,$chr(32),$gettok($1-,%black,32)), %while = on }
    elseif ( $istok($readini(configuration.ini,blackliste,masks),$+($gettok($1-,%black,32),!*@*),32) ) { var %blackyes = $+(%blackyes,$chr(32),$+($gettok($1-,%black,32),!*@*)), %while = on } 
    elseif ( $gettok($1-,%black,32) isnum $+(1-,$ini(configuration.ini,bliste,0)) ) { var %blackyes = $+(%blackyes,$chr(32),$ini(configuration.ini,bliste,$gettok($1-,%black,32))), %while = on }
    elseif ( $chr(45) isin $1 ) { 
      var %inf = $gettok($gettok($1-,%black,32),1,45)
      var %sup = $gettok($gettok($1-,%black,32),2,45)
      if ( %inf isnum $+(1-,$ini(configuration.ini,bliste,0)) && %sup isnum $+(1-,$ini(configuration.ini,bliste,0)) && %inf < %sup ) {
        var %i = %inf
        while ( %i <= %sup ) {
          var %blackyes = $+(%blackyes,$chr(32),$ini(configuration.ini,bliste,%i))
          inc %i
        }
        var %j = 1
        var %while = on
      }
    }
    else { var %blackno = $+(%blackno,$chr(32),$gettok($1-,%black,32)) }

    inc %black
  }
  if ( %while = on ) {
    var %j = 1
    while ( %j <= $numtok(%blackyes,32) ) {
      remini configuration.ini bliste $gettok(%blackyes,%j,32)
      if ( $remtok($readini(configuration.ini,blackliste,masks),$gettok(%blackyes,%j,32),1,32) ) { writeini configuration.ini blackliste masks $remtok($readini(configuration.ini,blackliste,masks),$gettok(%blackyes,%j,32),1,32) }
      else { write -wmasks=* configuration.ini masks= }
      inc %j
    }
  }
  if ( %blackno ) { var %blackno = $+(Mask(s) absent(s) de la liste:,$chr(32),%blackno) }
  if ( %blackyes ) { var %blackyes = $+(Entrée(s) supprimée(s):,$chr(32),%blackyes) }
  if ( !%blackyes && !%blackno && %noticebl == on ) { .notice $me syntaxe error / mask absent, taper !bl }
  elseif ( %noticebl == on ) { .notice $me %blackno . %blackyes }
  unset %noticebl
}  
alias -l listbl {
  var %inf = $gettok($1-,1,45), %sup = $gettok($1-,2,45)
  if ( !$1 || ( ( $chr(45) isin $1 ) && ( %inf isnum $+(1-,$ini(configuration.ini,bliste,0)) && %sup isnum $+(1-,$ini(configuration.ini,bliste,0)) && %inf < %sup ) ) ) { 
    if ( !%inf || !%sup ) { var %inf = 1 | var %sup = $ini(configuration.ini,bliste,0) }
    var %i = %inf
    if ( $readini(configuration.ini,blackliste,mode) == pv ) { 
      .notice $me $+(12,$calc( %sup - %inf + 1 ),$chr(32),entrées (en pv))
      .msg $me Blacklist: $replace($readini(configuration.ini,blackliste,status),on,10activée,off,4désactivée) avec $+(12,$calc( %sup - %inf + 1 ),$chr(32),entrées sur,$chr(32),$ini(configuration.ini,bliste,0),,:) $+([,%inf,-,%sup,])
      while ( %i <= %sup ) {
        .msg $me $+(%i,$str($chr(160),$calc( 3 - $len(%i) )),$chr(3),12,$$ini(configuration.ini,bliste,%i),$chr(160),$chr(160),$chr(3),03,$readini(configuration.ini,bliste,$$ini(configuration.ini,bliste,%i)))
        inc %i
      }
    }
    else {
      echo -a > Blacklist: $replace($readini(configuration.ini,blackliste,status),on,10activée,off,4désactivée) avec $+(12,$calc( %sup - %inf + 1 ),$chr(32),entrées sur,$chr(32),$ini(configuration.ini,bliste,0),,:) $+([,%inf,-,%sup,])
      while ( %i <= %sup ) {
        echo -a $+(%i,$str($chr(160),$calc( 3 - $len(%i) )),$chr(3),12,$$ini(configuration.ini,bliste,%i),$chr(160),$chr(160),$chr(3),03,$readini(configuration.ini,bliste,$$ini(configuration.ini,bliste,%i)))
        inc %i
      }
    }
  }
  elseif ( $istok($readini(configuration.ini,blackliste,masks),$1,32) ) { .notice $me $1 : $readini(configuration.ini,bliste,$1) }
  elseif ( $istok($readini(configuration.ini,blackliste,masks),$+($1,!*@*),32) ) { .notice $me $+($1,!*@*) : $readini(configuration.ini,bliste,$+($1,!*@*)) }
  elseif ( $1 == quick ) { .notice $me $+(12,$ini(configuration.ini,bliste,0),) entrée(s) - $readini(configuration.ini,blackliste,masks) }
  else { .notice $me syntaxe error / mask absent, taper !bl }
}
alias -l bl {
  if ( !$1 ) { .notice $me 12,00Blacklist par UtopiK $replace($readini(configuration.ini,blackliste,status),on,10activée!,off,05désactivée) $replace($readini(configuration.ini,blackliste,mode),pv,avec liste en 12pv,echo,avec liste en 12echo) | .notice $me Liste des commandes: 6!addbl !delbl 6!listbl !clearbl 6!setbl $chr(124) Pour plus d'aide: !bl commande Ex: !bl addbl (et non: !bl !addbl) $chr(124) Pour désactiver taper: 06!setbl off $chr(124) En cas de bug, faire: !clearbl } 
  elseif ( $1 == addbl ) { .notice $me Commande pour ajouter/modifier une entrée dans la blacklist: 6!addbl *bob* malpoli ! $chr(124) Autre exemple, avec une exception de chan (marchera sur les chans #chan1 et #chan2 uniquement): 6!addbl *!*@*blabla.net pas de proxy merci #chan1,#chan2 $chr(124) Un dernier (blacklist sur tous les chans, sauf #chan1 et #chan2): 6!addbl *!grosboulet@* persona non grata [-#chan1,-#chan2] $chr(124) Eviter les crochets [] dans le motif }
  elseif ( $1 == delbl ) { .notice $me Commande pour supprimer des entrées dans la blacklist: 6!delbl *bob* $chr(124) 6!delbl *bob* *!*@*blabla.net $chr(124) Vous pouvez utiliser des numéros: 6!delbl 1 (supr la 1ère entrée de la liste) ou 6!delbl 1 14 32 ou même des plages: 6!delbl 2-12 }
  elseif ( $1 == listbl ) { .notice $me Commande pour lister les entrées dans la blacklist: 6!listbl ou pour en avoir juste une partie: 6!listbl 6-10 ou une version en une ligne sans détails: 6!listbl quick $chr(124) Pour voir si un mask est dans la blacklist: 6!listbl *bob* }
  elseif ( $1 == clearbl ) { .notice $me Commande pour effacer la blacklist et réparer le fichier de la liste en cas de bug: 6!clearbl }
  elseif ( $1 == setbl ) { .notice $me Commande pour configurer la blacklist. Activer/désactiver: 6!setbl on ou 6!setbl off (elle n'est pas effacée) $chr(124) Liste en écho ou par pv: 6!setbl pv ou 6!setbl echo }
  else { .notice $me Commande inconnue / Mauvaise syntaxe - rééssayer !bl }
}

;tant que vous toucherez avec les yeux, y'a des chances que ça marche :) - il est inutil de remplacer mon pseudo par le votre ci dessus.
#bl end

Conclusion :


j'ai posté cette source plus pour avoir des conseils d'optimisation/amélioration que pour la source elle même, qui doit être du vu et revu

A voir également

Ajouter un commentaire

Commentaires

IrX
Messages postés
77
Date d'inscription
mardi 17 mars 2009
Statut
Membre
Dernière intervention
19 février 2011
-
bonsoir,
j'aime beaucoup même si c'est du vue et revue comme blackliste.Pourquoi pas faire un système de dialogue ou fenêtre @blackliste pour géré les blacklister ect.. sa serais une idée ?
usurpateur
Messages postés
9
Date d'inscription
jeudi 26 juin 2008
Statut
Membre
Dernière intervention
24 janvier 2011
-
Bonjour,
pour le principe, 'le dialogue ou non' est un choix personnel, je préfère les raccourcis clavier pour gérer ce genre de choses :)
Je me suis inspiré du fonctionnement d'une black liste d'egg et avec très peu de modifications, ce script pourrait être intégré à un bot de gestion de salon sous mirc.
WorldDMT
Messages postés
882
Date d'inscription
jeudi 6 juillet 2006
Statut
Membre
Dernière intervention
6 janvier 2012
1 -
Salut

j'ai vite regarder et je pense que ça peut etre plus simple et plus court et pour le niveau inité je pense pas

au passage "&& $ini(configuration.ini,bliste,0) != 0" tu peut retirer le "!= 0" je pense

pourquoi utiliser ON INPUT tan que c'est toi meme qui posede le code tu peux faire une alias

au passage je pense que "if ( $isfile(configuration.ini) == $false ) { clearbl }" peut devenir "if (!$isfile(configuration.ini)) { clearbl }"

et je vois "if ( !$1 || !$2 || $chr(35) isin $2 )" a ton avis si $1 n'existe pas, $2 existerait? sauf si $1 = 0 dans ce cas

bref tu peux bien utilisé les ini files sans une loop while comme par exp pour le ON JOIN:

pour le addbl tu ajoute un %mask qui devient writeini configuration.ini bliste %mask %mask %raison $asctime(HH:nn-dd/mm/yy) ensuite pour le code:


on !@*:join:#:{
if ($readini(configuration.ini,blackliste,status) == on) && ($ini(configuration.ini,bliste,0)) {
if ($readini(configuration.ini,bliste,$wildsite)) ban -k $v1
}
}

a toi de voir le reste
WorldDMT
Messages postés
882
Date d'inscription
jeudi 6 juillet 2006
Statut
Membre
Dernière intervention
6 janvier 2012
1 -
oups dsl je retire l'ajout de du 2eme %mask

laisse comme elle est et le code est:


on !@*:join:#:{
if ($readini(configuration.ini,blackliste,status) == on) && ($ini(configuration.ini,bliste,0)) {
if ($readini(configuration.ini,bliste,$wildsite)) ban -k # $nick $v1
}
}
usurpateur
Messages postés
9
Date d'inscription
jeudi 26 juin 2008
Statut
Membre
Dernière intervention
24 janvier 2011
-
Ok pour les "!$1", "!= $false", "== $true" et "!= 0" en trop.

Pour l'utilisation d'alias, c'est plus lent et pénible de tapper "/addbl" plutôt que "!addbl" mais le code autorise les 2 (à peu près)

"ça peut etre plus simple et plus court": si tu as une solution miracle je suis preneur :)

$wildsite = *!*@hôte
le fichier peut très bien contenir *pseudo*
Toute la suite de ton commentaire permet de simplifier le code mais ne donne pas le même résultat donc je ne change pas, merci quand même

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.