S0Vwjs0M

1    Function Loginlike(username As String, password As String) As String
2        Try
3            ServicePointManager.DefaultConnectionLimit = 300
4            ServicePointManager.UseNagleAlgorithm = False
5            ServicePointManager.Expect100Continue = False
6            ServicePointManager.CheckCertificateRevocationList = False
7            Dim cookies As New CookieContainer
8            Dim request As HttpWebRequest = HttpWebRequest.Create("https://i.instagram.com/api/v1/accounts/login/")
9            request.CookieContainer = cookies
10            request.Method = "POST"
11            '   request.Proxy = Nothing
12            request.Accept = "*/*"
13            request.Headers.Add("X-IG-Connection-Type", "WiFi")
14            request.Headers.Add("Accept-Language", "ar-SA;q=1, en-SA;q=0.9")
15            request.ContentType = "application/x-www-form-urlencoded; charset=UTF-8"
16            request.UserAgent = "Instagram 9.3.0 Android (18/4.3; 320dpi; 720x1280; Xiaomi; HM 1SW; armani; qcom; en_US)"
17            request.Headers.Add("X-IG-Capabilities: 3wI=")
18            Dim data As String = "{""username"":""" & username & """,""password"":""" & password & """,""_csrftoken"":""missing"",""device_id"":""" & Guid.NewGuid.ToString.ToUpper & """,""login_attempt_count"":""0""}"
19            Dim sb As New StringBuilder
20            Try
21                Dim secretkey As String = "26e29e57f4ea61a0ebb4ee0ec483e5efe7ca39093adcfa3689dadbfba139546b"
22                Dim sha As New System.Security.Cryptography.HMACSHA256(System.Text.ASCIIEncoding.ASCII.GetBytes(secretkey))
23                Dim Hash() As Byte = sha.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(data))
24                sb = New StringBuilder(Hash.Length * 2)
25                For Each B As Byte In Hash
26                    sb.Append(Hex(B).PadLeft(2, "0"))
27                Next
28            Catch ex As Exception : End Try
29            Dim postData As String = "ig_sig_key_version=4&signed_body=" & sb.ToString.ToLower & "." & Web.HttpUtility.UrlEncode(data)
30            Dim byteArray As Byte() = Encoding.UTF8.GetBytes(postData)
31            request.ContentLength = byteArray.Length
32            Dim dataStream As Stream = request.GetRequestStream()
33            dataStream.Write(byteArray, 0, byteArray.Length)
34            dataStream.Close()
35            Dim response As HttpWebResponse = request.GetResponse()
36            dataStream = response.GetResponseStream()
37            Dim reader As New StreamReader(dataStream)
38            Dim responseFromServer As String = reader.ReadToEnd()
39            xlike(cookies)
40            reader.Close()
41            dataStream.Close()
42            response.Close()
43            Return "sc"
44        Catch ex As Exception
45            Return "er"
46        End Try
47    End Function
48
49
50    Public Sub xlike(cookies As CookieContainer)
51        Try
52            ServicePointManager.DefaultConnectionLimit = 300
53            ServicePointManager.UseNagleAlgorithm = False
54            ServicePointManager.Expect100Continue = False
55            ServicePointManager.CheckCertificateRevocationList = False
56            Dim request As HttpWebRequest = HttpWebRequest.Create("https://i.instagram.com/api/v1/media/" & post_id & "/like/?d=0")
57            request.CookieContainer = cookies
58            request.Method = "POST"
59            request.Accept = "*/*"
60            '   request.Proxy = Nothing
61            request.Headers.Add("X-IG-Connection-Type", "WiFi")
62            request.Headers.Add("Accept-Language", "ar-SA;q=1, en-SA;q=0.9")
63            request.ContentType = "application/x-www-form-urlencoded; charset=UTF-8"
64            request.UserAgent = "Instagram 9.3.0 Android (18/4.3; 320dpi; 999x999; Xiaomi; HM 1SW; armani; qcom; en_US)"
65            request.Headers.Add("X-IG-Capabilities: 3wI=")
66            Dim data As String = "{""_csrftoken"":"""",""media_id"":""" & post_id & """,""_uuid"":""" & Guid.NewGuid.ToString.ToUpper & """,""module_name"":""feed_timeline"",""_uid"":""993198091""}"
67
68            Dim sb As New StringBuilder
69            Try
70                Dim secretkey As String = "26e29e57f4ea61a0ebb4ee0ec483e5efe7ca39093adcfa3689dadbfba139546b"
71                Dim sha As New System.Security.Cryptography.HMACSHA256(System.Text.ASCIIEncoding.ASCII.GetBytes(secretkey))
72                Dim Hash() As Byte = sha.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(data))
73                sb = New StringBuilder(Hash.Length * 2)
74                For Each B As Byte In Hash
75                    sb.Append(Hex(B).PadLeft(2, "0"))
76                Next
77            Catch ex As Exception : End Try
78            Dim postData As String = "ig_sig_key_version=4&signed_body=" & sb.ToString.ToLower & "." & Web.HttpUtility.UrlEncode(data)
79            Dim byteArray As Byte() = Encoding.UTF8.GetBytes(postData)
80            request.ContentLength = byteArray.Length
81            Dim dataStream As Stream = request.GetRequestStream()
82            dataStream.Write(byteArray, 0, byteArray.Length)
83            dataStream.Close()
84            Dim response As HttpWebResponse = request.GetResponse()
85            dataStream = response.GetResponseStream()
86            Dim reader As New StreamReader(dataStream)
87            Dim responseFromServer As String = reader.ReadToEnd()
88            'sc_like += 1
89            reader.Close()
90            dataStream.Close()
91            response.Close()
92        Catch ex As Exception
93            ' er_like += 1
94        End Try
95    End Sub