look, would be a nice idea, if u encrypt the passwords on txt file, like use a simple $encode($1-,mu) or MD5

about this, someone soon or later will say, that is better use
channel,status,menubar,nicklist instead use * (or it will be activated too, in a customized window)

menu channel,nicklist,menubar,status {
  -
  Password Saver: dialog $iif($dialog(Password), -v, -m Password) Password
}

about this entire event

if ($devent == init) {
    var %x 1
    var %y 1
    while ($read(Pass.txt,%x)) {
      did -a $dname 5 $read(Pass.txt,%x)
      inc %x
    }
    while ($read(Reason.txt,%y)) {
      did -a $dname 7 $read(Reason.txt,%y)
      inc %y
    }
  }

you can use loadbuf

 if ($devent == init) {
    loadbuf -o Password 5 pass.txt
    loadbuf -o Password 7 reason.txt
  }
}