Modifier un nick par badnick

[pheeric]

Bonjour a tous

Je profite d'un peu de confinement ... pour faise des majs chez moi :)

Je pensais avoir ça en réserve, mais en fait je m'aperçois que non.

J'ai cherché un peu partout (ou presque) un tcl qui permettrait de modifier le nick d'un user se connectant par exemple :

[ Connexion ] jesucedesbites (java.user@lfbn-mon****) {users} Le 30/10/2020

Le bot réagirait a une base de données de "badnicks" et transformerait le dit pseudo :

jesucedesbites is now badnick120


Quelqu'un a ça en réserve, ou pourrait m'aiguiller sur une piste ?

Protégez vous

[cestlemien]

salut,
un eggdrop " ircop" bof, y a il me semble la possibilité d'ajouter directement dans la DB du server une liste de pseudo refusés ( cf comandes ircops/admin ou /stats q ou encore /stats n )

Cordialement.

[pheeric]

salut,  
un   eggdrop   " ircop" bof,  y a   il me semble la possibilité  d'ajouter directement  dans la  DB  du server une liste de pseudo refusés ( cf  comandes ircops/admin  ou /stats q  ou encore  /stats n  )

Cordialement.

Salut
Perso chez moi non d'où ma demande.

Protégez vous !

[aliasangelius]

Bonsoir,

Je pense qu'il faudrait regardez au niveau des système de blacklist par traitement de fichiers.

Et juste modifié quelques point.
à la rigueur, voir une Eva avec un truc sur l'event "NICK", qui recherche dans la db, et si ya dedans il rename, sinon il fait rien.

Tu vois le délire ?

[pheeric]

Oui je vois bien le délire ...

Ceci dit fut un temps lointain dans la galaxie Agrume and Co, un personnage avait codé ce type de chose (remplacer un badnick par un nick aléatoire).
Je pensais l'avoir en réserve mais j'ai fouiné dans les derniers recoins de mes sauvegardes galactiques mais j'ai po trouvé.

Bon dimanche

[aliasangelius]

Ce genre d'event :

tcl

proc controling_server {idx arg} {
    variable eva
    set arg1 [lindex [split $arg " "] 0]
    set arg2 [lindex [split $arg " "] 1]
    set arg3 [lindex [split $arg " "] 2]
    set arg4 [lindex [split $arg " "] 3]
    set arg5 [lindex [split $arg " "] 4]
    set arg6 [lindex [split $arg " "] 5]
    set arg7 [lindex [split $arg " "] 6]
    set arg8 [lindex [split $arg " "] 7]
    set arg10 [string trim [lrange [split $arg " "] 3 end] :]
    if {$arg2=="PING"} {
        putdcc $eva(idx) ":$eva(serv) PONG $eva(ip) :$eva(serv)"
    }
    if {$arg2=="NICK} {
        set pseudo [string trim [lindex $arg 1] :]
        set identd [lindex $arg 4]
        set host [lindex $arg 5]
        set host2 [lindex $arg 5]
        set serv [lindex $arg 6]
        set name [string trim [lrange $arg 10 end] :]
        putdcc $eva(idx) ":$eva(lognick) PRIVMSG $eva(log) :\[\0034Connect\003\] \0037$pseudo\003 \[User@Host\] \002$identd@$host\002 (Realname : \0036$name\0031) - Sur \0034$serv\0034"
        # ici tu met ta recherche de la db pour scan les pseudo à la connexion etc.
    }
}

[pheeric]

Oué je vais essayer de voir ça ;)

merci a toi, mais je sais qu'il y a un code qui traine je vais faire mon yoda chercheur..

---

En passant aliasangelius,
tu n'aurais pas une idée pour mon post sur le VDM : https://forum.eggdrop.fr/Script-VDM-fetc...834-3.html
Au cas ou, ou il faut que je fasse un new post et new sujet du coups...

[CrazyCat]

Il faut un peu arrêter de ressortir Eva à chaque demande...

Un bind sur le notice serveur "client connecting", on récupère le pseudo et on vérifie s'il est dans la liste (avec potentiellement une regexp).
Et si le nick est considéré comme indésirable, on lance un /msg operserv svsnick pour assigner un nick random.

Voici une version simple (non testée, faite directement ici) pour les pseudos exacts, je ferai une version qui fonctionne avec des regexp dès que j'aurai un peu plus de temps.

tcl

bind raw - NOTICE checknick
 
set badnicks {toto machin hips}
 
proc checknick { from key arg } {
  if {[string match *!*@* $from] || ![string match -nocase "*client connecting*" $arg]} { return }
  if {[scan $arg %\[^\:\]\:%\[^(\](%\[^@\]@%\[^\)\] _ nick ident host] == 4} {
     if {[lsearch -nocase ::badnicks $nick]!=-1} {
        set newnick "badguy[rand 999]"
        putserv "PRIVMSG OperServ :SVSNICK $nick $newnick"
     }
  }
}

[pheeric]

Merci pour l'idée ..
Quand tu auras le temps yes, y a pas le feu non plus :)