écrire et lire des octets dans un fichier

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.

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

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

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

Code:

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:

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