#include <ColorConstants.au3>; Including required files
#include <GUIConstantsEx.au3>
#include <file.au3>
#include <Array.au3>
#include <string.au3>

Example()
Func Example()
	; Create a GUI with various controls.
	Local $hGUI = GUICreate("Kiwi Account Creator", 110, 110) ; Creates gui with title <
	Local $idOK = GUICtrlCreateButton("Launch", 30, 30)
	; LABEL
	$Label_1 = GUICtrlCreateLabel("Waiting for Launch", 10, 10)

	; Input
	; GUI MESSAGE LOOP
	GUISetState()

	; Display the GUI.
	GUISetState(@SW_SHOW, $hGUI)
	; Loop until the user exits.
	While 1

		Switch GUIGetMsg()
			Case $GUI_EVENT_CLOSE, $idOK
				$PDenc = "hash=asdasd4321&crypt=Encrypt"
				$oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
				$oHTTP.Open("POST", "http://md5decrypt.net/en/Sha1/", False) ; Post url
				$oHTTP.SetRequestHeader("Host", "md5decrypt.net")
				$oHTTP.SetRequestHeader("Connection", "keep-aliveContent-Length: 29")
				$oHTTP.SetRequestHeader("Cache-Control", "max-age=0")
				$oHTTP.SetRequestHeader("Origin", "http://md5decrypt.net")
				$oHTTP.SetRequestHeader("Upgrade-Insecure-Requests", "1")
				$oHTTP.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/51.0.2704.84 Safari/537.36")
				$oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
				$oHTTP.SetRequestHeader("Accept", "text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8")
				$oHTTP.SetRequestHeader("Referer", "http://md5decrypt.net/en/Sha1/")
				$oHTTP.SetRequestHeader("Accept-Language", "en-US,en;q=0.8")
				$oHTTP.Send($PDenc)
				$oReceived = $oHTTP.ResponseText
				$oStatusCode = $oHTTP.Status
				$read = FileRead("Received.html") ;read file
				$Datastring = ('Sha1(asdasd4321) = <b>')
				$newreadamount = _StringBetween($read,$Datastring, "</b></fieldset><br/>") ;read title from file
				$newreadamount[0] = StringReplace($newreadamount[0], 'Sha1(asdasd4321) = ', "") ; taking out the $ makes it easier to compare values

				MsgBox(4096, "Encrypted",  $newreadamount[0])



				Local $emails = "email.txt" ;sets file path
				Local $pwd = "pwd.txt" ;sets file path
				Local $ArrayEmail[2], $ArrayPwd[2] ;declares array for email & pwd .txt

				_FileReadToArray($emails, $ArrayEmail) ;converts .txt file to array
				_FileReadToArray($pwd, $ArrayPwd);converts .txt file to array
				$username = $ArrayEmail[1]
				; username variable
				$password = $ArrayPwd[1]
				; password variable

				; The POST LOGIN data to be sent
				; Post data/User information
				; Creating the object
				$oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
				$oHTTP.Open("GET", "https://api.9gag.com/v2/user-token/loginMethod/email/email/" & $username & "/fullName/hxyxckvoh/password/" & $password & "/hash/" & $newreadamount[0] & "/language/en_US/pushToken/APA91bG25TgLKZriowhZd86pwtNuY069YCJI-ug4lsYgM-AwxpeXgw5YbiaapW6K1_6-ew8YJmEGmgX_-Bey2N9AsUWgf_UoQb5wARUFCBdNFW3Sw1JgwWCZ6-DRElgE4k91yQHFAjF_", False) ; Post url
				$oHTTP.SetRequestHeader("9GAG-9GAG_TOKEN", "Y29tLm5pbmVnYWcuYW5kcm9pZC5hcHAqOGkwZGN4YXZ1")
				$oHTTP.SetRequestHeader("9GAG-TIMESTAMP", "1466072543070")
				$oHTTP.SetRequestHeader("9GAG-APP_ID", "com.ninegag.android.app")
				$oHTTP.SetRequestHeader("9GAG-DEVICE_UUID", "160311d0-e5cf-48e5-8530-35fe570784f5")
				$oHTTP.SetRequestHeader("9GAG-REQUEST-SIGNATURE", "5125514e845dfdc0faf9ed3a32e57359299ae593")
				$oHTTP.SetRequestHeader("9GAG-DEVICE_TYPE", "android")
				$oHTTP.SetRequestHeader("9GAG-BUCKET_NAME", "__DEFAULT__")
				$oHTTP.SetRequestHeader("User-Agent", "9GAG/2017 (samsung SM-G900F;Android 5.0)")
				$oHTTP.SetRequestHeader("Host", "api.9gag.com")
				$oHTTP.SetRequestHeader("Connection", "Keep-Alive")

				; < Header end
				; Performing the Request
				$oHTTP.Send()
				$HeaderResponses = $oHTTP.GetAllResponseHeaders()
				;Download the body response if any, and get the server status response code.
				$oReceived = $oHTTP.ResponseText
				$oStatusCode = $oHTTP.Status
				;Sends the post data with the given details
				$file = FileOpen("1.txt", 2) ; The value of 2 overwrites the file if it already exists
				FileWrite($file, $oReceived)
				FileClose($file)
				ExitLoop
		EndSwitch
	WEnd

	; Delete the previous GUI and all controls.
	GUIDelete($hGUI)
EndFunc   ;==>Example