Crypter Fonction Serialisation

Version imprimable

Bonjour,

J'ai une fonction Serialisation et Deserialisation d'un flux XML mais je voudrais les crypter pour quel sécurisé et qu'on puisse pas les lires et comprendre .
J'ai cherché sur le forum mais je n'ai pas trouvé de réponses approprié a mon code . Je voudrais pas quelque chose de compliqué ,juste un fonction qui existe déjà .

Voila les fonctions :

Serialisation :

Code:

1
2
3
4
5
6
7
8
9
10
 
Private Sub Serialisation()
 'On crée le fichier et récupère son flux
        Dim FluxDeFichier As FileStream = File.Create("Bibliotheque.bin")
        Dim Serialiseur As New XmlSerializer(GetType(List(Of Info)))
        'Serialisation et écriture
        Serialiseur.Serialize(FluxDeFichier, Liste)
        'FerMeture du fichier
        FluxDeFichier.Close()
    End Sub

Deserialisation :

Code:

1
2
3
4
5
6
7
8
9
10
11
   Private Sub Deserialisation()
             If File.Exists("Bibliotheque.bin") Then
            'On ouvre le fichier et recupere son flux
            Dim FluxDeFichier As Stream = File.OpenRead("Bibliotheque.bin")
            Dim Deserialiseur As New XmlSerializer(GetType(List(Of Info)))
            'Désérialisation et convertion de ce qu'on récupère dans le type
            Liste = Deserialiseur.Deserialize(FluxDeFichier)
            'FerMeture du flux
            FluxDeFichier.Close()
        End If
    End Sub

Merci de m'aider et de m'expliquer comment faire .

08/04/2011, 08h40
Jerede

Bonjour,
Il y'a tellement de façon différentes de crypter des données que c'est dur de te proposer quelque chose sans connaitre plus de détails ; précise le contexte. Niveau de sécurité, entre qui se fait l'échange de donnée, taille des données, ect.
08/04/2011, 09h27
max1395

Je voudrais une fonction qui crypte les données , par exemple sur une échelle de 10 , à 5 . Ensuite les fichiers font juste quelques centaines de Ko .

Voilà une classe que j'ai fait.

En espérant que ça t'aide :

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
 
Imports System
Imports System.IO
Imports System.Xml.Serialization
Imports System.Collections.Generic
Imports System.Security.Cryptography
Imports System.Text
 
Public Class XmlManager
    Private Const myKey As String = "Password"
 
    Public Shared Sub ObjectToXml(Of T)(ByVal objGen As T, ByVal FileName As String)
        Dim fStream As FileStream = File.Open(FileName, FileMode.OpenOrCreate)
 
        Dim DES As New DESCryptoServiceProvider()
        DES.Key = ASCIIEncoding.ASCII.GetBytes(myKey)
        DES.IV = ASCIIEncoding.ASCII.GetBytes(myKey)
 
        Dim cStream As New CryptoStream(fStream, _
                                       DES.CreateEncryptor(), _
                                       CryptoStreamMode.Write)
 
        Dim objStreamWriter As New StreamWriter(cStream)
        Dim x As New XmlSerializer(objGen.GetType)
        x.Serialize(objStreamWriter, objGen)
 
        objStreamWriter.Close()
        cStream.Close()
        fStream.Close()
    End Sub
 
    Public Shared Function XmlToObject(Of T)(ByVal FileName As String, ByVal oType As Type) As T
        Dim fStream As FileStream = File.OpenRead(FileName)
 
        Dim DES As New DESCryptoServiceProvider()
        DES.Key = ASCIIEncoding.ASCII.GetBytes(myKey)
        DES.IV = ASCIIEncoding.ASCII.GetBytes(myKey)
 
        Dim cStream As New CryptoStream(fStream, _
                                       DES.CreateDecryptor(), _
                                       CryptoStreamMode.Read)
 
        Dim objGen As T
        objGen = Activator.CreateInstance(oType)
        Dim x As New XmlSerializer(oType)
        objGen = x.Deserialize(cStream)
        cStream.Close()
        fStream.Close()
        Return objGen
    End Function
End Class

Et je l'appelle comme ça :

Code:

1
2
3
 
Dim objConfig As New oConfig
objConfig = XmlManager.XmlToObject(Of oConfig)("data\config.xml", GetType(oConfig))

