Autologin

By eNkIL on Sep 11, 2015

New Auto log in

::::::::::::::::::::::::::::
:::::: Coded By eNkIL ::::::
::::::::::::::::::::::::::::
::: Cambiale si sabes =) :::
::::::::::::::::::::::::::::

;Dialogo Autologin

menu menubar,channel,status { 
  Auto-Login con X:diax
  -
}

alias diax {
  if ($dialog(diax) == $null) { dialog -m diax diax } 
  else { .echo -a -Dialogo de Auto-Login con X Ejecutandose.. } 
}

dialog diax {
  title "Auto-Login con X"
  size -1 -1 118 70
  option dbu
  box "",1, 2 2 114 68 
  text "Usuario:",2, 4 10 25 10
  edit "",3, 40 9 45 10, autohs
  text "Contraseña:",4, 4 21 35 10
  edit "",5, 40 19 45 10, pass autohs
  button "Login",6, 85 9 30 10
  button "Limpiar",7, 85 20 30 10  
  check "Mostrar al Conectar",8, 3 32 62 10
  check "Auto-Login al Conectar",9, 3 41 70 10
  check "Esconder IP",10, 3 50 62 10 
  check "Info User",13, 3 59 62 10 
  button "Cerrar", 11, 85 31 30 38, ok 

}

;Alias Dialogo X

alias -l CargaInfologin {
  if (%mostrar.loginalconec) did -c $dname 8
  if (%login.alconectar) did -c $dname 9
  if (%esconde.ip) did -c $dname 10
  if (%muestra.x.info) did -c $dname 13
  did -a $dname 3 %usuario
  did -a $dname 5 %passx2
  unset %passx
  unset %passx3
}

;Eventos dialogo

on *:dialog:diax:*:*: {
  if ($devent = init) {
    CargaInfologin
  }
  if ($devent = edit) { 
    if ($did = 3) { .set %usuario $did($dname,3) }
    if ($did = 5) {
      var %passx $did($dname,5)
      set %passx2 $encode(%passx,m)
    }
  }
  if ($devent = sclick) { 
    if ($did = 6) { 
      if (%esconde.ip) { mode $me +x }
      set %passx3 $decode(%passx2,m)
      .msg X@channels.undernet.org login %usuario %passx3
      unset %passx3
    }
    if ($did = 7) { 
      set %usuario Usuario Nuevo
      set %passx2 
      did -r $dname 3,5 
      did -a $dname 3 %usuario
    }
    if ($did = 8) { set %mostrar.loginalconec $did($dname,8).state }
    if ($did = 9) { set %login.alconectar $did($dname,9).state }
    if ($did = 10) { set %esconde.ip $did($dname,10).state }
    if ($did = 13) { set %muestra.x.info $did($dname,13).state }

  }
}

on *:CONNECT:{
  if (%mostrar.loginalconec) { diax }
  if (%login.alconectar) { 
    if (%esconde.ip) { mode $me +x }
    set %passx3 $decode(%passx2,m)
    .msg X@channels.undernet.org login %usuario %passx3
    unset %passx3
    if (%muestra.x.info) { .msg x info = $+ $me }
  }
}

Comments

Sign in to comment.
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.