Codeur decodeur qui utilise $encode $decode

Commenter

Contenu du snippet

tout simplement code et deocde du texte . Plusieurs options sont disponibles mais certaines ne marchent j'attends vos suggestions a propos de ce code

Source / Exemple : 


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 }
}

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (talking)