9PhrMSkJ

1    Public Sub Edit(us As String)
2        Try
3            Dim Post As New StringBuilder
4            Dim num As Integer = (New Random(DateAndTime.Now.Millisecond)).Next(111111, 1000000)
5            Post.AppendLine("--HAHAHAGAFSRF462" & num.ToString())
6            Post.AppendLine("Content-Disposition: form-data; name=""signed_body""")
7            Post.AppendLine(String.Empty)
8            Post.AppendLine(GetPost(uuidx, us, uid, email, phone, csrftoken))
9            Post.AppendLine("--HAHAHAGAFSRF462" & num.ToString())
10            Post.AppendLine("Content-Disposition: form-data; name=""ig_sig_key_version""")
11            Post.AppendLine(String.Empty)
12            Post.AppendLine("5")
13            Post.AppendLine("--HAHAHAGAFSRF462" & num.ToString() + "--")
14            Dim PostData As String = My.Resources.Service.ToString.Replace("S&S", Post.ToString).Replace("&Length&", Encoding.ASCII.GetBytes(Post.ToString).Length.ToString).Replace("-Cookies-", CustomCookies).Replace("#Rnd", num.ToString())
15            Dim flag As Boolean = TcpSending(PostData)
16            If (flag) Then
17                StopYouGetit = True
18                Attemps += 1
19            Else
20                Attemps += 1
21            End If
22        Catch ex As Exception
23            Attemps += 1
24        End Try
25    End Sub
26    Public Function GetPost(uuid As String, txttarget As String, uid As String, email As String, phone As String, csrftoken As String)
27        Dim EditPostEnd As String = String.Concat(New String() {"{""_uuid"":""", uuid, """,""_uid"":""", uid, """,""username"":""", txttarget, """,""external_url"":""https://instagram.com/oxjp"",""biography"":""#Blackbird | JustGhostz"",""gender"":""3"",""phone_number"":""", phone, """,""email"":""", email, """,""_csrftoken"":""", csrftoken, """}"})
28        Dim sb As New StringBuilder
29        Try
30            Dim secretkey As String = "fc4720e1bf9d79463f62608c86fbddd374cc71bbfb98216b52e3f75333bd130d"
31            Dim sha As New HMACSHA256(System.Text.ASCIIEncoding.ASCII.GetBytes(secretkey))
32            Dim Hash() As Byte = sha.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(EditPostEnd))
33            sb = New StringBuilder(Hash.Length * 2)
34            For Each B As Byte In Hash
35                sb.Append(Hex(B).PadLeft(2, "0"))
36            Next
37        Catch ex As Exception
38            ProjectData.SetProjectError(ex)
39            ProjectData.ClearProjectError()
40        End Try
41        Dim Data As String = sb.ToString.ToLower & "." & EditPostEnd
42        Return Data
43    End Function
44    Public Function TcpSending(PostData As String) As Boolean
45        Try
46            Dim Host As String = "i.instagram.com"
47            Dim tcp As New TcpClient
48            tcp.SendTimeout = 1000
49            tcp.SendBufferSize = 5000
50            Try
51                tcp.Connect(Host, 443)
52            Catch ex As Exception
53                Return False
54            End Try
55            Dim ClientStream As New SslStream(tcp.GetStream, False, (Function(a As Object, b As X509Certificate, c As X509Chain, d As SslPolicyErrors) As Boolean
56                                                                         Return d = SslPolicyErrors.None
57                                                                     End Function), Nothing)
58            ClientStream.AuthenticateAsClient(Host)
59            For Each Headr In Split(PostData, vbCrLf, -1, CompareMethod.Binary)
60                Dim ByteWrite As Byte() = System.Text.Encoding.Default.GetBytes((Headr & ChrW(13) & ChrW(10)))
61                ClientStream.Write(ByteWrite, 0, ByteWrite.Length)
62                ClientStream.Flush()
63            Next
64            Dim inStream As Byte() = New Byte(20000) {}
65            ClientStream.Read(inStream, 0, inStream.Length)
66            Dim returndata As String = System.Text.Encoding.ASCII.GetString(inStream)
67            ClientStream.Flush()
68            ClientStream.Close()
69            If returndata.Contains("HTTP/1.1 200 OK") Then
70                Return True
71            End If
72        Catch ex As Exception
73            Return False
74        End Try
75        Return Nothing
76    End Function
77-
78The Service :
79POST /api/v1/accounts/edit_profile/ HTTP/1.1
80Host: i.instagram.com
81User-Agent: Instagram 9.4.0 Android (18/4.3; 320dpi; 720x1280; Xiaomi; HM 1SW; armani; qcom; en_US)
82Accept: */*
83Accept-Language: en;q=1, fr;q=0.9, de;q=0.8, zh-Hans;q=0.7, zh-Hant;q=0.6, ja;q=0.5
84Accept-Encoding: gzip, deflate
85Content-Type: multipart/form-data; boundary=HAHAHAGAFSRF462#Rnd
86X-IG-Connection-Type: WiFi
87X-IG-Capabilities: 3wI=
88Cookie: -Cookies-
89Content-Length: &Length&
90Connection: keep-alive
91
92S&S