Discussion :

[toutounesan]

Je voudrais stocker un tableau d'octets dans un fichier. Ce tableau est le cryptage d'un mot de passe.

Comment écrire et lire ce tableau.


Merci d'avance.

[Nathanael Marchand]

Merci de bien vouloir lire la doc avant de poser une question:
http://msdn.microsoft.com/fr-fr/library/36b93480.aspx

[tomlev]

Si le fichier ne contient que ce tableau, le plus simple c'est d'utiliser File.ReadAllBytes et File.WriteAllBytes

[toutounesan]

J'ai essayé ce code mais le programme ne peut pas écrire mon tableau de bytes

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 Dim FileStream As FileStream
 
        FileStream = New FileStream("myfile.txt", FileMode.CreateNew)
 
 
 
        Dim i As Integer
        'FileStream.Write(PassSHA, 0, PassSHA.Length)
 
        For i = 0 To PassSHA.Count
            FileStream.WriteByte(PassSHA(i))
        Next

j'ai réussi, il me reste plus qu'à lire

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
 
 
 
Imports System.Security.Cryptography
Imports System.Text
Imports System.IO
 
#Region "Application de cryptage"
 
Public Class Form1
    Private PassSHA() As Byte
    Private Const FILE_NAME As String = "Test.data"
 
 
#Region "Cryptage en SHA256"
    Sub Cryptage()
 
 
        Dim encoder As New System.Text.UnicodeEncoding
        ' On obtient un tableau à partir du mot de passe entré:
        Dim password() As Byte = encoder.GetBytes(Me.TextBox1.Text)
        ' Pour crypter le mot de passe:
        Dim sha As New Security.Cryptography.SHA256Managed
        ' On obtient le mot de passe crypté:
        PassSHA = sha.ComputeHash(password)
    End Sub
#End Region
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Cryptage()
 
        Dim i As Integer 'Indice pour la boucle for
        'Ecriture dans un fichier texte du mot de passe crypté
        'Private Const FILE_NAME As String = "Test.data"
        Dim FileStream As FileStream
        Dim FILE_NAME As String
        FILE_NAME = "myfile.dat"
        'Si fichier existe
        If File.Exists(FILE_NAME) Then
            MsgBox("Le fichier existe déjà!")
            Return
        Else
            'Création du fichier
            FileStream = New FileStream(FILE_NAME, FileMode.CreateNew)
            'Ecriture du tableau octet par octet
            For i = 0 To PassSHA.Count - 1
                FileStream.WriteByte(PassSHA(i))
            Next
            FileStream.Close()  'Fermeture du fichier
        End If
 
 
        'Lecture des données et récupération dans un un tableau de bytes
        Dim bFile() As Byte = System.IO.File.ReadAllBytes(FILE_NAME)
 
        'Flag pour savoir si le mot de passe est bon
        Dim flag As Boolean
        For k = 0 To PassSHA.Count - 1
            'test de vérification bit par bit
            If (PassSHA(k) = bFile(k)) Then
                flag = True     'set à true
            Else
                flag = False    'set du flag à faux
                Exit For        'sort du for
            End If
        Next
 
 
 
 
 
    End Sub
End Class
#End Region

C'est bon ça marche