'Rextester.Program.Main is the entry point for your code. Don't change it.

'Compiler version 11.0.50709.17929 for Microsoft (R) .NET Framework 4.5

​

Imports System

Imports System.IO

Imports System.Threading

'Imports Microsoft.SolverFoundation.Common

'Imports System.Windows.Forms

Imports System.Globalization

Imports System.String

Imports System.Net

Imports System.Random

Imports System.Numerics

Imports System.Double

Imports System.Collections.Generic

Imports System.Linq

Imports System.Text

Imports System.Text.RegularExpressions

Imports System.Security.Cryptography

Imports Microsoft.VisualBasic

Imports Newtonsoft.Json

Imports Newtonsoft.Json.Linq

​

Namespace Rextester

Public Module Program

​

Dim rng As New RNGCryptoServiceProvider()

​

Public Function GetRemoteContent(ByVal url As String, ByVal reqtimeout As Integer) As string

Dim returnVal = ""

Try

Dim myHttpWebRequest As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest)

myHttpWebRequest.AllowAutoRedirect = true

myHttpWebRequest.Method = "GET"

myHttpWebRequest.Timeout = reqtimeout

myHttpWebRequest.KeepAlive = true

myHttpWebRequest.UserAgent = "other"

myHttpWebRequest.ContentType = "text/html"

myHttpWebRequest.Accept = "text/html"

ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12

​

Dim myHttpWebResponse As HttpWebResponse = CType(myHttpWebRequest.GetResponse(), HttpWebResponse)

'Console.WriteLine(ControlChars.Lf + ControlChars.NewLine + "StatusCode: {0}, StatusDescription: {1}, Thread: {2}", myHttpWebResponse.StatusCode, myHttpWebResponse.StatusDescription, System.Threading.Thread.CurrentThread.name)

Dim receiveStream As Stream = myHttpWebResponse.GetResponseStream()

Dim readStream As New StreamReader(receiveStream)

returnVal = readStream.ReadToEnd()

readStream.Close()

myHttpWebResponse.Close()

'System.Threading.Thread.Sleep(500)

'return returnVal

Catch e As WebException

'Throw New Exception(String.Format("WebException Raised. The following error occured : {0}, Thread: {1}", e.Status, System.Threading.Thread.CurrentThread.name))

Console.WriteLine("DownloadStr exception: {0}, status: {1}, stack: {2}", e.Message, e.Status, e.toString())

Catch e As Exception

'Throw New Exception(String.Format("Exception Raised. The following error occured : {0}, Thread: {1}", e.Message, System.Threading.Thread.CurrentThread.name))

Console.WriteLine("DownloadStr exception: {0}, stack: {1}", e.Message, e.toString())

End Try

'System.Threading.Thread.Sleep(500)

Return returnVal

End Function

​

Public Function GenerateRandom(min as BigInteger, max as BigInteger) As BigInteger

​

Dim bigint As BigInteger

Dim rand As Random = new Random()

Do

' find the range of number (so we can generate #s from 0 --> diff)

Dim range as BigInteger = max - min

' create random bigint fitting for the range

Dim bytes As Byte() = range.ToByteArray()

Using rng As RNGCryptoServiceProvider = new RNGCryptoServiceProvider()

rng.GetBytes(bytes)

End Using

' ensure positive number (remember we're using 0 --> diff)

bytes(bytes.Length - 1) = bytes(bytes.Length - 1) And CByte(&H7f)

' add minimum to this positive number so that the number is now 

' a candiate for being between min&max

bigint = min + New BigInteger(bytes)

' since we now only have a random number within a certain number of

' bytes it could be out of range. If so, just try again.

Loop While (bigint > max)

' we have a number in the given range!

return bigint 

End Function

​

Public Function GenerateSHA256String(inputString As String) As String

Dim sha256 As SHA256 = SHA256Managed.Create()

Dim inputStringBytes As Byte() = StringToByteArray(inputString)

Dim hash As Byte() = sha256.ComputeHash(inputStringBytes)

Return ByteArrayToString(hash)

End Function

​

Public Function ByteArrayToString(ByVal arrInput() As Byte) As String

        Dim i As Integer

        Dim sOutput As New StringBuilder(arrInput.Length)

        For i = 0 To arrInput.Length - 1

            sOutput.Append(arrInput(i).ToString("X2"))

        Next

        Return sOutput.ToString()

