Trouver une ressource (Nouvelle version du moteur, plus rapide & pertinent, essayez le !)
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
CODEUR DECODEUR QUI UTILISE $ENCODE $DECODE
Information sur la source
Description
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
- 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 }
- }
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 }
}
Sources de la même categorie
Commentaires
|
CalendriCode
| | | L | M | M | J | V | S | D |
| | | | | 1 | 2 | 3 |
| 4 | 5 | 6 | 7 | 8 | 9 | 10 |
| 11 | 12 | 13 | 14 | 15 | 16 | 17 |
| 18 | 19 | 20 | 21 | 22 | 23 | 24 |
| 25 | 26 | 27 | 28 | 29 | 30 | 31 |
|
|