Advertisement
Guest User

I

a guest
Jul 3rd, 2017
219
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 14.42 KB | None | 0 0
  1. Imports Microsoft.VisualBasic.CompilerServices
  2. Imports System.IO
  3. Imports System.Net
  4. Imports System.Runtime.CompilerServices
  5. Imports System.Security.Cryptography
  6. Imports System.Text
  7. Imports System.Threading
  8. Imports System
  9. Imports System.Collections
  10. Imports System.Collections.Generic
  11. Imports System.ComponentModel
  12. Imports System.Diagnostics
  13. Imports System.Net.Security
  14. Imports System.Net.Sockets
  15. Imports System.Security.Cryptography.X509Certificates
  16. Imports System.Text.RegularExpressions
  17. Imports Microsoft.VisualBasic
  18.  
  19. Module Module1
  20. Public accSettings As String
  21. Public GetSettingsBool As Boolean
  22. Public IfLoggedIn As Boolean
  23. Private intt As Integer
  24. Public IsChanged As Boolean
  25. Public list As Object
  26. Public lThreads As Object
  27. Public mpp As Integer
  28. Public numis As String
  29. Public numToDone As Integer
  30. Public once As Integer
  31. Public Sessionz As CookieContainer
  32. Public stopp As Boolean
  33. Public SwitchLoginBool As Boolean
  34. Public TellMe As Boolean = False
  35. Private usernum As String()
  36. Public uuID As String
  37. Public i As Integer = 0
  38. Sub New()
  39. Module1.mpp = 0
  40. Module1.stopp = False
  41. Module1.list = File.ReadAllLines("list.txt")
  42. Module1.once = 0
  43. Module1.uuID = Guid.NewGuid.ToString.ToUpper
  44. Module1.lThreads = New List(Of Thread)
  45. Module1.IfLoggedIn = False
  46. Module1.SwitchLoginBool = False
  47. Module1.GetSettingsBool = False
  48. Module1.IsChanged = False
  49. Module1.numis = Nothing
  50. Module1.numToDone = 0
  51. End Sub
  52. Sub Main()
  53. Try
  54. Console.Title = " Checker [" + Conversions.ToString(Module1.i) + "]"
  55. While True
  56. Console.WriteLine("Enter password :")
  57. Dim pass As String = Console.[In].ReadLine()
  58. Console.WriteLine("Enter number of thread :")
  59. Dim thread As String = Console.[In].ReadLine()
  60. Console.WriteLine("Checking ..")
  61. Dim thr As New Thread(AddressOf Module1.begin)
  62. thr.Start()
  63. End While
  64.  
  65. Catch ex As Exception
  66. End Try
  67. End Sub
  68. Private Sub _Lambda__10(ByVal a0 As Object)
  69. Module1.begin(Conversions.ToInteger(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(a0)))))
  70. End Sub
  71. Private Sub _Lambda__3(ByVal a0 As Object)
  72. Module1.checkerr(Conversions.ToInteger(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(a0)))))
  73. End Sub
  74.  
  75. Private Sub _Lambda__4(ByVal a0 As Object)
  76. Module1.begin(Conversions.ToInteger(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(a0)))))
  77. End Sub
  78.  
  79. Public Sub begin(ByVal c As Integer)
  80. Dim xx = 10
  81. 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
  82. 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)))
  83. xx = Conversions.ToDecimal(RuntimeHelpers.GetObjectValue(NewLateBinding.LateGet(RuntimeHelpers.GetObjectValue(Module1.list), Nothing, "length", New Object(0 - 1) {}, Nothing, Nothing, Nothing)))
  84. End If
  85. usernum = New String((((c + 1) - 1) + 1) - 1) {}
  86. Dim num7 As Integer = (usernum.Length - 1)
  87. Dim i As Integer = 0
  88. Do While (i <= num7)
  89. usernum(i) = ""
  90. Dim dz As New Thread(New ParameterizedThreadStart(AddressOf Module1._Lambda__3), 100)
  91. dz.Start(i)
  92. i += 1
  93. Loop
  94. Do While True
  95. Try
  96. If Not Module1.stopp Then
  97. Dim num8 As Integer = (usernum.Length - 1)
  98. Dim j As Integer = 0
  99. Do While (j <= num8)
  100. If (usernum(j).Length <= 0) Then
  101. 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
  102. Module1.intt = 0
  103.  
  104. End If
  105. usernum(j) = Conversions.ToString(RuntimeHelpers.GetObjectValue(NewLateBinding.LateIndexGet(RuntimeHelpers.GetObjectValue(Module1.list), New Object() {Module1.intt}, Nothing)))
  106. Module1.intt += 1
  107. End If
  108. j += 1
  109. Loop
  110. End If
  111. Catch exception1 As Exception
  112. ProjectData.SetProjectError(exception1)
  113. Dim ex As Exception = exception1
  114. ProjectData.SetProjectError(ex)
  115. Dim exception2 As Exception = ex
  116. ProjectData.SetProjectError(exception2)
  117. ProjectData.ClearProjectError()
  118. ProjectData.ClearProjectError()
  119. ProjectData.ClearProjectError()
  120. End Try
  121.  
  122. Loop
  123. End Sub
  124.  
  125. Public Function snd(ByVal pk As String) As String
  126. Dim tcpClient As TcpClient = New TcpClient()
  127. tcpClient.Connect("i.instagram.com", 443)
  128. tcpClient.ReceiveBufferSize = 3000
  129. tcpClient.SendTimeout = 3000
  130. Dim obj As Object = New SslStream(tcpClient.GetStream(), False, AddressOf Module1.ValidateServerCertificate, Nothing)
  131. NewLateBinding.LateCall(obj, Nothing, "AuthenticateAsClient", New Object() {"i.instagram.com"}, Nothing, Nothing, Nothing, True)
  132. Dim aSCIIEncoding As ASCIIEncoding = New ASCIIEncoding()
  133. Dim array As String() = Strings.Split(pk, vbCrLf, -1, CompareMethod.Binary)
  134. ' The following expression was wrapped in a checked-statement
  135. Dim array4 As Boolean()
  136. For i As Integer = 0 To array.Length - 1
  137. Dim str As String = array(i)
  138. Dim array2 As Byte() = Encoding.[Default].GetBytes(str + vbCrLf)
  139. Dim arg_FD_0 As Object = obj
  140. Dim arg_FD_1 As Type = Nothing
  141. Dim arg_FD_2 As String = "Write"
  142. Dim array3 As Object() = New Object() {array2, 0, array2.Length}
  143. Dim arg_FD_3 As Object() = array3
  144. Dim arg_FD_4 As String() = Nothing
  145. Dim arg_FD_5 As Type() = Nothing
  146. array4 = New Boolean() {True, False, False}
  147. NewLateBinding.LateCall(arg_FD_0, arg_FD_1, arg_FD_2, arg_FD_3, arg_FD_4, arg_FD_5, array4, True)
  148. If array4(0) Then
  149. array2 = CType(Conversions.ChangeType(RuntimeHelpers.GetObjectValue(array3(0)), GetType(Byte())), Byte())
  150. End If
  151. NewLateBinding.LateCall(obj, Nothing, "Flush", New Object(0 - 1) {}, Nothing, Nothing, Nothing, True)
  152. Next
  153. Dim array5 As Byte() = New Byte(20001 - 1) {}
  154. Dim arg_1B1_0 As Object = obj
  155. Dim arg_1B1_1 As Type = Nothing
  156. Dim arg_1B1_2 As String = "Read"
  157. Dim array6 As Object() = New Object() {array5, 0, array5.Length}
  158. Dim arg_1B1_3 As Object() = array6
  159. Dim arg_1B1_4 As String() = Nothing
  160. Dim arg_1B1_5 As Type() = Nothing
  161. array4 = New Boolean() {True, False, False}
  162. NewLateBinding.LateCall(arg_1B1_0, arg_1B1_1, arg_1B1_2, arg_1B1_3, arg_1B1_4, arg_1B1_5, array4, True)
  163. If array4(0) Then
  164. array5 = CType(Conversions.ChangeType(RuntimeHelpers.GetObjectValue(array6(0)), GetType(Byte())), Byte())
  165. End If
  166. Return aSCIIEncoding.GetString(array5)
  167. End Function
  168. Public Function sndweb(ByVal pk As String) As String
  169. Dim tcpClient As TcpClient = New TcpClient()
  170. tcpClient.Connect("instagram.com", 443)
  171. tcpClient.ReceiveBufferSize = 3000
  172. tcpClient.SendTimeout = 3000
  173. Dim obj As Object = New SslStream(tcpClient.GetStream(), False, AddressOf Module1.ValidateServerCertificate, Nothing)
  174. NewLateBinding.LateCall(obj, Nothing, "AuthenticateAsClient", New Object() {"i.instagram.com"}, Nothing, Nothing, Nothing, True)
  175. Dim aSCIIEncoding As ASCIIEncoding = New ASCIIEncoding()
  176. Dim array As String() = Strings.Split(pk, vbCrLf, -1, CompareMethod.Binary)
  177. ' The following expression was wrapped in a checked-statement
  178. Dim array4 As Boolean()
  179. For i As Integer = 0 To array.Length - 1
  180. Dim str As String = array(i)
  181. Dim array2 As Byte() = Encoding.[Default].GetBytes(str + vbCrLf)
  182. Dim arg_FD_0 As Object = obj
  183. Dim arg_FD_1 As Type = Nothing
  184. Dim arg_FD_2 As String = "Write"
  185. Dim array3 As Object() = New Object() {array2, 0, array2.Length}
  186. Dim arg_FD_3 As Object() = array3
  187. Dim arg_FD_4 As String() = Nothing
  188. Dim arg_FD_5 As Type() = Nothing
  189. array4 = New Boolean() {True, False, False}
  190. NewLateBinding.LateCall(arg_FD_0, arg_FD_1, arg_FD_2, arg_FD_3, arg_FD_4, arg_FD_5, array4, True)
  191. If array4(0) Then
  192. array2 = CType(Conversions.ChangeType(RuntimeHelpers.GetObjectValue(array3(0)), GetType(Byte())), Byte())
  193. End If
  194. NewLateBinding.LateCall(obj, Nothing, "Flush", New Object(0 - 1) {}, Nothing, Nothing, Nothing, True)
  195. Next
  196. Dim array5 As Byte() = New Byte(20001 - 1) {}
  197. Dim arg_1B1_0 As Object = obj
  198. Dim arg_1B1_1 As Type = Nothing
  199. Dim arg_1B1_2 As String = "Read"
  200. Dim array6 As Object() = New Object() {array5, 0, array5.Length}
  201. Dim arg_1B1_3 As Object() = array6
  202. Dim arg_1B1_4 As String() = Nothing
  203. Dim arg_1B1_5 As Type() = Nothing
  204. array4 = New Boolean() {True, False, False}
  205. NewLateBinding.LateCall(arg_1B1_0, arg_1B1_1, arg_1B1_2, arg_1B1_3, arg_1B1_4, arg_1B1_5, array4, True)
  206. If array4(0) Then
  207. array5 = CType(Conversions.ChangeType(RuntimeHelpers.GetObjectValue(array6(0)), GetType(Byte())), Byte())
  208. End If
  209. Return aSCIIEncoding.GetString(array5)
  210. End Function
  211.  
  212. Private Function ValidateServerCertificate(ByVal sender As Object, ByVal certificate As X509Certificate, ByVal chain As X509Chain, ByVal sslPolicyErrors__1 As SslPolicyErrors) As Boolean
  213. Return sslPolicyErrors__1 = SslPolicyErrors.None
  214. End Function
  215. Friend Delegate Sub VBAnonymousDelegate_0()
  216. Public Sub checkerr(ByVal i As Integer)
  217. Try
  218. Do While Not Module1.stopp
  219. If (usernum(i).Length > 0) Then
  220. Dim username As String = usernum(i)
  221. usernum(i) = ""
  222. If Operators.ConditionalCompareObjectEqual(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(CheckWeb(username)))), True, False) Then
  223. If (Module1.once = 0) Then
  224. If Operators.ConditionalCompareObjectEqual(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(register(username)))), True, False) Then
  225. Module1.once += 1
  226. If Not Module1.stopp Then
  227. Module1.stopp = True
  228. Module1.numis = username
  229. Console.WriteLine((Module1.numis & ChrW(13) & ChrW(10)))
  230. End If
  231. Else
  232. Console.WriteLine((username & ChrW(13) & ChrW(10)))
  233. End If
  234. End If
  235. Else
  236. Console.WriteLine("Runing")
  237. End If
  238. End If
  239. Thread.Sleep(0)
  240. Loop
  241. Catch exception1 As Exception
  242. ProjectData.SetProjectError(exception1)
  243. Dim exception As Exception = exception1
  244. ProjectData.ClearProjectError()
  245. End Try
  246. End Sub
  247.  
  248. Public Function CheckWeb(ByVal e As String) As Object
  249. Dim result As Object
  250. Try
  251. Dim text As String = "email=skreptche" + e + "cker123%40gmail.com&password=1q2w3e4r5t&username=" + e + "&first_name=Checker :)"
  252. Dim bytes As Byte() = Encoding.ASCII.GetBytes(text)
  253. Dim obj As Object = My.Resources.checkx.Replace("#packet", text)
  254. obj = RuntimeHelpers.GetObjectValue(NewLateBinding.LateGet(obj, Nothing, "Replace", New Object() {"##", bytes.Length}, Nothing, Nothing, Nothing))
  255. result = Module1.snd(Conversions.ToString(obj)).Contains(My.Resources.av3)
  256. Catch expr_86 As Exception
  257. ProjectData.SetProjectError(expr_86)
  258. result = False
  259. ProjectData.ClearProjectError()
  260. End Try
  261. Return result
  262. End Function
  263. Private Sub Lambda__380(ByVal a0 As Object)
  264. Module1.checkerr(Conversions.ToInteger(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(a0)))))
  265. End Sub
  266.  
  267. Private Sub Lambda__440(ByVal a0 As Object)
  268. Module1.begin(Conversions.ToInteger(RuntimeHelpers.GetObjectValue(a0)))
  269. End Sub
  270.  
  271. Private Function register(ByVal username As String) As Object
  272. Dim pass As String
  273. Dim result As Object
  274. Try
  275. Dim text As String = "email=ogemail" + username + "123%40gmail.com&password=" + pass + "&username=" + username + "&first_name=MdMr"
  276. Dim bytes As Byte() = Encoding.ASCII.GetBytes(text)
  277. Dim obj As Object = My.Resources.reg.Replace("#packet", text)
  278. obj = RuntimeHelpers.GetObjectValue(NewLateBinding.LateGet(obj, Nothing, "Replace", New Object() {"##", bytes.Length}, Nothing, Nothing, Nothing))
  279. result = Module1.snd(Conversions.ToString(obj)).Contains(My.Resources.reg1)
  280. Catch expr_86 As Exception
  281. ProjectData.SetProjectError(expr_86)
  282. result = False
  283. ProjectData.ClearProjectError()
  284. End Try
  285. Return result
  286. End Function
  287.  
  288. End Module
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement