blackliste

Question

bonjour à tous ! j'ai trouver sur un site une remote blackliste. elle fonctionne bien mais le soucis que j'ai, je veux que les personnes blacklistés soit dans un fichier .txt car j'en ai une autre prise dans la section users !
j'ai essayer de modifier le code mais malheureusement ça kickbannais tout le monde.
le ban que je souhaite est le suivant sur le $maddress en voici un exemple de personne blacklisté: *speudo*!*@* !
a la base dans le code, la blackliste ce met directement dans la section "users" d'ou ya aussi le menu pour ajouter que j'ai du faire moi meme.

donc ma question est t il faisaible de la mettre dans un fichier .txt ?
car m'y connaissant pas vraiment bien :x , la plupart que j'arrive c'est du copier coller dans divers anciens codes que j'ai reussi a comprendre.

merci pour votre aide :)
a bientot j'espere

foufou33

ci dessous le code.

menu * {
  Blackliste: /dialog -m comp304 comp304
}
on ^1:JOIN:#: { 
  .set %pro.c.txt ON
  if ( 100 isin $level($address($nick,5)))  { ban $chan $maddress | .kick $chan $nick  &#x0;3;1Vous n'étes pas admis sur ce salon }
  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
}

uaip · Answer

euh, j'ai pas trop lu le code, mais tu te prends un peu la tete, nn ? bon déja tu peux regrouper les 3 events dialog (petit détail), puis a un moment tu mets :
  if (%JPQ == Off) { goto end }
  else { 
  }
  :end
}
tu m'explique a quoi sert le goto, là ? ^^ (je pense que t'as du virer le contenu du else sans faire gaffe au goto).
mais sinon, pour en revenir a ton histoire, ta condition est un peu bizarre, pourquoi, comme tu l'as dit, tu fais pas tout simplement en sorte de foutre les pseudos baslistés dans un .txt en évitant toutes ces variables, là.
suffit d'un petit event input et un autre join, du genre :
on *:input:*:if ($strip($1) == !badlist) { write badlist.txt $address($$2,2) }
on *join:#ton_salon:if ($read(badlist.txt,w,$+(*,$address($nick,2),*))) { ban $chan $nick 2 | kick $chan $nick Tu n'es pas le bienvenu ici !
voila, peut etre un truc du genre (wims, je sens que j'ai encore fait une erreur pourrite ^^)
ou alors, pourquoi ne pas simplement utiliser la fonction akick (si tu es avec chanserv) ?

uaip · Answer

[avec un ":" entre on *:join]

cs_foufou33 · Answer

bonjour uaip ,

comme je t'ai dit j'ai trouver ce code et je n'ai pas modifier juste a mettre le menu.
apres comme tu as pu voir je veux pas ban l'adresse mais le *speudo*!*@* sur le mask de la liste de la blackliste. j'ai deja essayer mais tu as pas du t'en resouvenir mais j'ai tester sur le fichier text mais ca bannissais tout le monde !
 :x

uaip · Answer

bah pour bannir le pseudo tu fais ban $chan $+($nick,!*@*) ou tout simplement ban $chan $nick
mais le pb c'est que s'il change de pseudo il ne sera pas banni... donc c'est pas top.
mais peut etre que j'ai mal compri ton pb :)

Soprano71 · Answer

sinon voila une blackliste : 
on *:JOIN:#:{
  if ($me isop $chan) {
    var %nick = $gettok($nick,1,124)
    if (%nick = $read(badnick.txt, w, * $+ %nick $+ *)) {
      mode # +b * $+ $nick $+ *!*@*
      kick $chan $nick  &#x0;2;B&#x0;2;l&#x0;2;a&#x0;2;c&#x0;2;k&#x0;2;l&#x0;2;i&#x0;2;s&#x0;2;t&#x0;2;e&#x0;2;d&#x0;2;  ¡ $+ $nick $+ ! &#x0;3;4&#x0;1F;Indésirable&#x0;1F;&#x0;3; &#x0;3;2¬   le&#x0;2; $jour $asctime(dd) $mois $asctime(yyyy) &#x0;2;à&#x0;2; $mid($time,1,2) $+ h $+ $mid($time,4,2) 
      mode # +b $address($+ $nick $+ ,2)
    }
    else { halt }
  }
}

