Yashar Fishme Or Keygenme Version 2008

[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

[lvl@ster]

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

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

[mJo0T]

اصلا بگزارید من کاملا قضیه را توضیح بدم
در قسمت 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 ورودیش برحسب رادیان هست(یعنی اگه نمیتونین مقدار رو درست بدست بیارین باید آرگومان تابع رو بر حسب رادیان بنویسین)(یعنی فکر کنم این طور باشه )

[lvl@ster]

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

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

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

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

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

بی نهایت تشکر

[hoax3r]

سلام

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

شاد باشید

[mJo0T]

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

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

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

[z7sa5]

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

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

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

[amirgooran]

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



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

[z7sa5]

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

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

[amirgooran]

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

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید