Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionLe chiffrement, aussi appelé cryptage, est en cryptographie
le procédé grâce auquel on souhaite rendre la compréhension d'un document
impossible à toute personne qui n'a pas la clé de (dé)chiffrement.
lors du premier démarrage de mon application, la variable interne sera vide, donc mon application demandera a l'utilisateur de lui donner une valeur (donc de définir un mot de passe)
Tu livres ton appli avec un mot de passe et sa "traduction" chiffrée dans un fichier.On peut donc se passer de la modification d'un mot de passe de base.
Tu donnes à l'utilisateur la possibilité, après avoir donné un bon mot de passe, de le modifier pour un autre (et donc d'inscrire un nouveau "résultat" chiffré dans ton fichier spécial).
Imports System Imports System.Windows.Forms Imports System.Security Imports System.Text Imports System.Security.Cryptography Public Class LoginForm Dim HashPassword As String = "267b93fd72a8284c4c1b761a6d306450d6b8763382ee5bdd92a75cd53efba659cec6ab0e18e0d545d04d2eae3379dece287166a1f74e2ac011f804849150fece" Dim HashedImput As String Public Function SHA512Crypt(ByVal Source) As String Dim Bytes() As Byte = ASCIIEncoding.ASCII.GetBytes(Source) Dim SHA512 As New Cryptography.SHA512Managed Dim Byt() As Byte = SHA512.ComputeHash(Bytes) Dim a As Integer = (Byt.Length * 5 + (Byt.Length / 9)) Dim a2 As Integer Dim Strbuild As StringBuilder = New StringBuilder(a) For a2 = 0 To Byt.Length - 1 Strbuild.Append(BitConverter.ToString(Byt, a2, 1)) Next Return Strbuild.ToString().TrimEnd(New Char() {" "c}).ToLower End Function Private Sub Deverouiller_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Deverouiller.Click HashedImput = SHA512Crypt(StrReverse(PasswordField.Text)) If HashedImput = HashPassword Then Else End If End Sub End Class