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