Bonsoir tout le monde alors voilà pour mon projet de TPE, je me suis dit qu'il vaut mieux que je fasse un programme concernant le cryptage et decryptage, donc en gros je me suis dit que je vais faire un programme qui va contenir des sous programmes contenant chacun differents types de cryptages comme l'AES ou le DES ainsi que celui de Cesar.

J'ai voulu commencer avec l'encryptage Cesar, bon je vous le dit, je suis assez débutant en programmation, bref, j'ai deux text box et un bouton encrypt. Si la personne rentre une clé dans le TextBox1 en cliquant sur le bouton encrypt, je voudrais appliquer l'encryptage de cesar pour le sortir dans le text box 2, maintenant le problème est là, comment je peux diviser la clé en plusieurs variables ? Genre si j'ai comme clé "test" comment je peux diviser ça en plusieurs variables : var1 = t; var 2= e; var 3 = s et var 4 = t je voudrais savoir comment je peux faire ça !

Merci d'avance

Je connais pas le VB mais tu peux pas faire var 1 = test[0] , var 2 = test[1] etc ?

SonyKtamer Voir le profil de SonyKtamer
Posté via mobile le 27 septembre 2013 à 19:37:21 Avertir un administrateur
Je connais pas le VB mais tu peux pas faire var 1 = test[0] , var 2 = test[1] etc ?

Bon j'ai fait

Dim entry As String = TextBox1.Text

Dim var1 As String

var1 = entry[0]

ça marche pas

Personne ?

Dim mot As String
Dim i As Integer
Dim lettres() As String
mot = "test"
i = 1
While mot <> ""
ReDim lettres(i)
lettres(i) = Left(mot, 1)
mot = Right(mot, Len(mot) - 1)
i = i + 1
Wend

Ou plutôt comme ça si tu veux économiser une ligne pour réutiliser i :

Dim mot As String
Dim i As Integer
Dim lettres() As String
mot = "test"
i = 0
While mot <> ""
i = i + 1
ReDim lettres(i)
lettres(i) = Left(mot, 1)
mot = Right(mot, Len(mot) - 1)
Wend

J'ai un problème avec Left et Right

ça me dit E'Public Property Left() As Integer' n'a aucun paramètre et son type de retour ne peut pas être indexé.

Regarde dans l'aide ce qu'ils te mettent pour cette méthode, faudrait que je réinstalle VB mais la flemme.

Sinon http://petesvbsql.wordpress.com/2009/08/07/public-property-left-as-integer-has-no-parameters-and-its-return-type-cannot-be-indexed/

Merci beaucoup pour ton aide mais en fait je débute un peu dans la programmation et je comprend peu de ceux qu'ils me disent j'essaierais de suivre des tutos ! merci en tout cas !

Bref le but c'est de découper ton mot lettre par lettre en prenant la première lettre, en la mettant dans une variable, tu retires la lettre du mot, tu recommences jusqu'à temps que tu n'aies plus de lettres.

Pour cela il ne faut pas utiliser des variables basiques mais des tableaux qui servent à contenir plusieurs valeurs indexées.
Ainsi tu demandes à chaque fois de mettre une lettre dans la "première colonne" puis la suivante dans "la colonne précédente +1".

Ah d'accord en fait j'ai pas encore regardé les tableaux sur VB je vais y jeter un coup d'oeil

En fait, je viens de trouver un truc

Dim entry As String

entry = TextBox1.Text.Chars(0)

TextBox2.Text = entry

Et donc en gros si je met "test" dans TB1 il me sort "t" dans TB2

je l'ai trouvé tout seul