Extraire socket d'un sub dans une variable

Version imprimable

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:

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:

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.

29/11/2008, 19h08
harz62

1-Une fonction/méthode doit être encapsulé dans une classe (qu'elle soit statique, externe ou d'instance).

2-Pourquoi tu n'utilise pas les systèmes de cryptographie proposés par le framework ?

Par contre évite d'appeler tes variables l1-l2... la 1ère fois que j'ai vu ton code j'ai cru que c'était des littéraux et non des variables.

D'accords merci, mais le problème, c'est que si je l'encapsule dans une classe, il va me dire que key n'est pas déclarer, car key est plus bas dans une sub

EDIT : J'ai réussi avec le code suivant mais c'est long & sa bug.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 ' Recoit le socket axk qu'il faut traiter. Dim axkread(tcpClient.ReceiveBufferSize) As Byte networkStream.Read(axkread, 0, CInt(tcpClient.ReceiveBufferSize)) Dim returnaxk As String = Encoding.ASCII.GetString(axkread) Dim axkclean As String = returnaxk.Remove(0, 14) axkclean = Replace(axkclean, Chr(0), Chr(10) & Chr(0)) axkclean = ("AT" & axkclean) ' Recoit le socket hg Dim hg(tcpClient.ReceiveBufferSize) As Byte networkStream.Read(hg, 0, CInt(tcpClient.ReceiveBufferSize)) ' Envoi le socket 14 Dim socket14 As [Byte]() = Encoding.ASCII.GetBytes(axkclean) networkStream.Write(socket14, 0, 10)
Si je remplace 10 par socket14.Length je me retrouve un paquet de taille 16000 sous la forme : 41 54 32 31 31 37 66 63 0A 00 0A 00 0A 00 0A 00 0A 00 0A 00 0A 00 0A 00 0A 00 0A 00 0A 00 0A 00 0A 00 0A 00 0A 00 0A 00 0A 00 0A 00 0A 00 0A 00 0A 00 0A 00 0A 00 0A 00 0A 00 0A 00 0A 00 0A 00 0A 00 0A 00 0A 00 0A 00 0A 00 0A 00 0A 00 0A 00
ETC.. Alors qu'a la base je ne reçois qu'une simple chaine (AXK=5?87>;0ag72117fc."

Donc normalement qu'un seul caractère à remplacer

J'ai essayer une autre methode

Code:

1
2
3
4
5
6
7
8
9
10
11
' Recoit le socket du pseudo
            Dim pseudoh(tcpClient2.ReceiveBufferSize) As Byte
            networkStream2.Read(pseudoh, 0, CInt(tcpClient2.ReceiveBufferSize))
            Dim pseudoreturn As String = Encoding.ASCII.GetString(pseudoh)
 
            pseudoreturn = pseudoreturn.Replace(Chr(0), String.Empty)
            pseudoreturn = pseudoreturn.Remove(0, 3)
 
            ' Envoi le pseudo
            Dim pseudofinal As [Byte]() = Encoding.ASCII.GetBytes("AA" & pseudoreturn & "|9|1|-1|-1|-1" & Chr(10) & Chr(0))
            networkStream2.Write(pseudofinal, 0, pseudofinal.Length)

Je tombe sur l'erreur :
Que je ne comprends pas beaucoup.
Chaine de base :