i've just recently started workin with the "new" (the old new..) bnet login sequence...and i'm having some trouble with 0x51. the gamerevision seems to be fine, but it keeps rejecting my cd key as invalid. is the cd key has algo the same as it was or 0x36?
lngSeed = CVL(Mid(strData, 9, 4))
lngKey = GetTickCount
DecodeCDKey Replace(frmSetup.Cdkey, "-", ""), lngProdID, lngValue1, lngValue2
HashCDKey lngKey, lngSeed, lngProdID, lngValue1, lngValue2
Dim HashOut As String
HashOut = _
MKL(lngKey) & _
MKL(lngSeed) & _
MKL(lngProdID) & _
MKL(lngValue1) & _
MKL(lngValue2)
nevermind, i wasn't sending the seed to bnet right