none
textbox ne prond pas en charge la langue arabe RRS feed

  • Discussion générale

  • Bonjours,mon application est  Cryptage _ Décryptage TRIPLE DES hachage MD5
    voici une capture écran:

    cette application fonctionne très bien mais le prob c'est lors de décryptage  d'un texte  arabe l'application me donne des point d'interrogation est voici une capture écran

    Question : est ce qu'il y a une solution pour ce type de prob et que dois-je faire



    Krichi Bilel

    vendredi 10 mars 2017 13:00

Toutes les réponses

  • Merci pour votre réponse mais la page n'affiche rien

    page blanche


    Krichi Bilel

    vendredi 10 mars 2017 14:24
  • merci mais cela m'a pas aider si vous voulez voici le lien du mon code source
    aidez mois svp

    http://uptobox.com/t8tgbqbcjkmr]cryptage.rar


    Krichi Bilel



    vendredi 10 mars 2017 14:39
  • Bonjour,

    Pourquoi faire une solution avec un projet qui contient la form et un autre projet qui contient la class ?

    De plus, il faut utiliser 'Encoding.Unicode' !

    La solution modifiée : http://www.zguidetv.net/zguidetv/download/cryptage.zip

    Cordialement.


    IT Technician, IT Support, .NET Developer


    vendredi 10 mars 2017 16:49
  • merci mais cela m'a pas aider si vous voulez voici le lien du mon code source
    aidez mois svp


    Si tu ne fais rien de ce qui est indiqué (Unicode, ...), forcément...

    vendredi 10 mars 2017 17:04
  • Bonjour,

    je l'ai teste il fonctionne très bien.

    voici la correction de votre code :

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            If TextBox1.Text.Length > 0 AndAlso KeyTB.Text.Length > 0 Then
                TextBox2.Text = Crypto.encrypt(TextBox1.Text, KeyTB.Text)
                TextBox1.Clear()
            End If
        End Sub
    
    
        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            If TextBox2.Text.Length > 0 AndAlso KeyTB.Text.Length > 0 Then
                TextBox1.Text = Crypto.decrypt(TextBox2.Text, KeyTB.Text)
                TextBox2.Clear()
            End If
    
        End Sub
    
        Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
            ''TextBox2.Font = New Font("Wingdings", 18, FontStyle.Regular)
            Dim bytes() As Byte
            bytes = Encoding.Default.GetBytes(TextBox1.Text)
            TextBox1.Text = Encoding.Default.GetString(bytes)
        End Sub

    dans la class :

    Public Class Crypto
        Private Shared DES As New TripleDESCryptoServiceProvider
        Private Shared MD5 As New MD5CryptoServiceProvider
        Public Shared Function md5hash(ByVal value As String) As Byte()
            Return MD5.ComputeHash(ASCIIEncoding.ASCII.GetBytes(value))
        End Function
        Public Shared Function encrypt(ByVal StringToEncrypt As String, ByVal Key As String) As String
            DES.Key = Crypto.md5hash(Key)
            DES.Mode = CipherMode.ECB
            Dim buffer As Byte() = ASCIIEncoding.ASCII.GetBytes(StringToEncrypt)
            Return Convert.ToBase64String(DES.CreateEncryptor.TransformFinalBlock(buffer, 0, buffer.Length))
        End Function
        Public Shared Function decrypt(ByVal encryptedstring As String, ByVal key As String) As String
            Try
                DES.Key = Crypto.md5hash(key)
                DES.Mode = CipherMode.ECB
                Dim buffer As Byte() = Convert.FromBase64String(encryptedstring)
                Return ASCIIEncoding.ASCII.GetString(DES.CreateDecryptor().TransformFinalBlock(buffer, 0, buffer.Length))
            Catch ex As Exception
                MessageBox.Show("Clé Invalide", "Cryptage Inpossible", MessageBoxButtons.OK, MessageBoxIcon.Error)
    
            End Try
            Return encryptedstring 'Vous avez oublier de ajouter return
        End Function

    cordialement,

    vendredi 10 mars 2017 17:13
  • merci pour votre reponse
    ça fonctionne tres bien
    en ce qui concerne les deux projet c'est pour faire le fichier dll c tout*
    j'ai une question pour vous est ce que vous utilisé une version plus récente que vb 2010


    Krichi Bilel


    vendredi 10 mars 2017 19:25
  • merci pour votre reponse mais le prob persiste


    Krichi Bilel


    vendredi 10 mars 2017 19:26
  • Bonsoir,

    Non je utilise toujours vb2010.

    vendredi 10 mars 2017 19:42