ساخت ترینر توسط دلفي

سلام
من توي يك تاپيك مي خواستم از افرادي كه اين كار رو بلد آموزش بدن.
ازشون ممنون مي شم. چون اين تاپيك رو توي ويزال بيسيك رو ديده بودم.
حالا مي خواهم اين امكان را براي دلفي كاران ايجاد كنم.
پس لطفآ هر كي در اين مورد چيزي مي دونه همين جا آموزش بده.

عزیزم منظورت از ترینر چیه ؟

سلام
منظور از ترینر کدتغلب بازی ها هستند.
کدهایی که در هر بازی به یه صورت وارد می کنی.
و در هر بازی کاربرد خاصی دارند.
مثل نامرئی کردن ، بی نهایت کردن تیرها ، بی نهایت کردن جون ها.
و غیره برای بعضی از بازی ها این کدها تعریف نشده اند.
و انسان می تونه خودش اون بازی ها رو هک کنه.
اما با برنامه مخصوص و همیشه احتیاج به برنامه داره.
می خواستم با دلفی اینها نوشته بشن که دیگه بدون برنامه بتونی کدتغلب استفاده کنی.
در کل ترینر یعنی آموزشی
اگر هنوز متوجه نشدي بگو كه بيشتر توضيح بدم.

سلام
مگه اين ترينر چقدر مهمه كه بايد به همه زبونها ساخت اون را آموزش داد؟!

برای خیلی ها از جمله من خیلی مهمه
-----------------------------------------
در ضمن اقای SoftDevCo بهتره از جستجو استفاده کنید اینجا جای اینکارا نیست
-----------------------------------------
راستی soldier ایده ی خوبیه من استقبال میکنمًًً!!!!!

سلام
هدف ما بالا بردن سطح علم و دانش است.
گفتم شايد بهتر باشه اين امكان را براي
دلفي كاران ايجاد كنيم. و از كسي كه
اين كار رو بلده خواهش كردم كه آموزش بده براي من و بقيه دوستان.(ذكات علم نشر آن است)
خوب بله براي بعضي ها مهم است.
هر كسي علاقه اي به چيزي دارد.
شخصي دوست داره تمام بازي رو با تغلب ببره.
شخصي دوست داره بي تغلب بازي كنه.
شخصي هم دوست داره بازي رو هك كنه.

سلام
جوینده یابنده است.
من یه چیزایی پیدا کردم دقیقآ نمی دونم مال چیه!
هر کی می تونه یه توضیحی در موردشون بده!
گیم هکر ما منتظر شما هستیم.
ببینیم چی کار می کنی. من می دونم یه کارهایی ازت بر میاد

باز هم سلام
این هم از چیزایی که من پیدا کرده ام .یه مطالعه درباره اش کنید:



Since the old threads are gone I guess I'll just release my trainer template for Delphi. First of all I want to give you some background information.
I created a template a long time ago that I was planning on releasing, I always use the Windows encrypt functions on sourcecodes and other sensitive data to ensure no one gains access to my files without my permission. Anyway, I got this nice defragging tool called O&O Defrag, it's great really. I needed this nice tool to make a boot defrag (so no files will be locked under defrag so it will defrag the harddrive 100%). I did this however with my tiny 700mb left on my systemdrive and somewhere around 70-80% of the defrag it complained on insufficient disk space. So it rebooted the computer, fine. When I try to boot windows, system files are missing. Oh oh, boot defrag corrupted my Windows. I tried every way to rescue my precious Windows but I couldn't save it. At least I could save my files, well some of them. O&O Defrag corrupted the SAM database (the database that contains username & password in WinNT environment), so I could not copy my encrypted files since I could not logon my administrator account trough recovery console. So there I lost my template and a lot of other stuff.

Anyway, let's end this chit chat shall we. Now let's get to business. Here is my template, dedicated to you. I've tried to optimize it so much as possible (I'm not using VCL because it makes huge exe files and I find that unnecessary!). I've probably made some stupid things in the code I've just missed or don't have enough knowledge about, but hey, it works .

This code was made in Delphi 6 but should be working with Delphi 5 and later.

کد:

---

program Trainer_template;

uses
  Windows,
  Messages;

