Импорт System.Security.Cryptography
Импорт System.Numerics

Модуль ValidateBitCoinAddress

Функция isValidBitcoinAddress (s As String) As Boolean
    Dim regExPattern As String = "[A-Za-Z1-9] {27,35} $"
    Если MatchString (s, regExPattern) Тогда
        Если get_bcaddress_version (s) <> "" затем
            isValidBitcoinAddress = True
        еще
            isValidBitcoinAddress = False
        End If
    еще
        isValidBitcoinAddress = False
    End If
End Function


Функция MatchString (ByVal ул As String, ByVal regexstr As String) As Boolean
    ул = str.Trim ()
    Dim рисунок как новый System.Text.RegularExpressions.Regex (regexstr)
    Возвращение pattern.IsMatch (ул)
End Function

Функция get_bcaddress_version (strAddress) As String

    Дим адр As Byte ()
    Dim версия As Byte
    Дим контрольная сумма (3) As Byte
    Дим h3 (3) As Byte
    Dim х As Integer

    адр = b58decode (strAddress, 25)

    Если IsNothing (адрес), то
        'потерпеть неудачу
        get_bcaddress_version = ""
        Exit Function
    End If

    Тусклый lenAddr As Integer = addr.GetLength (0)
    Dim vh160 (lenAddr - 5) Байт
    Dim ша As New SHA256Managed ()

    версия = адр (0)
    контрольная сумма = {ADDR (lenAddr - 4), адр (lenAddr - 3), адр (lenAddr - 2), адр (lenAddr - 1)}

    При х = 0 Для vh160.GetLength (0) - 1
        vh160 (х) = ADDR (х)
    следующий

    Дим Хэш () As Byte = sha.ComputeHash (vh160)
    Тусклое SecondHash () As Byte = sha.ComputeHash (Хеш)

    h3 = {SecondHash (0), SecondHash (1), SecondHash (2), SecondHash (3)}

    Если h3 (0) = контрольная сумма (0) и Н3 (1) = контрольная сумма (1) и Н3 (2) = контрольная сумма (2) и Н3 (3) = контрольная сумма (3) Тогда
        get_bcaddress_version = version.ToString
    еще
        'потерпеть неудачу
        get_bcaddress_version = ""
    End If

End Function

Функция b58encode (б () As Byte) As String


    Dim b58chars As String = "123456789ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijkmnopqrstuvwxyz"
    Тусклое b58base Как BigInteger = 58
    Dim х As BigInteger
    Тусклое LONG_VALUE Как BigInteger = 0
    Тусклый результат As String = ""
    Тусклый УПЙ Как BigInteger = 0
    Тусклый IDIV Как BigInteger = 0
    Тусклое b256base В BigInteger = 256

    Dim C As Integer
    Dim лв As Integer

    LV = b.GetLength (0) - 1
    с = 0
    При х = 0 Л.В. К Шаг -1
        LONG_VALUE = LONG_VALUE + BigInteger.Pow (b256base, х) * Ь (с)
        с = с + 1
    следующий

    Do While LONG_VALUE >= b58base
        ИМ = LONG_VALUE моделирование b58base
        IDIV = LONG_VALUE / b58base

        Результат = b58chars (УПМ) & результат
        LONG_VALUE = IDIV
    петля
    Результат = b58chars (LONG_VALUE) & результат

    При х = 0 Л.В.
        Если Ь (х) = CByte (0) Тогда
            Результат = b58chars (0) & результат
        еще
            Выход для
        End If
    следующий

    Возвращаемый результат
    End Function

Функция InsertAt (б As Byte, Barr As Byte (), поз As Integer) As Byte ()

    Если IsNothing (Барр) Тогда
        «Пустой массив; возвращать одноклеточный массив
        Тусклое tmpsomeOtherBarr (0) As Byte
        tmpsomeOtherBarr (0) = Ь
        InsertAt = tmpsomeOtherBarr
        Exit Function
    End If

    Dim х As Integer
    Тусклое tmpbArr (bArr.GetLength (0)) As Byte

    Если позы = -1 Тогда
        «Вставить в конец массива
        При х = 0 Для bArr.GetLength (0) - 1
            tmpbArr (х) = Барра (х)
        следующий
        tmpbArr (bArr.GetLength (0)) = Ь

        Возвращение tmpbArr
    ElseIf поз = 0 Тогда
        «Вставить в начале
        tmpbArr (0) = Ь
        При х = 1 К bArr.GetLength (0)
            tmpbArr (х) = Барра (х - 1)
        следующий
        Возвращение tmpbArr
    еще
        «Вставить в середине
        При х = 0 в поз - 1
            tmpbArr (х) = Барра (х)
        следующий
        tmpbArr (позы) = Ь
        При х = поз + 1 bArr.GetLength (0)
            tmpbArr (х) = Барра (х)
        следующий
        Возвращение tmpbArr

    End If
End Function

Функция b58decode (v As String, л As Integer) As Byte ()

    Dim b58chars As String = "123456789ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijkmnopqrstuvwxyz"
    Тусклое b58base Как BigInteger = 58
    Тусклое LONG_VALUE Как BigInteger = 0
    Dim лв As Integer
    Dim C As Integer
    Dim х As BigInteger
    Dim biPos Как BigInteger = 0
    Тусклый УПЙ Как BigInteger = 0
    Тусклый IDIV Как BigInteger = 0
    Дим результат (а) As Byte

    LV = LEN (v) - 1

    При х = 0 Л.В. К Шаг -1
        с = с + 1
        biPos = b58chars.IndexOf (середина (V, C, 1))
        LONG_VALUE = LONG_VALUE + BigInteger.Pow (b58base, х) * biPos
    следующий

    Do While LONG_VALUE >= 256
        ИМ = LONG_VALUE моделирование 256
        IDIV = LONG_VALUE / 256
        Результат = InsertAt (CByte (УПМ), результат, 0)
        LONG_VALUE = IDIV
    петля
    Результат = InsertAt (CByte (LONG_VALUE), результат, 0)

    При х = 1 Для Len (v)
        Если Середина (v, х, 1) = b58chars (0) Тогда
            Результат = InsertAt (CByte (0), результат, 0)
        еще
            Выход для
        End If
    следующий

    Если л > 0 И result.GetLength (0) <> л Тогда
        не возвращают ничего
    еще
        Возвращаемый результат
    End If

End Function

End Module