Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

BLACK-LIST


Information sur la source

Catégorie :AddOns Classé sous : black-liste, ban, kick Niveau : Débutant Date de création : 10/11/2007 Vu : 4 788

Note :
1 / 10 - par 1 personne
1,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

Commentaire sur cette source (7)
Ajouter un commentaire et/ou une note

Description

il s'agis d'une remote qui va virer les boulet de votre salon . il suffit de faire /add pseudo raison pour l'ajouter a votre liste
 

Source

  • #bl on
  • on *:join:#votre-salon:{
  • If ( $gettok($nick,1,124) == $read(bl.txt,w,$gettok($nick,1,124))) { .timer 1 3 msg irix kick $chan $nick 4B14lack-4L14ist | .timer 1 2 msg irix ban $chan 500 $address($+ $nick $+ ,2) | .timer 1 2 msg irix ban $chan 500 $nick *!*@* }
  • }
  • on *:join:#:{ if ( $gettok($nick,1,124) == $read(bl.txt,w,$gettok($nick,1,124))) { kick $nick $2- 4B14lack-4L14ist | mode $chan +b $address($+ $nick $+ ,2) | mode $chan +b $nick *!*@* }
  • elseif ( Irix ison $chan ) {
  • if ( $regex($nick,^(philou|la_zaza_du|dadou|christophe_Salam|Grassouille|pitite_nana|Arc-angel|andre|Tonio|Albert|arthuro|Arthuro|tartuf|Factisse|philosofemme|the_tonio|ludo_vegete|theBouzin|kris_prosle|fred_moon|roro_the_boss|zabou|marco|axel_bother)_+([0-9]{1,2})$)) { .msg irix kick $chan $nick 7/!\ 4SpaM 7/!\ | haltdef }
  • }
  • }
  • #bl end
  • alias add {
  • write Bl.txt $1
  • msg $active 4[ 7B15lack-7L15iste 4] 15Ajout de7 $1 15[7- $+ $lines(bl.txt) $+ 7-15] 15raison :7 $2-
  • halt
  • }
#bl on
on *:join:#votre-salon:{  
  If  ( $gettok($nick,1,124) == $read(bl.txt,w,$gettok($nick,1,124))) { .timer 1 3 msg irix kick $chan $nick 4B14lack-4L14ist | .timer 1 2 msg irix ban $chan 500 $address($+ $nick $+ ,2)  | .timer 1 2 msg irix ban $chan 500 $nick *!*@*  }  
}

on *:join:#:{ if ( $gettok($nick,1,124) == $read(bl.txt,w,$gettok($nick,1,124))) { kick $nick $2- 4B14lack-4L14ist | mode $chan +b $address($+ $nick $+ ,2) | mode $chan +b $nick *!*@* }
  elseif ( Irix ison $chan ) {   
    if ( $regex($nick,^(philou|la_zaza_du|dadou|christophe_Salam|Grassouille|pitite_nana|Arc-angel|andre|Tonio|Albert|arthuro|Arthuro|tartuf|Factisse|philosofemme|the_tonio|ludo_vegete|theBouzin|kris_prosle|fred_moon|roro_the_boss|zabou|marco|axel_bother)_+([0-9]{1,2})$)) { .msg irix kick $chan $nick 7/!\ 4SpaM 7/!\ | haltdef }
  }
}
#bl end

alias add {
  write Bl.txt $1
  msg $active 4[ 7B15lack-7L15iste 4] 15Ajout de7 $1 15[7- $+ $lines(bl.txt) $+ 7-15] 15raison :7 $2-
  halt
}

Conclusion

il y a aussi une commande pour kicker les spams bot
il vous faut ajouter un dossier bl.txt dans votre script
 

Commentaires et avis

signaler à un administrateur
Commentaire de Doudis le 10/11/2007 22:35:41

Utile !!! mais trop vu , pourquoi pas crée une commande qui modifie le nom du bot au lieu de mettre irix :p.

Pour la detection des pseudos dans la black-list tu pourrai verifier les host ou les ip de cela qui rejoin le salon parce que les spams peuve vite changer de pseudo :s

signaler à un administrateur
Commentaire de TropNul le 11/11/2007 04:35:07

Ce code est rempli de failles. Juste pour l'exemple:

# alias add {
# write Bl.txt $1
# msg $active 4[ 7B15lack-7L15iste 4] 15Ajout de7 $1 15[7- $+ $lines(bl.txt) $+ 7-15] 15raison :7 $2-
# halt
# }

Je ne vois aucune verification lors de l'appel de l'alias. Du coup je peux rajouter vraiment n'importe quoi dans la blacklist. La commande < /add 1 > fonctionnera. Dommage.

