local this="Dialog1";--@@Dialog1 -> On Show



File.Delete(_TempFolder.."\\idtemp.dat", false, false, false, nil);





--StatusDlg.Show(MB_ICONNONE, false);

--StatusDlg.SetTitle("iDezender Licenser");

--StatusDlg.SetMessage("Connecting iDezender server...");

--StatusDlg.SetMeterRange(0, 100);

--StatusDlg.SetMeterPos(15);



Progress.StepIt("Progress1");





IsConnected = HTTP.TestConnection("http://www.google.com/", 40, 80, nil, nil);



if (IsConnected == false) then

Dialog.Message("iDezender", "There was an error...\r\n\r\n1. You are not connected to the internet.\r\n2. Motionite servers are offline.", MB_OK, MB_ICONSTOP, MB_DEFBUTTON1);

DialogEx.Close(0);

Application.Exit(0);

end



Progress.StepIt("Progress1");





regKey = Registry.GetValue(HKEY_LOCAL_MACHINE, "Software\\iDezender", "LC", true);



Progress.StepIt("Progress1");

HardwareID = Crypto.MD5DigestFromString(WMI.GetSerial("C:"));



Progress.StepIt("Progress1");

Progress.StepIt("Progress1");



Application.Sleep(1500)

Progress.StepIt("Progress1");

Progress.StepIt("Progress1");



--licensekey = "TEST-e95fdbf442d82783402615f03bc027";



--result = Dialog.Message("Notice", HardwareID, MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);





GetStatus = HTTP.SubmitSecure("https://motionite.com/licensing/idezender.php", {licensekey=regKey,hardwareid=HardwareID}, SUBMITWEB_POST, 20, 443, nil, nil);



Progress.StepIt("Progress1");

Progress.StepIt("Progress1");

Progress.StepIt("Progress1");



if GetStatus == "suspended" then

Dialog.Message("iDezender", "Your license is suspended, please contact us.", MB_OK, MB_ICONSTOP, MB_DEFBUTTON1);





getKey = Dialog.Input("iDezender", "Paste your new license key here:", "", MB_ICONQUESTION);

if getKey == "" then

Dialog.Message("iDezender", "You did not enter something, iDezender will exit now...", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1);

DialogEx.Close(0);

Application.Exit();

elseif getKey ~= "CANCEL" then

Registry.CreateKey(HKEY_LOCAL_MACHINE, "Software\\iDezender");

Registry.SetValue(HKEY_LOCAL_MACHINE, "Software\\iDezender", "LC", getKey, REG_SZ);

Dialog.Message("iDezender", "The license key has been entered, iDezender will now exit. After exit please run iDezender to finalize the validation.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

DialogEx.Close(0);

Application.Exit();

elseif getKey == "CANCEL" then

DialogEx.Close(0);

Application.Exit();

end





result = DialogEx.Close(0);

Application.Exit(0);

elseif GetStatus == "invalid" then

Dialog.Message("iDezender", "Your license is invalid, you either entered the wrong license key or your machine ID has changed.", MB_OK, MB_ICONSTOP, MB_DEFBUTTON1);



getKey = Dialog.Input("iDezender", "Paste your new license key here:", "", MB_ICONQUESTION);

if getKey == "" then

Dialog.Message("iDezender", "You did not enter something, iDezender will exit now...", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1);

DialogEx.Close(0);

Application.Exit();

elseif getKey ~= "CANCEL" then

Registry.CreateKey(HKEY_LOCAL_MACHINE, "Software\\iDezender");

Registry.SetValue(HKEY_LOCAL_MACHINE, "Software\\iDezender", "LC", getKey, REG_SZ);

Dialog.Message("iDezender", "The license key has been entered, iDezender will now exit. After exit please run iDezender to finalize the validation.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

DialogEx.Close(0);

Application.Exit();

elseif getKey == "CANCEL" then

DialogEx.Close(0);

Application.Exit();

end



result = DialogEx.Close(0);

Application.Exit(0);

elseif GetStatus == "expired" then

Dialog.Message("iDezender", "Your license has been expired.", MB_OK, MB_ICONSTOP, MB_DEFBUTTON1);



getKey = Dialog.Input("iDezender", "Paste your new license key here:", "", MB_ICONQUESTION);

if getKey == "" then

Dialog.Message("iDezender", "You did not enter something, iDezender will exit now...", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1);

DialogEx.Close(0);

Application.Exit();

elseif getKey ~= "CANCEL" then

Registry.CreateKey(HKEY_LOCAL_MACHINE, "Software\\iDezender");

Registry.SetValue(HKEY_LOCAL_MACHINE, "Software\\iDezender", "LC", getKey, REG_SZ);

Dialog.Message("iDezender", "The license key has been entered, iDezender will now exit. After exit please run iDezender to finalize the validation.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

DialogEx.Close(0);

Application.Exit();

elseif getKey == "CANCEL" then

DialogEx.Close(0);

Application.Exit();

end



result = DialogEx.Close(0);

Application.Exit(0);

else

TextFile.WriteFromString(_TempFolder.."\\idtemp.dat", GetStatus, false);

--Dialog.Message("Notice", GetStatus, MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);



QarizmaINI = INIFile.GetValue(_TempFolder.."\\idtemp.dat", "iDezender", "qarizma");

QarizmaCheck = Crypto.MD5DigestFromString(System.GetDate(DATE_FMT_MONTH)..QarizmaSalt);



Progress.StepIt("Progress1");

Progress.StepIt("Progress1");



if QarizmaINI ~= QarizmaCheck then

Dialog.Message("iDezender", "You trying to crack iDezender?", MB_OK, MB_ICONSTOP, MB_DEFBUTTON1);

result = DialogEx.Close(0);

Application.Exit(0);

end



Progress.StepIt("Progress1");



Proceed = true;



result = DialogEx.Close(0);





end