تقييم الموضوع :
  • 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
Plain text

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

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

بانتظار دعمك وشكرا


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

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


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