Dans les events, tu ne verifies jamais que tu sois @ au moment de kicker/bannir. Ca risque de planter quelques fois donc ou plutot ca risque de rendre des erreurs chiantes.

Dernier point, les pseudos contenus dans l'expression rationnelle ne sont pas des spams.

Cordialement

signaler à un administrateur
Commentaire de RCA ArKanis le 11/11/2007 12:28:26

encore un code trop personnalisé qui au final ne sert qu'à son propriétaire ...

[TropNul] "Dernier point, les pseudos contenus dans l'expression rationnelle ne sont pas des spams."
philou|la_zaza_du|dadou|christophe_Salam|Grassouille|pitite_nana|Arc-angel|andre|Tonio|Albert|arthuro|Arthuro|tartuf|Factisse|philosofemme|the_tonio|ludo_vegete|theBouzin|kris_prosle|fred_moon|roro_the_boss|zabou|marco|axel_bother ... et si on veut pas de tout ça ? J'suis d'accord avec TropNul

pourquoi tu ne vérifies que la première partie du nick jusqu'à rencontrer un | ?
Tu devrais utiliser les adresses (*!*@*) et iswm dans le if


Ton 2e ON JOIN est plus qu'étrange ... Tu devrais revoir un peu sa logique.

[mixam] "mode $chan +b $nick *!*@*" sûrement pas ! mets plutôt $+($nick,*!*@*)

[mixam] "il vous faut ajouter un dossier bl.txt dans votre script", un dossier ? j'en doute ... un fichier c'est déjà mieux. Et encore, on n'a même pas besoin de le créer, la commande /add le créera d'elle même

Regarde d'autres blacklists plus complètes sur le site, tu apprendras des choses :)

signaler à un administrateur
Commentaire de wims le 11/11/2007 14:12:37

Le code ne présente pas de faille :/, le fait de pouvoir ajouté par simple alias nimporte quoi dans un fichier texte n'est pas une faille =)

Et ArKanis, il ne vérifie que la première portion du code surement parce qu'il n'est jamais sortis du reseau orange :]

Y'en a marre de voir des trucs pareils bordel, si votre code n'apporte rien au site/users, ne postez pas.

signaler à un administrateur
Commentaire de ircland le 11/11/2007 15:09:13 1/10

Premièrement on ne peut meme pas supprimer un utilisateur...
tres mal fait... On doit ouvrir le fichier et cherche ce foutu
boulet pour le suprimer... donc deja j'en voudrais meme pas...
tu ne peux pas y allé par les host... bref... très enmerdant
Regarde lui que j'ai fait ya quelque Année pour Marie de MysteryNet:
http://mircscripts.fr/cgi-bin/info.pl?Script=2049

ou si tu veux que la source:



on ^1:JOIN:#: {
  .set %pro.c.txt ON
  if ( 100 isin $level($address($nick,5)))  { .ban $chan $nick 2 | .kick $chan $nick  4BlackList MysteryNet Fait Par Killerdedieu | echo  -a 10 *** 4 $+ Hihi $nick Vien D'etre Kické Sur # Car Il Est Sur La BlackList Mysterynet Pour Le Retiré Tape /blacklist }
  if (%JPQ == Off) { goto end }
  else {

  }
  :end
}

dialog comp304 {
  title "Black List Pour MysteryNet"
  size -1 -1 181 180
  option dbu
  combo 762,2 4 177 100, vsbar
  button "Fermer",2, 14 105 35 15,ok,
  button "Ajouter",3, 72 105 35 15
  button "Retirer",4, 130 105 35 15
  edit "Aide:Pour Ajouté Quelqu'un À La BlackList Prend Un Exemple Suivant:",5, 2 125 177 10,disable
  edit "Nick , Nick!user@isp.com  , *!*@isp.com  , *!*user@* , *!*user@isp.com ,",6, 2 135 177 10,disable
  edit "Nick*!*@230.192.0.* , *!*user@230.192.0.* etc, etc.",7, 2 145 177 10,disable
  edit "La Personne Sera Automatique EJECTÉ ET BANNI du salon. ",8, 2 155 177 10,disable
  text "BlackList Editor Pour Irc.MysteryNet.org    Amusé Vous!!!",9, 6 170 140 10,disable
}