on *:input:*:{
  if ($1 = .addbl) { write Badnick.txt $2 | me  • Bad nick  –› $2 ‹– Ajouté ( $+ $lines(badnick.txt) $+ ) | halt }
  if ($1 = .delbl) { write -dl $2 Badnick.txt | me  • Bad nick –› $2 ‹– Retiré ( $+ $lines(badnick.txt) $+ ) | halt }
  if ($1 = .nbl) { me • Nombre de Blaclistés En Mémoire : ( $+ $lines(badnick.txt) $+ )  }
  if ($1 = .liste) {
    if ($2 = **) { run badnick.txt }
    if ($2 = *) {
      var %badnick 0, %badnicklist $lines(badnick.txt)
      me  ––› Liste des Blacklistés ‹––
      while (%badnicklist > %badnick) { inc %badnick 1 | me • %badnick • $left($read(badnick.txt,%badnick),1) $+  $+ $mid($read(badnick.txt,%badnick),2) }
    }
  }
}

cs_foufou33 · Answer

987218 
 uaip si tu veux je suis sur orange le salon #tests ! peut etre comprendre tu. au pire quand j'ajoute une personne, ça met ca dans la liste "users" --> 100:*speudo*!*@*
a la normale bien sur. mais comme je t'ai dit je veux le mettre dans un fichier .text ! et quand j'arrive pour tester àa me met cela: * /ban: insufficient parameters (line 6, blacklist.txt)

et pour ta réponse ben euh non je veux le ban *speudo*!*@* meme si le mec a une extention ca ban quand meme *speudo*!*@*

 comprends tu ?

merci a toi =491702 Soprano71 mais c'est pas ce que je recherche :x. mais merci d'y avoir penser :)

Soprano71 · Answer

sur cette blackliste tu peut ban que ce soit sur pseudo ou l'adresse qui es stocker ds un fichier text ! =)

uaip · Answer

imagine tu banni Gerard de ton salon avec le ban *pseudo*!*@*
suffit juste qu'il change son pseudo en Robert et il pourra revenir...

Soprano71 · Answer

ta juste a tapé .addbl pseudo ou [mailto:*!*@13445355.fr *!*@13445355.fr]  et il sera stocker dans le fichier txt ensuite a toi de modifié le code a ta guise ! bonne journée tlm ++

cs_foufou33 · Answer

ben non on contraire je veux pas de ça. je veux ban sur le format de la bl !!

cs_foufou33 · Answer

j'ai fais un test que avec le ban et sur la bl j'ai ca vedc donc le pseudo bl. quand il a une extention ca ban vedc|extention*!*@*

ben moi je que je veux c'est le ban vedc*!*@*

Soprano71 · Answer

ben a toi de modifié le code =) mais si tu souhaite banir sur le vhost decripté tu poura pas ! seul irix peut le faire ,ou autre bot off ! ensuite le principe de la bl et de kb le pseudo qui join ton chan ou kb le vhost ! fin bon courage ! demande a Mec_Tendre  de te filai un coup de main g vue qu'il etait sur le chan  ! ++++

cs_foufou33 · Answer

ok merci bien c pas le ban vhost que je parlais ;x

uaip · Answer

sinon tu utilise tt simplement /cs akick #salon pseudo
et le pb est réglé... (cette manip a été faite pour ca)

cs_foufou33 · Answer

ok  uaip et tu pourrai m'expliqué comment faire cette commande stp ? en plus Mec_Tendre répond pas :x et pas present sur le chan

uaip · Answer

bah la commande je viens de te la donner, tu tape /cs akick #ton_salon  et ca akick le pseudo, c'ets a dire qu'il sera kické a chaque fois qu'il viendra.
atends jvais essayer de venir, c'ets quoi l'adresse du serveur orange ?

Soprano71 · Answer

irc.voila.fr:6667 #tests

cs_foufou33 · Answer

euh faut une clef pour rentrer ;x au pire sur orange.fr
dommage que ca existe pas en ban aussi lol

uaip · Answer

aah c'est voila ^^ non mais jai pas le générateur de clé...
jvais essayer de venir via l'applet.

cs_foufou33 · Answer

okok sur le site de voila/orange sur le salon #tests

