Ernőke fórum

Code: Select all

CREATE DATABASE [01endencia]
GO

USE [01endencia]
GO

CREATE TABLE EnProtectAuthentication01(
	[Username] VARCHAR(255),
	[Password] VARCHAR(255),
	[ManualAuthKey] VARCHAR(255),
	[FullName] VARCHAR(255),
	[Active] VARCHAR(255),
	[LoadCount] VARCHAR(255),
	[USBLicence] VARCHAR(255),
	[LicenceRegDateExpire] VARCHAR(255),
	[DiskSerial] VARCHAR(255),
	[HWDBoardSN] VARCHAR(255),
	[MachineID] VARCHAR(255),
	[ServerVersion] VARCHAR(255),
	[UserVersion] VARCHAR(255),
	[BootBlock] VARCHAR(255),
	[HWAcceleration] VARCHAR(255),
	[BLInheritSettings] VARCHAR(255),
	[BLSecureBoot] VARCHAR(255),
	[TestModeStatus] VARCHAR(255),
	[ForcedCompMode] VARCHAR(255),
	[Language] VARCHAR(255),
	[WarnCount] VARCHAR(255),
	[GlorionModule] VARCHAR(255),
	[ExtrasModule] VARCHAR(255),
	[ExpertToolModule] VARCHAR(255),
	[ServerModule] VARCHAR(255),
	[DriversModule] VARCHAR(255),
	[ManagementModule] VARCHAR(255),
	[CustMenuModule] VARCHAR(255),
	[InstCenterModule] VARCHAR(255),
	[GameCenterModule] VARCHAR(255),
	[SubscribtionModule] VARCHAR(255)
)
GO

CREATE TABLE DFU(
	[ReaderDB] VARCHAR(255),
	[ServiceOnline] VARCHAR(255),
	[BLUAllowed] VARCHAR(255),
	[ClientType] VARCHAR(255),
	[ClientBuild] VARCHAR(255),
	[ClientVersion] VARCHAR(255),
	[ClientCurentVerInfo] VARCHAR(255),
	[ClientReleaseDate] VARCHAR(255),
	[KernelBuild] VARCHAR(255),
	[KernelVersion] VARCHAR(255),
	[KernelCurrentVerInfo] VARCHAR(255)
)
GO

Code: Select all

Dim path
path = "C:\\.HSP Reserved\\HSP-SYSTEM\\HSP-Yadaptron\\.ndilla\\bin\\"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile(path + "authu.ini", True).Write "user"
fso.CreateTextFile(path + "authp.ini", True).Write "pass"
fso.CreateTextFile(path + "auth-dex.ini", True).Write "key"

Dim driveSN, volumeSN, cpuID
driveSN = GetObject("WINMGMTS:\\.\ROOT\cimv2:Win32_DiskDrive.DeviceID=""\\\\.\\PHYSICALDRIVE0""").SerialNumber
volumeSN = GetObject("WINMGMTS:\\.\ROOT\cimv2:Win32_LogicalDisk.DeviceID=""C:""").VolumeSerialNumber
Set cpus = GetObject("WINMGMTS:\\.\ROOT\cimv2").ExecQuery("SELECT * FROM Win32_Processor")
For Each cpu in cpus
    cpuID = cpu.ProcessorId
Next

Set conn = CreateObject("Adodb.Connection")
conn.Open "Provider=SQLOLEDB;Data Source=hsp.mine.nu; Initial Catalog=01Endencia; User ID=sa; Password=mgvjp6drmj5ugl"

conn.Execute "DELETE FROM EnProtectAuthentication01"
conn.Execute "INSERT INTO EnProtectAuthentication01 ([Username], [Password], [ManualAuthKey], [FullName], [Active], [LoadCount], [USBLicence], [LicenceRegDateExpire], [DiskSerial], [HWDBoardSN], [MachineID], [ServerVersion], [UserVersion], [BootBlock], [HWAcceleration], [BLInheritSettings], [BLSecureBoot], [TestModeStatus], [ForcedCompMode], [Language], [WarnCount], [GlorionModule], [ExtrasModule], [ExpertToolModule], [ServerModule], [DriversModule], [ManagementModule], [CustMenuModule], [InstCenterModule], [GameCenterModule], [SubscribtionModule]) VALUES ('user', 'pass', 'key', 'full name', '1',  '0', '0', '0', '" + driveSN + "', '" + volumeSN + "', '" + cpuID + "', '1', '1', '0xbf00020000', '1', '1', '0', '1', '0', '0', '0', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1')"

conn.Execute "DELETE FROM DFU"
conn.Execute "INSERT INTO DFU ([ReaderDB], [ServiceOnline], [BLUAllowed], [ClientType], [ClientBuild], [ClientVersion], [ClientCurentVerInfo], [ClientReleaseDate], [KernelBuild], [KernelVersion], [KernelCurrentVerInfo]) VALUES ('-', '1', 'Yes', 'client type', '299.6.1.216', 'client version', 'client version info', 'client release date', '345.0.1.215', 'kernel version', 'kernel version info')"

conn.Close

MsgBox "Finished"