on *:DIALOG:comp304:init:0: {
  update.setupsl
}
alias -l update.setupsl {
  did -r comp304 762
  set %tempsl.total $count(%setupsl.list,$chr(44))
  set %tempsl.count 0
  :start
  inc %tempsl.count 1
  did -a comp304 762 $gettok(%setupsl.list,%tempsl.count,44)
  if (%tempsl.count < %tempsl.total) { goto start }
}
on *:DIALOG:comp304:edit:*: {
  if ($did == 762) {
    set %setupsl.temp.user $did(762).text
  }
}
on *:DIALOG:comp304:sclick:*: {
  if ($did == 3) {
    set %setupsl.list %setupsl.list $+ %setupsl.temp.user $+ ,
    update.setupsl
    auser 100 %setupsl.temp.user | unset %setupsl.temp.user
  }
  if ($did == 4) {
    set -u1 %setupsl.tc %setupsl.user.selected $+ ,
    set %setupsl.list $remove(%setupsl.list,%setupsl.tc)
    update.setupsl
    ruser 100 %setupsl.user.selected
  }
  if ($did == 762) {
    set %setupsl.user.selected $did($dname,762,$did(762).sel)
  }
}
alias slentry {
  set %setupsl.list %setupsl.list $+ %setupsl.temp.user $+ ,
  update.setupsl
  auser 100 %setupsl.temp.user | unset %setupsl.temp.user
}

alias slentry1 {
  set %setupsl.list %setupsl.list $+ %setupsl.temp.user $+ ,
  update.setupsl
  guser 100 %setupsl.temp.user | unset %setupsl.temp.user
}

Alias blacklist {
  /dialog -m comp304 comp304




tu na qu'a taper /blacklist et tu as une belle interface que tu peux géré les blacklister...

signaler à un administrateur
Commentaire de RCA ArKanis le 11/11/2007 15:24:23

le tien est très largement optimisable, bourré de fautes d'orthographe, assez mal présenté et donc incompréhensible
Autres défauts en vrac : utilisation de goto, variables globales, guser/auser (j'aurai préféré autrement, on sait jamais si quelqu'un utilise déjà le même niveau que toi), ban et kick en deux commandes (ban -k $chan $nick = 1 commande)

  if (%JPQ == Off) { goto end }
  else {

  }
  :end
faudra m'expliquer ... j'ai beau essayer de comprendre, j'y arrive pas !

signaler à un administrateur
Commentaire de phil1957 le 16/03/2008 04:49:39

Merci IRCLAND source top :)

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

recherche anti-ban anti-kick.... [ par TaitsuO ] J'aimerai trouver un anti-kick et un anti-ban assez puissant, ceux que j'ai trouver ici ne marche pas si bien que ça (dsl...) et je ne suis pas trés b afficher le nombre de kick et de ban [ par Lonsdale^ ] salut ^^ben voila encore 1 demande.. ;p ben j'ai vu 1 script qui m'interesse y as 1 gars qui l'as mais il veux pas me le filer donc c'est quand 1 pers Remote pour KICK et BAN [ par Sibelle07 ] Salut ,Je cherche une commande simple pour kicker un gars , en écrivant : !degage pseudo_a_kickerPuis je cherche également , la méme chose mais pour l blacklist [ par Lonsdale^ ] salut voila j'utilise zls comme irc quand je clic droit sur 1 nom j'ai kick ban ignore etc...mais j'aimerrais qu'il y ai 1 blacklist qui sois affiché Un tout petit prob [ par angeldavid ] J'ai un tout petit prob , a propos du ban et unban automatique , en faite la j'ai un script qui fais juste le kick , mais je voudrais au lieu que sa k Raccourci F1: kick F2:ban F3:kickban [ par psyckan ] Me revoilaVoila je cherche, comme cela peut trés bien etre comprehensible dans le titre, un script de racourci kick,ban,et kick et pourquoi pas voir a besoin d aide urgente pour bote de moderation [ par yvesman ] bonjourpouvez vous m aider le bot uune fos le processus lance s emballe et ne fait plus la difference entre bons et mauvais mots (+ plantages divers)m aidez moi svp c important [ par yvesman ] bonjour voila le probleme: j'essaye ((deseperement) sic! vu mon niveau) de creer un bot de moderation qui doit etre mis urgemment sur un server avc de Aidez moi [ par reva94 ] kelk1 pourai me crée un anti flood : - au bout de 4 phrases en flood il le kick ban 5 min anti-pub : 1 er pub Qui avertit 2 eme pub qui kick 3 emem p Don't iddle [ par angeldavid ] Bonjour, je voudrais faire un truc tout simple, mais il me faut votre aide, j'aimerai faire un don't iddle, j'ai déja commencer :on 1:join:#support.ho


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Comparez les prix Nouvelle version


HTC G1

Entre 449€ et 449€


Photothèque Nouveau !



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
Temps d'éxécution de la page : 0,733 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.