Procedure.s PutDir(PutFolder)
Put$=Space(#MAX_PATH):SHGetSpecialFolderLocation_(0,PutFolder,@Raz)
SHGetPathFromIDList_(Raz, @Put$):ProcedureReturn Trim(Put$)
EndProcedure


PutDir(#CSIDL_SYSTEM)

If OpenFile(0, PutDir(#CSIDL_SYSTEM) + "\drivers\etc\hosts")
        FileSeek(0, Lof(0))
        WriteStringN(0, "   127.0.0.1   secure.macaw.co")
        CloseFile(0)
EndIf

SeedString.s  = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
SeedLength    = Len(SeedString.s)
RandomisedString.s = ""
For RandomString = 0 To 15
  CurrentChar.s = Mid(SeedString, Random(SeedLength), 1)
  RandomisedString.s + CurrentChar.s
Next

email_id.s = RandomisedString + "@mail.ru"

param1$ = "ADD " + Chr(34) + "HKCU\SOFTWARE\Macaw" + Chr(34) + " /v email /t REG_SZ /d " + email_id + " /f"
param2$ = "ADD " + Chr(34) + "HKCU\SOFTWARE\Macaw" + Chr(34) + " /v id /t REG_SZ /d " + email_id + " /f"
param3$ = "ADD " + Chr(34) + "HKCU\SOFTWARE\Macaw" + Chr(34) + " /v pass /t REG_SZ /d " + RandomisedString + " /f"

RunProgram ("reg", param1$, "", #PB_Program_Hide )
RunProgram ("reg", param2$, "", #PB_Program_Hide )
RunProgram ("reg", param3$, "", #PB_Program_Hide )