Accueil > > > CODEUR DECODEUR QUI UTILISE $ENCODE $DECODE
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 du même auteur
Sources de la même categorie
Commentaires et avis
|
Derniers Blogs
MIX10 A LAS VEGAS : IMMERSIONMIX10 A LAS VEGAS : IMMERSION par odewit
Hi from Vegas !
En resume [je corrigerai les accents a mon retour !], Las Vegas m'impressionne par sa demesure.
Ou que l'on aille, les itineraires traversent des salles bruyantes pleines de machines a sous et de tables de jeu.
Les decors, surtout a...
Cliquez pour lire la suite de l'article par odewit [RIA SERVICES] MAITRE - DéTAIL ET DOMAINDATASOURCE[RIA SERVICES] MAITRE - DéTAIL ET DOMAINDATASOURCE par Audrey
A l'occasion d'un projet client, j'ai utilisé RIA Services avec Silverlight 3 (mais cela fonctionne aussi avec la version 4), et je l'ai utilisé pour une interface façon Maitre / Détail. Voici comment j'ai procédé pour arriver à mes fins. Nous allons pren...
Cliquez pour lire la suite de l'article par Audrey CSDL FUNCTIONCSDL FUNCTION par Matthieu MEZIL
Dans mon post précédent , j'ai utilisé une CSDL Function afin de générer une requête SQL avec un DateDiff utilisant la date courante sur la BD à partir d'une requête LINQ. Dans le cadre de ce post , vous avez probablement remarqué que dans le cadre de plu...
Cliquez pour lire la suite de l'article par Matthieu MEZIL LINQ TO ENTITIESLINQ TO ENTITIES par Matthieu MEZIL
Cette semaine je suis à Montréal en tant que speaker sur Entity Framework pour l'évènement confoo . J'en profite pour remercier les organisateurs de cet évènement de m'avoir fait confiance et Access-IT de m'avoir permis d'y participer. En parallèle, j'ai ...
Cliquez pour lire la suite de l'article par Matthieu MEZIL FAIRE APPARAITRE L'ONGLET 'DéVELOPPEUR' DANS OFFICE 2010FAIRE APPARAITRE L'ONGLET 'DéVELOPPEUR' DANS OFFICE 2010 par neodante
La nouvelle interface d'Office 2010 à amener quelques modifications par rapport à celle de 2007. Certes mineures, ces modifications ont fait disparaître la case à cocher de l'onglet 'Développeur' en première page du panneau du 'bouton Office' (dans Office...
Cliquez pour lire la suite de l'article par neodante
Logiciels
Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise... Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate Xilisoft DVD Ripper Ultimate (5.0.64.0304)XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ... Cliquez pour télécharger Xilisoft DVD Ripper Ultimate Rigs of Rods (63.3)RIGS OF RODS (63.3)c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo... Cliquez pour télécharger Rigs of Rods Konvertor (4.00)KONVERTOR (4.00)Le logiciel est un gestionnaire multimedia affichant, jouant et convertissant plus de 2000 format... Cliquez pour télécharger Konvertor
Comparez les prix

HTC Magic
Entre 429€ et 429€
|