BLACK-LIST
Doudis
Messages postés
26
Date d'inscription
jeudi 19 avril 2007
Statut
Membre
Dernière intervention
29 décembre 2007
-
10 nov. 2007 à 22:35
cs_phil1957 Messages postés 47 Date d'inscription mercredi 29 janvier 2003 Statut Membre Dernière intervention 16 novembre 2010 - 16 mars 2008 à 04:49
cs_phil1957 Messages postés 47 Date d'inscription mercredi 29 janvier 2003 Statut Membre Dernière intervention 16 novembre 2010 - 16 mars 2008 à 04:49
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/44664-black-list
https://codes-sources.commentcamarche.net/source/44664-black-list
16 mars 2008 à 04:49
11 nov. 2007 à 15:24
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 !
11 nov. 2007 à 15:09
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...
11 nov. 2007 à 14:12
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.
11 nov. 2007 à 12:28
[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 :)
11 nov. 2007 à 04:35
# 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
10 nov. 2007 à 22:35
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