Check Revision Failed

[Yegg]

Ok, for my bot which i've setup to use TCP, im pretty sure everything is setup up CORRECTLY, but when i try to connect i get the Check Revision Failed error. Does ne1 know a common reason why this error is recerived, or is there a newer version of checkrevision.dll i should have?

[Soul Taker]

Ok, for my bot which i've setup to use TCP, im pretty sure everything is setup up CORRECTLY, but when i try to connect i get the Check Revision Failed error. Does ne1 know a common reason why this error is recerived, or is there a newer version of checkrevision.dll i should have?

It's recieved because you didn't send what the server thinks you should have sent.  Additionally, you may have set a record for "Least amount of information to help someone posted" 

[Yegg]

Ok im not sure wut info i should giv u but heres a few things that may help.

Code Select Expand

AddChat "Connecting..." & vbNewLine, vbYellow
    sckBnet.Close
    Set chatbot = New bnetchat
    sckBnet.Connect varServer, 6112

Private Sub sckBnet_connect()
    SendHeader
    Send1E
    AddChat "BNET: 1E Sent!" & vbNewLine, vbGreen
End Sub

Private Sub sckbnet_DataArrival(ByVal bytesTotal As Long)
    Static strBuffer As String
    Dim strTemp As String, lngLen As Long
    sckBnet.GetData strTemp, vbString

    strBuffer = strBuffer & strTemp
    While Len(strBuffer) > 4
      lngLen = Val("&H" & StrToHex(StrReverse(Mid(strBuffer, 3, 2))))
      If Len(strBuffer) < lngLen Then Exit Sub
       parsep (Left(strBuffer, lngLen))
       
      strBuffer = Mid(strBuffer, lngLen + 1)
    Wend
End Sub

Public Sub SendHeader()
    Form1.sckBnet.SendData Chr(1)
End Sub

Public Function Send1E()
    pbuffer.InsertDWORD 1
    pbuffer.InsertDWORD 0
    pbuffer.InsertDWORD 0
    pbuffer.InsertDWORD 0
    pbuffer.InsertDWORD 1
    pbuffer.InsertNTString "123"
    pbuffer.InsertNTString "123"
    pbuffer.sendPacket &H1E
    pbuffer.InsertNonNTString "68XI" & varProduct
    pbuffer.InsertDWORD "&H" & "C7"
    pbuffer.InsertDWORD 0
    pbuffer.sendPacket &H6
pbuffer.InsertDWORD 0
pbuffer.sendPacket &H25

End Function

Public Sub SendCDKey(cdkey As String)
On Error Resume Next
    If varProduct = "RTSJ" Then
    pbuffer.InsertDWORD &H0
    pbuffer.InsertNTString Mid(varCDKey, 5, Len(varCDKey) - 4)
    pbuffer.InsertNTString "123"
    pbuffer.sendPacket &H30
Else
Dim lngSeed As Long, lngKey As Long, lngProdID As Long, lngValue1 As Long, lngValue2 As Long, lngValue3 As Long
Dim dblProdID As Double, dblValue1 As Double, dblValue2 As Double, dblSeed As Double, dblkey As Double
    dblSeed = Val("&h" & StrToHex(StrReverse(serverhash)))
    dblkey = GetTickCount()
    lngSeed = CLng(dblSeed)
    lngKey = CLng(dblkey)
    Call DecodeCDKey(cdkey, dblProdID, dblValue1, dblValue2)
    lngProdID = CLng(dblProdID)
    lngValue1 = CLng(dblValue1)
    lngValue2 = CLng(dblValue2)
    Call HashCDKey(lngKey, lngSeed, lngProdID, lngValue1, lngValue2)
    pbuffer.InsertDWORD &H0
    pbuffer.InsertDWORD Len(cdkey)
    pbuffer.InsertDWORD CLng(dblProdID)
    pbuffer.InsertDWORD CLng(dblValue1)
    pbuffer.InsertDWORD CLng(dblSeed)
    pbuffer.InsertDWORD CLng(dblkey)
    pbuffer.InsertDWORD lngKey
    pbuffer.InsertDWORD lngSeed
    pbuffer.InsertDWORD lngProdID
    pbuffer.InsertDWORD lngValue1
    pbuffer.InsertDWORD lngValue2
    pbuffer.InsertNTString "123"
    pbuffer.sendPacket &H36
    End If
End Sub

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 = GetTickCount
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]

Now obviously this isn't the code that is put in modules or class mods.
If ttheres no problem with ne of this code tel me and i'll giv u the code from the modules, but im sure those r done correctly.

Code Select Expand

[CrAz3D]

Do you have the hash files in the correct directory?...

[Yegg]

yes, my hash files r in the correct directory. also, my checkrevision.dll wus modified in 2001, should i have a newer version?

[LivedKrad]

Hmm, *reminisces on the coding of Feanor's bot. Finds amazing similarities between the posted code and Feanor's*. Also, 2001? I don't know if the CheckRevision function used in the DLL is "outdated". I didn't think the CheckRevision function changed at all.

[Warrior]

Im pretty sure Feanors TCP Connection uses Bnetauth.dll

[CrAz3D]

Im pretty sure Feanors TCP Connection uses Bnetauth.dll

Quite a few do...is there a problem with that?

[Yegg]

ok, well now that i know checkrevision.dll's date doesn't matter. just in case, i found a version of bnetauth.dll from 2004. but i stil have the check revision error. does ne1 think that they need to see more code in order 2 help me?

[CrAz3D]

You have the updated hashes?

[DeTaiLs]

is it me or the verbyte is c7 when it should be c9

[Yegg]

yesi hav updated hashed and i changed "c7" to verByte and all that is setup correctly, but mayb ur right, mayb starcraft is c9 and not c7, i'll try it out.

[Dyndrilliac]

is it me or the verbyte is c7 when it should be c9

Your right, he has a bad VerByte.

    pbuffer.InsertDWORD "&H" & "C7"

It needs to be C9, assuming you're trying to logon STAR/SEXP.

[Warrior]

Well yea, I figured since hes trying to use CheckRevision.dll...

[Yegg]

well, i tried it with C9 and it stil fails, i think theres something missing but i hav no clu wut.