|
Windev - Segurança na Aplicação |
Started by adrianoboller, Jul., 06 2015 8:32 PM - No answer |
| |
| | | |
|
| |
Posted on July, 06 2015 - 8:32 PM |
sBaseBoardManufacturer, sBaseBoardProduct, sBaseBoardVersion, sBIOSReleaseDate, sBIOSVendor, sBIOSVersion, sSystemFamily, sSystemManufacturer is string = ""
ResExist1 is boolean = RegistryExist("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS")
ResExist2 is boolean = RegistryExist("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0")
IF ResExist1 = True AND ResExist2 = True
sKey is string = "HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS"
sBaseBoardManufacturer = RegistryQueryValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS", "BaseBoardManufacturer", True) sBaseBoardProduct = RegistryQueryValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS", "BaseBoardProduct", True) sBaseBoardVersion = RegistryQueryValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS", "BaseBoardVersion", True) sBIOSReleaseDate = RegistryQueryValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS", "BIOSReleaseDate", True) sBIOSVendor = RegistryQueryValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS", "BIOSVendor", True) sBIOSVersion = RegistryQueryValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS", "BIOSVersion", True) sSystemFamily = RegistryQueryValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS", "SystemFamily", True) sSystemManufacturer = RegistryQueryValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS", "SystemManufacturer", True)
EDT_Processador = RegistryQueryValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "ProcessorNameString", True)
EDT_Placa_Mae = sBaseBoardManufacturer +"-"+ sBaseBoardProduct +"-"+ sBaseBoardVersion +"-"+ sBIOSReleaseDate +"-"+ sBIOSVendor +"-"+ sBIOSVersion +"-"+ sSystemFamily +"-"+ sSystemManufacturer END
EDT_Hard_Drive = fDisqueInfo(Middle(SysDir(srWindows),1,2),fdSerialNumber)
EDT_Hard_Drive_PcSoft = EDT_Hard_Drive
EDT_IP_4 = NetIPAddress()
EDT_Placa_de_Rede_Mac = Upper(NetMACAddress())
EDT_Version_Windows = SysWindowsVersion(sysProcessor) +" bits - "+ SysWindowsVersion(sysVersionBuild) +"-"+ SysWindowsVersion(sysVersionInfo) +"-"+ SysWindowsVersion(sysVersionNumber) +"-"+ SysWindowsVersion(sysVersionPlatform)
EDT_Name_PC = Upper(NetMachineName())
EDT_Serial = EDT_Company +"; "+ EDT_CNPJ_CPF_ID +"; "+ EDT_Processador +"; "+ EDT_Placa_Mae +"; "+ EDT_Hard_Drive +"; "+ EDT_IP_4 +"; "+ EDT_Placa_de_Rede_Mac +"; "+ EDT_Version_Windows +"; "+ EDT_Name_PC EDT_Serial = Crypt(EDT_Serial,EDT_Hard_Drive,cryptAnsi+compressShortString,encodeBASE64)
|
| |
| |
| | | |
|
| | | | |
| | |
|