End Function

​

Public Function StringToByteArray(s As String) As Byte()

' remove any spaces from, e.g. "A0 20 34 34"

s = s.Replace(" "c, "")

' make sure we have an even number of digits

If (s.Length And 1) = 1 Then

Throw New FormatException("Odd string length when even string length is required.")

End If

' calculate the length of the byte array and dim an array to that

Dim nBytes = s.Length \ 2

Dim a(nBytes - 1) As Byte

' pick out every two bytes and convert them from hex representation

For i As Integer = 0 To nBytes - 1

a(i) = Convert.ToByte(s.Substring(i * 2, 2), 16)

Next

Return a

End Function

​

Public Dim foundAddress As Boolean = False

Public Dim findAddessArr() As String = {"1REX2a8dL57Z7xcifGLPXg8erZnFs95oW","16rCmCmbuWDhPjWTrpQGaU3EPdZF7MTdUk","1FeexV6bAHb8ybZjqQMjJrcCrHGW9sb6uF","1AFRiLwCHUAuiS8K18rYW6v4NmqfLymPjf","1EVx5KFKEXDEpiAecsMXQHbRBVCNgsJR2k"}

​

Public Function Main(args() As string) As Integer

Dim lowerSeed As BigInteger = BigInteger.parse("165995515583513765159867554741275239525775143034029558108335875594116449195")

'Dim upperSeed As BigInteger = BigInteger.parse("469700915182421992791441970869346381524813517136075007720199545276152477010")

Dim upperSeed As BigInteger = BigInteger.parse("904625697166532776746648320380374280100293470930272690489102837043110636675")

​

     lowerSeed = BigInteger.parse("100000000")

     upperSeed = BigInteger.parse("9999999999")

​

Dim threads(0) As Thread

Dim thread As Thread

​

Try

​

AddHandler AppDomain.CurrentDomain.ProcessExit, AddressOf Program_ProcessExit

Dim found As Boolean = findAddress(lowerSeed, upperSeed, 3, foundAddress)

'thread.name = "pkThrd" & (t + 1).toString()

'thread.isBackground = true

'Console.WriteLine("New thread: {0}, lowerseed: {1}, upperseed: {2}", thread.name, lowerSeed, upperSeed)

'threads(t) = thread

'threads(t).Start()

'Thread.Yield()

'Next

​

'For tnum As Integer = 0 To threads.length - 1

'threads(tnum).Join()

'Next

​

Catch e As TimeoutException

         Console.WriteLine(ControlChars.NewLine + "[Main] Timeout exception was raised : {0}, Thread: {1}", e.Message,System.Threading.Thread.CurrentThread.name)

Catch Tae as ThreadAbortException

Console.WriteLine("[Main] ThreadAbortException: {0}, Thread: {1}", Tae.message, System.Threading.Thread.CurrentThread.name)

Catch Ex as Exception

Console.WriteLine("Main Exception: {0}", Ex.message)

Finally

Console.WriteLine("Main finally")

End Try

Console.WriteLine("Main End")

rng.dispose()

Return 0

End Function

​

Private Function Main_Exit()

    Console.WriteLine("Main Terminate")

End Function

​

Public Function getStringBatches(ByVal inputString As String, ByVal batchSize As Integer, ByVal delimiter As String) As String()

Dim strBatches(-1) As String

Dim inputStringArr As String() = inputString.split(delimiter)

Dim remainder As Integer

Dim divisor As Integer = inputStringArr.GetLength(0) \ batchSize

Dim boundary = Math.DivRem(inputStringArr.GetLength(0), divisor, remainder)

Dim inputArrSlice(-1) As String

Dim nextBatchIdx As Integer

'Console.WriteLine("[Uncomp] boundary: {0}, divisor: {1}, remainder: {2}, arr size: {3}", boundary, divisor, remainder, inputStringArr.GetLength(0))

​

For batchCount As Integer = 0 To Math.Max(divisor - 1, 0)

ReDim inputArrSlice(boundary - 1)

Array.Copy(inputStringArr, batchCount * boundary, inputArrSlice, 0, boundary)

nextBatchIdx = strBatches.GetUpperBound(0) + 1

Redim Preserve strBatches(nextBatchIdx)

strBatches(nextBatchIdx) = String.join(delimiter, inputArrSlice)

Next

If remainder > 0 Then

