Author | Message | Time |
---|---|---|
Prophet. | Well This is another snippit of code for sending the login information which i cant seem to get to work. Whats wrong? [code] 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][/code] | August 18, 2003, 2:33 PM |
Camel | [quote author=Prophet. link=board=17;threadid=2379;start=0#msg18613 date=1061217199][code]On Error Resume Next[/code][/quote] | August 18, 2003, 5:35 PM |
Maddox | It looks like your hashing function may be wrong. | August 18, 2003, 7:04 PM |