9nDwfG1j

1  Public Function ppost(username As String)
2        Dim data As String = "{""username"":""" & username & """,""password"":""" & "" & """,""_csrftoken"":""missing"",""device_id"":""" & Guid.NewGuid.ToString.ToUpper & """,""login_attempt_count"":""0""}"
3        Dim sb As New StringBuilder
4        Try
5            Dim secretkey As String = "fc4720e1bf9d79463f62608c86fbddd374cc71bbfb98216b52e3f75333bd130d"
6            Dim sha As New System.Security.Cryptography.HMACSHA256(System.Text.ASCIIEncoding.ASCII.GetBytes(secretkey))
7            Dim Hash() As Byte = sha.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(data))
8            sb = New StringBuilder(Hash.Length * 2)
9            For Each B As Byte In Hash
10                sb.Append(Hex(B).PadLeft(2, "0"))
11            Next
12        Catch ex As Exception : End Try
13        Dim postData As String = "ig_sig_key_version=4&signed_body=" & sb.ToString.ToLower & "." & Web.HttpUtility.UrlEncode(data)
14        Dim last_postData = My.Resources.Service.ToString.Replace("S&S", postData.ToString).Replace("&Length&", Encoding.ASCII.GetBytes(postData.ToString).Length.ToString)
15        MsgBox(TcpSending(last_postData))
16        If TcpSending(last_postData).ToString.Contains(": true") = True Then
17            InvokeIfRequired(ListBox1, DirectCast(Sub() ListBox1.Items.Add(username), MethodInvoker))
18        Else
19            fail += 1
20        End If
21
22    End Function
23
24    
25
26   
27    Public Function TcpSending(PostData As String)
28
29        Try
30            Dim Host As String = "i.instagram.com"
31            Dim tcp As New TcpClient
32            tcp.SendTimeout = 1000
33            tcp.SendBufferSize = 5000
34            Try
35                tcp.Connect(Host, 443)
36            Catch ex As Exception
37                Return False
38            End Try
39            Dim ClientStream As New SslStream(tcp.GetStream, False, (Function(a As Object, b As X509Certificate, c As X509Chain, d As SslPolicyErrors) As Boolean
40                                                                         Return d = SslPolicyErrors.None
41                                                                     End Function), Nothing)
42            ClientStream.AuthenticateAsClient(Host)
43            For Each Headr In Split(PostData, vbCrLf, -1, CompareMethod.Binary)
44                Dim ByteWrite As Byte() = System.Text.Encoding.Default.GetBytes((Headr & ChrW(13) & ChrW(10)))
45                ClientStream.Write(ByteWrite, 0, ByteWrite.Length)
46                ClientStream.Flush()
47            Next
48            Dim inStream As Byte() = New Byte(20000) {}
49            ClientStream.Read(inStream, 0, inStream.Length)
50            Dim returndata As String = System.Text.Encoding.ASCII.GetString(inStream)
51            Return returndata
52        Catch ex As Exception
53            Return ex.Message
54        End Try
55        Return "Error"
56    End Function
57----------------------------------------------------------
58POST /api/v1/users/check_username/ HTTP/1.1
59Host: i.instagram.com
60Accept: */*
61Proxy-Connection: keep-alive
62X-IG-Connection-Type: WiFi
63Accept-Encoding: gzip, deflate
64Accept-Language: en-SA;q=1, ar-SA;q=0.9
65Content-Type: application/x-www-form-urlencoded; charset=UTF-8
66Content-Length: &Length&
67User-Agent: Instagram 9.4.0 Android (18/4.3; 320dpi; 720x1280; Xiaomi; HM 1SW; armani; qcom; en_US)
68Connection: keep-alive
69X-IG-Capabilities: 3yo=
70Cookie: csrftoken=
71
72S&S