Eine Frage, ich sehe bei dem alten Vb6 code 0100 0200 0300 0400
Sind die Packete WIRKLICH so aufgebaut oder haben die leute das für den Proxy so gemacht?
Code
- Public Sub InjectPacket(rOpCode As String, sData As String, blnToServer As Boolean, blnEncrypted As Boolean)
- Dim sLen As String
- Dim sOpCode As String
- Dim sPacket As String
- sLen = longToHex(Len(sData) / 2)
- sOpCode = Right(rOpCode, 2) & Left(rOpCode, 2)
- If blnEncrypted Then
- If blnToServer Then
- sPacket = cv_StringFromHex(sLen & sOpCode & "0300" & sData)
- Else
- sPacket = cv_StringFromHex(sLen & sOpCode & "0400" & sData)
- End If
- Else
- If blnToServer Then
- sPacket = cv_StringFromHex(sLen & sOpCode & "0100" & sData)
- Else
- sPacket = cv_StringFromHex(sLen & sOpCode & "0200" & sData)
- End If
- End If
- On Error Resume Next
- frmMain.wSock.SendData sPacket
- End Sub