crypter et décrypter

Version imprimable

Bonjour à tous:
Voilà j'ai un petit problème j'essaye de créer un programme qui permet de convertir du texte en code ASCII et vice versa.
(le button1 c'est le bouton servant à crypté le texte en ASCII et le button2 convertit le code ASCII en texte normal)
le principe c'est que l'on écrit dans le texbox1 et qu'on le convertit en ASCII en passant par un textbox2 que l'on ne voit pas )
voici le code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 Public nbrChr, i As Short Public letter, ChrLetter As String Public ascLetter As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click nbrChr = TextBox1.Text.Length For i = 0 To nbrChr - 1 letter = TextBox1.Text.Substring(i, 1) Try ascLetter = Asc(letter) TextBox2.Text = TextBox2.Text & ascLetter Catch ex As Exception MsgBox(ex.ToString) End Try Next TextBox1.Text = "" TextBox1.Text = TextBox2.Text TextBox2.Text = "" End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click nbrChr = TextBox1.Text.Length For i = 0 To nbrChr - 1 letter = TextBox1.Text.Substring(i, 1) Try ChrLetter = Chr(letter) TextBox2.Text = TextBox2.Text & ChrLetter Catch ex As Exception MsgBox(ex.ToString) End Try Next TextBox1.Text = "" TextBox1.Text = TextBox2.Text TextBox2.Text = "" End Sub End Class
alors j'ai deux problèmes :
1) le passage entre le texte et l'ASCII marche mais pas de L'ASCII vers le texte, si je rentre " 65656565656565" normalement je devrais obtenir AAAAAAAA mais j'obtiens quelque chose de ce style la : "IIIIIIII" ( sa ressemble a des I majuscule gras collé les uns au autres) 8O
Que puis je faire?

2) j'aimerais ne pas devoir passer par un textbox2 , comment puis je faire?

Merci d'avance, Toute aide est la bien venue
Si vous avez des questions, posez les :p (je sais que je suis pas trop clair)

Bonne soirée

19/02/2008, 23h31
Poulain

Le problème quand tu décriptes, c'est que tu n'utilises qu'un seul chiffre à la fois, du ascii, c'est un couple de deux chiffres.
donc il faut que tu te débrouilles, pour que letter contienne deux caractère, et après, il faut que tu sautes 2 caractères par deux caracteres, je crois qu'il faut que tu ajoutes step 2 à ton for.
20/02/2008, 13h42
Aspic
Citation:

Envoyé par Poulain

Il faut que tu sautes 2 caractères par deux caracteres, je crois qu'il faut que tu ajoutes step 2 à ton for.

Je confirme :
Code:

1 2 3 For i as integer = Debut to Fin Step Saut Next
20/02/2008, 14h40
Totanne

Un code Ascii n'est pas forcement composé de 2 chiffres.
Ca peut être 8 ou 9 ou 65 ou 122 ...
Si tu veux rentrer directement de l'ascii dans ta TextBox, il faut bien d'une manière ou d'une autre indiquer à ton programme ou termine l'un et ou commence l'autre.
65656565 peut etre interprété comme 6 puis 56 puis 5 puis 65 ...
65 65 65 65 est par contre sans equivoque.
Le mieux est peut-etre donc d'utiliser l'espace comme séparateur
Tu fais un Tableau() as string = TextBox.Text.split(" ") et tu converti chaque élément du tableau.
20/02/2008, 14h45
Poulain

Et, donc quand tu convertis en ascii, tu met un espace entre chaque caractère.

j'ai testé ce code mais il me met une erreur voici le code , je me doute que il y a une grosse faute dedans. Et que fait la fonction Split?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
 
Public nbrChr, i As Short
    Public letter, ChrLetter As String
    Public ascLetter, Numspace As Integer
 
 
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        nbrChr = TextBox1.Text.Length
        For i = 0 To nbrChr - 1
            letter = TextBox1.Text.Substring(i, 1)
            Try
                ascLetter = Asc(letter)
                TextBox2.Text = TextBox2.Text & ascLetter & Chr(32)
            Catch ex As Exception
                MsgBox(ex.ToString)
            End Try
 
 
        Next
 
        TextBox1.Text = ""
        TextBox1.Text = TextBox2.Text
        TextBox2.Text = ""
 
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
        Dim Tableau() As String = TextBox1.Text.Split(" ")
 
        For i = 0 To UBound(Tableau)
            ascLetter = Tableau(i)
            letter = Chr(ascLetter)
 
            Try
                TextBox2.Text = TextBox2.Text & letter
            Catch ex As Exception
                MsgBox(ex.ToString)
 
            End Try
 
 
        Next
 
 
        TextBox1.Text = ""
        TextBox1.Text = TextBox2.Text
        TextBox2.Text = ""
 
 
    End Sub
End Class

Toute aide est la bienvenue
Merci d'avance et bonsoir