Yashar Fishme Or Keygenme Version 2008

اصلا بگزارید من کاملا قضیه را توضیح بدم
در قسمت name وقتی شما یه استرینگی وارد می کنید برنامه میاد به ترتیب کار های زیر را انجام میده
1 _ مقدار استرینگ وارد شده را بر حسب بایت حساب می کنه
2 _ کد اسکی اولین کاراکتر رشته را پیدا می کنه
3_ طول رشته را پیدا می کنه
4 _ مقدار وارد شده در قسمت سریال را می خواند (صحیح یا اعشاری فرقی نمی کنه ولی صحیح راحتتر است)
5_ مقادیر 1 و 2 و 3 و 4 را در هم ضرب می کنه و ازش سینوس می گیره
6 اگر سینوس برابر با سینوس 2.9803869747762E+15 باشد . برنامه رجیستر میشود
برای اینکه بهتر درک کنید من کد مربوطه را می نویسم

If Sin(LenB(Text1.Text) * Asc(Text1.Text) * Len(Text1.Text) * Val(Text2.Text)) = Sin(2.9803869747762E+15) Then
Registered the Program
Else
Unregistered the Program
End If

من خودم کیجنش کردم اگر نتونستین بگین تا واستون سورس بزارم

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

نقل قول:

---

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

اصلا بگزارید من کاملا قضیه را توضیح بدم
در قسمت name وقتی شما یه استرینگی وارد می کنید برنامه میاد به ترتیب کار های زیر را انجام میده
1 _ مقدار استرینگ وارد شده را بر حسب بایت حساب می کنه
2 _ کد اسکی اولین کاراکتر رشته را پیدا می کنه
3_ طول رشته را پیدا می کنه
4 _ مقدار وارد شده در قسمت سریال را می خواند (صحیح یا اعشاری فرقی نمی کنه ولی صحیح راحتتر است)
5_ مقادیر 1 و 2 و 3 و 4 را در هم ضرب می کنه و ازش سینوس می گیره
6 اگر سینوس برابر با سینوس 2.9803869747762E+15 باشد . برنامه رجیستر میشود
برای اینکه بهتر درک کنید من کد مربوطه را می نویسم

If Sin(LenB(Text1.Text) * Asc(Text1.Text) * Len(Text1.Text) * Val(Text2.Text)) = Sin(2.9803869747762E+15) Then
Registered the Program
Else
Unregistered the Program
End If

---

این دقیقاً همون چیزیه که hoax3r گفت، فقط شما گفتی که طول به بایت، hoax3r گفت که دو برابر طول که چون توی VB رشته ها به صورت unicode نگهداری میشن پس میشه همون دو برابر طول
در ضمن تابع Sin توی VB ورودیش برحسب رادیان هست(یعنی اگه نمیتونین مقدار رو درست بدست بیارین باید آرگومان تابع رو بر حسب رادیان بنویسین)(یعنی فکر کنم این طور باشه :13:)

نقل قول:

---

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

این دقیقاً همون چیزیه که hoax3r گفت، فقط شما گفتی که طول به بایت، hoax3r گفت که دو برابر طول که چون توی VB رشته ها به صورت unicode نگهداری میشن پس میشه همون دو برابر طول
در ضمن تابع Sin توی VB ورودیش برحسب رادیان هست(یعنی اگه نمیتونین مقدار رو درست بدست بیارین باید آرگومان تابع رو بر حسب رادیان بنویسین)(یعنی فکر کنم این طور باشه :13:)

---

سلام به استاد گرامی

بله ایشون هم درست پیدا کرده بودن

دقت کنید من در صفحه یک در پست شماره 9 از ایشون تشکر کردم و گفتم تابع اصلی را خودم مینویسم . تمام حرف های ایشون را قبول دارم

در مورد راهنمایی شما بی نهایت ممنونم خیلی به دردم خورد

بی نهایت تشکر

سلام

خوب خوبه دیگه هم کیجن می رو دادی هم کیجنشو :5:
منم LenB نمیدونستم چه تابعی فکر کردم مثل خیلی از تابع های دیگه VB که سروته ندارنه:27:
منمون از توضیحات شما و mJo0T در باره تابع

شاد باشید

نقل قول:

---

بله ایشون هم درست پیدا کرده بودن

دقت کنید من در صفحه یک در پست شماره 9 از ایشون تشکر کردم و گفتم تابع اصلی را خودم مینویسم . تمام حرف های ایشون را قبول دارم

---

شرمنده!، این پستتون رو ندیدم

یه قسمتهایی از سورس اون قسمت که ep فایل پک شده رو با ep انپک شده مقایسه می کرد برحسب RVA چک می کرد اگه
سمپلش رو بزاری بد نیست

می دونم دستور if هستش ولی خیلی راغب شدم ...خیلی وقته این برنامه نویسی رو گذاشتم کنار :(
البته من vb کار نمی کنم

ضمنا تماما شرط if بود که تو روادید تایمر ، فرم اکتیو ، و تقریبا تمامی قسمتها تکرار شده بود ...

کاری نداره...کافیه توی PE Header دنبال EP بگردی،مثال :

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

منظور از OEP تو تصویر بالا،همون EP هست:13:

می دونم شما چی میگی ،

من بیشتر منظورم یه سمپل برنامه نویسی بود در این زمینه چک کردن عوض شدن ep در برنامه ،
سورس اش یا سمپلش منظورم بود ، خیلی وقته که برنامه نویسی رو گذاشتم کنار ...

امیدوارم بدردتون بخوره :

کد:

---

Private Sub Form_Load()
Dim PeTarget As String * 2
Dim Makan As Integer
Dim OEP(4) As Byte
Dim EntryPoint As String
Dim Bytes As String
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
Do While PeTarget <> "PE"
Makan = Makan + 1
Seek #1, Makan
Get #1, , PeTarget
Loop
Makan = Makan + 43
For i = 1 To 4
Seek #1, Makan
Get #1, , OEP(i)
Bytes = Hex(OEP(i))
EntryPoint = EntryPoint & Bytes
Makan = Makan - 1
Next i
Close
MsgBox "My EntryPoint is :" & vbNewLine & vbNewLine & EntryPoint, vbInformation, "Gooran_Ware"
End
End Sub

---