[VB] Chiffrer / Déchiffrer - Sauvegarde / Ouverture

[Evaelis]

Bonjour dans ce tutoriel je vais vous montrer comment créer un chiffrer / déchiffrer de texte en passant par la table ascii

Et une sauvegarde du fichier en .cry

Nous allons commencer par la sauvegarde et lecture :

J'ai créer pareil mais c'est au format .cry que ça enregistre

Voici mon code :

Vous devez avoir obligatoirement des richtextbox

Lire :

Dim dlg As OpenFileDialog = New OpenFileDialog

            dlg.Title = "Open .cry Files"

            dlg.Filter = "cry files (*.cry)|*.cry"

            If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then

                RichTextBox1.LoadFile(dlg.FileName)

            End If

        Catch ex As Exception : End Try

Ecrire :

Try

            Dim dlg As SaveFileDialog = New SaveFileDialog

            dlg.Title = "Enregistrer le texte comme fichier chiffré"

            dlg.Filter = "Fichier chiffré (*.cry)|*.cry"

            If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then

                richTextBox1.SaveFile(dlg.FileName, RichTextBoxStreamType.RichText)

            End If

        Catch ex As Exception : End Try

Explication :

Try

            Dim dlg As SaveFileDialog = New SaveFileDialog

            dlg.Title = "Enregistrer le texte comme fichier chiffré" 'Nom de votre fenêtre

            dlg.Filter = "Fichier chiffrer (*.cry)|*.cry" 'remplacer.cry par votre extension

            If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then 'Si presse entre

                richTextBox1.SaveFile(dlg.FileName, RichTextBoxStreamType.RichText) 'Sauvegarder

            End If

        Catch ex As Exception : End Try

Sauvegarde et lecture forcé :

 RichTextBox1.SaveFile("Nom du fichier", RichTextBoxStreamType.RichText)

 RichTextBox1.LoadFile("Nom du fichier")

Ce tutoriel vient de Moona (Un de mes autres pseudo) de Cadernis



chiffrer / Déchiffrer :

TextCible.Text = "" 'Mets le textcible vide

        For i = 1 To Len(TextSource.Text) ' Créer une boucle

            Lettre = Mid(TextSource.Text, i, 1) 'Scan 1 lettre par 1

            Lettreasc = Asc(Lettre) 'Convertis en ascii

            Lettreasc = Lettreasc - 23 ' retire 23 sur la table ascii

            Final = Chr(Lettreasc) ' Reconvertir en lettre

            TextCible.Text = TextCible.Text + Final Textcible vaut maintenant le nouveau texte chiffrer

Pour déchiffrer il suffit de faire +23 sur la table ascii


Un de mes codes :

Public Class Form3



    Private Sub cripter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cripter.Click

        Dim Lettre As String

        Dim Lettreasc As String

        Dim Final As String

        ProgressBar1.Value = 0


        Sleep(100)

        ProgressBar1.Value = 10

        Sleep(50)

        ProgressBar1.Value = 20

        Sleep(50)

        ProgressBar1.Value = 30

        Sleep(50)

        ProgressBar1.Value = 40

        Sleep(50)

        ProgressBar1.Value = 50

        Sleep(50)

        ProgressBar1.Value = 60

        Sleep(50)

        ProgressBar1.Value = 70

        Sleep(50)

        ProgressBar1.Value = 80

        Sleep(50)

        ProgressBar1.Value = 90

        Sleep(50)

        ProgressBar1.Value = 100

        Sleep(50)


        TextCible.Text = ""

        For i = 1 To Len(TextSource.Text)

            Lettre = Mid(TextSource.Text, i, 1)

            Lettreasc = Asc(Lettre)

            Lettreasc = Lettreasc + 23

            Final = Chr(Lettreasc)

            TextCible.Text = TextCible.Text + Final


        Next

    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Try

            Dim dlg As OpenFileDialog = New OpenFileDialog

            dlg.Title = "Open .cry Files"

            dlg.Filter = "Key files (*.cry)|*.cry"

            If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then

                TextCible.LoadFile(dlg.FileName)


            End If


        Catch ex As Exception : End Try


    End Sub


    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim Lettre As String

        Dim Lettreasc As String

        Dim Final As String

        ProgressBar1.Value = 0


        Sleep(100)

        ProgressBar1.Value = 10

        Sleep(50)

        ProgressBar1.Value = 20

        Sleep(50)

        ProgressBar1.Value = 30

        Sleep(50)

        ProgressBar1.Value = 40

        Sleep(50)

        ProgressBar1.Value = 50

        Sleep(50)

        ProgressBar1.Value = 60

        Sleep(50)

        ProgressBar1.Value = 70

        Sleep(50)

        ProgressBar1.Value = 80

        Sleep(50)

        ProgressBar1.Value = 90

        Sleep(50)

        ProgressBar1.Value = 100

        Sleep(50)


        TextCible.Text = ""

        For i = 1 To Len(TextSource.Text)

            Lettre = Mid(TextSource.Text, i, 1)

            Lettreasc = Asc(Lettre)

            Lettreasc = Lettreasc - 23

            Final = Chr(Lettreasc)

            TextCible.Text = TextCible.Text + Final


        Next

    End Sub


    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click


        If TextCible.Text = "" Then

            MsgBox("Error : No text in textbox", MsgBoxStyle.Critical)

        Else

            Try

                Dim dlg As SaveFileDialog = New SaveFileDialog

                dlg.Title = "Enregistrer le texte chiffrer"

                dlg.Filter = "Fichier keylogger (*.cry)|*.cry"

                If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then

                    TextCible.SaveFile(dlg.FileName, RichTextBoxStreamType.RichText)

                End If

            Catch ex As Exception : End Try

        End If



    End Sub


    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


    End Sub

End Class

Voilà un exemple je n'explique pas en détails car le niveaux est débutant

 

[Ben]

Merci pour le tuto ;)

 

[casimir]

au passage tes progressebar ne servent a rien tel quel

le remplissage doit etre en fonction de l avancement de ton cryp/decrypt
pas juste pour faire une pause

 

[Evaelis]

Bien le up de 7 mois ?
Et elles servent a simuler car un decryptage comme ça prend 0.00001 seconde sur un I5 ..

 

[Ben]

Ouai il n'y a pas vraiment de Up'
Vu qu'il n'y a qu'une page
et ton tuto est encore valide donc bon.

 

[[A]pokah.]

Merci de ce tutoriel, tout simplement ce que j'avais besoin !

 

[-Irsa-]

Merci :)

 

[Evaelis]

Vous pouvez aussi chiffrer en base64, c'est facilement réversible mais pour un fichier lambda chez un utilisateur lambda ^^