Cryptage/Decryptage sur F3.5 et CF3.5

Version imprimable

Bonjour,

j'ai des éléments dans un fichier xml que j'aimerai proteger correctement. Je ne cherche pas non plus une usine a gaz mais pas non plus un simple codage XOR sur le code ASCII, ou encore un équivalent char = autre char :mouarf:

Le soucis est que les class de codage que j'ai trouvé en exemple ne fonctionne pas sous compact framework 3.5 et j'ai besoin d'un codage qui fonctionne sur les deux framework de la même façon. J'ai trouvé un exemple sur internet mais j'ai vraiment du mal à le mettre en application (certainement un problème de compétence en programmation - je suis electronicien de formation).

Avez vous un tutorial a me proposer, un bout de fonction simple qui réponde à mon attente ? Pour le moment j'utilise ce petit bout de code d'un côté et de l'autre sur mes deux plateformes (je transforme ma chaine en suite de valeur hexa pour l'enregistrement dans mon XML
) mais voilà on connait la difficulté pour faire sauter ce type cryptage :roll:

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
 
Public Shared Function EncryptString(ByVal Data As String) As String
 
        Dim NewData As String = ""
        Dim XorNumber As Integer = 18
        For Each c As Char In Data
            NewData &= Chr(Asc(c) Xor XorNumber)
            XorNumber += 2
            If XorNumber >= 241 Then XorNumber = 54
        Next
 
        Return NewData
 
    End Function
 
    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

Merci pour votre aide :ccool:

On m'avait conseillé cet article mais je n'y arrive malheurement pas : http://www.christec.co.nz/blog/archives/81

18/10/2012, 08h15
champomy62

Salut,

As-tu essayais le cryptage des ?
18/10/2012, 08h41
altahir007

Citation:

Envoyé par champomy62

Salut,

As-tu essayais le cryptage des ?

Le cryptage des "?" ... ou manque-t-il un mot ?

Pour le char "?" je n'ai pas essayé et en même temps je n'utilise pas ce char dans mes valeurs à crypter. Mais j'ai des "/" et autre char, ça fonctionne très bien du moment ou il y a un code ascii devant chaque char je ne vois pas le soucis :roll: ?
18/10/2012, 09h46
altahir007

Visiblement j'ai trouvé sur Microsoft : http://msdn.microsoft.com/en-us/libr...(v=vs.90).aspx

Je test pour voir 8-)

Conclusion, ça fonctionne très bien mais j'ai cependant une question.

une fois le string crypté, je le sauvegarde mais le souci est que ma cléf elle n'est pas sauvegardé, ni le vecteur de rijndael .... comment décoder ça sans ces éléments ?
18/10/2012, 10h30
champomy62

cryptage des ou triple des

http://www.codeppc.com/dotnetcf2/crypto/index.htm
18/10/2012, 11h10
altahir007

Je regarde de ce coté alors :) ça semble pas mal du tout non plus seulement il utilise des FileStream pour le codage et enregistre les valeur dans un nouveau fichier, comment basculer un string dans un Stream mémoire sans forcement passer par un FileStream ?

j'ai fini par y arriver avec la methode Rijndael :ccool:

pour déclarer ma clé et mon vecteur initiale je fais ce code, mais par contre j'ai du au préalable trouver le nombre de byte de ces deux éléments
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Using myRijndael = Rijndael.Create() Dim wKEY() As Byte = {&H56, &HFE, &HA7, &H89, &H5, &H1A, &HCB, &H5F, &H56, &HFE, &HA7, &H89, &H5, &H1A, &HCB, &H5F, &H56, &HFE, &HA7, &H89, &H5, &H1A, &HCB, &H5F, &H56, &HFE, &HA7, &H89, &H5, &H1A, &HCB, &H5F} Dim wIV() As Byte = {&H56, &HFE, &HA7, &H89, &H5, &H1A, &HCB, &H5F, &H56, &HFE, &HA7, &H89, &H5, &H1A, &HCB, &H5F} myRijndael.Key = wKEY myRijndael.IV = wIV ... End Using
Maintenant, jaimerai faire la chose suivante : je crypt le textbox1 et j'envoie le résutlat dans un textbox2
Code:

1 2 3 Dim encrypted As Byte() = EncryptStringToBytes(TextBox1.Text, myRijndael.Key, myRijndael.IV) TextBox2.Text = System.Text.Encoding.UTF8.GetString(encrypted)
Si je veux décrypter le textbox2 vers un textbox3, j'ai essayé ça mais ça ne fonctionne pas

Code:

textbox3.Text = DecryptStringFromBytes(System.Text.Encoding.UTF8.GetBytes(TextBox2.Text), myRijndael.Key, myRijndael.IV)

Si je passe directement par le tableau de byte (en gros j'évite le la conversion en string dans le textbox2) ça fonctionne très bien. Seul soucis, je veux stocker la chaine crypter en non un tableau de byte.

Avez vous une idée ?

note : avec un System.Text.Encoding.Unicode ça fonctionne pour une chaine liée de char et sans caractéres spéciaux .... je suis pas loin mais je n'y connais rien à ces systems d'encodage de char :aie:

18/10/2012, 14h19
altahir007

j'ai la solution : Convert.ToBase64String et Convert.FromBase64String :ccool:

Bonne journée à tous ...