Public Function method_6(string_0 As String) As Boolean
			Dim str As String = "signed_body="
			Dim text As String = String.Concat(New String() { "{""gender"":""1"",""_csrftoken"":""missing"",""_uuid"":""", Guid.NewGuid().ToString().ToUpper(), """,""_uid"":""3"",""external_url"":"""",""username"":""", string_0, """,""email"":""", Class6.string_5, """,""phone_number"":"""",""biography"":"""",""first_name"":""""}" })
			Dim str2 As String = Class6.smethod_4(text, Class6.string_12) + "."
			Dim str3 As String = "&ig_sig_key_version=5"
			Dim result As Boolean
			Try
				Try
					Dim httpWebRequest As HttpWebRequest = CType(WebRequest.Create("https://i.instagram.com/api/v1/accounts/edit_profile/"), HttpWebRequest)
					httpWebRequest.Method = "POST"
					httpWebRequest.KeepAlive = True
					httpWebRequest.CookieContainer = Class6.cookieContainer_0
					httpWebRequest.ContentType = "application/x-www-form-urlencoded"
					httpWebRequest.UserAgent = "Instagram 27.0.0.7.97 Android (24/5.0; 515dpi; 1440x2416; huawei/google; Nexus 6P; angler; angler; en_US)"
					httpWebRequest.AllowAutoRedirect = True
					httpWebRequest.Proxy = Nothing
					httpWebRequest.Timeout = 8000
					httpWebRequest.Headers.Add("X-IG-Connection-Type", "WIFI")
					httpWebRequest.Headers.Add("X-IG-Capabilities", "3ToAAA==")
					Using requestStream As Stream = httpWebRequest.GetRequestStream()
						Dim bytes As Byte() = Encoding.UTF8.GetBytes(str + str2 + text + str3)
						requestStream.Write(bytes, 0, bytes.Length)
					End Using
					Dim httpWebResponse As HttpWebResponse = CType(httpWebRequest.GetResponse(), HttpWebResponse)
					Using streamReader As StreamReader = New StreamReader(httpWebResponse.GetResponseStream())
						If streamReader.ReadToEnd().Contains("""status"": ""ok""") Then
							Me.Button_0.Text = "Fucked"
							Me.stopp = True
							Me.bool_0 = True
							Me.Button_0.ForeColor = Color.Lime
							Me.stopp = True
							Me.bool_0 = True
							Interaction.MsgBox("#Fucked @" + Me.TextBox_2.Text, MsgBoxStyle.Information, Nothing)
							Me.stopp = True
							Me.stopp = True
							Me.bool_0 = True
						End If
					End Using
					result = True
				Catch ex As WebException
					Thread.CurrentThread.CurrentUICulture = CultureInfo.GetCultureInfo("en-US")
					Try
						Dim httpWebResponse2 As HttpWebResponse = CType(ex.Response, HttpWebResponse)
						Using streamReader2 As StreamReader = New StreamReader(httpWebResponse2.GetResponseStream())
							Dim text2 As String = streamReader2.ReadToEnd()
							If text2.Contains("feedback_") Then
								Me.stopp = True
								Me.Button_0.ForeColor = Color.Red
								Me.Button_0.Text = "Sleep"
								Me.stopp = True
								Me.bool_0 = True
							End If
							result = False
							ProjectData.ClearProjectError()
						End Using
					Catch ex2 As Exception
					End Try
				End Try
			Catch ex3 As Exception
			End Try
			Return result
		End Function