|
Identification automatique
|
| Auteur |
Message |
CrazyCat
Administrator
Messages : 1,396
Groupe : Administrators
Inscription : Apr 2004
Statut :
Hors ligne
|
Identification automatique
On demande souvent un script d'identification automatique sur les services Anope... Voici ce que j'utilise:
# CONFIGURATION
set nickserv "nickserv"; # Nick du NickServ
set pass "monpass"; # Pass du nick
bind evnt - "init-server" evnt:init_server
proc evnt:init_server {type} {
global botnick nickserv pass username
putserv "MODE $botnick +iB-ws"
if {$botnick!=$username} {
putquick "PRIVMSG $nickserv :GHOST $username $pass"
}
putquick "PRIVMSG $nickserv :IDENTIFY $pass"
return 0
}
bind notc - "*IDENTIFY*" init:ident
proc init:ident {nick uhost handle text {dest ""}} {
global botnick nickserv pass
if {$dest == ""} {
set dest $botnick
}
putserv "PRIVMSG $nickserv :identify $pass"
return 0
}
putlog "Initialization loaded"
Trucs et astuces en programmation - Je suis actuellement 
Ce message a été modifié le: 23/04/2008 11:04 par CrazyCat.
|
|
| 23/04/2008 10:56 |
|
 |
CrazyCat
Administrator
Messages : 1,396
Groupe : Administrators
Inscription : Apr 2004
Statut :
Hors ligne
|
RE: Identification automatique
Vous aurez constaté que le tcl donné précédemment fait 2 fois l'identification. L'identification lors de la connexion au serveur n'est en fait utile que lorsqu'il y a un réglage KILL IMMED sur NickServ, ce qui est rare et cela peut être dangereux si vous envoyez votre eggdrop sur un serveur ne possédant pas de NickServ et où un petit malin aura pris ce nick.
De plus, les variables $nickserv et $pass sont accessibles à toute personne ayant accès à la party-line si vous avez activé la commande .tcl
Voici donc une version légèrement différente, et je ferais bientôt une version permettant de vérifier un peu plus que le nick de NickServ.
namespace eval AnopIdent {
variable nickserv "NickServ"
variable chanserv "ChanServ"
variable nspass "monpass"
bind notc - "*IDENTIFY*" AnopIdent::ident
}
proc AnopIdent::ident {nick uhost handle text {dest ""}} {
if {$dest == ""} { set dest $::botnick }
if {[string tolower $nick]!=[string tolower $AnopIdent::nickserv]} { return 0 }
putserv "PRIVMSG $AnopIdent::nickserv :identify $AnopIdent::nspass"
return 0
}
putlog "Initialization loaded"
Trucs et astuces en programmation - Je suis actuellement
Ce message a été modifié le: 17/01/2009 15:47 par CrazyCat.
|
|
| 23/04/2008 12:39 |
|
|
N3bIlIm
Junior Member
Messages : 35
Groupe : Registered
Inscription : Nov 2007
Statut :
Hors ligne
|
RE: Identification automatique
|
|
| 06/06/2008 13:27 |
|
|
Merwin
Tcl Coder
Messages : 145
Groupe : Registered
Inscription : Jun 2008
Statut :
Hors ligne
|
RE: Identification automatique
De plus, les variables $nickserv et $pass sont accessibles à toute personne ayant accès à la party-line si vous avez activé la commande .tcl
Je comprends pas,avec ta nouvelle version ce problème (qui n'en n'est pas) existe toujours non?
.tcl set AnopIdent::nspass
Je vois pas trop l'intéret du namespace, si le gars donne accès à .tcl à n'importe qui c'est sa faute, aucun namespace n'y changera quoi que ce soit 
Ce message a été modifié le: 17/01/2009 15:48 par CrazyCat.
|
|
| 06/06/2008 19:16 |
|
|
CrazyCat
Administrator
Messages : 1,396
Groupe : Administrators
Inscription : Apr 2004
Statut :
Hors ligne
|
RE: Identification automatique
Il est tout de même plus dur de trouver $::AnopIdent::nspass que $nspass
Et surtout, ça permet aussi de ne pas avoir de soucis avec un autre tcl qui utiliserait nspass
Trucs et astuces en programmation - Je suis actuellement
|
|
| 06/06/2008 20:45 |
|
|
beni
Junior Member
Messages : 3
Groupe : Registered
Inscription : Jun 2008
Statut :
Hors ligne
|
RE: Identification automatique
On demande souvent un script d'identification automatique sur les services Anope... Voici ce que j'utilise:
# CONFIGURATION
set nickserv "nickserv"; # Nick du NickServ
set pass "monpass"; # Pass du nick
bind evnt - "init-server" evnt:init_server
proc evnt:init_server {type} {
global botnick nickserv pass username
putserv "MODE $botnick +iB-ws"
if {$botnick!=$username} {
putquick "PRIVMSG $nickserv :GHOST $username $pass"
}
putquick "PRIVMSG $nickserv :IDENTIFY $pass"
return 0
}
bind notc - "*IDENTIFY*" init:ident
proc init:ident {nick uhost handle text {dest ""}} {
global botnick nickserv pass
if {$dest == ""} {
set dest $botnick
}
putserv "PRIVMSG $nickserv :identify $pass"
return 0
}
putlog "Initialization loaded"
|
|
| 22/06/2008 12:48 |
|
|
beni
Junior Member
Messages : 3
Groupe : Registered
Inscription : Jun 2008
Statut :
Hors ligne
|
RE: Identification automatique
bonjours l indentification automat m interesses mais ou decharger se script tcl je cherches et j arrives pas a trouver le dechargement svp aidez moi j ai des problemes d identification aupres de mon bot je suis sur irc.icq.com . salle : #testouille je m appeles beni .vos explications mon beaucoup aider mais la se script est introuvable.mon msn : davidchaim@hotmail.com
|
|
| 22/06/2008 12:53 |
|
|
BdS
Brigade Du String
Messages : 217
Groupe : Registered
Inscription : Jun 2005
Statut :
Hors ligne
|
RE: Identification automatique
il suffit de copier/coller le code donner en remplaçant les variables ... cqfd non ?
La prochaine fois, essaye d'imaginer que j'ai un cerveau ...
|
|
| 23/06/2008 09:17 |
|
|
Twitter
Recherche
Liste des membres
Chat
Aide
Téléchargements
