تقييم الموضوع :
  • 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] مساعدة محتاج خبراء ReportViewer dubai.eig 32 651 اليوم, 09:47 AM
آخر رد: elgokr
  ممكن مساعدة في كود قريد فيو نور الهدى الهدى 3 55 13-06-18, 07:33 PM
آخر رد: elgokr
  مساعدة في تشغيل برنامج على الشبكة ibrahimmakhool 3 109 13-06-18, 11:56 AM
آخر رد: elgokr
  احتاج مساعدة في كود التعديل maram2423 5 104 08-06-18, 03:53 PM
آخر رد: elgokr
  مساعدة بخصوص التاريخ تلقائيا ahmedfa71 3 78 07-06-18, 03:53 PM
آخر رد: elgokr
  مساعدة لتصميم برنامج إسلامي بإمتياز hichem1 13 393 06-06-18, 05:33 PM
آخر رد: hichem1
Question [سؤال] مساعدة أريد أن يستخرج ال textbox من ال webbrowser الذي أضفته في مشروعي hichem1 2 59 06-06-18, 05:02 PM
آخر رد: hichem1
  مساعدة في حفظ تغييرات البرنامج أرجوكم بسرعة !! hichem1 0 51 05-06-18, 04:43 PM
آخر رد: hichem1
  [VB.NET] سلام شباب محتاج مساعدة إذا أمكن أنا اتابع دورة الأخ ملهم و هناك مشكلة بالنسبة للداتا aloush 0 48 05-06-18, 05:25 AM
آخر رد: aloush
  طلب مساعدة اخوية فراس الغزي 22 397 03-06-18, 02:38 AM
آخر رد: فراس الغزي

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


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