ePJF7bF5

1    Private Sub Main()
2        Try
3            Dim request As HttpWebRequest = HttpWebRequest.Create("*URL*")
4            request.Method = "POST"
5            request.Accept = "*/*"
6            request.Headers.Add("X-IG-Connection-Type", "WiFi")
7            request.Headers.Add("Accept-Language", "ar-SA;q=1, en-SA;q=0.9")
8            request.Headers.Add("Cookie", "*COOKIE*")
9            request.ContentType = "application/x-www-form-urlencoded; charset=UTF-8"
10            request.UserAgent = "Instagram *VER* Android (18/4.3; 320dpi; 720x1280; Xiaomi; HM 1SW; armani; qcom; en_US)"
11            request.Headers.Add("X-IG-Capabilities: 3wI=")
12
13            uuid = Guid.NewGuid.ToString.ToUpper
14            Dim data As String = "*POST DATA*"
15            Dim sb As New StringBuilder
16            Try
17                Dim secretkey As String = "*SK*"
18                Dim sha As New System.Security.Cryptography.HMACSHA256(System.Text.ASCIIEncoding.ASCII.GetBytes(secretkey))
19                Dim Hash() As Byte = sha.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(data))
20                sb = New StringBuilder(Hash.Length * 2)
21                For Each B As Byte In Hash
22                    sb.Append(Hex(B).PadLeft(2, "0"))
23                Next
24            Catch ex As Exception : End Try
25    			// You have to add System.web from References Manager
26            Dim postData As String = "ig_sig_key_version=5&signed_body=" & sb.ToString.ToLower & "." & Web.HttpUtility.UrlEncode(data)
27            Dim byteArray As Byte() = Encoding.UTF8.GetBytes(postData)
28            request.ContentLength = byteArray.Length
29            Dim dataStream As Stream = request.GetRequestStream()
30            dataStream.Write(byteArray, 0, byteArray.Length)
31            dataStream.Close()
32            Dim response As HttpWebResponse = request.GetResponse()
33            dataStream = response.GetResponseStream()
34            Dim reader As New StreamReader(dataStream)
35            Dim responseFromServer As String = reader.ReadToEnd()
36            reader.Close()
37            dataStream.Close()
38            response.Close()
39            
40        msgbox(responseFromServer)
41
42        Catch ex As WebException
43            MsgBox(ex.tostring, MsgBoxStyle.Critical)
44        End Try
45    End Sub