Décodeur de texte

Soyez le premier à donner votre avis sur cette source.

Vue 6 348 fois - Téléchargée 294 fois

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 !

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
15
Date d'inscription
samedi 16 novembre 2002
Statut
Membre
Dernière intervention
29 novembre 2002

Bonne fin d'après-midi du Québec,

Miko500: Tu te retrouves sur toutes mes sources toi ! Héhé merci de tes encouragements, je prévois améliorer celles-ci et en ajouter.

Vincentsoft: Merci. Pour ce qui est de la facilité de décryptage, c'est sûr que cela reste très simple. C'est une application non pas pour cacher des données très confidentielles, mais un simple amusement à crypter des données et les envoyer à son ami par exemple ! S'envoyer des courriels cryptés (avec cette application, il serait difficile de décrypter un message au complet.. mais je prévoix modifier cela) Pour rendre le décryptage un peu plus complexe, quelques modifications à la ligne suivante suffise:

Mid(Original, ZZ, 1) = Chr(Asc(caractère) + 13)

Pour ce qui est ensuite du décryptage, on doit faire la même chose, mais à l'inverse ! Je crois que vous l'auriez compris ! C'est sûr que je prévois rendre le cryptage plus complexe, et l'application sera utile pour plus de personnes. Par exemple, tu envoies le décrypteur aux personnes qui devront reçevoir les messages cryptés (faire attention pour ne pas qu'il soit intercepté :P), puis les messages cryptés contenant, par exemple, des numéros de carte bancaire. Il seront ensuite décryptés chez la personne qui reçoit les données.

Je ne sais pas si ici, sur le site, on devrait tutoyer ou vouvoyer. Pouvez-vous m'en informer ?

Merci :P
Yawa
Messages postés
68
Date d'inscription
jeudi 26 octobre 2000
Statut
Membre
Dernière intervention
17 avril 2009

je viens de voir que tu as seulement 14 ans...alors je te dis que tu commence bien et continu comme ça... ; )
Messages postés
68
Date d'inscription
jeudi 26 octobre 2000
Statut
Membre
Dernière intervention
17 avril 2009

Pas mal mais il faudrai mettre un algorithme qui est plus dur à décrypter...
Sinon, c'est bien, 7/10 bravo
Messages postés
188
Date d'inscription
dimanche 29 octobre 2000
Statut
Membre
Dernière intervention
18 août 2005

Excellent, bon travail

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.