Tempo Ancien Ministre
Pseudo Habbo : GMD_MYTEMPO Messages : 5787 Filière : Journalisme Grade : Retraite Pièce d'argent : 4 950 PA Pièce de jeu : 950 PJ
| 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 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". 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 ; ) |
|
Zenyl
Pseudo Habbo : Zenyl Messages : 16707 Filière : Animation Grade : Ancienne THG (Animatrice) ღ Pièce d'argent : 3 330 PA Pièce de jeu : 0 PJ
| Sujet: Re: Crypter/Décrypter ? Comment faire son app perso Sam 1 Oct 2016 - 4:28 | |
| Super tuto ! Il faudrait que j'essaye un jour. Mon rêve de petite fille va donc se réaliser ? Inventer ma propre langue :le joker: |
|
-Amandine- Ancienne admnistratrice
Pseudo Habbo : diine88 Messages : 16750 Filière : Police Grade : Citoyen Pièce d'argent : 17 150 PA Pièce de jeu : 0 PJ
| |
sophiane59510 Ancien Ministre
Pseudo Habbo : sophiane59510 Messages : 18007 Filière : Police Grade : Retraité Pièce d'argent : 0 PA Pièce de jeu : 5 350 PJ
| Sujet: Re: Crypter/Décrypter ? Comment faire son app perso Sam 1 Oct 2016 - 15:34 | |
| Super tuto bien expliqué ! |
|
Tempo Ancien Ministre
Pseudo Habbo : GMD_MYTEMPO Messages : 5787 Filière : Journalisme Grade : Retraite Pièce d'argent : 4 950 PA Pièce de jeu : 950 PJ
| Sujet: Re: Crypter/Décrypter ? Comment faire son app perso Sam 1 Oct 2016 - 15:45 | |
| Merci à vous trois *-*
Zenyl je suis content de pouvoir réaliser ton rêve :d .
|
|
Sarah
Pseudo Habbo : lilibelle31 Messages : 48977 Filière : Civil Grade : - Pièce d'argent : 10 PA Pièce de jeu : 1 300 PJ
| Sujet: Re: Crypter/Décrypter ? Comment faire son app perso Sam 1 Oct 2016 - 23:28 | |
| - sophiane59510 a écrit:
- Super tuto bien expliqué !
|
|