THT DUYURU
THT Yardım Merkezi THT Yardım Merkezi bölümünden; teknoloji ve bilişim ile ilgili her konu için yardım isteyebilirsiniz.

siber güvenlik eğitimi
Seçenekler

Vb6 + Cheat Engine

HacKer CriminaL - ait Kullanıcı Resmi (Avatar)
Katılımcı Üye
Üyelik tarihi:
01/2013
Mesajlar:
429
Konular:
58
Teşekkür (Etti):
4
Teşekkür (Aldı):
29
Ticaret:
(0) %
6
651
06-08-2013 23:46
#1
Arkadaslar Cheat Engine de kodları buluyorum ama ben bunu bi program haline getirmek istiyorum nasıl yapabilirim ?
--------------------- Hackerlar Gizli Çalışır..

Oyun Oyna v1.0

Subway Surfers Hack v1.0
HacKer CriminaL - ait Kullanıcı Resmi (Avatar)
Katılımcı Üye
Üyelik tarihi:
01/2013
Mesajlar:
429
Konular:
58
Teşekkür (Etti):
4
Teşekkür (Aldı):
29
Ticaret:
(0) %
07-08-2013 01:11
#2
//Güncell
--------------------- Hackerlar Gizli Çalışır..

Oyun Oyna v1.0

Subway Surfers Hack v1.0
Mentalistler - ait Kullanıcı Resmi (Avatar)
Uzman Üye
Üyelik tarihi:
09/2012
Nereden:
-
Mesajlar:
1.334
Konular:
309
Teşekkür (Etti):
104
Teşekkür (Aldı):
181
Ticaret:
(0) %
07-08-2013 07:32
#3
İlk olarak Başlat>Programlar>Oyunlar>Mayın Tarlası konumundaki Mayın Tarlası oyunumuzu açıyoruz. Daha sonra Cheat Engineyi açıyoruz(farklı bir memory searcher kullanıyorsanız onu açın,örneklerde Cheat Engine'den ekran görüntüleri kullanılacaktır)



Bu ikona tıklıyoruz ve çıkan listeden winmine.exe yi seçiyoruz(mayın tarlasının exe adı).Daha sonra Mayın Tarlasından yeni bir oyun başlatıyoruz.



10 rakamını gördünüzmü.Burdaki rakam bayrak sayımızı gösteriyor.Şimdi Cheat Engineye dönüyoruz ve 'Value' kutucuğuna 10 yazıyoruz-scan type Exact value,value type ise 4 byte kalıyor- ve 'First Scan' butonuna tıklıyoruz.Sol taraftaki listede birsürü adres çıktı değilmi.Bu adresler 10 değerinin bulunduğu yerlerdir.Bende 103 değer çıktı.Listede 103 değer var fakat bize 1 değer lazım.Bu arama işlemi sırasındaki amacımız değer sayısını en aza düşürebilmek.Onun için mayın tarlasında herhangi bir kutucuğa sağ tıkla bayrak koyuyoruz böylece bayrak sayımız 9 a düşüyor yani değişmiş oluyor.Şimdi Cheat Engine ye dönelim.Value kutusundaki 10 değerini silerek 9 yazalım ve 'Next Scan' butonuna basalım ki bu buton bir önceki yaptığımız aramada çıkan sonuçlar üzerinde yeniden arama yapmaya yarar.



Evet bende 1 değer kaldı.Burda bizim için önemli olan değerin 'Address' kısmı yani örnekte '01005194'.Eğer daha fazla değer varsa tekrar bir bayrak koyup, 8 diye aratabilirsiniz.1 değer çıkana kadar bu işlemi tekrarlayın.Tabi illa bayrak değerini düşüreceksiniz diye birşey yok önemli olan değiştirmek..Neyse değeri bulduğumuza göre bu değeri istediğimiz gibi değiştiren programı yazalım.

Visual Basic İçin Örnek Kodlar

Kod:
'İlk olarak WinAPI tanımlamalarımız
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" Alias "GetWindowThreadProcessId" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function WriteProcessMemory Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function ReadProcessMemory Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Const PROCESS_ALL_ACCESS As Long = &H1F0FFF

'Forma bir TextBox(Text1) bir CommandButton(Command1) ekliyoruz.Ve kodlar..

Private Sub Command1_Click()
On Error Resume Next 'Hata oluşursa görmezden gel devam et
Dim hWnd As Long, pID As Long, hProcess As Long, adres As Long, buffer As Long 'Değişken tanımlamaları Long olarak tanımlıyoruz çünkü integerin sınırı olan 32767 den büyük değerler var
adres = &H1005194 'Buraya Cheat Enginede bulduğunuz adresi başına '&H" koyarak yazın,&H hexi(16 lık sayı sistemini) ifade ediyor
buffer = CLng(Text1.Text) 'Text1 de yazanı sayıya çeviriyoruz
hWnd = FindWindow(vbNullString, "Mayın Tarlası") 'Pencere handlesi alınıyor
GetWindowThreadProcessId hWnd, pID 'Process Id aliyoruz
hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, pID) 'Processi tam yetkiyle açıyoruz
If (WriteProcessMemory(hProcess, ByVal adres, buffer, 4, 0&)) = 1 Then 'Eğer hafızaya yazılmışsa 1 değeri döner
MsgBox "İşlem başarıyla tamamlandı", vbInformation
Else
MsgBox "Bir hata oluştu", vbCritical
End If
CloseHandle (hProcess) 'OpenProcess ile açtığımız handleyi kapatıyoruz..
End Sub
Programdan bir görünüm:



İşte mayın tarlasındaki değişiklik:

--------------------- Hack Kapıdan Geldiğinde , Hacker Pencereden Kaçar.
HacKer CriminaL - ait Kullanıcı Resmi (Avatar)
Katılımcı Üye
Üyelik tarihi:
01/2013
Mesajlar:
429
Konular:
58
Teşekkür (Etti):
4
Teşekkür (Aldı):
29
Ticaret:
(0) %
07-08-2013 17:15
#4
yani benim buldugum kodu nereye yazıcam ?
--------------------- Hackerlar Gizli Çalışır..

Oyun Oyna v1.0

Subway Surfers Hack v1.0
Mentalistler - ait Kullanıcı Resmi (Avatar)
Uzman Üye
Üyelik tarihi:
09/2012
Nereden:
-
Mesajlar:
1.334
Konular:
309
Teşekkür (Etti):
104
Teşekkür (Aldı):
181
Ticaret:
(0) %
07-08-2013 18:21
#5
benim yazdığım kodları biryere çıkar kodların yanında ' başlayan'larda anlatımı var
--------------------- Hack Kapıdan Geldiğinde , Hacker Pencereden Kaçar.
eksikeksik - ait Kullanıcı Resmi (Avatar)
Kıdemli Üye
Üyelik tarihi:
08/2012
Nereden:
He watching
Mesajlar:
2.619
Konular:
711
Teşekkür (Etti):
143
Teşekkür (Aldı):
259
Ticaret:
(0) %
07-08-2013 18:52
#6
O Kodu ile pek bir şey yazamassın çünkü oyun kapanıp açıldığında değişir bunun için
Pointer Bulman Lazım
---------------------
Only GOD can Judge me now .
HacKer CriminaL - ait Kullanıcı Resmi (Avatar)
Katılımcı Üye
Üyelik tarihi:
01/2013
Mesajlar:
429
Konular:
58
Teşekkür (Etti):
4
Teşekkür (Aldı):
29
Ticaret:
(0) %
07-08-2013 20:15
#7
Tamam Bende Pointer ' i var teamviewer dan yardımcı olabilcek varmı ?
--------------------- Hackerlar Gizli Çalışır..

Oyun Oyna v1.0

Subway Surfers Hack v1.0

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler