Valhalla Legends Archive

I see. Thanks HDX

Oh, well thanks for the input

You know how you get ip'd from bnet with 1 invalid test? Well when you use the "unhashable" keys it dont ipban you. It jsut dont make sense.

Yes I do, 1. when i plug in 3804540653077 it says "[4:18:13 PM] [BNET] Your CD key was rejected, it may be invalid", but when i plug in 3804540653070 i get " [4:21:07 PM] [BNET] Your CD-key is invalid!" .
2.When i use my key tester it seperates the keys into muted, non muted, invalid, voided, Couldnt Hash, and Banned. Whats the Couldnt Hash mean.

Whats the difference between an invalid key and Keys that can't hash?

So lets say for sake of argument, the decode function is :

Public Sub DecodeSCKey(ByVal CDKey As String, ByRef Product As Long, ByRef PublicValue As Long, ByRef PrivateValue As Long)
Dim tKey(12) As String, tStr As String, tLng As Long, hashKey As Long, pos As Integer, i As Integer
    'Fill array
    For i = 0 To 12
        tKey(i) = Mid$(CDKey, i + 1, 1)
    Next i
    'Verify Key
    tLng = 3
    For i = 0 To 11
        tLng = tLng + (tKey(i) Xor (tLng * 2))
    Next i
    If tKey(12) = (tLng Mod 10) Then
        'Shuffling
        pos = &HB
        For i = &HC2 To 7 Step -&H11
            tStr = tKey(pos)
            tLng = i Mod &HC
            tKey(pos) = tKey(tLng)
            tKey(tLng) = tStr
            pos = pos - 1
        Next i
        'Final Values
        hashKey = &H13AC9741
        For i = 11 To 0 Step -1
            tStr = tKey(i)
            If Asc(tStr) <= 55 Then
                tKey(i) = (((hashKey And &HFF) And 7) Xor tStr)
                hashKey = hashKey \ 8
            ElseIf Asc(tStr) < 65 Then
                tKey(i) = ((i And 1) Xor tStr)
            End If
        Next i
        tStr = Join(tKey, vbNullString)
        Product = CLng("&H" & Left$(tStr, 2))
        PublicValue = CLng(Mid$(tStr, 3, 7))
        PrivateValue = CLng(Mid$(tStr, 10))
    End If
End Sub

I'm having trouble reversing that code.

So how would i implement the encode function after decoding. I mean I read earlier that its the same, but the code must be different. like would u reverse the operations taken?

Well, if the CD ends in 2 it puts 2 at end of private value, is it just a bad decode function?

Well after I decode my keys, i think i'm gettin an extra digit for my private value. i.e

2571472281941   1   2205677   5991

Where i thinks it is adding the 1 to end of private value from the 13th #. Any solutions?