ENCRYPTEUR ASCII

Private Sub Label1_Click()
 On Error Resume Next
 Text2 = ""
 Text2 = Chr(Text3)
 For i = 1 To Len(Text1.Text)
 NEW_CHAINE = Asc(Mid(Text1.Text, i, 1))
 Text2.Text = Text2 & Chr(NEW_CHAINE + (Val(Text3.Text)))
 Next i
 Text1.Text = ""
End Sub

Private Sub Label3_Click()
Unload Me
End Sub

Private Sub Label2_Click()
    On Error Resume Next
    For i = 2 To Len(Text2.Text)
    NEW_CHAINE = Asc(Mid(Text2.Text, i, 1))
    Text1.Text = Text1 & Chr(NEW_CHAINE - Val(Asc((Mid(Text2.Text, 1, 1)))))
Next i
Text2.Text = ""
End Sub