var
  wClass: TWndClass;
  Msg: TMsg;
  MainWindow:HWND;
  MyThread:THandle;
  thrID:DWORD;
  WindowName,ProcessID,ThreadId,HandleWindow: Integer;
  Written:Cardinal;
  NOPS:Int64 = $909090909090;

//////////////////
//Winmine memory//
//////////////////
//OLD:
//01003020 - ff 05 f0 56 00 01  : inc[010056f0]
//TO:
//01003020 - 90  : nop
//01003021 - 90  : nop
//01003022 - 90  : nop
//01003023 - 90  : nop
//01003024 - 90  : nop
//01003025 - 90  : nop

//Procedure to write all kinky stuff to memory, filled with crap.
procedure DoAllKinkyStuff();
begin
WindowName := FindWindow(nil, 'Minesweeper');
  if WindowName <> 0 then
  begin
  ThreadId := GetWindowThreadProcessID(WindowName, @ProcessID);
  HandleWindow := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessID);
  WriteProcessMemory(HandleWindow, ptr($01003020),@NOPS, 6, Written);
  CreateWindow('STATIC','Written to memory.',WS_VISIBLE or WS_CHILD,12,28,150,16,MainWindow,0,hInstance,nil);
  end;
end;

procedure GetKey();
begin
 If GetAsyncKeyState(vk_rshift) < 0 then DoAllKinkyStuff();
end;

function MyThreadFunc(Ptr:Pointer):LongInt;stdcall;
begin
//Create a timer within a thread that executes procedure GetKey each 100ms (unsure about 100
though...)
SetTimer(MainWindow,4567,100,@GetKey);
end;

//Handle of messages
function WindowProc(hWnd,Msg,wParam,lParam:Integer):Integer; stdcall;
begin
 if Msg = WM_DESTROY then
 begin
 PostQuitMessage(0);
 end;
 Result := DefWindowProc(hWnd,Msg,wParam,lParam);
end;

begin
//Let's create our nice GUI shall we?
wClass.lpszClassName:= 'icetemplate';
wClass.lpfnWndProc :=  @WindowProc;
wClass.hInstance := hInstance;
wClass.hbrBackground:= COLOR_BTNFACE+1;
wClass.hCursor := LoadCursor(0,IDC_ARROW);
RegisterClass(wClass);

//Remember kids, classname is unique.
MainWindow := CreateWindow(wClass.lpszClassName,'Template trainer',WS_OVERLAPPEDWINDOW or WS_VISIBLE,10,10,340,220,0,0,hInstance,nil);
CreateWindow('STATIC','Basic template trainer made by Ice_',WS_VISIBLE or WS_CHILD,12,12,250,16,MainWindow,0,hInstance,nil);

MyThread := CreateThread(nil,0,@MyThreadFunc,nil,0,thrID);

while GetMessage(Msg,0,0,0) do DispatchMessage(Msg);

end.

---

I hope you dont mind the stupid smileys in the code, can't seem to find a way to disable them in this post . Ah well, you'll get it anyway..

And remember kids, don't do bootdefrag without enough diskspace .

حتما . هر کاری بتونم میکنم

--------------------------------------------------

اون کده هم در مورد بازی مین روب هستش . فقط یه توضیح بدم که اینا ادرس ها هستن و NOP که کنارشون هست به معنای پوچ یا بی تاثیر بودن دستوره

//OLD:
//01003020 - ff 05 f0 56 00 01 : inc[010056f0]
//TO:
//01003020 - 90 : nop
//01003021 - 90 : nop
//01003022 - 90 : nop
//01003023 - 90 : nop
//01003024 - 90 : nop
//01003025 - 90 : nop

خوب اين رو بايد چطور راه اندازي كرد توي دلفي
من كه كپيش كردم توي دلفي وقتي اجرا مي شد.
فرم ظاهر نمي شد.در ضمن اگر مي تونيد در مورد كار اين برنامه حرف بزنيد.
يعني اين برنامه كارش چيه؟ كدوم بازي يا برنامه رو هك مي كنه؟

راستي اگر آدرس رو نوشته چرا پوچش كرده.با Nop

1- گفتم که برای بازی مین ویندوز بود

2- بعدشم من چون ترینرو نساختم اطلاعات زیادی نمی تونم بدم اما دلیل اینکه دستورات رو پوچ کرده اینه که احتمالا اونا دستورات شرطی بودن

