Discussion :

[wasper]

slt a tous, je cale encore mais là je pense que y'a des solutions plus précise que la mienne.
mon problème :
j'ai un service web qui doit contenir une webmethod qui a pour but de récupère une valeur (string d'une txtbox ) la crypté en SHA1 pour ensuite la comparer a la valeur ( en SHA1 aussi) comprise dans un fichier txt joint.
donc en concret, je voudrais trouver un bon code pour le cryptage et le renvoie en true or false.
merci de votre aide

[wasper]

arf, mm au pire, si quelqu'un a des infos sur le cryptage SHA1 ( un exemple en VB.NET) ça serais super.
merci

[Bluedeep]

SHA1 n'est pas un algo de cryptage mais un algo de hash.

Son utilisation est simplissime : (exemple en C#, suffit de traduire en VerBeux )

Code :

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

1
2
3
4
5
 
string textValue = "Valeur à hasher (menu)";
byte[] hashedValue;
HashAlgorithm hasher =  new SHA1Managed();
hashedValue = hasher.ComputeHash(textValue);

Donc après tu compare ta valeur hashée à celle qui est stockée et c'est tout.

[wasper]

ça ne m'a pas aider du tout mais j'ai trouver la solution comme un grand
je la met pour ceux qui on besoin :


fonction pour recevoir un string et le hasher en SHA1 et retourner la valeur.

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
 
    Function SHA1(ByVal strToHash As String) As String
 
        Dim sha1Obj As New System.Security.Cryptography.SHA1CryptoServiceProvider
        Dim bytesToHash() As Byte = System.Text.Encoding.ASCII.GetBytes(strToHash)
        bytesToHash = sha1Obj.ComputeHash(bytesToHash)
        Dim strResult As String = ""
 
        For Each b As Byte In bytesToHash
            strResult += b.ToString("x2")
        Next
 
        Return strResult
 
    End Function

fonction qui recoit en paramètre le dis mdp et le compare avec le string compris dans le fichier txt

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 Verification(ByVal mdp As String) As String
 
        If System.IO.File.Exists(path) = False Then
            Return False
        End If
 
        Try
            Dim monStreamReader As New StreamReader(path) 'Stream pour la lecture
            Dim ligne As String ' Variable contenant le texte de la ligne
 
            ligne = monStreamReader.ReadLine
 
            If mdp = ligne Then
                Return True
            Else
                Return False
            End If
 
        Catch ex As Exception
            MsgBox("Une erreur est survenue au cours de l'accès en lecture du fichier de configuration du logiciel." & vbCrLf & vbCrLf & "Veuillez vérifier l'emplacement : " & path, MsgBoxStyle.Critical, "Errueur lors e l'ouverture du fichier conf...")
        End Try
    End Function

voila, merci quand même