Pb !!! ERREUR EXECUTION N°5

Question

Bonjour a tous 
Je ne cherche pas vraiment a realiser un prog de cryptage mis Je voudrai juste comprendre d ou vien cet erreur 

Voila la source 

Module1 Largement ispire de     .:: Petit Cryptage de texte simple de niveau 1 ::.

###########################################
Function Cryptage(texte As String, clef As Integer)

Dim a As Integer
Dim b As Integer

a = Len(texte)

Form1.Label1.Width = 0

For i = 1 To a

    b = Asc(Mid(texte, i, 1))
    b = b + 3 + i  //DEcale les caractere de 3 + le numero du charactere 
        
    Form1.Text2.Text = Form1.Text2.Text & Chr(b)
    
    Next i

End Function

Function DECryptage(texte As String, clef As Integer)

Dim a As Integer
Dim b As Integer

a = Len(texte)

For i = 1 To a
    
    b = Asc(Mid(texte, i, 1))
    b = b - 3 - i 
        
    Form1.Text2.Text = Form1.Text2.Text & Chr(b)
    
Next i

End Function

###########################################

RESULTAT SI TEXTE TROP LONG (Vers 100 caractere) 

ERREUR EXECUTION N°5

Exsce du a la table ascii.... ?

Je lirai tous vos commentaire avec attention car souvent tres utile

Merci

cs_Zoltan67 · Answer

je pense que si tu as certains caratères, en incrémentant son code ascii de 3 + 1, tu arrives au dela de la limite de la table ascii ( 255 je crois ). Il faut que tu testes la valeur de a et b afin de ne pas dépasser cette valeur, ni d'ailleurs aller en dessous de 0.

Pb !!! ERREUR EXECUTION N°5

1 réponse

Discussions similaires