uaip · Answer

ué je sais, mais on dirait qu'il veut pas que jme connecte :( l'applet ne souvre pas (jdois avoir des pbs avec java, c'ets pas la premiere fois que l'applet plante) sinon comment tu fais pr générer une clé ?

cs_foufou33 · Answer

tiens si tu as un script, prends ce generateur de clef :) http://www.ircfr.com/codes/WANAKEY_40418.aspx

cs_foufou33 · Answer

plus personne ? lol

cs_wims · Answer

Qu'est ce que c'est ce tread de taré :| ?

uaip · Answer

lol, l'addon de VestaX est bien, mais jai compri comment me connecter sans en avoir besoin ^^
mais la connexion est refusée... apparament (d'apres ce qu'il mentionne dans son addon) si on foire un code, faut attendre le lendemain, j'ai foiré le mien :)
bref, jpeux pas venir voir, mais jpense que ca marche avec NickServ, ChanServ, MémoServ et BotServ (toute la co. quoi) donc dans ce cas là, utilise simplement la commande /cs akick au lieu de faire tt ce bordel

cs_wims · Answer

Sur voila/wanadoo, il n'y a pas de services anope

cs_foufou33 · Answer

c'est quoi un anope ?

Soprano71 · Answer

c'est bien dommage qu'il y es pas de service comme ça sur voila/orange ! vue le bordel que c'est !! ça eviterai bcp de probleme !

devorZ · Answer

;tiens je sais pas si elle va te plair ma BL..

;##################
;#Scripting: Blacklist.              
;#
;#Auteur: /* devorZ */             
;#
;#Année: 2008               
;#
;#Tous droits reservés     
;#
;##################

alias BL dialog -m bl bl | .splay %son.module | echo -a &#x0;2;O&#x0;2;uverture du Menu Ban a vue...
dialog Bl {
  title "- Blacklist - [ /BL ]"
  size -1 -1 87 117
  option dbu
  icon icones\caution.jpg, 0
  text "Commandes Blacklisted :", 1, 4 4 62 8
  text "Ajouter :", 2, 4 16 25 8
  text "Enlever :", 3, 4 27 25 8
  edit "", 4, 29 16 55 9
  edit "", 5, 29 26 55 9
  list 6, 9 37 70 35, size vsbar
  button "Fermer", 7, 6 105 75 11, flat ok cancel
  button "Infos", 8, 25 92 37 12
  text "Raison Lors du Kick :", 9, 3 73 53 8
  edit "", 10, 4 81 80 10, autohs
}
On *:dialog:bl:Sclick:*:{
  if ($did = 8) { dialog -m infosbl infosbl | echo -a &#x0;2;O&#x0;2;uverture : Infos Backlisted. }
}
On *:dialog:bl:init:*:{
  loadbuf -o bl 6 divers/banmask.txt
  if %Input.bl { did -a bl 4 %Input.bl }
  if %Input.unbl { did -a bl 5 %Input.unbl }
  if %Raison.bl { did -a bl 10 %Raison.bl }
} 
On *:dialog:bl:edit:4:{
  set %input.bl $did(4)
}
On *:dialog:bl:edit:10:{
  set %Raison.bl $did(10)
}
On *:dialog:bl:edit:5:{
  set %input.unbl $did(5)
}
On *:input:*: {
  If ( $strip($1) == %input.bl) {
    Write divers/banmask.txt $strip($2)
    Echo -at &#x0;3;14&#x0;2;»&#x0;2; /&#x0;3;4&#x0;2;B&#x0;2;lacklisted &#x0;3;:&#x0;2; $2 &#x0;2;a été ajouté(e) au Host/Pseudo Blacklisted. 
  }
  If ( $strip($1) == %input.unbl) {
    Write -ds $+ $strip($2) divers/banmask.txt
    Echo -at &#x0;3;14&#x0;2;»&#x0;2; /&#x0;3;4&#x0;2;U&#x0;2;nblacklisted &#x0;3;:&#x0;2; $2 &#x0;2;a été suprimé au Host/Pseudo Blacklisted.
  }
}
On ^*:join:#:{
  If ( $me isop $chan ) {
    Var %f 1
    While (%f <= $lines(divers/banmask.txt)) {
      If ( $read(divers/banmask.txt,%f) iswm $address($nick,5)) {
        .mode $chan +b $read(divers/banmask.txt,%f)
        .kick $chan $nick %raison.bl
        Halt
      }
      Inc %f 1
    }
  }
}
dialog Infosbl {
  title "- Infos-BL -"
  size -1 -1 87 28
  icon icones\info.ico, 0
  option dbu
  text "Blacklisted : Lors de la commande, exemple : .bl Pseudo*!*@* penser bien a rajouter le *!*@* pour que cela marche. :)", 1, 1 1 85 27
}

