Problème avec mon algorithme

[gansta93]

bonjour,

Je me suis amusé à créer mon petit algorithme de cryptage, mais j'ai à chaque fois que je décrypte, le ô qui devien È et je ne comprand pas pourquoi.
Si quelqu'un pouvait m'aider svp.

Code : Tout sélectionner

Procedure.s Cripte(Texte.s)
  
  tmp$ = ""
  tmp1$ = ""
  For I = 1 To Len(Texte)
    tmp$ = Mid(Texte, I, 1)
    var = Asc(tmp$) + 22
    If var > 255
      var - 300
    EndIf
    tmp1$ = tmp1$ + Chr(var)
  Next
  ProcedureReturn tmp1$
  
EndProcedure

Procedure.s Decripte(Texte.s)
  
  For i = 1 To Len(Texte)
    tmp$ = Mid(Texte, i, 1)
    var = Asc(tmp$) + 300 - 22
    If var > 255
      var = var - 300
    EndIf
    tmp1$ = tmp1$ + Chr(var)
  Next
  ProcedureReturn tmp1$
  
EndProcedure

Texte1$ = "Lol, c'est drôle !"
c$ = cripte(Texte1$)
c1$ = Decripte(c$)
MessageRequester("Essais", Texte1$ + " donne :" + " " + c$, 0)
MessageRequester("Essais", c$ + " décrypté donne : " + c1$, 0)
End

Merci d'avance.

[lionel_om]

pourquoi 300 ???
fais var = var %256

[gansta93]

J'ai mis 300 pour changer... mais pk ça pause problème de mettre 300 ou 256 ? Je suis très très mauvais en mathématiques.

[Le Soldat Inconnu]

Code : Tout sélectionner

Procedure.s Cripte(Texte.s) 
  
  tmp$ = "" 
  tmp1$ = "" 
  For I = 1 To Len(Texte) 
    tmp$ = Mid(Texte, I, 1) 
    var = Asc(tmp$) + 22 
    If var > 255 
      var - 255
    EndIf 
    tmp1$ = tmp1$ + Chr(var) 
  Next 
  ProcedureReturn tmp1$ 
  
EndProcedure 

Procedure.s Decripte(Texte.s) 
  
  For I = 1 To Len(Texte) 
    tmp$ = Mid(Texte, I, 1)
    var = Asc(tmp$) - 22
    If var < 0
      var = var + 255
    EndIf 
    tmp1$ = tmp1$ + Chr(var) 
  Next 
  ProcedureReturn tmp1$ 
  
EndProcedure 

Texte1$ = "Lol, c'est drôle !" 
c$ = Cripte(Texte1$) 
c1$ = Decripte(c$) 
MessageRequester("Essais", Texte1$ + " donne :" + " " + c$, 0) 
MessageRequester("Essais", c$ + " décrypté donne : " + c1$, 0) 
End

tu peux pas faire un chr avec une valeur négative, il faut que ta valeur reste entre 0 et 255

[gansta93]

OK merci... ça m'énerve... j'arrive pas à imaginer un algo... trop nul en maths...

[Backup]

trop nul en maths...

ben oui peut etre

mais y a rien de Mathématique la dedans !!
les lettres et le chiffres (graphique) d'un ordinateur sont codé de 0 a 255 !!
cela s'appelle le code ASCII !
c'est une norme , c'est tout !
donc si tu bosse avec les "chr" et "asc" etc , faut rester dans la fourchette
de 0 a 255 (je dirai meme de 32 a 126) car en dessous de 32
se sont les caractere de controls , et au dessus c'est de l'ascii etendu
dont les signes representant le code peut varier d'un ordi a l'autre