CRYPTAGE SIMPLE DE TEXTE

'source du module simple mais facile a comprendre je les commenter a la va-vite

'module de cryptage et de decryptage pour .:: Petit Cryptage de texte simple de niveau 1 ::.
'par BigBadBoy pour vbfrance.com
'Laisser moi un message via Vbfrance pour tout renseignement
'Bonne prog a tous

Function Crypt(texte As String, clef As Integer)
Dim a As Integer 'déclaration de a
Dim b As Integer 'déclaration de b
a = Len(texte) 'a = la longueur de texte
For i = 1 To a 'commence une boucle
b = Asc(Mid(texte, i, 1)) 'b vaut la valeur ascii du caractére qui ce trouve a la position i et de longueur 1
b = b + clef 'on ajoute la valeur de la clef a la valeur ascii de b ce qui fais un decalage de la lettre
Form1.Text2.Text = Form1.Text2.Text & Chr(b) 'le text2 = text2 + la caractére de la valeur de b
Next i
End Function

Function decrypt(texte As String, clef As Integer)
Dim a As Integer 'déclaration de a
Dim b As Integer 'déclaration de b
a = Len(texte)  'a = la longueur de texte
For i = 1 To a 'commence une boucle
b = Asc(Mid(texte, i, 1)) 'b vaut la valeur ascii du caractére qui ce trouve a la position i et de longueur 1
b = b - clef 'on retire la valeur de la clef a la valeur ascii de b
Form1.Text2.Text = Form1.Text2.Text & Chr(b) 'le text2 = text2 + la caractére de la valeur de b
Next i
End Function