CODEUR DECODEUR QUI UTILISE $ENCODE $DECODE , Source N°21447

Information sur la source

Catégorie :Scripts Niveau : Débutant Date de création : 24/03/2004 Vu : 2 414

Auteur : talking

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (5)

Ajouter un commentaire et/ou une note

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

Toutes les sources de talking

Sources de la même categorie

Toutes les sources de la catégorie Scripts

Commentaires

Commentaire de Dark-Dragoon le 24/03/2004 19:24:48

hum hmu....
code pas tes developer, tu orai pu utiliser ton propre algorythme sa aurait eter plus simpa
Commentaire de SornDrixer le 25/03/2004 07:33:49 administrateur CS

Pas très utile, surtout que $encode n'est pas un 'algorythme' avec lequel on peut se fier ! Sinon, pour améliorer ta source, tu aurais dû mettre un auto $decode.
Comme ca, si quelqu'un prononce quelque chose sur IRC en l'ayant encodé avec $encode, tu l'auras décodé tout aussi tôt.
Commentaire de Kerrigan le 28/03/2004 14:28:59

je rejoins dark dragoon tu aurais du faire ton propre algo de cryptage en plus c'est vraiment pas dur... Un peu d'algebre niveau deug, ou le cours de spé math de terminale et le tour est joué ...

(Evitez les tables de convertion ça se casse très facilment )
Commentaire de talking le 28/03/2004 18:41:07

Un peu d'algebre niveau deug, ou le cours de spé math de terminale et le tour est joué . Kerrigan le probléme c'est que je suis encore loin de la terminale je n'ai que 13 ans et mes cours de math ne portent pas dur les algorythmes lol voila si tu pouvais un peu m'expliquer ça serais sympa
Commentaire de Kerrigan le 25/04/2004 13:15:46

T'expliquer ?!! oula faudrait entrer dans des considération beaucoup abstraites pour toi, si j'ai eu du mal a les comprendre je doute que tu puisses y arriver a l'age de 13 ans. Faut etre réaliste.

Mais avec de la bonne volonté je pourrais pas t'aider a voir plus clair. Si tu veux avoir une idée de cryptage qui utilise mon cours d'algèbre vas la : http://www.ircfr.com/code.aspx?ID=20824