Encoder/décoder un texte avec un richtextbox

Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.