Cryptage de césar

Télécharger le projet
Commenter

Description

Voici un petit programme que j'ai réalisé et qui permet de crypter un texte selon la technique de César. Il permet également de décrypter le texte crypté afin de retrouver le texte d'origine. Sans prétention bien sûr mais c'est pour moi un bon mode d'apprentissage. Dites-moi ce que vous en pensez...

Source / Exemple : 


Public Class Form1
    Inherits System.Windows.Forms.Form
    Public strMessage As System.String
    Public strCrypt As System.String
    Public strDecrypt As System.String
    Public strLettre As System.Char
    Public intCompteur As System.Int32
    Public intcompteur1 As System.Int32

Private Sub btnCrypt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCrypt.Click

        strMessage = txtMessage.Text
        For intCompteur = 0 To strMessage.Length - 1 Step 1
            For intcompteur1 = 0 To 255 Step 1
                strLettre = strMessage.Substring(intCompteur, 1)
                If strLettre = Chr(intcompteur1) Then
                    If intcompteur1 > 252 Then
                        strLettre = Chr(intcompteur1 - 253)
                        lblCrypt.Text &= strLettre
                    Else
                        strLettre = Chr(intcompteur1 + 3)
                        lblCrypt.Text &= strLettre
                    End If
                End If
            Next
        Next
    End Sub

    Private Sub btnDecrypt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDecrypt.Click
        strCrypt = lblCrypt.Text
        For intCompteur = 0 To strCrypt.Length - 1 Step 1
            For intcompteur1 = 0 To 255 Step 1
                strLettre = strCrypt.Substring(intCompteur, 1)
                If strLettre = Chr(intcompteur1) Then
                    If intcompteur1 < 3 Then
                        strLettre = Chr(intcompteur1 + 253)
                        lblDecrypt.Text &= strLettre
                    Else
                        strLettre = Chr(intcompteur1 - 3)
                        lblDecrypt.Text &= strLettre
                    End If
                End If
            Next
        Next
    End Sub

    Private Sub btnEffacer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEffacer.Click
        txtMessage.Text = ""
        lblCrypt.Text = ""
        lblDecrypt.Text = ""
        txtMessage.Focus()
    End Sub

    Private Sub btnQuitter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuitter.Click
        Me.Close()
    End Sub
End Class
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.

Du même auteur (chewbaka62)