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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة جزاكم الله كل خير fouadhdfouad 2 53 منذ 4 ساعة مضت
آخر رد: fouadhdfouad
  [VB.NET] اريد مساعدة فى برنامج اصنعة فى الفجول بسك naderalkeng54 4 137 18-09-18, 03:04 PM
آخر رد: naderalkeng54
  مساعدة في طريقة تضمين خط معين للمشروع essawq 9 175 12-09-18, 08:02 AM
آخر رد: elgokr
  طلب مساعدة hbkadour 3 98 08-09-18, 07:18 PM
آخر رد: elgokr
  طلب مساعدة في عدم تحديث البيانات في الداتا جريد فيو عند الضغط على زر تعديل essawq 9 205 05-09-18, 11:22 PM
آخر رد: essawq
  مساعدة عملت برنامج للتعلم وعملت لة سيتب كل الامور تماام لكن اليوزر والباسوورد غير موج essawq 15 333 05-09-18, 06:38 PM
آخر رد: asemshahen5
  مساعدة في كتابة اكواد sloom00 3 101 03-09-18, 11:24 PM
آخر رد: elgokr
  مساعدة بزر الحذف و التعديل العيدروس 5 136 03-09-18, 06:08 AM
آخر رد: elgokr
  [C#.NET] سلام عليكم يا أهل فيجوال بيسك بحاجة الى مساعدة aloush 5 132 02-09-18, 01:33 PM
آخر رد: aloush
  طلب مساعدة في كود البحث بالتاريخ وبمربع تكست وعرض البيانات بالتكست والداتا جريد essawq 12 364 02-09-18, 03:22 AM
آخر رد: elgokr

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


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