Crypter et décrypter des messages

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 417 fois - Téléchargée 18 fois

Contenu du snippet

c'est pour crypter et décrypter des messages!!!

on remplace les lettre par des symbole ou des chiffres.

ne pas mettre de caractère comme : ! ? etc..

Source / Exemple :


Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim s As String
        s = TextBox1.Text
        s = s.Replace("a", "1")
        s = s.Replace("b", "2")
        s = s.Replace("c", "3")
        s = s.Replace("d", "4")
        s = s.Replace("e", "5")
        s = s.Replace("f", "6")
        s = s.Replace("g", "7")
        s = s.Replace("h", "8")
        s = s.Replace("i", "9")
        s = s.Replace("j", "+")
        s = s.Replace("k", "-")
        s = s.Replace("l", "*")
        s = s.Replace("m", "/")
        s = s.Replace("n", ".")
        s = s.Replace("o", "0")
        s = s.Replace("p", "!")
        s = s.Replace("q", ":")
        s = s.Replace("r", ";")
        s = s.Replace("s", ",")
        s = s.Replace("t", "?")
        s = s.Replace("u", "£")
        s = s.Replace("v", "§")
        s = s.Replace("w", "%")
        s = s.Replace("x", "*")
        s = s.Replace("y", "µ")
        s = s.Replace("z", "$")
        s = s.Replace("é", "°")
        TextBox2.Text = s
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim s As String
        s = TextBox1.Text
        s = s.Replace("1", "a")
        s = s.Replace("2", "b")
        s = s.Replace("3", "c")
        s = s.Replace("4", "d")
        s = s.Replace("5", "e")
        s = s.Replace("6", "f")
        s = s.Replace("7", "g")
        s = s.Replace("8", "h")
        s = s.Replace("9", "i")
        s = s.Replace("+", "j")
        s = s.Replace("-", "k")
        s = s.Replace("*", "l")
        s = s.Replace("/", "m")
        s = s.Replace(".", "n")
        s = s.Replace("0", "o")
        s = s.Replace("!", "p")
        s = s.Replace(":", "q")
        s = s.Replace(";", "r")
        s = s.Replace(",", "s")
        s = s.Replace("?", "t")
        s = s.Replace("£", "u")
        s = s.Replace("§", "v")
        s = s.Replace("%", "w")
        s = s.Replace("*", "x")
        s = s.Replace("µ", "y")
        s = s.Replace("$", "z")

        TextBox2.Text = s
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        TextBox1.Paste()
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        TextBox2.Copy()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        TextBox1.Clear()
        TextBox2.Clear()
    End Sub
End Class

Conclusion :


c'est très pratique!!

A voir également

Ajouter un commentaire

Commentaires

Messages postés
355
Date d'inscription
mercredi 13 avril 2011
Statut
Membre
Dernière intervention
15 juin 2019
5
ce que t'as fais n'est pas du crypto,d'ailleurs facile a decrypter ton Crypto systeme est faible,la Cryptanalyse detruira ton appli sans trop d'effort
Messages postés
2
Date d'inscription
lundi 20 avril 2009
Statut
Membre
Dernière intervention
20 avril 2009

slt .c'est pas tout à fait complet ton travaille comme ont déja remarquer les autres.
Messages postés
6063
Date d'inscription
dimanche 13 avril 2003
Statut
Modérateur
Dernière intervention
15 juillet 2011
25
Bien vue je l'avais pas vu ce bug.
Mais comme dis plus haut cette source est a proscrire dans tous les cas.

-> sécurité = 0
-> cassage rapide
-> perte d'informations
-> ...
Messages postés
3
Date d'inscription
mercredi 13 septembre 2006
Statut
Membre
Dernière intervention
13 avril 2009

Comme nhervagault a dit,

Comment vas-tu décrypter "téléphone"
si tu encrypte le "é"
s = s.Replace("é", "°")

et que tu ne le "décrypte" pas ??
Messages postés
2501
Date d'inscription
jeudi 14 juillet 2005
Statut
Contributeur
Dernière intervention
5 juin 2016
1
Pas crypter, coder.
Car ce n'est qu'une simple substitution.
Afficher les 8 commentaires

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.