enWSnGzQ

1 Public Sub Edit(username As String)
2        Dim uuid As String = Guid.NewGuid.ToString.ToUpper
3        Try
4            Dim Post As New StringBuilder
5            Dim num As Integer = (New Random(DateAndTime.Now.Millisecond)).Next(111111, 1000000)
6            Post.AppendLine("--HAHAHAGAFSRF462" & num.ToString())
7            Post.AppendLine("Content-Disposition: form-data; name=""signed_body""")
8            Post.AppendLine(String.Empty)
9            Post.AppendLine(GetPost(uuid, username, uuid, "m5tkjnkjnkkjnjkl@gmail.com", "missing"))
10            Post.AppendLine("--HAHAHAGAFSRF462" & num.ToString())
11            Post.AppendLine("Content-Disposition: form-data; name=""ig_sig_key_version""")
12            Post.AppendLine(String.Empty)
13            Post.AppendLine("5")
14            Post.AppendLine("--HAHAHAGAFSRF462" & num.ToString() + "--")
15            Dim PostData As String = My.Resources.Service.ToString.Replace("S&S", Post.ToString).Replace("&Length&", Encoding.ASCII.GetBytes(Post.ToString).Length.ToString).Replace("#Rnd", num.ToString())
16            Dim flag As Boolean = TcpSending(PostData)
17            MsgBox(PostData)
18            If (flag) Then
19                '       StopYouGetit = True
20                '       Attemps += 1
21            Else
22                '      Attemps += 1
23            End If
24        Catch ex As Exception
25            '  Attemps += 1
26            MsgBox(ex.Message)
27        End Try
28    End Sub
29    Public Function GetPost(uuid As String, username As String, device_id As String, email As String, csrftoken As String)
30        Dim EditPostEnd As String = String.Concat(New String() {"{""_uuid"":""", uuid, """,""username"":""", username, """,""device_id"":""", uuid, """,""email"":"""",""_csrftoken"":""missing""}"})
31        Dim sb As New StringBuilder
32        Try
33            Dim secretkey As String = "fc4720e1bf9d79463f62608c86fbddd374cc71bbfb98216b52e3f75333bd130d"
34            Dim sha As New HMACSHA256(System.Text.ASCIIEncoding.ASCII.GetBytes(secretkey))
35            Dim Hash() As Byte = sha.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(EditPostEnd))
36            sb = New StringBuilder(Hash.Length * 2)
37            For Each B As Byte In Hash
38                sb.Append(Hex(B).PadLeft(2, "0"))
39            Next
40        Catch ex As Exception
41            ' ProjectData.SetProjectError(ex)
42            ' ProjectData.ClearProjectError()
43            MsgBox(ex.Message)
44        End Try
45        Dim Data As String = sb.ToString.ToLower & "." & EditPostEnd
46        Return Data
47    End Function
48    Public Function TcpSending(PostData As String) As Boolean
49        Try
50            Dim Host As String = "i.instagram.com"
51            Dim tcp As New TcpClient
52            tcp.SendTimeout = 1000
53            tcp.SendBufferSize = 5000
54            Try
55                tcp.Connect(Host, 443)
56            Catch ex As Exception
57                Return False
58            End Try
59            Dim ClientStream As New SslStream(tcp.GetStream, False, (Function(a As Object, b As X509Certificate, c As X509Chain, d As SslPolicyErrors) As Boolean
60                                                                         Return d = SslPolicyErrors.None
61                                                                     End Function), Nothing)
62            ClientStream.AuthenticateAsClient(Host)
63            For Each Headr In Split(PostData, vbCrLf, -1, CompareMethod.Binary)
64                Dim ByteWrite As Byte() = System.Text.Encoding.Default.GetBytes((Headr & ChrW(13) & ChrW(10)))
65                ClientStream.Write(ByteWrite, 0, ByteWrite.Length)
66                ClientStream.Flush()
67            Next
68            Dim inStream As Byte() = New Byte(20000) {}
69            ClientStream.Read(inStream, 0, inStream.Length)
70            Dim returndata As String = System.Text.Encoding.ASCII.GetString(inStream)
71            MsgBox(returndata)
72            If returndata.Contains("HTTP/1.1 200 OK") Then
73                Return True
74            End If
75        Catch ex As Exception
76            Return False
77            MsgBox(ex.Message)
78        End Try
79        Return Nothing
80    End Function