IDENTIFIEUR AU DÉMARAGE POUR SÉCURISER MIRC

alias dpass dialog -m dpass dpass
dialog dpass {
  title "Identifiez-vous"
  size -1 -1 350 265

  button "Valider", 1,120 200 100 20,ok
  button "Annuler", 20, 1 1 1 1, hide, cancel

  text "Identifiez-vous, si vous avez besoin d'aide cliquez sur <Aide>.", 6, 10 10 250 30,
  text "Sélectionez votre pseudo :",2,75 70 150 20,
  combo 3, 75 90 200 100,drop
  text "Tapez votre mot de passe :",4, 75 130 150 20,
  edit "",5, 75 150 200 20, pass,
  button "Aide", 7,270 10 70 18
  text "_______________________________________________________________", 9, 10 40 330 20,
  text "_______________________________________________________________", 10, 10 180 330 20
  text "Créé par zad. Originalement sur DaRkScript © v1.0", 11, 10 230 330 20, right
  text "Tout droits réservés © 2001-2002", 12, 10 245 330 20, right
  button "Configurer", 13, 270 30 70 18
}
on *:dialog:dpass:init:0:{
  did -b dpass 9 | did -b dpass 10 | did -b dpass 11 | did -b dpass 12
  if (%vpass1 == mp) { did -a dpass 6 A la dernière identification, vous avez tapé un mauvais mot de passe... }
  rpass
  if (%vpass != ok) { did -e dpass 5 | did -e dpass 3 | did -e dpass 1 | did -f dpass 5 }
  if (%vpass == ok) { did -b dpass 5 | did -b dpass 3 | did -b dpass 1 | did -a dpass 6 Inutile de vous identifier à nouveau, cela ne servirais a rien... }
  if (%identification != Activé) { did -b dpass 5 | did -b dpass 3 | did -b dpass 1 | did -a dpass 6 Vous n'avez pas besoin de vous identifier, vous ne l'avez pas demandé... }
}
on 1:dialog:dpass:sclick:20:{
  if (%vpass != ok) { exit }
}
on 1:active:dpass: { did -f dpass 5 }
alias rpass {
  if (%pseudo1 != $null) { did -ca dpass 3 %pseudo1 }
  if (%pseudo2 != $null) { did -a dpass 3  %pseudo2 }
  if (%pseudo3 != $null) { did -a dpass 3  %pseudo3 }
  if (%pseudo4 != $null) { did -a dpass 3  %pseudo4 }
  if (%pseudo5 != $null) { did -a dpass 3  %pseudo5 }
}
alias rpass1 {
  if (%pseudo1 != $null) { did -ca spass 2 %pseudo1 }
  if (%pseudo2 != $null) { did -a spass 2  %pseudo2 }
  if (%pseudo3 != $null) { did -a spass 2  %pseudo3 }
  if (%pseudo4 != $null) { did -a spass 2  %pseudo4 }
  if (%pseudo5 != $null) { did -a spass 2  %pseudo5 }
}
on 1:dialog:dpass:sclick:1:{
  if ($did(3).sel == 1) { set %pass %pass1 | set %fpass %pass1 }
  if ($did(3).sel == 2) { set %pass %pass2 | set %fpass %pass2 }
  if ($did(3).sel == 3) { set %pass %pass3 | set %fpass %pass3 }
  if ($did(3).sel == 4) { set %pass %pass4 | set %fpass %pass4 }
  if ($did(3).sel == 5) { set %pass %pass5 | set %fpass %pass5 }
  if ($did(5) == %pass) {
    set %vpass ok
    unset %vpass1
    unset %pass
    unset %fpass
    if (%nickpass == Activé) { .nick $did(3) }
    if (%idenconnect == Activé) {
      if (%idenconnect.style == 1) { server }
      if (%idenconnect.style == 2) { server %adconnect.pass }
    }
  }
  else {
    fpass
  }
}
on 1:dialog:dpass:sclick:7:{
  apass
}
on 1:dialog:dpass:sclick:13:{
  confpass
}