ReDim inputArrSlice(remainder - 1)

Array.Copy(inputStringArr, inputStringArr.GetLength(0) - remainder, inputArrSlice, 0, remainder)

nextBatchIdx = strBatches.GetUpperBound(0) + 1

Redim Preserve strBatches(nextBatchIdx)

strBatches(nextBatchIdx) = String.join(delimiter, inputArrSlice)

End If

Return strBatches

End Function

​

Public Function processLinks(ByVal inputString As String, ByVal pageNum As String, ByVal compressed As Boolean) 

Dim pattern As String = "(<a\shref\=""https\://blockchain\..*/address/.*"">)(.*)(</a>.*)(<a\shref\=""https\://blockchain\..*/address/.*"">)(.*)(</a>)"

Dim matches As MatchCollection = Regex.Matches(inputString, pattern)

Dim batchSize As Integer = 100

Dim doRetry As Boolean = True

Dim retryCount As Integer = 0

Dim maxRetries as Integer = 0

Dim matchValUncomp As String = "|"

Dim matchValComp As String = "|"

For Each match As Match In matches

If match.Groups(2).value.trim() <> "1LBCPotwPzBvBcTtd7ADGzCWPXXsZE19j6" and match.Groups(5).value.trim() <> "1LBCPotwPzBvBcTtd7ADGzCWPXXsZE19j6" then

matchValUncomp = matchValUncomp & "|" & match.Groups(2).value

matchValComp = matchValComp & "|" & match.Groups(5).value

End if

Next

matchValUncomp = matchValUncomp.replace("||", "")

matchValUncomp = matchValUncomp.replace(" ", "")

matchValComp = matchValComp.replace("||", "")

matchValComp = matchValComp.replace(" ", "")

​

Dim uncompBatches As String() = getStringBatches(matchValUncomp, batchSize, "|")

Dim compBatches As String() = getStringBatches(matchValComp, batchSize, "|")

'Console.WriteLine("[Uncomp] uncompBatches.length: {0}, uncompBatches: {1}", uncompBatches.length, uncompBatches(0))

For batchIndex As Integer = 0 To uncompBatches.GetUpperBound(0)

'Console.WriteLine("[Uncomp] batchIndex: {0}, uncompBatches: {1}", batchIndex, uncompBatches(batchIndex).split("|").length)

Dim client As new Webclient()

client.Headers.Add("User-Agent", "other")

​

ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12

Do

Try

Dim recTxs

Dim addrBal As String = "-1"

​

If compressed then

recTxs = client.downloadString("https://blockchain.info/multiaddr?active=" & compBatches(batchIndex))

Dim multiAddrItems As MultiAddrItem() = JsonConvert.DeserializeObject(Of MultiAddrItem())(jObject.parse(recTxs)("addresses").toString())

​

doRetry = False

If (multiAddrItems isnot nothing and multiAddrItems.length > 0) then

Dim aliveItems As MultiAddrItem() = Array.FindAll(multiAddrItems, AddressOf FindTx)

For aliveIdx As Integer = 0 To aliveItems.length - 1

Dim addr As String = aliveItems(aliveIdx).address

Dim txs As Integer = aliveItems(aliveIdx).n_tx

Dim finalBal = aliveItems(aliveIdx).final_balance

Console.WriteLine("[Comp] Txs: {0}, Balance: {1}, Address: {2}, pageNum: {3}", txs, BigInteger.parse(finalBal), addr, pageNum)

Next

End if

​

doRetry = False

Else

recTxs = client.downloadString("https://blockchain.info/multiaddr?active=" & uncompBatches(batchIndex))

Dim multiAddrItems As MultiAddrItem() = JsonConvert.DeserializeObject(Of MultiAddrItem())(jObject.parse(recTxs)("addresses").toString())

​

doRetry = False

If (multiAddrItems IsNot Nothing and multiAddrItems.length > 0) then

Dim aliveItems As MultiAddrItem() = Array.FindAll(multiAddrItems, AddressOf FindTx)

For aliveIdx As Integer = 0 To aliveItems.length - 1

Dim addr As String = aliveItems(aliveIdx).address

Dim txs As Integer = aliveItems(aliveIdx).n_tx

Dim finalBal = aliveItems(aliveIdx).final_balance

