Discussion :

[abrial]

Bonjour,

Je souhaite crypter une chaine de caractère pour faire une activation de mon programme. Je récupère le numéro de série du disque dur, je l'affiche et en retour j'attends que l'utilisateur saisisse la clé d'activation (cryptage du numéro de série du DD).
J'utilise la méthode SHA512 pour crypter la chaine :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Public Shared Function GetSHA512(ByVal str As String, ByVal Nombre As Int32) As String
Dim strHex As String = ""
Dim temp As String = ""
Dim UE As UnicodeEncoding = New UnicodeEncoding
Dim HashValue As Byte()
Dim MessageBytes As Byte() = UE.GetBytes(str)
Dim SHhash As SHA512Managed = New SHA512Managed
GetSHA512 = ""
 
'create the hash table using the SHA512 algorithm
HashValue = SHhash.ComputeHash(MessageBytes)
convert the hash table to a string
If Nombre > HashValue.Length Then
    Nombre = HashValue.Length
End If
For i As Integer = 0 To Nombre - 1
    strHex += String.Format("{0:x2}", HashValue(i))
Next
GetSHA512 = strHex.PadRight(Nombre, CChar("@")).Substring(0, Nombre)
UE = Nothing
SHhash.Clear()
End Function

Le problème est que cette méthode semble renvoyer un code différent suivant la session windows auquelle on est loggé.

Quelqu'un connait-il une méthode simple de cryptage qui ne change pas suivant la session windows ? Ou alors y a-t-il une option pour le cryptage avec SHA512 pour qu'il ne change pas suivant la session windows ?

Merci.

[quentincabo]

Bonjour,
tu peux essayer le MD5 ou en faire une toi-même via ascii.

[quentincabo]

j'ai trouvé une simple fonction de cryptage qui marche et qui utilise le code ascii

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Function Crypt(ByRef texte As String) As String
        'crypte les donnees recuperee 
        Dim sortie As String
        Dim pos As Integer
        Dim offset As Integer
        Dim a_traiter As String
        Dim taille As Integer
        sortie = ""
        pos = 1
        taille = Len(texte)
        ' Boucle de cryptage de la chaine
        While pos <= taille
            ' Extrait la chaine à traiter
            a_traiter = Mid(texte, pos, 1)
            sortie = sortie & Chr(Asc(a_traiter) - offset)
            ' Prépare le passage suivant
            offset = offset + 1
            If offset = 3 Then offset = 1
            pos = pos + 1
        End While
        Return sortie
    End Function

[abrial]

En fait, je pense que j'avais mal ciblé le problème.
Dans mon cas, le problème ne venait pas du cryptage, mais du numéro de série du disque dur. En effet, la requête Win32_DiskDrive ne renvoie pas la même chose suivant que l'on est en administrateur ou en utilisateur avec pouvoir limité (bug Windows) :
http://support.microsoft.com/kb/916191/fr

Merci de votre aide.

[quentincabo]

De rien ,bonne continuation