alias cpass dialog -m cpass cpass
dialog cpass {

  title "Créer un pseudo"
  size -1 -1 200 160

  button "Créer", 1, 50 130 100 20,ok
  edit "", 2, 25 30 150 20
  text "Tapez votre nouveau pseudo :", 3, 10 10 180 20,center
  text "Tapez votre mot de passe :", 4, 10 60 180 20,center
  edit "", 5, 25 80 150 20, pass
  text "_________________________________________", 6, 10 110  180 20
}
on *:dialog:cpass:init:0:{
  if (%vpass != ok) { did -b cpass 1 | did -b cpass 2 | did -b cpass 5 }
  if (%pseudo1 == $null) { did -e cpass 1 | did -e cpass 2 | did -e cpass 5 }
  did -b cpass 6
}
on 1:dialog:cpass:sclick:1:{
  if ($did(2) != $null) && ($did(5) != $null) { 
    if (%pseudo1 == $null) { set %pseudo1 $did(2) | goto next }
    if (%pseudo2 == $null) { set %pseudo2 $did(2) | goto next }
    if (%pseudo3 == $null) { set %pseudo3 $did(2) | goto next }
    if (%pseudo4 == $null) { set %pseudo4 $did(2) | goto next }
    if (%pseudo5 == $null) { set %pseudo5 $did(2) | goto next }
    :next
    if (%pass1 == $null) { set %pass1 $did(5) | goto end }
    if (%pass2 == $null) { set %pass2 $did(5) | goto end }
    if (%pass3 == $null) { set %pass3 $did(5) | goto end }
    if (%pass4 == $null) { set %pass4 $did(5) | goto end }
    if (%pass5 == $null) { set %pass5 $did(5) | goto end }
    :end
    if ($dialog(dpass).title != $null) {
      did -r dpass 3
      rpass
    }
  }
}

alias spass dialog -m spass spass
dialog spass {

  title "Supprimer un pseudo"
  size -1 -1 200 160

  button "Supprimer", 1, 50 130 100 20,ok
  combo 2, 25 30 150 100,drop
  text "Selectionnez le pseudo :", 3, 10 10 180 20,center
  text "Tapez votre mot de passe :", 4, 10 60 180 20,center
  edit "", 5, 25 80 150 20, pass
  text "_________________________________________", 6, 10 110 180 20
}
on *:dialog:spass:init:0:{
  did -b spass 6
  rpass1
  if (%vpass != ok) { did -b spass 1 | did -b spass 2 | did -b spass 5 }
}
on 1:dialog:spass:sclick:1:{
  if ($did(2) != $null) && ($did(5) != $null) { 
    set %pseudo $did(2)
    if (%pseudo1 == %pseudo) { 
      if (%pass1 == $did(5)) { unset %pass1 | unset %pseudo1 }
    }
    if (%pseudo2 == %pseudo) { 
      if (%pass2 == $did(5)) { unset %pass2 | unset %pseudo2 }
    }
    if (%pseudo3 == %pseudo) { 
      if (%pass3 == $did(5)) { unset %pass3 | unset %pseudo3 }
    }
    if (%pseudo4 == %pseudo) { 
      if (%pass4 == $did(5)) { unset %pass4 | unset %pseudo4 }

    }
    if (%pseudo5 == %pseudo) { 
      if (%pass5 == $did(5)) { unset %pass5 | unset %pseudo5 }
    }
  }
  unset %pseudo
}
alias apass dialog -m apass apass
dialog apass {
  title "Aide sur l'identification"
  size -1 -1 400 160

  button "Fermer", 1, 290 135 100 20,ok
  text "", 2, 10 10 380 40
  text "et nous nous ferions un plaisir de vous aider...", 7, 150 49 230 17
  link "DaRkScriptMaster@aol.com", 3, 10 49 140 20,
  button "Première utilisation", 4, 10 135 100 20
  text "Téléchargez le script sur :", 5, 10 80 125 20,
  link "http://www.darkscriptbeta.fr.st/", 10, 135 80 150 20,
  text "Venez nous rendre visite sur le canal #DaRkScript du serveur IRC", 11, 10 95 315 20
  link "irc.voila.fr", 12, 327 95 50 20
  text "________________________________________________________________", 6, 10 115 380 20
}
on *:dialog:apass:init:0:{
  did -a apass 2 Pour vous identifier vous devez avoir choisi un pseudo à votre première utilisation. Si vous ne l'avez pas fait cliquez sur le bouton <Première utilisation>. Si vous avez d'autres problèmes persistants, envoyer un courrier à cette adresse
  if (%pseudo1 != $null) { did -b apass 4 }
  did -b apass 6
}
on 1:dialog:apass:sclick:3:{
  run mailto:DaRkScriptMaster@aol.com?subject=Problème sur l'identification
}
on 1:dialog:apass:sclick:4:{
  cpass
}
on 1:dialog:apass:sclick:10:{
  url http://www.darkscriptbeta.fr.st/
}
on 1:dialog:apass:sclick:12:{
  server irc.voila.fr:6667
}

alias fpass dialog -m fpass fpass
dialog fpass {

  title "Mauvais Passe"
  size -1- 1 200 100

  button "Valider", 1, 50 70 100 20, ok
  text "Entrez votre mot de passe :", 2, 25 15 150 20
  edit "", 3, 25 35 150 20, pass

}
on *:dialog:fpass:init:0:{
  did -f fpass 3
}
on 1:dialog:fpass:sclick:1:{
  if ($did(3) == %fpass) {
    set %vpass ok
    unset %vpass1
    unset %pass
    unset %fpass
  }
  else {
    epass
    set %vpass1 mp
    unset %vpass
  }
}

