تقييم الموضوع :
  • 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 علشاان اجاول افك شفرة الترخيص
مافي اي جل لهادا الموضوع؟
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعدة لمنع تكرار البيانات او تجميعها علي حسب التاريخ englishman210 9 109 منذ 7 ساعة مضت
آخر رد: حريف برمجة
  مساعدة في فاتورة مبيعات الدريساوي 2 67 09-12-17, 11:58 PM
آخر رد: الدريساوي
  مساعدة في مشروع Riffa 2 78 06-12-17, 03:57 PM
آخر رد: Riffa
  مساعدة فى تعديل كود اذا سمحتوا مسح كل حاجه فى الداتا جريد فيو نبيل فتحى 2 53 04-12-17, 02:14 AM
آخر رد: عبد الاحد
  [VB.NET] طلب مساعدة في حل مشكلة فراس الغزي 8 112 03-12-17, 09:41 PM
آخر رد: طالب برمجة
  اريد مساعدة في هد الكود واكون ممنون ahmedbezia 2 50 03-12-17, 06:16 PM
آخر رد: ahmedbezia
  [VB.NET] مساعدة في مشروع باقي شغلة واحدة فقط 0theghost0 2 142 22-11-17, 06:46 PM
آخر رد: 0theghost0
  مساعدة في كود البحث وكود مفاتيح التنقل بين السجلات khaled12345 4 100 18-11-17, 08:10 PM
آخر رد: khaled12345
Exclamation [Acces2007] مساعدة من الاخوة الخبراء من فضلكم على جناح السرعة Derradji22 0 119 18-11-17, 01:25 AM
آخر رد: Derradji22
Star [سؤال] اريد مساعدة في التعديل على مشروع ابو اياد@ 4 183 13-11-17, 12:31 AM
آخر رد: Amir_alzubidy

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


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