08/04/2011, 23h44
max1395

Merci de votre réponse . Cependant j'ai une erreur :

Citation:

Type 'oConfig' non défini.

Ppour ce qui est de l’appeller , je l'ai mis juste avant :
- FluxDeFichier.Close()

Merci de votre aide .
09/04/2011, 12h09
Jerede

Normal dans ton cas, c'est

Citation:

List(Of Info)
17/04/2011, 12h18
max1395

Merci de vos réponses cependant j'ai une erreur quand je test , a cette ligne :

Code:

Dim fStream As FileStream = File.Open(FileName, FileMode.OpenOrCreate)

Il me marque que le fichier que je veux crypter est déjà utilisé par un autre proccessus . Enfaite le fichier est constament ouvert ou modifier par le logiciel donc comment je peux réglé le problème ?

Je remet le code en entier pour bien tout comprendre :

Erreur :

Citation:

Le processus ne peut pas accéder au fichier 'bin\Debug\Bibliotheque.xml', car il est en cours d'utilisation par un autre processus.

Pour ce code :

Code:

1
2
 
Dim fStream As FileStream = File.OpenRead(FileName)

Voila les fonctions :

Sérialisation :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Serialisation()
 'On crée le fichier et récupère son flux
        Dim FluxDeFichier As FileStream = File.Create("Bibliotheque.xml")
        Dim Serialiseur As New XmlSerializer(GetType(List(Of Info)))
        'Serialisation et écriture
        Serialiseur.Serialize(FluxDeFichier, Liste)
        'FerMeture du fichier
        Dim objConfig As New ccinfo
        objConfig = XmlManager.XmlToObject(Of info)("Bibliotheque.xml", GetType(info))
        FluxDeFichier.Close()
    End Sub

Deserialisation :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Deserialisation()
             If File.Exists("Bibliotheque.bin") Then
            'On ouvre le fichier et recupere son flux
            Dim FluxDeFichier As Stream = File.OpenRead("Bibliotheque.xml")
            Dim Deserialiseur As New XmlSerializer(GetType(List(Of Info)))
            'Désérialisation et convertion de ce qu'on récupère dans le type
            Liste = Deserialiseur.Deserialize(FluxDeFichier)
            'FerMeture du flux
            FluxDeFichier.Close()
        End If
    End Sub

Crypter.vb :

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
 
Imports System
Imports System.IO
Imports System.Xml.Serialization
Imports System.Collections.Generic
Imports System.Security.Cryptography
Imports System.Text
 
Public Class XmlManager
    Private Const myKey As String = "Password"
 
    Public Shared Sub ObjectToXml(Of T)(ByVal objGen As T, ByVal FileName As String)
        Dim fStream As FileStream = File.Open(FileName, FileMode.OpenOrCreate)
 
        Dim DES As New DESCryptoServiceProvider()
        DES.Key = ASCIIEncoding.ASCII.GetBytes(myKey)
        DES.IV = ASCIIEncoding.ASCII.GetBytes(myKey)
 
        Dim cStream As New CryptoStream(fStream, _
                                       DES.CreateEncryptor(), _
                                       CryptoStreamMode.Write)
 
        Dim objStreamWriter As New StreamWriter(cStream)
        Dim x As New XmlSerializer(objGen.GetType)
        x.Serialize(objStreamWriter, objGen)
 
        objStreamWriter.Close()
        cStream.Close()
        fStream.Close()
    End Sub
 
    Public Shared Function XmlToObject(Of T)(ByVal FileName As String, ByVal oType As Type) As T
        Dim fStream As FileStream = File.OpenRead(FileName)
 
        Dim DES As New DESCryptoServiceProvider()
        DES.Key = ASCIIEncoding.ASCII.GetBytes(myKey)
        DES.IV = ASCIIEncoding.ASCII.GetBytes(myKey)
 
        Dim cStream As New CryptoStream(fStream, _
                                       DES.CreateDecryptor(), _
                                       CryptoStreamMode.Read)
 
        Dim objGen As T
        objGen = Activator.CreateInstance(oType)
        Dim x As New XmlSerializer(oType)
        objGen = x.Deserialize(cStream)
        cStream.Close()
        fStream.Close()
        Return objGen
    End Function
End Class

Voila Merci de votre aide si précieuse :p