Console.WriteLine("[Uncomp] Txs: {0}, Balance: {1}, Address: {2}, pageNum: {3}", txs, BigInteger.parse(finalBal), addr, pageNum)

Next

End if

End if

Catch Ex as Exception

'Console.WriteLine("matchVal: {0}", matchVal)

Console.WriteLine("exception: {0}, stack: {1}", Ex.message, Ex.toString())

doRetry = True

End Try

retryCount = retryCount + 1

If retryCount >= maxRetries then

doRetry = False

retryCount = 0

End if

'System.Threading.Thread.Sleep(1000)

Loop While doRetry

Next

End Function

​

Public Function FindTx(item As MultiAddrItem) As Boolean

Return item.n_tx > 0

End Function

​

Public Function findAddress(ByVal lowerLimit As BigInteger,ByVal upperLimit As BigInteger,ByVal stepSize As BigInteger, ByRef foundAddress As Boolean) As Boolean

​

Dim processedPageCount As Integer = 0

Dim rand As BigInteger

Dim pubAddrPageURL As String = ""

Dim lastPageNum As BigInteger = BigInteger.parse("904625697166532776746648320380374280100293470930272690489102837043110636675")

​

Try

rand = GenerateRandom(lowerLimit, BigInteger.Min(upperLimit, lastPageNum))

Dim startPage As BigInteger = rand

Dim endPage As BigInteger = BigInteger.Min(startPage + stepSize, lastPageNum)

Dim doRetry As Boolean = True

Dim retryCount As Integer = 0

Dim maxRetries as Integer = 0

'Console.WriteLine("[Rand]startPage:{0},Length:{1},Thread:{2}", startPage.toString(), startPage.toString().length, System.Threading.Thread.CurrentThread.name)

​

For pageCtr As BigInteger = startPage To endPage step 1

If foundAddress then

Return false

End if

pubAddrPageURL = "https://lbc.cryptoguru.org/dio/" & pageCtr.toString()

Do

Try

Dim pubAddrPageContent As String = GetRemoteContent(pubAddrPageURL, 10000)

processLinks(pubAddrPageContent, pageCtr.toString(), false)

processLinks(pubAddrPageContent, pageCtr.toString(), true)

doRetry = False

'Dim foundArr() As String = Array.FindAll(findAddessArr, Function(arrVal) pubAddrPageContent.contains(arrVal))

'If foundArr.length > 0 Then

'foundAddress = True

'Console.WriteLine("[***Found***] URL: {0}, Thread: {1}, foundItems: {2}", pubAddrPageURL, System.Threading.Thread.CurrentThread.name, String.join(",", foundArr))

'doRetry = False

'Return True

'End If

Catch Ex as Exception

Console.WriteLine("exception: {0}, stack: {1}", Ex.message, Ex.toString())

doRetry = True

'System.Threading.Thread.Yield()

End Try

retryCount = retryCount + 1

If retryCount >= maxRetries then

doRetry = False

retryCount = 0

End if

'System.Threading.Thread.Yield()

'System.Threading.Thread.Sleep(10000)

Loop While doRetry

'Console.WriteLine("[End Page] pageCtr: {0}, Thread: {1}", pageCtr.toString(), System.Threading.Thread.CurrentThread.name)

processedPageCount = processedPageCount + 1

Next

​

Console.WriteLine("[End Rand]pageCnt:{0},Thread:{1}", processedPageCount.toString(), System.Threading.Thread.CurrentThread.name)

​

Catch e As TimeoutException

         Console.WriteLine(ControlChars.NewLine + "Timeout exception was raised : {0}, pageCnt: {1}, Thread: {2}", e.Message,processedPageCount.toString(),System.Threading.Thread.CurrentThread.name)

Catch e as Exception

Console.WriteLine(ControlChars.NewLine + "The following exception was raised : {0}, Thread: {1}", e.Message, System.Threading.Thread.CurrentThread.name)

End try

Return False

End Function

​

Public Function Program_ProcessExit(ByVal sender As Object, ByVal e As EventArgs)

    Console.WriteLine(ControlChars.NewLine + "Application closing: {0}, Thread: {1}", e.toString(), System.Threading.Thread.CurrentThread.name)

End Function

​

Public Class MultiAddrItem

Public address As String

Public n_tx As Integer

Public final_balance As Integer

Public total_received As Integer

Public total_sent As Integer

End Class

​

End Module

End Namespace

​

​