alias epass dialog -m epass epass
dialog epass {

  title "Le script doit se Fermer"
  size -1 -1 200 110

  button "Fermer", 1, 50 80 100 20, ok
  button "Annuler", 2, 1 1 1 1, cancel, hide
  text "Vous avez effectué une deuxième fois un mauvais mot de passe. Le script doit se fermer...", 3, 10 10 180 50
  text "__________________________________", 4, 10 60 180 20

}
on *:dialog:epass:init:0:{ did -b epass 4 }
on 1:dialog:epass:sclick:1: { exit }
on 1:dialog:epass:sclick:2: { exit }

alias confpass dialog -m confpass confpass
dialog confpass {

  title "Configurer l'identification"
  size -1 -1 200 215

  button "Fermer", 1, 50 190 100 20, ok

  check "Identification au démarrage", 10, 10 10 160 17,
  button "Créer un pseudo", 11, 10 120 180 20,
  button "Supprimer un pseudo", 12, 10 150 180 20,
  check "Changer de pseudo", 13, 10 30 180 17,
  check "Se connecter une fois identifié", 14, 10 50 180 17,
  radio "Connexion au dernier serveur", 15, 25 70 160 17,
  radio "Connexion à", 16, 25 90 80 17,
  edit "", 17, 110 90 80 20, autohs
  text "________________________________", 18, 10 170 180 20

}
on *:dialog:confpass:init:0:{
  did -b confpass 18 | did -a confpass 17 %adconnect.pass
  if (%identification == Activé) { did -c confpass 10 }
  if (%nickpass == Activé) { did -c confpass 13 }
  if (%identification == Désactivé) { did -b confpass 13 | did -b confpass 14 | did -b confpass 15 | did -b confpass 16 | did -b confpass 17 }
  if (%idenconnect == Désactivé) { did -b confpass 15 | did -b confpass 16 | did -b confpass 17 }
  if (%idenconnect == Activé) { did -c confpass 14 }
  if (%idenconnect.style == 1) { did -c confpass 15 }
  if (%idenconnect.style == 2) { did -c confpass 16 }
  if (%vpass != ok) { did -b confpass 10 | did -b confpass 13 | did -b confpass 14 | did -b confpass 15 | did -b confpass 16 | did -b confpass 17 }
}
on 1:dialog:confpass:sclick:1: {
  set %adconnect.pass $did(17)
}
on 1:dialog:confpass:sclick:10:{
  if (%identification == Activé) { set %identification Désactivé }
  else set %identification Activé
  if (%identification == Activé) {
    did -e confpass 13 | did -e confpass 14
    if (%idenconnect == Activé) { did -e confpass 15 | did -e confpass 16 | did -e confpass 17 }
  }
  if (%identification == Désactivé) { did -b confpass 13 | did -b confpass 14 | did -b confpass 15 | did -b confpass 16 | did -b confpass 17 }
}
on 1:dialog:confpass:sclick:11:{
  cpass
}
on 1:dialog:confpass:sclick:12:{
  spass
}
on 1:dialog:confpass:sclick:13:{
  if (%nickpass == Activé) { set %nickpass Désactivé }
  else set %nickpass Activé
}
on 1:dialog:confpass:sclick:14:{
  if (%idenconnect == Activé) { set %idenconnect Désactivé }
  else set %idenconnect Activé
  if (%idenconnect == Désactivé) { did -b confpass 15 | did -b confpass 16 | did -b confpass 17 }
  if (%idenconnect == Activé) { did -e confpass 15 | did -e confpass 16 | did -e confpass 17 }
}
on 1:dialog:confpass:sclick:15:{
  set %idenconnect.style 1
}
on 1:dialog:confpass:sclick:16:{
  set %idenconnect.style 2
}

alias erpass dialog -m erpass erpass
dialog erpass {

  title "Connexion impossible"
  size -1 -1 200 150

  button "Fermer", 1, 50 120 100 20, ok
  text "Il vous est impossible de vous connecter. Vous devez vous identifier avant toutes tentatives... Si vous avez un probleme contactez nous à l'adresse e-mail signalée dans la page d'aide.", 2, 10 10 180 100
  text "_________________________________________", 3, 10 100 180 20
}
on 1:dialog:erpass:init:0:{
  did -b erpass 3
}

menu menubar {
  -
  Add-on
  .S'identifier
  ..S'identifier:/dpass
  ..Créer un mot de passe:/cpass
  ..Supprimer un mot de passe:/spass
  ..Configurer l'identification:/confpass
  ..-
  ..Aide:/apass
}
on 1:START:{
  unset %vpass
  if (%identification == Activé) { dpass }
  if (%identification != Activé) { set %vpass ok }
}
on 1:CONNECT:{
  if (%vpass != ok) { disconnect  | erpass }
}
on 1:LOAD:{
  set %identification Activé
}