Valhalla Legends Forums Archive | Battle.net Bot Development | SC Cd Keys

AuthorMessageTime
~Mike~
Whats the difference between an invalid key and Keys that can't hash?
March 23, 2006, 8:24 PM
UserLoser
You make no sense
March 23, 2006, 9:15 PM
~Mike~
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.
March 23, 2006, 9:22 PM
Eternal
I think you need to ask the author of that keytester Mike. 'Couldn't Hash' is not a term that will make sense to anyone other than the person who coded it and decided to give it that name.
March 23, 2006, 9:45 PM
JoeTheOdd
Anything can hash into XSHA1. You're probably not using a very good keytester if they didn't know that.
March 23, 2006, 9:57 PM
~Mike~
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.
March 23, 2006, 10:36 PM
HdxBmx27
[quote author=~Mike~ link=topic=14572.msg148993#msg148993 date=1143148958]
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.
[/quote]
Thats cuz the 1st key is invalid.
You cant jsut change the last digety and BOOM new cdkey. It's way more complex than that. Also, if you do change the last diget, you make the cdkey invalid.
Poke
The 1st cdkey dosent pass the Checksum algorythem, witch is why BNET rejects it, but the 2nd one does, with is why BNET jsut says its invalid, (maby wrong product?) insted of rejecting it.

VB Code I used to test it:
[code]Private Sub Form_Load()
Debug.Print Checksum("3804540653077")
Debug.Print Checksum("3804540653070")
End Sub
Public Function Checksum(ByVal CDKey As String) As Boolean
Dim TheChecksum As Long, i As Byte
TheChecksum = 3
For i = 1 To 12
  TheChecksum = TheChecksum + ((Asc(Mid(CDKey, i, 1)) - &H30) Xor (TheChecksum * 2))
Next i
TheChecksum = TheChecksum Mod 10
If Asc(Mid(CDKey, 13, 1)) <> (TheChecksum + &H30) Then
  Checksum = False
  Exit Function
End If
Checksum = True
End Function
[/code]
~-~(HDX)~-~
March 23, 2006, 10:39 PM
~Mike~
I see. Thanks HDX
March 23, 2006, 10:42 PM

Search