البته من خیلی هم در دلفی تجربه ندارم

خوب خوبه. دستت درد نكنه.
من تمام چيز هارو در مورد هك و ساخت ترينر و ياد گرفتم.
اما چون از تاپيك استقبال نشده نمي ذارمشو.
چون هيچ كس اينها رو نخواسته كه حتي يه تاپيك نزدن.

بزار با با شاید یه چیزی بود که ما هم بلد نبودیم

فقط در حدی می دونم که وقتی بازی رو هک کردی
پروسه ها رو بدی به دلفی و یه ترنیر بسازی.
حالا اگر کسی دوست داره یاد بگیره یه پست بزنه همینجا

بهر حال خوشحال میشم بزاریدش

سلام
عرض کنم خدمت دوستان عزیز که نوشتن ترینر حالا چه با دلفی و یا چه به زبان های دیگه دارای یک روال خاص نیت.
اما یک چیز هست که در همه موارد یک مسئله هست که دخیله. اونم علم شیرین کرک( یا به قول یکی از بچه ها کلک مرغابی )
حالا این کلک مرغابی چجوریه و چه کار می کنن باش سوال هایی که جوابش میشه این
اول از همه برید کرک یاد بگیرید
برای یاد گرفتن کرک باید تا حدودی اسمبلی یاد بگیرید
بعد از اینا برید برنامه نویسی تحت ویندوز رو درست و حسابی یاد بگیرید
و در آخر به فکرنون باشید که خربزه آبه...

دقيقا با حرف دوستمون موافقم.
نوشتن اين برنامه حداقل يك ديكودر ميخواد كه بازي رو سورس كني و بعد با پيگيري كدها به رمزها برسي.
پس قاعدتا هيچ روش خاصي نداره.

براي ساخت كرك برنامه خاصي وجود داره.
يعني واسه اينكه نفوذ كنيم تو يه برنامه
چي كار بايد كرد!خودتون بلدين!
اگر آره يه آموزش بذار و يه برنامه هم معرفي كن.

من تا حالا برنامه حسابداري كرك كردم.
كلا كار سختيه. چون هيچ راه خاصي نداره.
اول بايد ديكودر رو داشته باشي و از طرف ديگر كاملا روي زبان مبنا كه برنامه با آن نوشته شده مسلط باشي.
در اين صورت كه زبان مبناي بازي يا برنامه رو نشناسي كه ديگه خيلي خيلي سخته. بايد با اسمبلي پيگيري كني و در نهايت بخشي كه مربوط به قفل يا رمز است رو پيدا كني و آن موقع درست ميشه.

خوب حالا يه نرم افزار نيست واسه ي اين كار.
كه اين كار ها رو كنيم. يعني منظورم اينه كه
اين كار ها كجا بايد انجام بگيرند.توضيح بيشتري بده.
يا اگر هم مي توني لينك براي دانلود نرم افزار بذار.

من خودم دنبال ديكودر هستم.
پوليشو تو اينترنت پيدا كردم ولي مجانيشو نه.
اسم ديگش ديكمپايلره.
بايد سرچ كني.

با با داریم در مورد ترینر سازی بحث میکنیم
--------
در ضمن کرک که همش با دیکامپایلر نیست . خیلی وقت ها جواب نمیده
هر زبان هم دیکامپایلره خودشو داره

سلام
كسي كه از ترينر استقبال نكرد.
لااقل كرك بلد باشيم.به نظر من
كه كرك جذاب تره تا ترينر. هر چند
آدم بايد دو تا رو بلد باشه.يعني بهتره
حالا ما كه ترينر رو بلديم خوبه كرك هم
ياد بگيريم.به قول بعضي ها ترينر روش
خاصه ولي كرك نه! در كل بهتره يه
چيزايي واسه كرك بدونيم

دوست عزيز ديكمايلرها براي ساخت ترينرها خيلي به درد بخورن.
بايد اصول اوليه بازي و الگوريتم رمزهاش پيدا شه تا بشه ترينر رو ساخت.
اميدوارم متوجه نظورم شده باشيد.

گيم هكير عزيز. شما برنامه نويسي ميكنيد؟
اگه آره لطفا زباني كه باهاش كار ميكني رو هم بگو.

