الرجاء تفسير هذا المقطع الخاص بتفعيل احدى البرامج

[serpentaire]

السلام عليكم ايها الاخوة
اليكم طريقة احدى البرامج للتسجيل والتفعيل
ارجو مممن يتقنون البرمجة تفسير العملية التي يقوم لصنع سيريال التفعيل
Get the processor name and speed

sProcessorName = Registry.GetValue(HKEY_LOCAL_MACHINE, "HARDWARE\\DESCRIPTION\\System\\CentralProcessor\\0", "ProcessorNameString", false);
if sProcessorName == "" then
sProcessorName = Registry.GetValue(HKEY_LOCAL_MACHINE, "HARDWARE\\DESCRIPTION\\System\\CentralProcessor\\0", "VendorIdentifier", false);
if sProcessorName == "" then
sProcessorName = Registry.GetValue(HKEY_LOCAL_MACHINE, "HARDWARE\\DESCRIPTION\\System\\CentralProcessor\\0", "Identifier", false);
end
end
sProcessorSpeed = Registry.GetValue(HKEY_LOCAL_MACHINE, "HARDWARE\\DESCRIPTION\\System\\CentralProcessor\\0", "~MHz", false);
nProcessorSpeed = String.ToNumber(sProcessorSpeed);
if nProcessorSpeed >= 1000 then
nProcessorSpeedGHz3 = nProcessorSpeed / 1000;
nProcessorSpeedGHz = Math.Round(nProcessorSpeedGHz3, 2);
sProcessorSpeedPretty = nProcessorSpeedGHz.. "GHz";
elseif nProcessorSpeed < 1000 then
sProcessorSpeedPretty = nProcessorSpeed.. "MHz";
end
sProcessorNameTrimmed = String.TrimLeft(sProcessorName, " ");
--Paragraph.SetText("N_LabelCPUText", sProcessorNameTrimmed.. " @ ~"..sProcessorSpeedPretty);

cpuInfo = sProcessorNameTrimmed.. " - "..sProcessorSpeedPretty;

-- HDI --
Hdi = DLL.CallFunction("AutoPlay\\Docs\\HD.dll", "GetHDDHardwareSerial", 0, 2, 1);
if Hdi == nil then
Hdi = "Nillll"
end

Hdi = "Hdi is : "..Hdi;

verSion = "Version : "..thisversion

--All
--ID_Info = ID_Info..Hdi;

bk1 = Page.GetObjectScript("buuy", "On Click");
bk2 = Page.GetObjectScript("buuy2", "On Click");

if not (bk1 == bk2) then
Page.SetObjectScript("buuy", "On Click", bk2);
end€
 On Showÿfbk1 = DialogEx.GetObjectScript("activate", "On Click");
bk2 = DialogEx.GetObjectScript("activate11", "On Click");

if bk1 ~= bk2 then
DialogEx.SetObjectScript("activate", "On Click", bk2);
end

function generateId()
ID_Info = "";

mail = Input.GetText("mail");

if string.gsub(mail , "(%s+)", "") == "" then -- Correct mail
Input.SetText("Id_input", "veuillez entrer votre email SVP");

elseif String.Find(mail, "@", 1, false) ~= -1 and String.Find(mail, ".", 1, false) ~= -1 and
String.Find(mail, "@", 1, false) < String.Find(mail, ".", 1, false) then

ID_Info = mail.."\r\n"..cpuInfo.."\r\n"..Hdi.."\r\n"..verSion;

ID_crypted = Crypto.BlowfishEncryptString(ID_Info, "cPu.encrypt.EdcEdc17", 0);
ID_crypted = Crypto.BlowfishEncryptString(ID_crypted, "cPu.encrypt.EdcEdc17", 0);

Input.SetText("Id_input","<<<"..ID_crypted..">>>" );

else
Input.SetText("Id_input", "votrer email est incorrect !");
end
end

if File.DoesExist(_TempFolder.."\\liam.t") then
mail = TextFile.ReadToString(_TempFolder.."\\liam.t");
Input.SetText("mail", mail);

generateId();
end

³
 ) 
 
 
 
  €
 On Clickÿnum = Input.GetText("mail");
if string.gsub(num , "(%s+)", "") == "" then -- Correct mail
Dialog.Message("Email","veuillez entrer votre email SVP");
Application.ExitScript();
elseif String.Find(num, "@", 1, false) == -1 or String.Find(num, ".", 1, false) == -1 then
Dialog.Message("Email","veuillez entrer votre email correct SVP");
Application.ExitScript();
end
num = string.gsub(num , "(%s+)", "");

serial = Input.GetText("Serial");

first = String.Find(serial, "<<<", 1, false);
last = String.Find(serial, ">>>", 1, false);
All = String.Mid(serial, first, last-first); -- String.Length(serial)-last+3

serial = All;

serial = String.Replace(serial, "<<<", "", false);
serial = String.Replace(serial, ">>>", "", false);

decrypt = Crypto.BlowfishDecryptString(serial, "check"..num.."sum");

--Dialog.Message("",decrypt.."\r\n"..ID_crypted);

if decrypt == ID_crypted then
Dialog.Message("Code d'activation valide", "Merci pour votre registration.\r\nRe-ouvrir le logiciel SVP.");