Login SendUsernamePassword

[Prophet.]

Well This is another snippit of code for sending the login information which i cant seem to get to work. Whats wrong?

Code Select Expand


Public Sub SendUsernamePassword()
On Error Resume Next
Dim dbseed As Double
Dim dblkey As Double
Dim dblSeed As Double
Dim lngSeed As Long
Dim lngKey As Long
Dim lngValue1 As Long
Dim lngValue2 As Long
Dim lngValue3 As Long
Name = varUser
pass = varpass
dblSeed = Val("&h" & StrToHex(StrReverse(serverhash)))
dblkey = "1"
lngSeed = CLng(dblSeed)
lngKey = CLng(dblkey)
HashPass varpass, Len(varpass), lngKey, lngSeed, lngValue1, lngValue2, lngValue3
pBuffer.InsertDWORD CLng(dblkey)
pBuffer.InsertDWORD CLng(dblSeed)
pBuffer.InsertDWORD lngKey
pBuffer.InsertDWORD lngSeed
pBuffer.InsertDWORD lngValue1
pBuffer.InsertDWORD lngValue2
pBuffer.InsertDWORD lngValue3
pBuffer.InsertNTString varUser
pBuffer.SendPacket &H29
End Sub
[\code]

[Camel]

Code Select Expand

On Error Resume Next

[Maddox]

It looks like your hashing function may be wrong.