bind pub - !keygen pub:keygen
proc pub:keygen {nick host hand chan arg} {
if {$arg==""} {
set arg $nick
} else {
set arg [lindex $arg 0]
}
set tablero "11 6 17 12 12 14 5 12 16 10 11 6 14 14 4 11 9 12 11 10 8 10 10 16 8 4 6 10 12 16 8 1"
set contador 3
if {[string length $arg]<5} {
putserv "PRIVMSG $chan :\002\037ERROR\037:\002 El nombre de usuario debe tener al menos 5 caracteres."
return 0
}
set parte1 0
set parte2 0
set largo [string length $arg]
while {$contador<$largo} {
scan [string index $arg $contador] %c codascii ;
scan [string index $arg [expr $contador-1]] %c codascii2 ;
set parte1 [expr $parte1 + $codascii * [lindex $tablero [expr $contador-3]]]
set parte2 [expr $parte2 + $codascii * $codascii2 * [lindex $tablero [expr $contador-3]]]
incr contador
}
putserv "PRIVMSG $chan :KEYGEN - Para Registrar tu mIRC pon: alt + H, luego vaz a REGISTER .. y ahi ponez Usuario: $arg Key: $parte1-$parte2 "
}
putlog "=== keygen @ TerraChat ==="