سلام
توصیه میکنم اصلا" از این روش استفاده نکنید , فایل ضمیمه اصلا" امنیتی نداره.
نقل قول:
قطعا برای هر مشکلی راه حلی وجود داره.
حتما" همین طوره , من خودم اول برنامه نویس دات نت بودم ولی به خاطر راه حل دات نت رو رها کردم و رفتم سراغ Delphi :لبخند:
شوخی کردم , نمیگم زبان مورد علاقه خودتون رو رها کنید ولی به یاد داشته باشید وقتی دیدید که Xenecode کرک شد نگید که بیخیال , اینم که کرک شد.
به یاد داشته باشید که همیشه امنیت سطح 1 خیلی بهتر از امنیت سطح صفر هست.
زیاد با MMB تلاش نکنید چون اصلا" امنیت قابل قبولی نداره , حتی سورس اسکریپت های برنامه های MMB رو هم میشه استخراج کرد.
نقل قول:
میشه از پکرهای موجود استفاده کرد.
پکرها بیشتر کارشون فشرده سازی است نه امنیتی و معمولا" برای دات نت هم کار نمیکنن , بهتره از همون Obfuscator ها استفاده بشه.
سورس مربوط به بررسی کد :
Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
If (Not Me.textBox1.Text Is Nothing) Then
Dim num As Long
Dim a As Long = Convert.ToInt64(Me.textBox1.Text)
Dim b As Long = Convert.ToInt64(a.ToString.Substring(0, 1))
a = (Convert.ToInt64(Math.DivRem(a, b, num)) * Me.textBox1.Text.Length)
If (Me.textBox2.Text = a.ToString) Then
MessageBox.Show(ChrW(1576) & ChrW(1575) & ChrW(1576) & ChrW(1575) & " " & ChrW(1575) & ChrW(1740) & ChrW(1608) & ChrW(1604) & " " & ChrW(1578) & ChrW(1608) & " " & ChrW(1583) & ChrW(1740) & ChrW(1711) & ChrW(1607) & " " & ChrW(1705) & ChrW(1740) & " " & ChrW(1607) & ChrW(1587) & ChrW(1578) & ChrW(1740))
Else
MessageBox.Show(ChrW(1606) & ChrW(1575) & " " & ChrW(1575) & ChrW(1605) & ChrW(1740) & ChrW(1583) & " " & ChrW(1606) & ChrW(1588) & ChrW(1608) & " " & ChrW(1576) & ChrW(1575) & ChrW(1586) & ChrW(1605) & " " & ChrW(1578) & ChrW(1604) & ChrW(1575) & ChrW(1588) & " " & ChrW(1705) & ChrW(1606))
End If
End If
End Sub