تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] خوارزمية للترخيص مساعدة
#1
السلام عليكم لدي خوازمية  للترخيص ترخيص برنامج  مكتوبة بالفيجوال بيسك ارجو مساعدتي في فهمها 


كود :
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
الرد
تم الشكر بواسطة:
#2
الشلام عليكم

اخي الكريم هذا ليس سورس vb انه برنامج معمول له dicompilation وفي هذه الحالة من الصعب جدا معرفة الخوارزمية التي يعمل بها

والله اعلم

يعطيك العافية
(( يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي ))

الرد
تم الشكر بواسطة:
#3
صحيح انا عملت dicompilation علشاان اجاول افك شفرة الترخيص
مافي اي جل لهادا الموضوع؟
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة لفهم كود التسجيل abureem93 9 104 منذ 2 ساعة مضت
آخر رد: abureem93
  مساعدة في انشاء ثيم عبدالرحمن المكاوي 12 999 23-02-18, 01:01 AM
آخر رد: كناري008
  طلب مساعدة ( كود ) جزاكم الله خير abokaled22 2 0 18-02-18, 01:11 AM
آخر رد: abokaled22
  مثال على خوارزمية iFanfan 0 0 17-02-18, 07:59 PM
آخر رد: iFanfan
  محتاجة مساعدة بمشروع تخرج webapplication vb رهف العريفي 0 0 16-02-18, 05:13 PM
آخر رد: رهف العريفي
  مشروع تخرج كنترول شيت Vb.Net محتاج مساعدة sirnon 5 0 15-02-18, 02:26 AM
آخر رد: sirnon
  مساعدة فى اكواد قواعد البيانات MOSTAFA.KAMEL 8 0 13-02-18, 02:27 AM
آخر رد: MOSTAFA.KAMEL
  [سؤال] مساعدة في إضافة العلامة العشرية والفاصلة داخل تكست بوكس والجريد فيو بيسك لكل العرب 4 2 11-02-18, 12:35 AM
آخر رد: nooralcown
  [VB.NET] مساعدة فى حل المشاكل فى عرض البيانات MOSTAFA.KAMEL 16 0 08-02-18, 06:47 PM
آخر رد: MOSTAFA.KAMEL
  [VB.NET] مساعدة فى تركيب الكود MOSTAFA.KAMEL 21 1 05-02-18, 04:39 PM
آخر رد: MOSTAFA.KAMEL

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم