/ScriptServ

;IRcap8 533d60af646c092b6a73878f5a943361

alias _passacceso {
  if $$1 == mete {
    var %a = $?*="Introduce una contraseña (2 caracteres mínimo)"
    var %b = $?*="Introduce de nuevo la misma contraseña"
    if (%a != %b) || ($len(%a) < 2) { echo -se *** ERROR, escribiste mal la contraseña. Vuelve a cargar este add on e introduce correctamente la contraseña. | fallo | .timer 1 1 unload -rs passacceso.mrc | return }
    %inipass = $md5(%a)
    var %a = $?!="Contraseña aceptada. $crlf $+ Para cambiar la contraseña deberás descargar este add on y volverlo a cargar."
  }
  if $$1 == pide {
    var %a = $?*="Contraseña de acceso ?"
    if ($md5(%a) != %inipass) || ($len(%a) < 2) { exit }
    echo -se *** Contraseña aceptada
  }
}

on 1:LOAD: _passacceso mete
on 1:START: IF $UPTIME(MIRC) < 5000 _passacceso pide

[ADDON]
nombre=Acceso con Contraseña
autor=GSi
ver=1.2
desc=Contraseña para usar el IRcap (sólo español).