Code:

set usernameX "hide"set passeX "hide"set LoginOnX 0bind need - "% op" LoginChanproc LoginChan { chan type } {global ChanAccess LoginOnXif {[info exists ChanAccess([strlwr $chan])] && [onchan X $chan] && $LoginOnX } { LoginOnChanX $chan }return 0}# lecture fichierif {[file exists "${botnet-nick}.login.txt"]} {set f [open ${botnet-nick}.login.txt r]while {[gets $f line] >= 0} {if {![string match #* [lindex $line 0]]} { set usernameX [lindex $line 0]set passeX [lindex $line 1] } {set ChanAccess([lindex $line 0]) 0}}close $f}# Connexion sur le serveurbind raw - 001 connectXproc connectX {server numeric servermsg} {global usernameX passeX LoginOnXset LoginOnX 0putlog "Connexion sur le serveur $server"if {$usernameX != ""} { utimer 30 LoginOnX }}# bindbind dcc m +login +loginproc +login {hand idx text} {global ChanAccess usernameX passeXif {![string match #* [lindex $text 0]]} {if {[llength $text] != 2} { putdcc $idx "Usage : .+login <username> <passe>"return 0 }if { $usernameX != "" } {putdcc $idx "Il y a déjà un username existant. Essayez .login"return 0 }set usernameX [lindex $text 0]set passeX [lindex $text 1]putlog "Le login et le username sur X ont été ajoutés par $hand"} else { if {[llength $text] != 1} { putdcc $idx "Usage : .+login <#chan>"return 0 }set chan [strlwr [lindex $text 0]]            if {[info exists ChanAccess($chan)]} { putdcc $idx "$chan est déjà valide. Essayez .login"return 0 }            putlog "Le login et l'auto-op sur X sur le chan $chan ont été ajoutés par $hand"set ChanAccess($chan) 0}SaveXreturn 1}bind dcc m -login -loginproc -login {hand idx text} {global ChanAccess usernameX passeXif {![string match #* [lindex $text 0]]} {if {[llength $text] < 1} { putdcc $idx "Usage : .-login <username>"return 0 }if { $usernameX != [lindex $text 0] } {putdcc $idx "le username [lindex $text 0] n'est pas valide. Essayez .login"return 0 }set usernameX ""putlog "Le login et le username sur X ont été enlevés par $hand"} else { if {[llength $text] != 1} { putdcc $idx "Usage : .-login <#chan>"return 0 }set chan [strlwr [lindex $text 0]]if {![info exists ChanAccess($chan)]} { putdcc $idx "$chan n'est pas valide. Essayez .login"return 0 }catch {unset ChanAccess($chan)}            putlog "Le login et l'auto-op sur X sur le chan $chan ont été supprimés par $hand"}       SaveXreturn 1}bind dcc m login loginproc login {hand idx text} {global ChanAccess usernameX passeXputlog "#$hand# login"putdcc $idx "      login sur X       "putdcc $idx "Usage : .+login <#chan> ou .+login <username> <passe> ou .-login <#chan> ou .-login <username>"putdcc $idx ""putdcc $idx "Liste des accès :"foreach a [array name ChanAccess] { putdcc $idx "chan : $a" }if { $usernameX != ""} { putdcc $idx "username : $usernameX - password : $passeX" }putdcc $idx ""}proc SaveX {} {global {botnet-nick} ChanAccess usernameX passeX LoginOnXset f [open ${botnet-nick}.login.txt w]foreach a [array name ChanAccess] { puts $f $a }if { $usernameX != ""} {puts $f "$usernameX $passeX"if {!$LoginOnX} { LoginOnX }}close $f}# Procédure de login sur Xproc LoginOnX { } {global usernameX passeX LoginOnX ChanAccessforeach t [timers] {if {[lindex $t 1] == "LoginOnX"} {killtimer [lindex $t 2] }}if {[onchan X]} {if {!$LoginOnX } {putlog "Xlogin.tcl : Lancement du login sur X"            putserv "PRIVMSG X@channels.undernet.org :LOGIN $usernameX $passeX"}} { if {$LoginOnX} { set LoginOnX 0     foreach chan [array name ChanAccess] {set ChanAccess($chan) 0 }}}timer 1 LoginOnXreturn 0}proc LoginOnChanX { chan } {global ChanAccessif {![botisop $chan]} {putlog "XLogin.tcl : lancement d'une requête op à X sur $chan"      putserv "PRIVMSG X :OP $chan"}set ChanAccess($chan) 1 return 0}bind notc - "AUTHENTIFICATION RÉUSSIE pour*" LoginSuccessXbind notc - "AUTHENTICATION SUCCESSFUL as*" LoginSuccessXbind notc - "Sorry, You are already authenticated as*" LoginSuccessXbind notc - "Désolé. Vous êtes déjà authentifié sous le nom d'utilisateur*" LoginSuccessXproc LoginSuccessX {nick host hand texte dest} {global LoginOnX ChanAccessif {![validchan $dest]} { set LoginOnX 1 foreach chan [array name ChanAccess] {if {[validchan $chan]} { LoginOnChanX $chan }}}return 0}bind notc - "Sorry, You must be logged in to use this command." NotLoginXbind notc - "AUTHENTICATION FAILED*" NotLoginXproc NotLoginX {nick host hand texte dest} {global LoginOnXif {![validchan $dest]} {set LoginOnX 0}return 0}bind splt - *cservice@undernet.org signoffXbind sign - *cservice@undernet.org signoffXproc signoffX {cserv uhost handl chan {reason "*split"}} {global LoginOnXset LoginOnX 0return 0}putlog "Xlogin.tcl v2.0 by Thor - Tapez .login pour l'aide - Date: 18-08-02"