begin process at 2010 03 21 23:33:07
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

AddOns

 > BLACK-LIST

BLACK-LIST


 Information sur la source

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

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

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

Auteur : mixam

Ecrire un message privé
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


 Sources du même auteur

REPONDEUR + ANTIPV
AWAY SYSTEME

 Sources de la même categorie

TCL - AJOUT SUPPRESSION DE LOGS par Atok
BLACKLIST PSEUDOS/MASKS par usurpateur
Source avec une capture [XCHAT] ANTI KICK / AWAY C++ par GeroXXXX
JEU DU CODE par alanpersonproject
SERVEUR FTP par hisoka2501

 Sources en rapport avec celle ci

ANTIBAN par ours_en_pluche
ANTI IDLE !!! UN DE PLUS par elkwi
RACCOURCI KICK BAN par superspiff83
BAN OU KICK VIA UNE SIMPLE PRESSION DE TOUCHE DANS MIRC EX :... par pakofils
ANTI KICK BAN DEOP AVEC IRIX par Mick52

Commentaires et avis

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

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

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 :)

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.

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...

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 !

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...

Comparez les prix

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

 
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

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,092 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales