Discussion :

[altahir007]

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

[altahir007]

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

Code :

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

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

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

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

[altahir007]

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 :

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

[tomlev]

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
En quoi le fait que le fichier contienne des infos cryptées empêche d'utiliser XmlWriter ou la sérialisation XML ?

[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 ^^)