uaip · Answer

On *:dialog:bl:Sclick:*:{
  if ($did = 8) { dialog -m infosbl infosbl | echo -a &#x0;2;O&#x0;2;uverture : Infos Backlisted. }
}
On *:dialog:bl:init:*:{
  loadbuf -o bl 6 divers/banmask.txt
  if %Input.bl { did -a bl 4 %Input.bl }
  if %Input.unbl { did -a bl 5 %Input.unbl }
  if %Raison.bl { did -a bl 10 %Raison.bl }
} 
On *:dialog:bl:edit:4:{
  set %input.bl $did(4)
}
On *:dialog:bl:edit:10:{
  set %Raison.bl $did(10)
}
On *:dialog:bl:edit:5:{
  set %input.unbl $did(5)
}

devient :

on *:dialog:bl:*:*:{
  if ($devent == init) {
    loadbuf -o bl 6 divers/banmask.txt
    if (%Input.bl) did -a bl 4 %Input.bl
    if (%Input.unbl) did -a bl 5 %Input.unbl
    if (%Raison.bl) did -a bl 10 %Raison.bl
  }  elseif ($devent sclick) && ($did 8)) { dialog -m infosbl infosbl | echo -a &#x0;2;O&#x0;2;uverture : Infos Backlisted. }  elseif (($devent edit) && (($did 4) || ($v2 == 10) || ($v1 == 5))) set %input.bl $did($v1)
}

Ensuite, vire tes lignes de chargement d'icone vu qu'on l'a pas, ainsi que le splay %son.module.

Et le "tout droits réservé" c'est valable si tu mets une identité (nom, prénom...), pas un pseudo non protégé 

Cordialement, uaip.

uaip · Answer

Oups, erreur d'étourderie...
 elseif (($devent sclick) && ($did 8)) { dialog -m infosbl infosbl | echo -a &#x0;2;O&#x0;2;uverture : Infos Backlisted. }

Cordialement, uaip.

devorZ · Answer

Uaip cherche toujours la perfections enfin merci de m'avoir corrigé sa meme si sa change pas le code mais j'ai pas l'habitude de codé mes dialog comme sa

uaip · Answer

Oaui, mais on notera quand même une autre erreur de ma part... à propos des $v1 et $v2... j'avais pas fait comme ça au début, et du coup j'ai oublié de modifier 
non mais en gros l'essentiel c'est de n'obtenir qu'un seul événement DIALOG. Ca parait anodin pour un être humain (sachant qu'on ne voit aucune différence entre 0.5sec et 0.7sec) mais ça a tout de même son importance. 

Cordialement, uaip.

Soprano71 · Answer

bonsoir ,
devorZ j'aime beaucoup ta petite blackliste et je souhaiterai savoir si y avait la possibilité de la modifié pour quelle kick ban les spambot qui ont un host caché ? 
je m'explique je voudrai en faite le meme genre que ta blackliste et quand un spam bot rentre sur le salon sa le kick ban auto sur dans sont whois y a le host caché . 
exemple : 
&#8226; Whøis sur &#8250; dousa_ (guest@1569141071.com)
   Nøm &#8250; Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1;
   Høst Caché &#8250; 2531986971.fr
   2 Salons &#8250; #bretagne +#---aide---
   Serveur &#8250; irc.voila.fr (Serveur t'Chat)
   Nick Enregistré &#8250; Non
   Inactivité &#8250; 6secs
&#8226; Ønline Depuis &#8250; Dimanche 21 Décembre 2008 à 16:21:59

voila un whois d'un spambot et je souhaiterai qu'il détecte le host caché =>  *!*@2531986971.fr


cordialement

Blackliste

34 réponses

Votre réponse