IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB.NET Discussion :

Cryptage/Decryptage sur F3.5 et CF3.5


Sujet :

VB.NET

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Profil pro
    Inscrit en
    Mai 2002
    Messages
    251
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2002
    Messages : 251
    Par défaut Cryptage/Decryptage sur F3.5 et CF3.5
    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

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

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

  2. #2
    Membre éclairé
    Profil pro
    Inscrit en
    Mars 2010
    Messages
    349
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2010
    Messages : 349
    Par défaut
    Salut,

    As-tu essayais le cryptage des ?

  3. #3
    Membre éclairé
    Profil pro
    Inscrit en
    Mai 2002
    Messages
    251
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2002
    Messages : 251
    Par défaut
    Citation Envoyé par champomy62 Voir le message
    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 ?

  4. #4
    Membre éclairé
    Profil pro
    Inscrit en
    Mai 2002
    Messages
    251
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2002
    Messages : 251
    Par défaut
    Visiblement j'ai trouvé sur Microsoft : http://msdn.microsoft.com/en-us/libr...(v=vs.90).aspx

    Je test pour voir

    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 ?

  5. #5
    Membre éclairé
    Profil pro
    Inscrit en
    Mars 2010
    Messages
    349
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2010
    Messages : 349

  6. #6
    Membre éclairé
    Profil pro
    Inscrit en
    Mai 2002
    Messages
    251
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2002
    Messages : 251
    Par défaut
    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 ?

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Problème Cryptage / Decryptage
    Par Invité dans le forum C#
    Réponses: 6
    Dernier message: 19/05/2008, 16h51
  2. cryptage/decryptage, comment faire?
    Par bossun dans le forum Général Dotnet
    Réponses: 6
    Dernier message: 24/04/2008, 17h07
  3. Cryptage/Decryptage de String
    Par aswat dans le forum Sécurité
    Réponses: 12
    Dernier message: 27/08/2007, 16h05
  4. Cryptage Decryptage asymetrique
    Par bslota dans le forum Sécurité
    Réponses: 5
    Dernier message: 02/05/2007, 16h15
  5. [VB]Cryptage/decryptage
    Par Tyrael62 dans le forum VB 6 et antérieur
    Réponses: 14
    Dernier message: 25/01/2006, 18h57

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo