Encoder/décoder un texte avec un richtextbox

Soyez le premier à donner votre avis sur cette source.

Vue 12 787 fois - Téléchargée 487 fois

Description

Voici un petit code pour encrypter le text pour vos projets d'editeur

et cela afin de le protégé contre un intrus éventuel.

Et autre projets dont vous vous voudriez protéger.

Tout ne vien pas de moi mais j'ai adapter au problême que javais

Source / Exemple :


'///A placer Dans un modules ou Form\\\

Imports System.Security.Cryptography 
Imports System.Text 

'///******* Encrypter le texte *******\\\
Public Function GetEncryptedData(ByVal Data As String) As String
   Dim shaM As New SHA1Managed
   Convert.ToBase64String(shaM.ComputeHash(Encoding.ASCII.GetBytes(Data)))
   Dim eNC_data() As Byte = ASCIIEncoding.ASCII.GetBytes(Data)
   Dim eNC_str As String = Convert.ToBase64String(eNC_data)
   GetEncryptedData = eNC_str
End Function

'///******* Decrypter le texte *******\\\
Public Function GetDecryptedData(ByVal Data As String) As String
   Dim dEC_data() As Byte = Convert.FromBase64String(Data)
   Dim dEC_Str As String = ASCIIEncoding.ASCII.GetString(dEC_data)
   GetDecryptedData = dEC_Str
End Function

'///*********************************\\\

'///**********le tout tien compte de l'utilisation du controle RichTextBox,*********\\\
'///d'un form contenant un menu principal et d'un Module********************\\\

'///********Utilise de cette facon*********\\\

Private Sub mnuFilesOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFilesOpen.Click

        '///Texte A DecryptER\\\
        rtfNotes.LoadFile(sfile, RichTextBoxStreamType.RichText)

        '///Decrypte Texte\\\
        rtfNotes.Rtf = GetDecryptedData(rtfNotes.Text)
        rtfNotes.SelectionStart = Len(rtfNotes.Text)
End Sub

Private Sub mnuFilesSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFilesSave.Click
    '///Encrypter Texte\\\
     rtfNotes.Text = GetEncryptedData(rtfNotes.Rtf)
    
    '///Texte a Encrypter\\\
    rtfNotes.SaveFile(sfile, RichTextBoxStreamType.RichText)
    
    '///Decrypter Texte\\\
    rtfNotes.Rtf = GetDecryptedData(rtfNotes.Text)    
    rtfNotes.SelectionStart = Len(rtfNotes.Text)
End Sub

Conclusion :


Si vous trouvez le moyen de l'ameliorer, écrivez-moi
je serais content.

Attention je demande juste un peu de sérieux SVP

sylver_sword@msn.com

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

sergentrazor
Messages postés
17
Date d'inscription
vendredi 6 février 2009
Statut
Membre
Dernière intervention
4 juillet 2010
-
Oups!
Après vérification ce n'est pas du SHA!
retire la ligne Convert.ToBase64String(shaM.ComputeHash(Encoding.ASCII.GetBytes(Data))

et tu verras que ça ne change rien...
sergentrazor
Messages postés
17
Date d'inscription
vendredi 6 février 2009
Statut
Membre
Dernière intervention
4 juillet 2010
-
pour poupouille55:

Public Function GetEncryptedData(ByVal Data As String) As String

Dim shaM As New SHA512Managed
Convert.ToBase64String(shaM.ComputeHash(Encoding.UTF32.GetBytes(Data)))
Dim eNC_data() As Byte = UTF32Encoding.UTF32.GetBytes(Data)
Dim eNC_str As String = Convert.ToBase64String(eNC_data)
GetEncryptedData = eNC_str
End Function

Public Function GetDecryptedData(ByVal Data As String) As String
Dim dEC_data() As Byte = Convert.FromBase64String(Data)
Dim dEC_Str As String = UTF32Encoding.UTF32.GetString(dEC_data)
GetDecryptedData = dEC_Str
End Function

....tes points d'interrogation disparaitront! (au passage, SHA512 est plus sur)

très pratique comme source!!! ça crypte sans être une usine à gaz!
poupouille55
Messages postés
39
Date d'inscription
mercredi 21 décembre 2005
Statut
Membre
Dernière intervention
23 avril 2008
-
Bonjour !
je ne comprend toujours pas ! comment parviens-tu à déchiffrer ton texte, alors qu'une fonction de hachage n'est pas réversible !
Merci pour l'explication
poupouille55
Messages postés
39
Date d'inscription
mercredi 21 décembre 2005
Statut
Membre
Dernière intervention
23 avril 2008
-
J'ai testé le code, juste la partie de cryptage et décryptage.
J'ai codé un chaine que j'ai enregistrer dans une base de données
quand je veux récupérer la chaine et l'afficher de façon clair à l'écran, des points d'interrogations s'affichent. alors que si je ne décrypte pas la chaine et que je laffiche simplement elle apparait de manière décryptée. Pourtant, elle est bien crypter dans la base de données.
Pourrais-tu m'expliquer ton code de cryptage et décryptage. et me dire pourquoi j'ai ce problème ??
Merci
OneHacker
Messages postés
1466
Date d'inscription
jeudi 2 novembre 2000
Statut
Membre
Dernière intervention
23 septembre 2007
1 -
Bravo ! Félicitations ! 10/10 !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.