Tag: public

I try to hash the public key SHA256 and then ripemed160 and get the hash. but there is a mistake System.ArgumentOutOfRangeException: 'Index and length must refer to a location within the string. Parameter name: length'
Why this?

Public key: 2b4632d08485ff1df2db55b9dafd23347d1c47a457072a1e87be26896549a8737

Hash should be: 93ce48570b55c42c2af816aeaba06cfee1224fae

Private Function HexStringToByteArray(ByVal shex As String) As Byte()
    Dim B As Byte() = Enumerable.Range(0, shex.Length).Where(Function(x) x Mod 2 = 0).(Select)(Function(x) Convert.ToByte(shex.Substring(x, 2), 16)).ToArray()
    Return Enumerable.Range(0, shex.Length).Where(Function(x) x Mod 2 = 0).(Select)(Function(x) Convert.ToByte(shex.Substring(x, 2), 16)).ToArray()
End Function


Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click

Dim public_key as String = "2b4632d08485ff1df2db55b9dafd23347d1c47a457072a1e87be26896549a8737"
    Dim pubkey_hash As String

    Dim sha256 As SHA256 = SHA256Managed.Create()

    Dim bytes As Byte() = HexStringToByteArray(public_key)
    Dim hash As Byte() = sha256.ComputeHash(bytes)
    Dim stringBuilder1 As New StringBuilder()

    For i As Integer = 0 To hash.Length - 1
        stringBuilder1.Append(hash(i).ToString("X2"))
    Next

    Dim ripemed160 As RIPEMD160 = RIPEMD160Managed.Create()

    bytes = HexStringToByteArray(stringBuilder1.ToString())
    hash = ripemed160.ComputeHash(bytes)

    Dim stringBuilder2 As New StringBuilder()

    For i As Integer = 0 To hash.Length - 1
        stringBuilder2.Append(hash(i).ToString("X2"))
    Next



    Dim arr() As Char = stringBuilder2.ToString.ToCharArray()

    Dim LE As String = ""
    Dim LE2 As String = ""

    Dim items_length As Integer = 0
    Dim itemcount As Integer = 0

    For Each item In arr
        itemcount += 1
        items_length += 1


        LE &= item.ToString

        If itemcount = 2 Then
            itemcount = 0

            LE2 = LE2.Insert(0, LE)

            LE = ""
        End If

        If items_length = arr.Length Then
            LE2 = LE2.Insert(0, LE)
        End If


    Next

    pubkey_hash = LE2
    TextBox14.Text = pubkey_hash

End Sub

and is there any way to shorten this code? Loops & if statements etc.