تمرین سریال فیشینگ

این هم دوتا SerialFishMe که از نت گرفتم که شما باید سریال اون رو بدست بیارید ( اولی آسونه ولی دومی یکم سخته) پس لطفا دوستان سریال این کرک می ها رو بدست بیارند

کد:

---

http://s1.picofile.com/file/7105423866/SerialFishMe_1.rar.html

---

کد:

---

http://s1.picofile.com/file/7105426662/Serial_FishMe_2.rar.html

---

ببین اینا خوبن!! خیلی کار نکردم! 5 دقیقه!!!

سریال برای کرک می شماره 1:

کد:

---

r2jt3-et1e5-f5g2r-e5g2e

---

سریال برای کرک می شماره 2:

کد:

---

R49X50X5152X53X5455X56X5749X49X4949X49X49RXTJ

---

نقل قول:

---

نوشته شده توسط Mr.reCoder [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

ببین اینا خوبن!! خیلی کار نکردم! 5 دقیقه!!!

سریال برای کرک می شماره 1:

کد:

---

r2jt3-et1e5-f5g2r-e5g2e

---

سریال برای کرک می شماره 2:

کد:

---

R49X50X5152X53X5455X56X5749X49X4949X49X49RXTJ

---

---

هر دو درسته دمت گرم اولی رو خودم سریالش رو بدست اوردم ولی دومی رو نتونستم اگه ممکنه یه توضیحی یا یه آموزش در مورد سریال فیشینگ دومی بده

دومی تو vb.net نوشته شده. با reflector دیکامپایلش کن. خوشبختانه پروتکت نشده :46: کدش میاد جلوی چشمت!!!:31:
در ضمن توابعی که آبجکت رو برمیگردانن با تابع ToString به رشته تبدیل میشن.
مسیر زیر رو توی Reflector دنبال کن:

کد:

---

SerialFishMe1.3 -> Serial FishMe 1.3.exe -> SerialFishMe1._3 -> Form1 -> Button2:Button -> set_Button2(Button):Void

---

کد زیر میاد :

دومی تو vb.net نوشته شده. با reflector دیکامپایلش کن. خوشبختانه پروتکت نشده [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] کدش میاد جلوی چشمت!!! [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
در ضمن توابعی که آبجکت رو برمیگردانن با تابع ToString به رشته تبدیل میشن.
مسیر زیر رو توی Reflector دنبال کن:

کد:

---

SerialFishMe1.3 -> Serial FishMe 1.3.exe -> SerialFishMe1._3  -> Form1 -> Button2:Button -> set_Button2(Button):Void

---

کد زیر میاد :

کد:

---

<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Friend Overridable Sub set_Button2(ByVal WithEventsValue As Button)
    If (Not Me._Button2 Is Nothing) Then
        RemoveHandler Me._Button2.Click, New EventHandler(AddressOf Me.Button2_Click)
    End If
    Me._Button2 = WithEventsValue
    If (Not Me._Button2 Is Nothing) Then
        AddHandler Me._Button2.Click, New EventHandler(AddressOf Me.Button2_Click)
    End If
End Sub

 

---

روی Button2_click کلیک کن! کد زیر میاد:

کد:

---

Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs)
    Dim str As String = Conversions.ToString(Operators.AddObject(Operators.AddObject(Operators.AddObject(Operators.AddObject(Me.RJx1, Me.RJx(10)), Me.RJx3), Me.RJx4), Me.RJx2))
    If (Me.TextBox1.Text = str) Then
        MessageBox.Show(Conversions.ToString(Me.RJx5), "", MessageBoxButtons.OK, DirectCast(Conversions.ToInteger(Me.RJx7), MessageBoxIcon))
    Else
        MessageBox.Show(Conversions.ToString(Me.RJx6), "", MessageBoxButtons.OK, DirectCast(Conversions.ToInteger(Me.RJx8), MessageBoxIcon))
    End If

End Sub

---

توابع RJx هرکدوم یه رشته برمیگردونن که (Me. [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] (10 مهمتره:

کد:

---

Public Function RJx(ByVal Nx As Integer) As Object
    Dim left As String = ""
    Dim num2 As Integer = (Nx + 5)
    Dim i As Integer = 1
    Do While (i <= num2)
        left = (left & Conversions.ToString(Strings.Asc(Conversions.ToString(i))))
        If ((i Mod 3) > 0) Then
            left = Conversions.ToString(Operators.ConcatenateObject(left, Me.RJx3))
        End If
        i += 1
    Loop
    Return Operators.ConcatenateObject(left, Me.RJx1)
End Function

---

برو تو VB دات نت و کد زیر رو اجرا کن. ببین چی میاد. البته بهتره همه کدها رو بنویسی(کپی کنی:31:) و خود کرک می رو بسازی!!!

------------------------++++++++++++++++++++++++++++--------------------------------------

من دات نت و vb6 رو خیلی دوست دارم!:10: چون خیلی راحت کرک میشن!:46: البته اگه پروتکت نشن!!!:19:

توضیحات شما کامل بود من تا حدودی زبان دلفی رو بلدم سریال تو این تابع

کد:

---

  str := Conversions.ToString(Operators.AddObject(Operators.AddObject(Operators.AddObject(Operators.AddObject(self.RJx1, self.RJx(10)), self.RJx3), self.RJx4), self.RJx2));

---

قرار میگیره اگه ممکنه این قسمت رو برام بیشتر توضیح بدید که چطور سریال رو ازش استخراج کردید

نقل قول:

---

نوشته شده توسط ebrahimjan [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

توضیحات شما کامل بود من تا حدودی زبان دلفی رو بلدم سریال تو این تابع

کد:

---

  str := Conversions.ToString(Operators.AddObject(Operators.AddObject(Operators.AddObject(Operators.AddObject(self.RJx1, self.RJx(10)), self.RJx3), self.RJx4), self.RJx2));

---

قرار میگیره اگه ممکنه این قسمت رو برام بیشتر توضیح بدید که چطور سریال رو ازش استخراج کردید

---

همه ی توابع مشخصند که چیکار میکنن. فقط تابع زیر :

کد:

---

Public Function RJx(ByVal Nx As Integer) As Object
    Dim left As String = ""
    Dim num2 As Integer = (Nx + 5)
    Dim i As Integer = 1
    Do While (i <= num2)
        left = (left & Conversions.ToString(Strings.Asc(Conversions.ToString(i))))
        If ((i Mod 3) > 0) Then
            left = Conversions.ToString(Operators.ConcatenateObject(left, Me.RJx3))
        End If
        i += 1
    Loop
    Return Operators.ConcatenateObject(left, Me.RJx1)
End Function

---

که یکم توضیح لازم داره. البته اگه دات نت رو میخوندی خیلی بهتر از من میدونستی!:20:

خوب در این تابع دستورات Conversions.ToString خوب معلومه!!:31:(همه چی رو به رشته تبدیل میکنن!:46: حتی Object!!!)

توابع دیگه هم هرکدوم Object برمیگردونن که با همین تابع به رشته تبدیل میشوند.

دستور Operators.ConcatenateObject دو Object را کنتاکت(چسبیدن) میکنند.:31: که بعدا با Tostring رشته میشوند!:46:
دستور Operators.AddObject هم دو Object رو با هم جمع میکنه!!(در این مورد بخصوص، با دستور Operators.ConcatenateObject برابر است.)
کلا همین دیگه...:31:
بهتره همینها رو تو VB.NET بنویسی و Trace کنی. اون وقت خیلی بهتر مشه.