Décodeur de texte

Télécharger le projet
Commenter

Description

Ce code vous permet de coder du texte ! En fait, le truc de celui-ci est de coder le texte en caractères ASCII et d'en augmenter la valeur de 13... Vous pouvez tout de même modifier cette augmentation, réduction, ou autres opérations :P

Source / Exemple : 


Option Explicit
Dim ZZ As Integer, caractère As String
Dim texte As String, nbcar As Integer

Private Sub CmdDécoder_Click()
    CmdEncoder.Enabled = True
    CmdDécoder.Enabled = False
    texte = TxtRésultat.Text
    texte = Décoder(texte)
    TxtRésultat.Text = texte
End Sub

Private Sub CmdEncoder_Click()
    CmdEncoder.Enabled = False
    CmdDécoder.Enabled = True
    texte = TxtEntré.Text
    texte = Encoder(texte)
    TxtRésultat.Text = texte
    TxtRésultat.Locked = False
End Sub

Public Function Encoder(Original As String) As String
    nbcar = Len(Original)
    For ZZ = 1 To nbcar
        caractère = Mid(Original, ZZ, 1)
        Mid(Original, ZZ, 1) = Chr(Asc(caractère) + 13)
    Next ZZ
    Encoder = Original
End Function

Public Function Décoder(Codé As String) As String
    nbcar = Len(Codé)
    For ZZ = 1 To nbcar
        caractère = Mid(Codé, ZZ, 1)
        Mid(Codé, ZZ, 1) = Chr(Asc(caractère) - 13)
    Next ZZ
    Décoder = Codé
End Function

Conclusion :


Commentaires sont les bienvenue !
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 (cs_yawa)