Get product key (Registy binary read) not working?

[death1]

This is nothing malicious, I generally need my game hex key.

Imports Microsoft.Win32
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        Dim Arma2OA As String = GetProductKey("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Bohemia Interactive Studio\ArmA 2 OA", "key")        TextBox2.Text = Arma2OA        MsgBox("Keys Updated!")    End Sub    Public Function GetProductKey(ByVal KeyPath As String, ByVal ValueName As String) As String
        Dim HexBuf As Object = My.Computer.Registry.GetValue(KeyPath, ValueName, 0)
        If HexBuf Is Nothing Then Return "N/A"
        Dim tmp As String = ""
        For l As Integer = LBound(DirectCast(HexBuf, System.Array)) To UBound(DirectCast(HexBuf, System.Array))            tmp = tmp & " " & Hex(HexBuf(l))        Next
        Dim StartOffset As Integer = 52        Dim EndOffset As Integer = 67        Dim Digits(24) As String
        Digits(0) = "B" : Digits(1) = "C" : Digits(2) = "D" : Digits(3) = "F"        Digits(4) = "G" : Digits(5) = "H" : Digits(6) = "J" : Digits(7) = "K"        Digits(8) = "M" : Digits(9) = "P" : Digits(10) = "Q" : Digits(11) = "R"        Digits(12) = "T" : Digits(13) = "V" : Digits(14) = "W" : Digits(15) = "X"        Digits(16) = "Y" : Digits(17) = "2" : Digits(18) = "3" : Digits(19) = "4"        Digits(20) = "6" : Digits(21) = "7" : Digits(22) = "8" : Digits(23) = "9"
        Dim dLen As Integer = 29        Dim sLen As Integer = 15        Dim HexDigitalPID(15) As String        Dim Des(30) As String
        Dim tmp2 As String = ""
        For i = StartOffset To EndOffset            HexDigitalPID(i - StartOffset) = HexBuf(i)            tmp2 = tmp2 & " " & Hex(HexDigitalPID(i - StartOffset))        Next
        Dim KEYSTRING As String = ""
        For i As Integer = dLen - 1 To 0 Step -1            If ((i + 1) Mod 6) = 0 Then                Des(i) = "-"                KEYSTRING = KEYSTRING & "-"            Else                Dim HN As Integer = 0                For N As Integer = (sLen - 1) To 0 Step -1                    Dim Value As Integer = ((HN * 2 ^ 8) Or HexDigitalPID(N))                    HexDigitalPID(N) = Value \ 24                    HN = (Value Mod 24)
                Next
                Des(i) = Digits(HN)                KEYSTRING = KEYSTRING & Digits(HN)            End If        Next
        Return StrReverse(KEYSTRING)    End FunctionEnd Class

why isn't this working?^.^

 

[jmcilhinney]

Your code is barely readable. You've taken something simple and made it hard. Just copy the code as text from the IDE and paste into

 tags and we'll be able to read it easily.

Also, your use of colons is abominable.  If you want to create a String array then just do this:[xcode=vb]Dim arr As String() = {"A", "B", "C"}