CODEUR DECODEUR QUI UTILISE $ENCODE $DECODE

menu menubar,query,channel {
  -
  codeur décodeur:/ouvrir
}

dialog crypte {
  size -1 -1 250 130
  option dbu
  button "fermer",1, 5 120 240 9, ok
  edit "texte à crypter ici",2, 5 15 170 10, autohs
  edit "",3, 5 30 170 10, read, autohs
  button "crypter",4, 5 45 170 10
  box "cryptage",5, 2 5 180 55
  edit "texte à décrypter ici",6, 5 70 170 10, autohs
  edit "",7, 5 85 170 10, read, autohs
  button "décrypter",8, 5 100 170 10
  box "décryptage",9, 2 60 180 55
  box "indiquer",10, 190 5 50 55
  box "indiquer",11, 190 60 50 55
  button "sur le channel",12, 195 15 40 15
  button "pour soi même",13, 195 35 40 15
  button "sur le channel",14, 195 70 40 15
  button "pour soi même",15, 195 90 40 15
}
ON *:DIALOG:crypte:*:*: { 
  if ($devent == edit) {
    if ($did == 2) { 
      if ($did(2).text == $null) { .did -b crypte 4 }
      if ($did(2).text != $null) { .did -e crypte 4 }
    }
    if ($did == 6) { 
      if ($did(6).text == $null) { .did -b crypte 8 }
      if ($did(6).text != $null) { .did -e crypte 8 }
    }

  }
  if ($devent == init) {
    if ($did(2).text == $null) { .did -e crypte 4 }
    if ($did(2).text != $null) { .did -b crypte 4 }
    if ($did(6).text == $null) { .did -e crypte 8 }
    if ($did(6).text != $null) { .did -b crypte 8 }
    .did -b crypte 12,13,14,15

  }
  if ($devent == sclick) {
    if ($did == 4) { 
      $iif($server == $null,.did -e crypte 13) 
      $iif($server != $null,.did -e crypte 12,.did -e crypte 13)
      /crypte 
    }
    if ($did == 8) { 
      $iif($server == $null,.did -e crypte 15) 
      $iif($server != $null,.did -e crypte 14,.did -e crypte 15)
      /decrypte 
    }
    if ($did == 12) { .msg $?"Sur quel channel ?" Codage de 4 $+ $did(2).text : 7 $+ $did(3).text }
    if ($did == 13) { .echo -a Codage de 4 $+ $did(2).text : 7 $+ $did(3).text }
    if ($did == 14) { .msg $?"Sur quel channel ?" décodage de 4 $+ $did(6).text : 7 $+ $did(7).text }
    if ($did == 15) { .echo -a Décodage de 4 $+ $did(6).text : 7 $+ $did(7).text }
  }
}


alias crypte {
  set %trucacrypte $did(2).text
  //did -ra crypte 3 $encode(%trucacrypte,m)
  /unset %trucacrypte
}
alias decrypte {
  set %trucadecrypte $did(6).text
  //did -ra crypte 7 $decode(%trucadecrypte,m)
  /unset %trucadecrypte
}

alias ouvrir {
  if ($dialog(crypte)) { halt }
  else { /dialog -m crypte crypte }
}