Random Private Key Generator For Excel

Function HexKeyGenerator() As String
'Generates random 64 bit hexidecimal number

    Dim i As Long
    For i = 1 To 32
        HexKeyGenerator = Evaluate("=DEC2HEX(RANDBETWEEN(0,255),2)") & HexKeyGenerator
    Next i

End Function


Function binaryKEYbuilder() As String
'Generates random 256 bit binary number

    Dim i As Long
    For i = 1 To 32
        binaryKEYbuilder = Evaluate("=DEC2BIN(RANDBETWEEN(0,255),8)") & binaryKEYbuilder
    Next i

End Function


Function HexTo256Binary(hexNumber As String) As String
'converts hexdecimal number to 256 bit binary number

    Dim i As Long
    If Len(hexNumber) < 64 Then
        For i = Len(hexNumber) + 1 To 64
            hexNumber = "0" & hexNumber
        Next i
    End If


    For i = 63 To 1 Step -2
        HexTo256Binary = Application.WorksheetFunction.Hex2Bin(Mid(hexNumber, i, 2), 8) & HexTo256Binary

    Next i

End Function