تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال عن كسر برنامج يحتوي على ملفين تنفيذيين
#5
صديقي بالنسبه ل ollabg بصراحه مو عارف بالزبط كيف اعمل اتاش لل dll وبضل يعطيني كذا مشكله ازا ممكن تحط الخطوات بشرح سريع او تبعتلي رابط فيديو يساعدني وشكرا

بالمناسبه حللت البرنامج ب reflector 
ووصلت لحد هاي النقطه

 
 
   Dim num As Integer = (LicenseHandler._ReadSentinelLicense(&H66) And &HFF)    Dim flag As Boolean = False    num = (((&H100 - num) * &H100) + num)    Me.UpgradeCodeTextBox.Text = Me.UpgradeCodeTextBox.Text.Replace(ChrW(9), "")    Me.UpgradeCodeTextBox.Text = Me.UpgradeCodeTextBox.Text.Replace(ChrW(10), "")    Me.UpgradeCodeTextBox.Text = Me.UpgradeCodeTextBox.Text.Replace(ChrW(13), "")    Me.UpgradeCodeTextBox.Text = Me.UpgradeCodeTextBox.Text.Replace(" ", "")    Dim separator As String() = New String() { "-" }    Dim strArray2 As String() = Me.UpgradeCodeTextBox.Text.Split(separator, 4, StringSplitOptions.None)    If ((((Me.UpgradeCodeTextBox.Text.Length = &H13) OrElse (strArray2.GetLength(0) = 4)) AndAlso ((Integer.Parse(strArray2(0), NumberStyles.HexNumber) = (num Xor &H65A2)) AndAlso ((Integer.Parse(strArray2(1), NumberStyles.HexNumber) = (num Xor &H4267)) AndAlso ((Integer.Parse(strArray2(2), NumberStyles.HexNumber) = (num Xor &H1E1A)) AndAlso (Integer.Parse(strArray2(3), NumberStyles.HexNumber) = (num Xor &H7215)))))) AndAlso (LicenseHandler._WriteSentinelLicense(1, 2, &H7474) <> 0)) Then        flag = True    End If

زي ما مبين بالكود بقارن الي دخلناه باللايسنس وبعمل xor وبطلع وبسوي الحسابات تاعته حتى يتحقق من الرقم الي دخلناه 

الي واقف قدامي حاليا هاد السطر 
LicenseHandler._ReadSentinelLicense(&H66)
وهوي بقرا رقم وما بعرف شو بعمل فيه بالزبط بتوقع برنامج ollybdg يعطيني بالزبط شو بنكتب وبنقرا منو

بانتظار دعمك وشكرا
أعضاء أعجبوا بهذه المشاركة :


الردود في هذا الموضوع
RE: سؤال عن كسر برنامج يحتوي على ملفين تنفيذيين - بواسطة volcano_abd - 17-07-2019, 12:08 PM

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


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