[VB.NET] Problems with bncsutil.dll

[Aramis]

I started learning VB.NET and I decided to make a bot. Everything is going good so far but I ran into a problem
when it came to using bncsutil.dll.

when I call any function..they don't seem to return any correct value or no value at all.
(ex: when I call extractMPQNumber..the value returned is always too large)


I simply took the BNCSutil module from VB6 modified it a bit to work with VB.NET(not sure if I did it correct)

Code Select Expand



Module BNCSutil



    '------------------------------------------------------------------------------
    '  BNCSutil
    '  Battle.Net Utility Library
    '
    '  Copyright © 2004-2005 Eric Naeseth
    '------------------------------------------------------------------------------
    '  Visual Basic Declarations
    '  November 20, 2004
    '------------------------------------------------------------------------------
    '  This library is free software; you can redistribute it and/or
    '  modify it under the terms of the GNU Lesser General Public
    '  License as published by the Free Software Foundation; either
    '  version 2.1 of the License, or (at your option) any later version.
    '
    '  This library is distributed in the hope that it will be useful,
    '  but WITHOUT ANY WARRANTY; without even the implied warranty of
    '  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
    '  Lesser General Public License for more details.
    '
    '  A copy of the GNU Lesser General Public License is included in the BNCSutil
    '  distribution in the file COPYING.  If you did not receive this copy,
    '  write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
    '  Boston, MA  02111-1307  USA
    '------------------------------------------------------------------------------

    '  DLL Imports
    '---------------------------

    ' Library Information
    Public Declare Function bncsutil_getVersion Lib "bncsutil.dll" () As Long
    Public Declare Function bncsutil_getVersionString_Raw Lib "bncsutil.dll" _
        Alias "bncsutil_getVersionString" (ByVal outBuf As String) As Long

    ' CheckRevision
    Public Declare Function extractMPQNumber Lib "bncsutil.dll" _
        (ByVal mpqName As String) As Long
    ' [!] You should use checkRevision and getExeInfo (see below) instead of their
    '     _Raw counterparts.
    Public Declare Function checkRevision_Raw Lib "bncsutil.dll" Alias "checkRevisionFlat" _
        (ByVal ValueString As String, ByVal File1 As String, ByVal File2 As String, _
         ByVal File3 As String, ByVal mpqNumber As Long, ByRef Checksum As Long) As Long
    Public Declare Function getExeInfo_Raw Lib "bncsutil.dll" Alias "getExeInfo" _
        (ByVal Filename As String, ByVal exeInfoString As String, _
        ByVal infoBufferSize As Long, ByVal Version As Long, ByVal Platform As Long) As Long

    ' Old Logon System
    ' [!] You should use doubleHashPassword and hashPassword instead of their
    '     _Raw counterparts.  (See below for those functions.)
    Public Declare Sub doubleHashPassword_Raw Lib "bncsutil.dll" Alias "doubleHashPassword" _
        (ByVal Password As String, ByVal ClientToken As Long, ByVal ServerToken As Long, _
        ByVal outBuffer As String)
    Public Declare Sub hashPassword_Raw Lib "bncsutil.dll" Alias "hashPassword" _
        (ByVal Password As String, ByVal outBuffer As String)

    ' Broken SHA-1
    Public Declare Sub calcHashBuf Lib "bncsutil.dll" _
        (ByVal Data As String, ByVal Length As Long, ByVal Hash As String)

    ' CD-Key Decoding

    ' Call kd_init() first to set up the decoding system, unless you are only using kd_quick().
    ' Then call kd_create() to create a key decoder "handle" each time you want to
    ' decode a CD-key.  It will return the handle or -1 on failure.  The handle
    ' should then be passed as the "decoder" argument to all the other kd_ functions.
    ' Call kd_free() on the handle when finished with the decoder to free the
    ' memory it is using.

    Public Declare Function kd_quick Lib "bncsutil.dll" _
        (ByVal CDKey As String, ByVal ClientToken As Long, ByVal ServerToken As Long, _
        ByVal PublicValue As Long, ByVal Product As Long, ByVal HashBuffer As String, ByVal BufferLen As Long) As Long
    Public Declare Function kd_init Lib "bncsutil.dll" () As Long
    Public Declare Function kd_create Lib "bncsutil.dll" _
        (ByVal CDKey As String, ByVal keyLength As Long) As Long
    Public Declare Function kd_free Lib "bncsutil.dll" _
        (ByVal decoder As Long) As Long
    Public Declare Function kd_val2Length Lib "bncsutil.dll" _
        (ByVal decoder As Long) As Long
    Public Declare Function kd_product Lib "bncsutil.dll" _
        (ByVal decoder As Long) As Long
    Public Declare Function kd_val1 Lib "bncsutil.dll" _
        (ByVal decoder As Long) As Long
    Public Declare Function kd_val2 Lib "bncsutil.dll" _
        (ByVal decoder As Long) As Long
    Public Declare Function kd_longVal2 Lib "bncsutil.dll" _
        (ByVal decoder As Long, ByVal Out As String) As Long
    Public Declare Function kd_calculateHash Lib "bncsutil.dll" _
        (ByVal decoder As Long, ByVal ClientToken As Long, ByVal ServerToken As Long) As Long
    Public Declare Function kd_getHash Lib "bncsutil.dll" _
        (ByVal decoder As Long, ByVal Out As String) As Long
    Public Declare Function kd_isValid Lib "bncsutil.dll" _
        (ByVal decoder As Long) As Long

    'New Logon System

    ' Call nls_init() to get a "handle" to an NLS object (nls_init will return 0
    ' if it encounters an error).  This "handle" should be passed as the "NLS"
    ' argument to all the other nls_* functions.  You do not need to change the
    ' username and password to upper-case as nls_init() will do this for you.
    ' Call nls_free() on the handle to free the memory it's using.
    ' nls_account_create() and nls_account_logon() generate the bodies of
    ' SID_AUTH_ACCOUNTCREATE and SID_AUTH_ACCOUNTLOGIN packets, respectively.

    Public Declare Function nls_init Lib "bncsutil.dll" _
        (ByVal Username As String, ByVal Password As String) As Long 'really returns a POINTER!
    Public Declare Function nls_init_l Lib "bncsutil.dll" _
        (ByVal Username As String, ByVal Username_Length As Long, _
        ByVal Password As String, ByVal Password_Length As Long) As Long
    Public Declare Function nls_reinit Lib "bncsutil.dll" _
        (ByVal NLS As Long, ByVal Username As String, ByVal Password As String) As Long
    Public Declare Function nls_reinit_l Lib "bncsutil.dll" _
        (ByVal NLS As Long, ByVal Username As String, ByVal Username_Length As Long, _
        ByVal Password As String, ByVal Password_Length As Long) As Long
    Public Declare Sub nls_free Lib "bncsutil.dll" _
        (ByVal NLS As Long)
    Public Declare Function nls_account_create Lib "bncsutil.dll" _
        (ByVal NLS As Long, ByVal buffer As String, ByVal BufLen As Long) As Long
    Public Declare Function nls_account_logon Lib "bncsutil.dll" _
        (ByVal NLS As Long, ByVal buffer As String, ByVal BufLen As Long) As Long
    Public Declare Sub nls_get_A Lib "bncsutil.dll" _
        (ByVal NLS As Long, ByVal Out As String)
    Public Declare Sub nls_get_M1 Lib "bncsutil.dll" _
        (ByVal NLS As Long, ByVal Out As String, ByVal B As String, ByVal Salt As String)
    Public Declare Function nls_check_M2 Lib "bncsutil.dll" _
        (ByVal NLS As Long, ByVal M2 As String, ByVal B As String, ByVal Salt As String) As Long
    Public Declare Function nls_check_signature Lib "bncsutil.dll" _
        (ByVal Address As Long, ByVal Signature As String) As Long
    Public Declare Function nls_account_change_proof Lib "bncsutil.dll" _
        (ByVal NLS As Long, ByVal buffer As String, ByVal NewPassword As String, _
        ByVal B As String, ByVal Salt As String) As Long 'returns a new NLS pointer for the new password
    Public Declare Sub nls_get_S Lib "bncsutil.dll" _
        (ByVal NLS As Long, ByVal Out As String, ByVal B As String, ByVal Salt As String)
    Public Declare Sub nls_get_K Lib "bncsutil.dll" _
        (ByVal NLS As Long, ByVal Out As String, ByVal s As String)

    '  Constants
    '---------------------------
    Public Const BNCSUTIL_PLATFORM_X86& = &H1
    Public Const BNCSUTIL_PLATFORM_WINDOWS& = &H1
    Public Const BNCSUTIL_PLATFORM_WIN& = &H1

    Public Const BNCSUTIL_PLATFORM_PPC& = &H2
    Public Const BNCSUTIL_PLATFORM_MAC& = &H2

    Public Const BNCSUTIL_PLATFORM_OSX& = &H3



    '  VB-Specifc Functions
    '---------------------------

    ' RequiredVersion must be a version as a.b.c
    ' Returns True if the current BNCSutil version is sufficent, False if not.
    Public Function bncsutil_checkVersion(ByVal RequiredVersion As String) As Boolean
        Dim i&, j&
        Dim Frag() As String
        Dim Req As Long, Check As Long
        bncsutil_checkVersion = False
        Frag = Split(RequiredVersion, ".")
        j = 0
        For i = UBound(Frag) To 0 Step -1
            Check = Check + (CLng(Val(Frag(i))) * (100 ^ j))
            j = j + 1
        Next i
        Check = bncsutil_getVersion()
        If (Check >= Req) Then
            bncsutil_checkVersion = True
        End If
    End Function

    Public Function bncsutil_getVersionString() As String
        Dim Str As String
        Str = New String(vbNullChar, 10)
        Call bncsutil_getVersionString_Raw(Str)
        bncsutil_getVersionString = Str
    End Function

    'CheckRevision
    Public Function checkRevision(ByVal ValueString As String, ByVal File1$, ByVal File2$, ByVal File3$, ByVal mpqNumber As Long, ByVal Checksum As Long) As Boolean
        checkRevision = (checkRevision_Raw(ValueString, File1, File2, File3, mpqNumber, Checksum) > 0)
    End Function

    Public Function checkRevisionA(ByVal ValueString As String, ByVal Files() As String, ByVal mpqNumber As Long, ByVal Checksum As Long) As Boolean
        checkRevisionA = (checkRevision_Raw(ValueString, Files(0), Files(1), Files(2), mpqNumber, Checksum) > 0)
    End Function

    'EXE Information
    'Information string (file name, date, time, and size) will be placed in InfoString.
    'InfoString does NOT need to be initialized (e.g. InfoString = String$(255, vbNullChar))
    'Returns the file version or 0 on failure.
    Public Function getExeInfo(ByVal EXEFile As String, ByVal InfoString As String, Optional ByVal Platform As Long = BNCSUTIL_PLATFORM_WINDOWS) As Long
        Dim Version As Long
        Dim InfoSize As Long
        Dim Result As Long
        Dim i&

        InfoSize = 256
        InfoString = New String(vbNullChar, 256)


        Result = getExeInfo_Raw(EXEFile, InfoString, InfoSize, Version, Platform)
        If Result = 0 Then
            getExeInfo = 0
            Exit Function
        End If
        While Result > InfoSize
            If InfoSize > 1024 Then
                getExeInfo = 0
                Exit Function
            End If
            InfoSize = InfoSize + 256
            InfoString = New String(vbNullChar, InfoSize)
            Result = getExeInfo_Raw(EXEFile, InfoString, InfoSize, Version, Platform)
        End While
        getExeInfo = Version
        i = InStr(InfoString, vbNullChar)
        If i = 0 Then Exit Function
        InfoString = Left$(InfoString, i - 1)
    End Function

    'OLS Password Hashing
    Public Function doubleHashPassword(ByVal Password As String, ByVal ClientToken&, ByVal ServerToken&) As String
        Dim Hash As New String(vbNullChar, 20)

        doubleHashPassword_Raw(Password, ClientToken, ServerToken, Hash)
        doubleHashPassword = Hash
    End Function

    Public Function hashPassword(ByVal Password As String) As String
        Dim Hash As New String(vbNullChar, 20)


        hashPassword_Raw(Password, Hash)
        hashPassword = Hash
    End Function

End Module



Can someone check if this is correct. Also, can I get an example showing how to call these function correctly

Thanks.

[MyndFyre]

Unless you have a specific reason for using BNCSUtil, I suggest you use MBNCSUtil.  It is specifically designed for .NET whereas BNCSUtil is designed for C, C++, and VB6-based programming.

If you decide to move forward with using BNCSUtil, bear in mind that Long integers in VB6 are 32-bit and Integer types are 16-bit, whereas in .NET a Long is 64-bit and an Integer is 32-bit.