Cryptolamada Hata

[styler]

merhaba arkadaşlar bu konu hakkında yardımlarınıza ihtiyacım var cryptolamayı hazırladım fakat ekrana hem kullanıcı kodu olarak 1 ve lisans kodu veriyor bu sorunu çözmemde yardımccı olurmusunuz.

 

 

on Show

 

File.Copy("AutoPlay\\Docs\\veri.ini", "C:\\veri.ini", true, false);

function GetHDDInfo(sDRIVE)

sDRIVE=String.Replace(sDRIVE,":","",false)

sDRIVE=String.Replace(sDRIVE,"\\","",false)

tbDrives = Drive.Enumerate();

if tbDrives then

nHDDCount=0

for i,v in pairs(tbDrives) do

if Drive.GetType(v) == 3 then

cDRIVE=String.Replace(v,":\\","",false)

cDRIVE=String.Upper(cDRIVE)

if String.Upper(sDRIVE) == cDRIVE then

tbRet={}

tbRet.VendorModel = DLL.CallFunction("AutoPlay\\Docs\\HDDInfoDLL.dll", "GetHDDVendorModel", nHDDCount, DLL_RETURN_TYPE_STRING, DLL_CALL_STDCALL);

tbRet.HardwareSerial = DLL.CallFunction("AutoPlay\\Docs\\HDDInfoDLL.dll", "GetHDDHardwareSerial", nHDDCount, DLL_RETURN_TYPE_STRING, DLL_CALL_STDCALL);

tbRet.FirmwareVersion = DLL.CallFunction("AutoPlay\\Docs\\HDDInfoDLL.dll", "GetHDDFirmwareVersion", nHDDCount, DLL_RETURN_TYPE_STRING, DLL_CALL_STDCALL);

nHDDCount=nHDDCount+1

end

end

end

else

tbRet = 0

end

return tbRet

end

 

tbHDD=GetHDDInfo(_SourceDrive)

Input.SetText("Input1",Crypto.Rot13(tbHDD.HardwareSerial, "benimkodum", 0));

veriAl = INIFile.GetValue("C:\\veri.ini", "veriler", "veri_1")

Input.SetText("Input2", veriAl)

 

on menu

 

 

if e_ID == 101 then

 DialogEx.Show("Dialog1");

elseif e_ID == 102 then

 DialogEx.Show("Dialog2");

end 

 

 

https://mega.co.nz/#!3gwDjYpJ!c6ZloOi_r-7A7YLpCLmHdiF5jjU476DwSG6ronrQMnY

[pairs]

link çalışmıyor