tibops
Messages postés21Date d'inscriptionsamedi 9 février 2002StatutMembreDernière intervention25 mai 2002
-
23 mai 2002 à 16:20
fredlynx
Messages postés662Date d'inscriptionmercredi 16 janvier 2002StatutModérateurDernière intervention16 octobre 2010
-
23 mai 2002 à 17:21
Voila, je suis en panique, je dois rendre un projet incluant ma prog vb pour demain.
Voila ce que je souhaite que ma fonction decoupe-chaine fasse:
je ne connais pas à l'avance la longueur de la chaine de caractere
la fonction doit me découper cette chaine en blocs de 64 bits.
le but étant d'envoyer par la suite sur une ligne série, en vue d'un cryptage, des blocs de 200 bits comprenant une commande de 8 bits + un élément de chaine de 64 bits + une clé de cryptage de 128 bits et tout çà évidemment inclus dans une boucle qui doit s'arreter quand elle ne trouve plus d'element de chaine.
j'espere que j'ai été assez clair, n'hesitez pas a me demander des precisions...
riton
fredlynx
Messages postés662Date d'inscriptionmercredi 16 janvier 2002StatutModérateurDernière intervention16 octobre 20103 23 mai 2002 à 17:21
Voilà une fonction qui te renvoie un tableau avec une chaine découpée :)
Private Sub Command2_Click()
Dim chaine As String
chaine = "eretfrtrftdsy"
Decoupe chaine
End Sub
Private Function Decoupe(chaine As String, Optional Nbcar As Integer = 4) As Variant
Dim Table() As String
Dim Boucle As Integer
Dim Increment As Integer
ReDim Table(200)
Increment = 0
For Boucle = 1 To Len(chaine) Step Nbcar
Increment = Increment + 1
Table(Increment) = Mid(chaine, Boucle, 4)
If Increment Mod 200 = 0 Then ReDim Preserve Table(Increment + 200)
Next
ReDim Preserve Table(Increment)
Decoupe = Table
End Function