سلام
خوب با ارت موني مي تونيم اينكار رو كنيم.
حالا من ساخت كرك رو مي خواهم كه با
يه برنامه مثل ارتموني بتونيم آدرس ها رو
پيدا كنيم!

من یه برنامه حسابداری با دلفی نوشتم فقط شش ماه روی امنیتش کار کرد. فکر می کنید بتونید کرکش کنید ؟

سلام
نمي خوام سنگ جلوي پاتون بندازم و يا گله كنم ولي اين بحث قرار به كجا برسه؟! كم كم داره تبديل ميشه به كرك و ...

منم نفهمیدم کرکو چطور به ترینر سازی مرتبط کردید؟؟؟
البته کرک خیلی به درد هک باز ی میخوره اما اگه قراری اموزش داده بشه یا در موردش بحث شه جاش اینجا نیست
-===========
مرد مباح
من با بیسیک نت و سی ++ کار میکنم اما اندکی هم دلفی حالیمه

سلام
اين موضوع ها رو بهم ربط نداديم بلكه يك دوست اومد و
موضوع رو عوض كرد و به كرك رسوند ما هم رفتيم رو كف
كرك حالا هم تاپيك در مورد ترينر هست و سوالي داشتيد
بپرسيد!!!!!!!!

سلام
اين بحث ساخت ترينر 2 تا بخش داره يكي نوشتن توابعي كه بتونند مقادير يا پروسه هاي توي حافظه را تغيير دهند.
دوم كه مهمتره پيدا كردن اين مقادير و پروسه ها است.
در مورد نوشتن تابع تغيير كه تو صفحه قبل يك مثال هست پس بهتره بريد(يا بريم) سر پيدا كردن مقاديري كه بايد تغيير داده شوند.

سلام
چه عجب؟!؟!؟!؟ بالاخره كسي از اينجا استقبال كرد.
آقا براي پيدا كردن آدرس ها از نرم افزاري به نام آتموني
استفاده خواهيم كرد. براي تغيير دادنشون يك سري دستورات
هست كه آدرس و مقدار و چندا چيزه ديگه رو مشخص خواهيد كرد
و بغيير مي كند.مي توانيد به هر صورتي كه دوست داريد ترينر رو بسازيد
حالا من چندتا ترينر با دلفي ساختم كه بعدآ آپلود مي كنم.

سلام
چه عجب؟!؟!؟!؟ بالاخره كسي از اينجا استقبال كرد.
آقا براي پيدا كردن آدرس ها از نرم افزاري به نام آرتموني
استفاده خواهيم كرد. براي تغيير دادنشون يك سري دستورات
هست كه آدرس و مقدار و چندا چيزه ديگه رو مشخص خواهيد كرد
و بغيير مي كند.مي توانيد به هر صورتي كه دوست داريد ترينر رو بسازيد
حالا من چندتا ترينر با دلفي ساختم كه بعدآ آپلود مي كنم.

آقا جان . ما 4 صفحه خونديم . آخرش نفهميديم چطوري ترينر بسازيم .
سولجر جان جنابعالي از كجا ياد گرفتي چطوري ترينر بسازي . به ما هم بگو

سلام
من از جايي ياد گرفتم كه گيم هكر ياد گرفته.
آخر اين تاپيك طرفدار داره كه ما بخواهيم اطلاعات
توش بريزيم:)

مگه چيز جديدي ياد گرفتي سولجر جان.
اگه آره بزار تا ما هم استفاده كنيم.

نقل قول:

---

نوشته شده توسط soldier

سلام
من از جايي ياد گرفتم كه گيم هكر ياد گرفته.
آخر اين تاپيك طرفدار داره كه ما بخواهيم اطلاعات
توش بريزيم:)

---

چه جواب جلبي ! من از كجا بدونم گيم هكر از كجا ياد گرفته ؟!! :laughing:

سلام دوستان
من مدت خيلي زيادي هست كه اين آموزش رو آماده كردم
مي خواستم بزارم. اما ميبينم يه مشكل داره. در اولين فرصت
مشكل رو حل مي كنم. و ميزارم.
فعلآ باي

بالاخره اين آموزششو ميزارين ؟؟؟