Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


identd aléatoire même si il est pas activé
#1
Salut

Voila comme il en a pas nul part sur internet et que j'ai même pas vu ou ça en parle... j'aimerais un script qui fasse un ident aléatoire comme le winident.tcl même lorsque le ident n'est pas activé sur le pc ou est le windrop. (Comme quand le port n'est pas ouvert dans le routeur)

Si ça intéresse quelqu'un je lui en remerci

au plaisir d'avoir de vos nouvelles
#2
Alors suite à notre discussion, j'ai fait un mini-script:

tcl
namespace eval rand_id {
 
    # Le masque de l'ident, les ? seront remplacés par
    # un caractère de la liste "chars"
    variable pattern "hello???"
 
    # Liste des caractères de remplacement autorisés
    variable chars {
        "0" "1" "2" "3" "4" "5" "6" "7" "8" "9"
        "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m"
        "n" "o" "p" "q" "r" "s" "t" "u" "v" "w" "x" "y" "z"
        "_" "-"
    }
 
 
    # renvoit un caractère au hasard
    proc rndchr {} {
        return [lindex $rand_id::chars [rand [llength $rand_id::chars]]]
    }
 
    # Remplace tous les ? du masque
    proc randomize {pattern} {
        set out ""
        foreach {chr [split $rand_id::pattern ""]} {
            append out [if {[string eq $chr "?"]} {rand_id::rndchr} {set chr}]
        }
        return $out
    }
 
    # Bind sur la connexion au serveur
    bind evnt - "connect-server" ident
    proc ident {evnt} {
        set ::username rand_id::randomize
    }
}

Il suffit de de modifier le pattern et la liste chars pour t'en servir comme tu veux.

Par exemple, pour avoir automatiquent 5 chiffres:

tcl
variable pattern "?????"
variable chars { "0" "1" "2" "3" "4" "5" "6" "7" "8" "9" }

irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away


Possibly Related Threads…
Thread Author Replies Views Last Post
  [Résolu] Problème, plusieurs rand dans la même procédure Ez3kiel 2 4,297 03/07/2012, 16:20
Last Post: Ez3kiel
  choisir un fichier aleatoire loulou7593 6 3,992 12/10/2010, 14:16
Last Post: CrazyCat

Forum Jump:


Users browsing this thread: 1 Guest(s)