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

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
Merci IRCLAND source top :)
RCA ArKanis
Messages postés
1287
Date d'inscription
mercredi 21 avril 2004
Statut
Membre
Dernière intervention
21 février 2009

11 nov. 2007 à 15:24
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 !
ircland
Messages postés
99
Date d'inscription
mardi 22 août 2006
Statut
Membre
Dernière intervention
9 septembre 2014

11 nov. 2007 à 15:09
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...
cs_wims
Messages postés
2466
Date d'inscription
vendredi 23 juillet 2004
Statut
Membre
Dernière intervention
1 août 2010
1
11 nov. 2007 à 14:12
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.
RCA ArKanis
Messages postés
1287
Date d'inscription
mercredi 21 avril 2004
Statut
Membre
Dernière intervention
21 février 2009

11 nov. 2007 à 12:28
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 :)
Afficher les 7 commentaires