Bonjour,
J'ai un petit problème, je développe une application qui utilise des sockets
Jusque là pas de problème, mais j'ai une fonction, et les problèmes sont les suivants :
- J'sais pas ou la mettre.
- J'sais pas comment récupérer la key pour la metre dans ce code. (Envoyez par le serveur en socket)

Je m'explique, quand je me connecte sur le serveur, il envoit une clé du genre " HCahamtqrsnveakmhdhngpeylkasewomki. "

Cette clé doit être ensuite utilisé pour crypté un mot de passe, fonction :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    Public Function PassEnc(ByVal pwd As String) As String
            Dim l1, l2, l3, l4, l5 As Integer, l7 As String = "#1"
            Dim hash() As String = {"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "-", "_"}
            Dim v1, v2 As String
            For l1 = 1 To Len(pwd)
                l2 = Asc(Mid(pwd, l1, 1))
                l3 = Asc(Mid(key, l1, 1))
                l5 = Fix(l2 / 16)
                l4 = l2 Mod 16
                v1 = hash(((l5 + l3) Mod (UBound(hash) + 1)) Mod (UBound(hash) + 1))
                v2 = hash(((l4 + l3) Mod (UBound(hash) + 1)) Mod (UBound(hash) + 1))
                l7 = l7 + v1 + v2
            Next
            Return l7
        End Function
Le truc, c'est que, Dim key n'est pas déclarer, et key doit être le socket :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 ' Recoit le premier socket envoyer par le serveur.
            Dim bytes(tcpClient.ReceiveBufferSize) As Byte
            networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))
Et ce petit bout de code ce trouve dans une private sub, donc je ne sais pas comment l'exporter pour l'utiliser dans ma fonction.

J'éspère que vous avez compris, merci.