Discussion :

[max1395]

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 :

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

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 :

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

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 .

[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.

[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 .

[Psycadi]

Voilà une classe que j'ai fait.

En espérant que ça t'aide :

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
 
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 :

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

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

[max1395]

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

Type 'oConfig' non défini.

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

Merci de votre aide .

[Jerede]

Normal dans ton cas, c'est

List(Of Info)