21-01-16, 09:07 PM
السلام عليكم لدي خوازمية للترخيص ترخيص برنامج مكتوبة بالفيجوال بيسك ارجو مساعدتي في فهمها
كود :
Public Function MBSerialNumber() '9A9110
loc_009A9132: var_8 = &H40B538
loc_009A9170: var_40 = 80020004h
loc_009A917E: var_60 = "WinMgmts:"
loc_009A9185: var_68 = 8
loc_009A919E: call GetObject(var_58, "WinMgmts:", 10, edi, esi, ebx)
loc_009A91D6: var_68 = 8
loc_009A91E9: var_60 = "Win32_BaseBoard"
loc_009A9214: Set var_20 = var_58."InstancesOf"
loc_009A922F: call __vbaForEachCollAd(var_80, var_18, var_20, 00000001h, var_58)
loc_009A9237: If __vbaForEachCollAd(var_80, var_18, var_20, 00000001h, var_58) = 0 Then GoTo loc_009A92F9
loc_009A9246: var_60 = var_24
loc_009A9255: var_68 = 8
loc_009A926D: var_38 =
loc_009A9278: var_24 = 0 & var_24
loc_009A929A: var_60 = 0 & var_24
loc_009A92A9: var_68 = &H8008
loc_009A92B6: var_ret_1 = (0 < var_20."Count")
loc_009A92CA: If var_ret_1 = 0 Then GoTo loc_009A92E6
loc_009A92E0: var_24 = var_24 & 4623944
loc_009A92E6:
loc_009A92EE: Next var_68
loc_009A92F4: GoTo loc_009A9235
loc_009A92F9:
loc_009A92FF: var_28 = var_24
loc_009A930A: GoTo loc_009A9333
loc_009A9332: Exit Sub
loc_009A9333:
End Functionكود :
Public Sub GetCPUData(strComputerName) '9A9380
Dim var_60 As Me
loc_009A93A5: var_8 = &H40B548
loc_009A9437: var_68 = "winmgmts:\\" & strComputerName & "\root\cimv2"
loc_009A9446: var_38 = 80020004h
loc_009A945B: call GetObject(var_50, &H4008, 10, edi, Me, "Select * from Win32_Processor")
loc_009A94A6: Set var_18 = var_60.QueryInterface
loc_009A94D2: call __vbaForEachCollAd(var_9C, var_1C, var_18, var_60, 00000001h)
loc_009A94DA: If __vbaForEachCollAd(var_9C, var_1C, var_18, var_60, 00000001h) = 0 Then GoTo loc_009A9568
loc_009A94EE: Set var_30 = __vbaForEachCollAd(var_9C, var_1C, var_18, var_60, 00000001h)
loc_009A9506: var_40 = var_1C."ProcessorId"
loc_009A9514: var_2C = CStr()
loc_009A951C: Unknown_VTable_Call[ebx+54h]
loc_009A955A: Next Unknown_VTable_Call[ebx+54h]
loc_009A9563: GoTo loc_009A94D8
loc_009A9568:
loc_009A956D: GoTo loc_009A9599
loc_009A9598: Exit Sub
loc_009A9599:
End Subكود :
Public Function CHK(X) '9A9A60
loc_009A9A82: var_8 = &H40B588
loc_009A9AC9: Set var_34 = Me
loc_009A9AD8: Unknown_VTable_Call[eax+50h]
loc_009A9B18: var_2C = RTrim$(X)
loc_009A9B23: var_28 = RTrim$(var_20)
loc_009A9B2D: var_24 = 00468F50h
loc_009A9B3F: Proc_009AA060(var_28, var_2C, var_24)
loc_009A9B49: var_1C = Proc_009AA060(var_28, var_2C, var_24)
loc_009A9B81: Set var_34 = var_20
loc_009A9B90: Unknown_VTable_Call[eax+50h]
loc_009A9BAE: var_3C = var_20
loc_009A9BBC: var_4C = 5
loc_009A9BC3: var_54 = 2
loc_009A9BCD: var_44 = 8
loc_009A9BF8: var_28 = RTrim$(CStr(Mid$(var_20, 1, 5)))
loc_009A9C0E: esi = (var_1C = var_28) + 1
loc_009A9C40: If (var_1C = var_28) + 1 = 0 Then GoTo loc_009A9C49
loc_009A9C42: var_18 = FFFFFFFFh
loc_009A9C49:
loc_009A9C4E: GoTo loc_009A9C90
loc_009A9C8F: Exit Sub
loc_009A9C90:
End Function
