Crypter/Décrypter ? Comment faire son app perso

Sujet: Crypter/Décrypter ? Comment faire son app perso Sam 1 Oct 2016 - 4:24

Faire son Crypteur/Décrypteur personnel

Suivez les étapes :s ( il faut bien si on veut y arriver lol )

1:

Prendre le petit logiciel "Microsoft Visual Basic" *-*

(Facilement trouvable sur internet)

Miniature de Microsoft VB:

2:

Sur Microsoft VB

Faite :

Fichier---> Nouveaux Projet ----->Application Windows Forms

Représentation :

3 :

Allez sur "Boite à outils"

Image montrant la boite à outils:

Puis placez deux "TextBox" (Ce qui permettra d'écrire notre texte à convertir).

Image des deux TextBox à placer :

Nous avons donc deux Box :

Text1 = Notre phrase à crypté.

Text2=Direction de la conversion du texte.

Puis retournez dans "Boite à outils"

Vous allez placer un "Button" qui sera le déclencheur de la traduction.

Image du "Button" à placer:

4:

Faite un double-clic sur le "Button"

Ceci fait , vous obtiendrez une autre fenêtre pour y donner la fonction de ce "Button".

Repésentation:

Il va falloir entrer ce code:

Code:: Dim s As String
s = TextBox1.Text
s = s.Replace("a", "4")

s = s.Replace("a", "4") (va remplacer "a" en "4")

Répétez ceci un certain nombre de fois pour obtenir ceci, dans mon cas j'en ai fais 25 :

Code:: Dim s As String
   s = TextBox1.Text
   s = s.Replace("a", "4")
   s = s.Replace("b", "6")
   s = s.Replace("c", "%")
   s = s.Replace("d", "^")
   s = s.Replace("e", "_")
   s = s.Replace("f", "0")
   s = s.Replace("g", "1")
   s = s.Replace("j", "8")
   s = s.Replace("h", "&")
   s = s.Replace("i", "§")
   s = s.Replace("k", "+")
   s = s.Replace("l", "@")
   s = s.Replace("m", "£")
   s = s.Replace("n", "µ")
   s = s.Replace("o", "°")
   s = s.Replace("p", "?")
   s = s.Replace("q", "/")
   s = s.Replace("r", "5")
   s = s.Replace("s", "²")
   s = s.Replace("t", "!")
   s = s.Replace("u", "*")
   s = s.Replace("v", "$")
   s = s.Replace("x", "9")
   s = s.Replace("y", "¤")
   s = s.Replace("z", "2")
   TextBox2.Text = s

TextBox2.Text = s ( Envoit le "s" dans la TextBox2)

Enregistrez et Faites le test ( F5 ) et vous devriez obtenir quelque chose comme...

salut ceci est un test xd ---> ²4@*!, %_%§ _²! *µ !_²! 9^

vous avez votre crypteur ^^

Le Décrypteur:

C'est très simple car il suffit de placer un autre "Button" faire un double-clic et d'écrire le même code mais d'inverser les solutions.

exemple :

s = s.Replace("a", "4") (va remplacer "a" par "4")

| |

s = s.Replace("4", "a") (va remplacer "4" par "a")

Moi j'obtiens ceci :

Code:: Dim s As String
   s = TextBox1.Text
   s = s.Replace("4", "a")
   s = s.Replace("6", "b")
   s = s.Replace("%", "c")
   s = s.Replace("^", "d")
   s = s.Replace("_", "e")
   s = s.Replace("0", "f")
   s = s.Replace("1", "g")
   s = s.Replace("8", "j")
   s = s.Replace("&", "h")
   s = s.Replace("§", "i")
   s = s.Replace("+", "k")
   s = s.Replace("@", "l")
   s = s.Replace("£", "m")
   s = s.Replace("µ", "n")
   s = s.Replace("°", "o")
   s = s.Replace("?", "p")
   s = s.Replace("/", "q")
   s = s.Replace("5", "r")
   s = s.Replace("²", "s")
   s = s.Replace("!", "t")
   s = s.Replace("*", "u")
   s = s.Replace("$", "v")
   s = s.Replace("9", "x")
   s = s.Replace("¤", "y")
   s = s.Replace("2", "z")
   TextBox2.Text = s

Refaite le test (F5) :

salut ceci est un test xd ---> ²4@*!, %_%§ _²! *µ !_²! 9^

²4@*!, %_%§ _²! *µ !_²! 9^ ---> salut ceci est un test xd

Voilà :s , je crois que c'est compréhensible .

Si vous avez des questions... bah hésitez pas :x et pas de questions compliqués non-plus :c.

Bonne chance ; )

Super tuto ! Il faudrait que j'essaye un jour. Mon rêve de petite fille va donc se réaliser ? Inventer ma propre langue Effrayer

:le joker:

Zenyl a raison ! C'est un bon tuto bien expliqué (même trop bien expliqué :rire78:), bon travail petit Pierre

Super tuto bien expliqué !

Merci à vous trois *-*

Zenyl je suis content de pouvoir réaliser ton rêve :d .

<8O~

sophiane59510 a écrit:: Super tuto bien expliqué !