name/passyword script ?

[insanctus]

Is there a tcl that makes the bot save names and passwords and bans any with the wrong password (or atleast renames the member)

Thanks in advance.