تقييم الموضوع :
  • 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] مساعدة في قراءة ملف xml موجود في موقعي dubai.eig 6 137 20-05-17, 12:25 AM
آخر رد: alma2
  [VB.NET] مساعدة التحقق من الاتصال بالانترنت dubai.eig 3 98 19-05-17, 06:46 PM
آخر رد: dubai.eig
  مساعدة بخصوص تشفير ملف exe OakenShield 1 58 18-05-17, 11:27 AM
آخر رد: OakenShield
  مساعدة في حساب الدائن والمدين وايجاد الرصيد alwasela 6 531 16-05-17, 01:12 AM
آخر رد: salah mansour
  سلام عليكم ... مساعدة في اكمال المشروع لو سمحتوا ramimohammed 1 86 11-05-17, 09:56 AM
آخر رد: جميل علي
  مساعدة في البحث في الداتا جريد فيو khaled12345 2 102 10-05-17, 11:17 AM
آخر رد: khaled12345
  مساعدة لسه مبتدئ 1 72 10-05-17, 01:18 AM
آخر رد: محمود بكرى
  مساعدة في ربط برنامج بالسكنر zinab ali 3 84 09-05-17, 10:55 PM
آخر رد: mansoor
  طلب مساعدة محمد بن عطية 0 61 05-05-17, 06:38 PM
آخر رد: محمد بن عطية
  محتاج مساعدة في اكمال الكود bidaya 7 223 04-05-17, 05:14 PM
آخر رد: bidaya

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


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