Un Encrypteur en Ascii simple et basique . Très pratique pour échanger des données cryptées , et même de crypter ses pass .
Source / Exemple :
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
Conclusion :
Merci à Lion7 pour ses conseils .
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.