When and how to send 0x31 (VB)?

[Antarctica]

Ok here's my sub for 0x31: (im sending it right after i get a success login and before 0x0A)

Code Select Expand


Public Sub Send0x31()

    Dim OldPass As String
    Dim NewPass As String
    Dim lngToken As Long
   
    OldPass = LCase(Declarations.Password)
    NewPass = LCase(Declarations.ChangePassTo)
   
    lngToken = GetTickCount()

    With PBuffer
       
        .InsertDWORD lngToken
        .InsertDWORD Declarations.lngSrvToken
        .InsertNonNTString BNCSutil.doubleHashPassword(OldPass, lngToken, Declarations.lngSrvToken)
        .InsertNonNTString BNCSutil.doubleHashPassword(NewPass, lngToken, Declarations.lngSrvToken)
        .InsertNTString Declarations.Username
       
        .SendPacket &H31
       
    End With
   
End Sub



If im not hashing it right or sending it at the wrong time, plz tell me cause im puzzled.

[l2k-Shadow]

New password should be a single hash not a double.

[UserLoser]

This should be sent after a successful Cd-Key and version check, but before logging onto Battle.net via SID_LOGONRESPONSE or SID_LOGONRESPONSE2.  Like stated above, make sure you're sending Battle.net a singly hashed password because if you do what you're doing, your password is not hashed correctly and what you think your password is will not be what it actually is meant to be.

[Antarctica]

ok this is what i now have for the sub, however every time i try to change the password it fails:  i have it made to wehre the bot asks for the new password and sends it to BNET right after i get a version checked passed from S>0x51

Code Select Expand


Public Sub Send0x31()

    Dim OldPass As String
    Dim NewPass As String
    Dim lngToken As Long
   
    OldPass = LCase(Declarations.Password)
    NewPass = LCase(Declarations.ChangePassTo)
   
    lngToken = GetTickCount()

    With PBuffer
       
        .InsertDWORD lngToken
        .InsertDWORD Declarations.lngSrvToken
        .InsertNonNTString BNCSutil.hashPassword(OldPass)
        .InsertNonNTString BNCSutil.hashPassword(NewPass)
        .InsertNTString Declarations.Username
       
        .SendPacket &H31
       
    End With
   
End Sub


it worked for one account when did double hash but it changed the password to something i don't know lol, so plz help

[Hero]

You double hash the old password and just single hash the new password.

[Antarctica]

heres my new sub and STILL unable to change password 

Code Select Expand


Public Sub Send0x31()

    Dim OldPass As String
    Dim NewPass As String
    Dim lngToken As Long
   
    OldPass = LCase(Declarations.Password)
    NewPass = LCase(Declarations.ChangePassTo)
   
    lngToken = GetTickCount()

    With PBuffer
       
        .InsertDWORD lngToken
        .InsertDWORD Declarations.lngSrvToken
        .InsertNonNTString BNCSutil.doubleHashPassword(BNCSutil.hashPassword(OldPass), lngToken, Declarations.lngSrvToken)
        .InsertNonNTString BNCSutil.hashPassword(NewPass)
        .InsertNTString Declarations.Username
       
        .SendPacket &H31
       
    End With
   
End Sub


[Hero]

Oh sorry, I guess I worded that wrong, do this:

Code Select Expand


        .InsertNonNTString BNCSutil.doubleHashPassword(OldPass, lngToken, Declarations.lngSrvToken)
        .InsertNonNTString BNCSutil.hashPassword(NewPass)


[Antarctica]

heh hero, i lkie ur sig thnigie.  wehn i raed i fnid taht to be true.

[Hero]

Thanks, so I take it that worked?

[Antarctica]

Yup, works fine now!