stocker une donnée cryptée dans un xml ?

Version imprimable

07/10/2011, 12h49
altahir007

stocker une donnée cryptée dans un xml ?

Bonjour,

je suis surpris, j'utilise une fonction pour crypter un string via un xor combiné à un autre xor, ainsi ma meme fonction crypte et decrypte une chaine. Simple et efficace, je suis content tout fonctionne bien.

Je rédige un fichier config.xml integrant mes données de configuration. avant l'utilisation de ma fonction de kryptage aucun soucis pour recupérer les string mais avec une donnée de type string crypté dans mon fichier xml, lors de la deserialisation, il y a une exception car la deserialisation xml semble detecté un string crypté, comment passe outre ce soucis ?

Merci beaucoup

effectivement je viens de découvrir que certain caractères sont interdit cette ligne bloque à cause probablement du # ou du /

Code:

<hardwareserial>#%&!*,/</hardwareserial>

comment ecrire mon xml pour qu'a la lecture les caractères génant soit lisiblent, peut etre les remplacés par des %20 comme en html .. &trucmuch ?

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
 
<?xml version="1.0" encoding="utf-8"?>
<MaConfig xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<hardwareserial>#%&!*,/</hardwareserial>
<maxdate>#$9)*3,</maxdate>
<TypeCapteur1>relatif</TypeCapteur1>
<maxvalue1>600</maxvalue1>
<minvalue1>0</minvalue1>
<dateetalonnage1>""9(-3,</dateetalonnage1>
<TypeCapteur2>none</TypeCapteur2>
<maxvalue2>0</maxvalue2>
<minvalue2>0</minvalue2>
<dateetalonnage2>JL9@B3Fxz|</dateetalonnage2>
<TypeCapteur3>none</TypeCapteur3>
<maxvalue3>0</maxvalue3>
<minvalue3>0</minvalue3>
<dateetalonnage3>JL9@B3Fxz|</dateetalonnage3>
<TypeCapteur4>none</TypeCapteur4>
<maxvalue4>0</maxvalue4>
<minvalue4>0</minvalue4>
<dateetalonnage4>JL9@B3Fxz|</dateetalonnage4>
<TypeCapteur5>none</TypeCapteur5>
<maxvalue5>0</maxvalue5>
<minvalue5>0</minvalue5>
<dateetalonnage5>JL9@B3Fxz|</dateetalonnage5>
<TypeCapteur6>none</TypeCapteur6>
<maxvalue6>0</maxvalue6>
<minvalue6>0</minvalue6>
<dateetalonnage6>JL9@B3Fxz|</dateetalonnage6>
</MaConfig>

07/10/2011, 15h11
tomlev

Comment écris-tu le fichier XML ? Si tu passes par un XmlWriter (ou par la sérialisation XML), normalement ça encode automatiquement les caractères spéciaux...

le soucis etait là effectivement je ne passe pas par une procedure de serialization pour écrire mais j'ai rédigé mon xml seul !

Pour palier à mon soucis j'ai utilisé deux fonctions de convertion de stringtohex et hextostring ^^ que je donne ici (piqué ailleur pour info). je ne veux pas générer ce xml automatiquement mais manuelement pour diverses raisons (ce fichier de configuration intégre des données cryptées pour licencier le logiciel mais également limité son utilisation ....)

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
 
 
Private Function StrToHex(ByVal sText As String) As String
        Dim lCount As Long
        Dim sHex As String
        Dim sResult As String
 
        For lCount = 1 To Len(sText)
            sHex = Hex(Asc(Mid(sText, lCount, 1)))
            If Len(sHex) = 1 Then
                sHex = "0" & sHex
            End If
            sResult = sResult & sHex
        Next
 
        StrToHex = sResult
    End Function
 
 
    Private Function HexToStr(ByVal sText As String) As String
        Dim lCount As Long
        Dim sChar As String
        Dim sResult As String
        Dim lLength As Long
 
        lLength = Len(sText)
        If lLength Mod 2 <> 0 Then
            Err.Raise(vbObjectError + 1010, _
                        "HexToStr", _
                        "Invalid Hex String")
        End If
 
        For lCount = 1 To lLength
            sChar = Mid(sText, lCount, 1)
            If sChar < "0" Or sChar > "9" Then
                If sChar < "A" Or sChar > "F" Then
                    Err.Raise(vbObjectError + 1020, _
                                "HexToStr", _
                                "Invalid Hex String")
                End If
            End If
        Next
 
        For lCount = 1 To lLength Step 2
            sResult = sResult & Chr("&H" & Mid(sText, lCount, 2))
        Next
 
        HexToStr = sResult
    End Function

07/10/2011, 16h52
tomlev

Citation:

Envoyé par altahir007

je ne veux pas générer ce xml automatiquement mais manuelement pour diverses raisons (ce fichier de configuration intégre des données cryptées pour licencier le logiciel mais également limité son utilisation ....)

Je vois pas le rapport :koi:
En quoi le fait que le fichier contienne des infos cryptées empêche d'utiliser XmlWriter ou la sérialisation XML ?
07/10/2011, 22h25
altahir007

aucun mais je veux générer ce fichier manuelement pour des raisons purement de protection. Pas de soft pour le générer, personne pour le copier (enfin dans la limite du cryptage ^^)
07/10/2011, 23h12
tomlev

Citation:

Envoyé par altahir007

aucun mais je veux générer ce fichier manuelement pour des raisons purement de protection. Pas de soft pour le générer, personne pour le copier (enfin dans la limite du cryptage ^^)

Non, décidément je vois toujours pas...
Les données que tu veux stocker dans le fichier XML, tu les gères comme tu veux. Mais pour écrire le fichier XML, il n'y a strictement aucun avantage à le faire manuellement plutôt que via les les API prévues à cet effet. Au mieux, tu vas te prendre la tête ; au pire, tu vas générer du XML invalide...