Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Imports Microsoft.VisualBasic.CompilerServices
- Imports System.IO
- Imports System.Net
- Imports System.Runtime.CompilerServices
- Imports System.Security.Cryptography
- Imports System.Text
- Imports System.Threading
- Imports System
- Imports System.Collections
- Imports System.Collections.Generic
- Imports System.ComponentModel
- Imports System.Diagnostics
- Imports System.Net.Security
- Imports System.Net.Sockets
- Imports System.Security.Cryptography.X509Certificates
- Imports System.Text.RegularExpressions
- Imports Microsoft.VisualBasic
- Module Module1
- Public accSettings As String
- Public GetSettingsBool As Boolean
- Public IfLoggedIn As Boolean
- Private intt As Integer
- Public IsChanged As Boolean
- Public list As Object
- Public lThreads As Object
- Public mpp As Integer
- Public numis As String
- Public numToDone As Integer
- Public once As Integer
- Public Sessionz As CookieContainer
- Public stopp As Boolean
- Public SwitchLoginBool As Boolean
- Public TellMe As Boolean = False
- Private usernum As String()
- Public uuID As String
- Public i As Integer = 0
- Sub New()
- Module1.mpp = 0
- Module1.stopp = False
- Module1.list = File.ReadAllLines("list.txt")
- Module1.once = 0
- Module1.uuID = Guid.NewGuid.ToString.ToUpper
- Module1.lThreads = New List(Of Thread)
- Module1.IfLoggedIn = False
- Module1.SwitchLoginBool = False
- Module1.GetSettingsBool = False
- Module1.IsChanged = False
- Module1.numis = Nothing
- Module1.numToDone = 0
- End Sub
- Sub Main()
- Try
- Console.Title = " Checker [" + Conversions.ToString(Module1.i) + "]"
- While True
- Console.WriteLine("Enter password :")
- Dim pass As String = Console.[In].ReadLine()
- Console.WriteLine("Enter number of thread :")
- Dim thread As String = Console.[In].ReadLine()
- Console.WriteLine("Checking ..")
- Dim thr As New Thread(AddressOf Module1.begin)
- thr.Start()
- End While
- Catch ex As Exception
- End Try
- End Sub
- Private Sub _Lambda__10(ByVal a0 As Object)
- Module1.begin(Conversions.ToInteger(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(a0)))))
- End Sub
- Private Sub _Lambda__3(ByVal a0 As Object)
- Module1.checkerr(Conversions.ToInteger(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(a0)))))
- End Sub
- Private Sub _Lambda__4(ByVal a0 As Object)
- Module1.begin(Conversions.ToInteger(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(a0)))))
- End Sub
- Public Sub begin(ByVal c As Integer)
- Dim xx = 10
- If Operators.ConditionalCompareObjectGreater(c, RuntimeHelpers.GetObjectValue(Operators.SubtractObject(RuntimeHelpers.GetObjectValue(NewLateBinding.LateGet(RuntimeHelpers.GetObjectValue(Module1.list), Nothing, "Length", New Object(0 - 1) {}, Nothing, Nothing, Nothing)), 1)), False) Then
- c = Conversions.ToInteger(RuntimeHelpers.GetObjectValue(Operators.SubtractObject(RuntimeHelpers.GetObjectValue(NewLateBinding.LateGet(RuntimeHelpers.GetObjectValue(Module1.list), Nothing, "Length", New Object(0 - 1) {}, Nothing, Nothing, Nothing)), 1)))
- xx = Conversions.ToDecimal(RuntimeHelpers.GetObjectValue(NewLateBinding.LateGet(RuntimeHelpers.GetObjectValue(Module1.list), Nothing, "length", New Object(0 - 1) {}, Nothing, Nothing, Nothing)))
- End If
- usernum = New String((((c + 1) - 1) + 1) - 1) {}
- Dim num7 As Integer = (usernum.Length - 1)
- Dim i As Integer = 0
- Do While (i <= num7)
- usernum(i) = ""
- Dim dz As New Thread(New ParameterizedThreadStart(AddressOf Module1._Lambda__3), 100)
- dz.Start(i)
- i += 1
- Loop
- Do While True
- Try
- If Not Module1.stopp Then
- Dim num8 As Integer = (usernum.Length - 1)
- Dim j As Integer = 0
- Do While (j <= num8)
- If (usernum(j).Length <= 0) Then
- If Operators.ConditionalCompareObjectGreater(Module1.intt, RuntimeHelpers.GetObjectValue(Operators.SubtractObject(RuntimeHelpers.GetObjectValue(NewLateBinding.LateGet(RuntimeHelpers.GetObjectValue(Module1.list), Nothing, "Length", New Object(0 - 1) {}, Nothing, Nothing, Nothing)), 1)), False) Then
- Module1.intt = 0
- End If
- usernum(j) = Conversions.ToString(RuntimeHelpers.GetObjectValue(NewLateBinding.LateIndexGet(RuntimeHelpers.GetObjectValue(Module1.list), New Object() {Module1.intt}, Nothing)))
- Module1.intt += 1
- End If
- j += 1
- Loop
- End If
- Catch exception1 As Exception
- ProjectData.SetProjectError(exception1)
- Dim ex As Exception = exception1
- ProjectData.SetProjectError(ex)
- Dim exception2 As Exception = ex
- ProjectData.SetProjectError(exception2)
- ProjectData.ClearProjectError()
- ProjectData.ClearProjectError()
- ProjectData.ClearProjectError()
- End Try
- Loop
- End Sub
- Public Function snd(ByVal pk As String) As String
- Dim tcpClient As TcpClient = New TcpClient()
- tcpClient.Connect("i.instagram.com", 443)
- tcpClient.ReceiveBufferSize = 3000
- tcpClient.SendTimeout = 3000
- Dim obj As Object = New SslStream(tcpClient.GetStream(), False, AddressOf Module1.ValidateServerCertificate, Nothing)
- NewLateBinding.LateCall(obj, Nothing, "AuthenticateAsClient", New Object() {"i.instagram.com"}, Nothing, Nothing, Nothing, True)
- Dim aSCIIEncoding As ASCIIEncoding = New ASCIIEncoding()
- Dim array As String() = Strings.Split(pk, vbCrLf, -1, CompareMethod.Binary)
- ' The following expression was wrapped in a checked-statement
- Dim array4 As Boolean()
- For i As Integer = 0 To array.Length - 1
- Dim str As String = array(i)
- Dim array2 As Byte() = Encoding.[Default].GetBytes(str + vbCrLf)
- Dim arg_FD_0 As Object = obj
- Dim arg_FD_1 As Type = Nothing
- Dim arg_FD_2 As String = "Write"
- Dim array3 As Object() = New Object() {array2, 0, array2.Length}
- Dim arg_FD_3 As Object() = array3
- Dim arg_FD_4 As String() = Nothing
- Dim arg_FD_5 As Type() = Nothing
- array4 = New Boolean() {True, False, False}
- NewLateBinding.LateCall(arg_FD_0, arg_FD_1, arg_FD_2, arg_FD_3, arg_FD_4, arg_FD_5, array4, True)
- If array4(0) Then
- array2 = CType(Conversions.ChangeType(RuntimeHelpers.GetObjectValue(array3(0)), GetType(Byte())), Byte())
- End If
- NewLateBinding.LateCall(obj, Nothing, "Flush", New Object(0 - 1) {}, Nothing, Nothing, Nothing, True)
- Next
- Dim array5 As Byte() = New Byte(20001 - 1) {}
- Dim arg_1B1_0 As Object = obj
- Dim arg_1B1_1 As Type = Nothing
- Dim arg_1B1_2 As String = "Read"
- Dim array6 As Object() = New Object() {array5, 0, array5.Length}
- Dim arg_1B1_3 As Object() = array6
- Dim arg_1B1_4 As String() = Nothing
- Dim arg_1B1_5 As Type() = Nothing
- array4 = New Boolean() {True, False, False}
- NewLateBinding.LateCall(arg_1B1_0, arg_1B1_1, arg_1B1_2, arg_1B1_3, arg_1B1_4, arg_1B1_5, array4, True)
- If array4(0) Then
- array5 = CType(Conversions.ChangeType(RuntimeHelpers.GetObjectValue(array6(0)), GetType(Byte())), Byte())
- End If
- Return aSCIIEncoding.GetString(array5)
- End Function
- Public Function sndweb(ByVal pk As String) As String
- Dim tcpClient As TcpClient = New TcpClient()
- tcpClient.Connect("instagram.com", 443)
- tcpClient.ReceiveBufferSize = 3000
- tcpClient.SendTimeout = 3000
- Dim obj As Object = New SslStream(tcpClient.GetStream(), False, AddressOf Module1.ValidateServerCertificate, Nothing)
- NewLateBinding.LateCall(obj, Nothing, "AuthenticateAsClient", New Object() {"i.instagram.com"}, Nothing, Nothing, Nothing, True)
- Dim aSCIIEncoding As ASCIIEncoding = New ASCIIEncoding()
- Dim array As String() = Strings.Split(pk, vbCrLf, -1, CompareMethod.Binary)
- ' The following expression was wrapped in a checked-statement
- Dim array4 As Boolean()
- For i As Integer = 0 To array.Length - 1
- Dim str As String = array(i)
- Dim array2 As Byte() = Encoding.[Default].GetBytes(str + vbCrLf)
- Dim arg_FD_0 As Object = obj
- Dim arg_FD_1 As Type = Nothing
- Dim arg_FD_2 As String = "Write"
- Dim array3 As Object() = New Object() {array2, 0, array2.Length}
- Dim arg_FD_3 As Object() = array3
- Dim arg_FD_4 As String() = Nothing
- Dim arg_FD_5 As Type() = Nothing
- array4 = New Boolean() {True, False, False}
- NewLateBinding.LateCall(arg_FD_0, arg_FD_1, arg_FD_2, arg_FD_3, arg_FD_4, arg_FD_5, array4, True)
- If array4(0) Then
- array2 = CType(Conversions.ChangeType(RuntimeHelpers.GetObjectValue(array3(0)), GetType(Byte())), Byte())
- End If
- NewLateBinding.LateCall(obj, Nothing, "Flush", New Object(0 - 1) {}, Nothing, Nothing, Nothing, True)
- Next
- Dim array5 As Byte() = New Byte(20001 - 1) {}
- Dim arg_1B1_0 As Object = obj
- Dim arg_1B1_1 As Type = Nothing
- Dim arg_1B1_2 As String = "Read"
- Dim array6 As Object() = New Object() {array5, 0, array5.Length}
- Dim arg_1B1_3 As Object() = array6
- Dim arg_1B1_4 As String() = Nothing
- Dim arg_1B1_5 As Type() = Nothing
- array4 = New Boolean() {True, False, False}
- NewLateBinding.LateCall(arg_1B1_0, arg_1B1_1, arg_1B1_2, arg_1B1_3, arg_1B1_4, arg_1B1_5, array4, True)
- If array4(0) Then
- array5 = CType(Conversions.ChangeType(RuntimeHelpers.GetObjectValue(array6(0)), GetType(Byte())), Byte())
- End If
- Return aSCIIEncoding.GetString(array5)
- End Function
- Private Function ValidateServerCertificate(ByVal sender As Object, ByVal certificate As X509Certificate, ByVal chain As X509Chain, ByVal sslPolicyErrors__1 As SslPolicyErrors) As Boolean
- Return sslPolicyErrors__1 = SslPolicyErrors.None
- End Function
- Friend Delegate Sub VBAnonymousDelegate_0()
- Public Sub checkerr(ByVal i As Integer)
- Try
- Do While Not Module1.stopp
- If (usernum(i).Length > 0) Then
- Dim username As String = usernum(i)
- usernum(i) = ""
- If Operators.ConditionalCompareObjectEqual(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(CheckWeb(username)))), True, False) Then
- If (Module1.once = 0) Then
- If Operators.ConditionalCompareObjectEqual(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(register(username)))), True, False) Then
- Module1.once += 1
- If Not Module1.stopp Then
- Module1.stopp = True
- Module1.numis = username
- Console.WriteLine((Module1.numis & ChrW(13) & ChrW(10)))
- End If
- Else
- Console.WriteLine((username & ChrW(13) & ChrW(10)))
- End If
- End If
- Else
- Console.WriteLine("Runing")
- End If
- End If
- Thread.Sleep(0)
- Loop
- Catch exception1 As Exception
- ProjectData.SetProjectError(exception1)
- Dim exception As Exception = exception1
- ProjectData.ClearProjectError()
- End Try
- End Sub
- Public Function CheckWeb(ByVal e As String) As Object
- Dim result As Object
- Try
- Dim text As String = "email=skreptche" + e + "cker123%40gmail.com&password=1q2w3e4r5t&username=" + e + "&first_name=Checker :)"
- Dim bytes As Byte() = Encoding.ASCII.GetBytes(text)
- Dim obj As Object = My.Resources.checkx.Replace("#packet", text)
- obj = RuntimeHelpers.GetObjectValue(NewLateBinding.LateGet(obj, Nothing, "Replace", New Object() {"##", bytes.Length}, Nothing, Nothing, Nothing))
- result = Module1.snd(Conversions.ToString(obj)).Contains(My.Resources.av3)
- Catch expr_86 As Exception
- ProjectData.SetProjectError(expr_86)
- result = False
- ProjectData.ClearProjectError()
- End Try
- Return result
- End Function
- Private Sub Lambda__380(ByVal a0 As Object)
- Module1.checkerr(Conversions.ToInteger(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(a0)))))
- End Sub
- Private Sub Lambda__440(ByVal a0 As Object)
- Module1.begin(Conversions.ToInteger(RuntimeHelpers.GetObjectValue(a0)))
- End Sub
- Private Function register(ByVal username As String) As Object
- Dim pass As String
- Dim result As Object
- Try
- Dim text As String = "email=ogemail" + username + "123%40gmail.com&password=" + pass + "&username=" + username + "&first_name=MdMr"
- Dim bytes As Byte() = Encoding.ASCII.GetBytes(text)
- Dim obj As Object = My.Resources.reg.Replace("#packet", text)
- obj = RuntimeHelpers.GetObjectValue(NewLateBinding.LateGet(obj, Nothing, "Replace", New Object() {"##", bytes.Length}, Nothing, Nothing, Nothing))
- result = Module1.snd(Conversions.ToString(obj)).Contains(My.Resources.reg1)
- Catch expr_86 As Exception
- ProjectData.SetProjectError(expr_86)
- result = False
- ProjectData.ClearProjectError()
- End Try
- Return result
- End Function
- End Module
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement