IgSafe - Administrando Igrejas testa
http://www.igsafeinformatica.esy.es/
http://www.igsafeinformatica.esy.es/
------------------------------_Extrair Serial_--------------------------------------------------------------------------------
pth=_DesktopFolder
newpth = String.Replace(pth, "Desktop", "AppData\\Roaming", false);
Zip.Extract(newpth.."\\IgS\\app.dat", {"*.*"}, newpth.."\\IgS", true, true, "IgS010203040506070809", ZIP_OVERWRITE_NEVER, nil);
------------------------------------------------------------------------------------------------------------------------------
--------------------------_Verificar Ativação_----------------------------------
pth=_DesktopFolder
newpth = String.Replace(pth, "Desktop", "AppData\\Roaming\\IgS\\reg.reg", false);
local VerifPass = INIFile.GetValue(newpth, "Validação", "Code");
local iptTextPass = "RWTYVXHMZ6987545GHTNBDP"
if(iptTextPass == "") then
else
decriptPass = CeoneEncrypt.DecryptString(VerifPass, "myKey");
if(iptTextPass ~= decriptPass) then
local iptTextPass = "RWTYVXHMZ6478523TYUIKAS"
if(iptTextPass == "") then
else
decriptPass = CeoneEncrypt.DecryptString(VerifPass, "myKey");
if(iptTextPass ~= decriptPass) then
local iptTextPass = "RWTYVXHMZ7123659XHTYNMO"
if(iptTextPass == "") then
else
decriptPass = CeoneEncrypt.DecryptString(VerifPass, "myKey");
if(iptTextPass ~= decriptPass) then
DialogEx.Show("Ativação", true, nil, nil)
end
end
end
end
end
end
-------------------------------Excluir Serial----------------------------------------
pth=_DesktopFolder
newpth = String.Replace(pth, "Desktop", "AppData\\Roaming\\IgS\\reg.reg", false);
File.Delete(newpth, false, false, false, nil);
------------------------------------------------------------------------------------