Search the Community
Showing results for tags 'crypto'.
-
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