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

HACK yapımı ile teknik bilgisi olan lütfen bir konuya bakarsa çok iyi olur

emre46fb - ait Kullanıcı Resmi (Avatar)
Yeni Üye
Üyelik tarihi:
09/2011
Mesajlar:
34
Konular:
7
Teşekkür (Etti):
0
Teşekkür (Aldı):
0
Ticaret:
(0) %
8
556
20-08-2013 14:31
#1
SELAMIN ALEYKÜM HERKEZE
ben hack tasarımla ilgili herşeyi biliyorum kodlar elimde tek bilmedim şey kodların nereye ve nasıl yazılca bunu bana öğretirseniz hemen hack yapımlarına başlicam lütfen birisi yardımcı olsun



Microsoft Visual C++ 2010 Express ile yapıyorum
RedHour - ait Kullanıcı Resmi (Avatar)
Kıdemli Üye
Üyelik tarihi:
10/2012
Nereden:
Sivas
Yaş:
21
Mesajlar:
4.100
Konular:
406
Teşekkür (Etti):
428
Teşekkür (Aldı):
2020
Ticaret:
(0) %
20-08-2013 14:37
#2
TeamWiever At Anlatıyım Ben Sana

Hangi Tarama Programını Kullanıyorsun ?
Gr££D - ait Kullanıcı Resmi (Avatar)
Hesap Askıya Alındı
Üyelik tarihi:
06/2013
Nereden:
Monte Viere
Yaş:
23
Mesajlar:
2.468
Konular:
141
Teşekkür (Etti):
467
Teşekkür (Aldı):
444
Ticaret:
(0) %
20-08-2013 14:44
#3
bide Herşeyi Biliyorum diyorsun
emre46fb - ait Kullanıcı Resmi (Avatar)
Yeni Üye
Üyelik tarihi:
09/2011
Mesajlar:
34
Konular:
7
Teşekkür (Etti):
0
Teşekkür (Aldı):
0
Ticaret:
(0) %
20-08-2013 14:48
#4
kod yazma hariç diyerlerini biliyorum
emre46fb - ait Kullanıcı Resmi (Avatar)
Yeni Üye
Üyelik tarihi:
09/2011
Mesajlar:
34
Konular:
7
Teşekkür (Etti):
0
Teşekkür (Aldı):
0
Ticaret:
(0) %
20-08-2013 14:59
#5
video yada ona benzer birşeyle yapımını kodlarını yazılışını herşeyini göstere bilecek birisi var mI? lütfen yardım edin
Microsoft Visual C++ 2010 Express ile yapma çalışıyorum
RedHour - ait Kullanıcı Resmi (Avatar)
Kıdemli Üye
Üyelik tarihi:
10/2012
Nereden:
Sivas
Yaş:
21
Mesajlar:
4.100
Konular:
406
Teşekkür (Etti):
428
Teşekkür (Aldı):
2020
Ticaret:
(0) %
emre46fb - ait Kullanıcı Resmi (Avatar)
Yeni Üye
Üyelik tarihi:
09/2011
Mesajlar:
34
Konular:
7
Teşekkür (Etti):
0
Teşekkür (Aldı):
0
Ticaret:
(0) %
20-08-2013 15:10
#7
resim yada bir video yapa bilirsen çok makbule geçer lütfen bir video hazırla
RedHour - ait Kullanıcı Resmi (Avatar)
Kıdemli Üye
Üyelik tarihi:
10/2012
Nereden:
Sivas
Yaş:
21
Mesajlar:
4.100
Konular:
406
Teşekkür (Etti):
428
Teşekkür (Aldı):
2020
Ticaret:
(0) %
20-08-2013 15:14
#8
D3D Menü Yapımı

Bugün sizlere bu çok konuşulan D3D Menu yapımını göstereceğim.

Hemen atılalım (:

Eklenecekler:

4 adet label
2 adet timer

Şimdi gelelim D3D menü 'ye

Timer1 ve Timer2 'yi enabled = true yapın.
Label1 ve Label2 'nin adlarını siz yapın.
Örnek: Wall Hack / Weapon Hack
Label3 ve Label4 'ün adlarını: [OFF] yapın.

Menü neden çalışmıyor ?:
Label1 'in rengini:Orange
Label2 'in rengini:White
Label3 ve Label4 'ün rengini:Red
Programın arka plan rengini:Black

Yapın ve aşşağıdaki kodları ekleyip keyfini sürün.

Şimdi geldik Menü 'nün kodlarına.

Kod:
Public Class Form1
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
Interaction.AppActivate("Wolfteam.bin")
Me.TopMost = True
Catch
Me.TopMost = True
End Try
System.Windows.Forms.Cursor.Hide()
End Sub

----------------------------------------
Örnek Hile Yapımı Projesi

İndir

Not : Zaten Kodlardan Dolayı Virüs Olacaktır Söyleyim
----------------------------------------

Hile yapmak için Adress ve value işlemleri.
Merhaba, bu günde adress ve value olayını çözmeye sıra geldi.
Hiç uzatmadan anlatıma geçelim.

Ben metin2 üzerinden örnek vereceğim.

Mesela bir item ele alalım, kraliyet zırhı onu açık yoluyla çelik 'e çevireceğiz.

Kraliyet zırhını cheat engine 'yle aratalım.

http://c1303.hizliresim.com/17/5/kspry.png

Arattıktan sonra yanda bir oyun açıklarının adress ve value değerleri çıkacak. Onları kırmızı ok butonu ile alta atalım.

http://c1303.hizliresim.com/17/5/kspx8.png

Şimdi geldi, hilemizi tamamlamaya. Alt satıra aldıktan sonra

http://b1303.hizliresim.com/17/6/ksq38.png

value 'nin altında tarattığımız rakamlar var(value değeri) ona çift tıklayıp başka bir itemin kodunu yazıp tik işaretini işaretliyoruz ve tamamlıyoruz.

http://b1303.hizliresim.com/17/6/ksq86.png





Bunu vb.net ile hile yapmaya çalışan arkadaşlar:

Hile adress 'i:

Bu adress 'yi bir yere not edin.

Hile value 'si:

Bu value 'yi de bir yere not edin.

Ben bunu anlatmıştım ama yapıma geçelim.
adress kodu:2088E7D0

Bunu programa dökerken bu şekil yapacağız:
&h2088E7D0

Bu dll 'yi indirin (DecepTiveX.dll)

Dll 'mizi form 'a referans edelim.

Dll 'mizi programa tanıtmak için en üst kısma su kodu yazalım:
Kod:
imports deceptivex.cheatgame

Tanıttık ama hile komutunu tanıtmadık bunu tanıtalım şimdi form1 'in altına şu kodu ekliyelim:
Kod:
dim x as new deceptivex.cheatgame

Vede hilemizi yapmak için bir buton ekliyelim ve şu kodu yazalım:
Kod:
x.intyaz("metin2client.bin",&h2088E7D0,11699)

Tüm toplu şekilde kodları:
Kod:
imports deceptivex.cheatgame
dim x as new deceptivex.cheatgame
x.intyaz("metin2client.bin",&h2088E7D0,11699)

&h2088E7D0 'miz oyunun itemin başka bir iteme dönüştürme açığıdır.(sadece görünümdür.)

11699 ise value değeridir. Yukarki resimde not alın dediğim rakamlardır.
----------------------------------------
Hile Yazma :

Tıkla

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

Metin2 Hile Hile Yapımı

Merhaba Arkadaşlar.

İnternette gezerken Metin2 Oynunda Kendi Hileni yap diye birşey buldum ve sizlerle paylaşmak istedim.


Metin2 Oyununda Metin2 Hilesini kendin yap Videolu Anlatım

Basitçe kendi hilenizi yapmayı videodan izleyebilirsiniz

Videoda verilmeyen birkaç ayrıntıyı buraya ekleyecem geri kalanını videodan rahatlıkla yapabilirsiniz

Gui editörü ilk açtığınızda Gelen butonların tanımı*
new: Yeni proje
load proj:Önceki kaydedilmiş bir projeyi yükleme
save proj: Hazırladığınız taslağı proje olarak kaydetme(sonradan tekrar yükleyip düzenleyebilirsiniz)
save py: injecte hazır halde kaydetme:
preview: Görünüşünü test etme

new butonları:
Thinboard:şeffaf pencere
board:normal pencere
board with title: board’a ek olarak hazır kapat iconu ve başlık

Not: indirmiş oldugunuz GuiEditor klasörün icindeki dosyaları metin2

Oyunun Kurulu oldugu klasörün icine atınız ve uygulamayı yapınız.


Kendi hileni Kendin yap! - YouTube

Zippyshare.com - Metin2 Kendi Hileni Kendin Yap.rar / indir

https://www.virustotal.com/tr/file/3095f...366796437/ / Virüs Total
----------------------------------------
Örnek Hile Yazma

Merhaba arkadaşlar,

Code cracking, reverse engineering, game hacking gibi konuların tekrardan konuşulur hale gelmesi için böyle bir aksiyon başlatmaya karar verdim Umarım uzun ve katılımın bol olduğu bir seri olur.

Eğer game hacking, code cracking gibi konular size gerçekten çekici geliyor ve ben de 1-2 şey yapmak istiyorum diyorsanız dikkatlice okuyun. Bu yazıdaki konum Game hackingin temel mantığı ve başlangıç terimleri üzerine olacaktır.

Belkemiğimiz Memory;
Memory bir oyunun ramde kapladığı yere denir. Geçici değerlerin saklandığı adres aralığıdır. Geçici adresler bizim oyun içerisinde ölümsüz olmamıza, sınırsız paramızın olmasına ve aklınıza gelecek birçok değer ile oynamamızda yardımcı olur.

Cheat engine bu değerleri saptamamızda yardımcı olacak olan kullanımı basit olan bir programdır. Zaten çoğunuzun kullandığına da eminim

Örneğin; oyun içerisinde 50.000 paramız var. Cheat Engine ile adressini tespit edip değeri 999.999 yaptık diyelim. Eğer oyunumuz MultiPlayer oynanan bir oyun değilse yani değerler sadece bizde varsa değişiklik başarıyla gerçekleşecektir. Fakat oynadığımız oyun MMO(Massive Multiplayer Online) türü bir oyunsa işlem bu kadar basit olmayacaktır. MMO oyunlarda bilgiler server tarafında depolanır yani server side. Serverda paranız, canınız, oyun içi değerleriniz gibi değerler hilenin önüne geçmek için saklanır. Şöyle bir örnek vereyim oyun içerisinde markette 60.000 para değerindeki bir eşya gördünüz ve almak istiyorsunuz fakat sizin para değeriniz 50.000. Cheat engine’i açıp para değerinizi 70.000 olarak değiştireceksiniz ve başarılı bir şekilde değiştini göreceksiniz fakat markete gidip istediğiniz item’i almaya çalışıp alamayınca hayal kırıklığına uğramayın Çünkü oyun içi para önemli bir değer olduğu için server side bir bilgidir server tarafından bilinir. Kısacası MMO oyunlarda serverin bildiği değerler üzerinde oynayamayız. (Fakat online oyunlarda paketler yollayarak hile yapmak mümkün olacak. İlerki yazılarda göreceksiniz)

Bahsettiğimiz Para, can, oyun içi değerler memorydeki adresslerde depo edilir. Çoğu kişi buraya kadar tamamdır ama bu noktadan sonra kopar Fakat bu yazıdan sonra sıkıntınız kalacağını sanmıyorum. Memory içindeki adressler değişkendir uygulamayı kapatıp, açtığınızda adresslerin kısmen* değiştini bulduğunuz eski adresslerin hiçbir önemi olmadığını göreceksiniz. Bu noktada anahtarımız Pointer!

Pointer;

Türkçe karşılığı işaretçidir, adından da anlayacağınız üzere bizlere bişeyleri işaret eder Uygulamayı aç-kapa işleminden sonra adreslerin değiştiğini söylemiştik. Değişen adresi tekrar tekrar aramamız için pointer bize sunulan bir nimettir. Pointer oyuna yama gelmediği, exe değişmediği sürece kesinlikle değişmez. Yani uygulamayı aç kapa yapsanız bile değer geçerli olacaktır. Pointer bize değişen adresleri işaret eden temel bir adresdir. Bu temel adres üzerinden istediğimiz değere gitmemize yardımcı olacak olan değer ise offsettir.
Pointer + offset bize değişen değeri işaret eder.

Örneğin pointerimiz, temel adresimiz 0×123456 olsun.
Paramızın offseti 0×123 (Para değerimiz 50.000 olsun)
Oyun içerisindeki canımızın değeri de 0×456 olsun. (Oyun içindeki healthımı da 100 olsun)
Pointer + Paramızın offseti bize değişen paranın değerini verecektir, şöyle ki;
“0×123456¨ + “0×123¨ = 50.000
“0×123456¨ + “0×456¨ = 100

İşin güzel yanı pointer ve offseti bir kere bulmak yeterlidir Oyuna bir yama gelmediği sürece pointer ve offset değişmez.

----------------------------------------
Kavramlar :

Tıkla
----------------------------------------
Adress Bulma Ve Wolfteam Hile Yapımı

Arkadaslar öncelikler merhaba biliyorsunuzkı hıle yazmak ıcın en onemlı temel unsur poınter(adresler)dir.

adreslerı almak ıcınde mantık yurutmek onemlıdır bunun ıcın az dusundu ve sunları yapmaya karar verdım.

Gereklenler:
1.)Fix Yememis Scanner
2.) Cold hack hileden yararlanacaz
3.) Cold olmasa da olur
4.) Özel kurt yetenegı
5.)Envanterde sılah

1-Envanter Hack:
a)1. Slotu Alıp 1 Aratıyoruz
b)Sonra tabanca alıp 2 yı taratıyoruz
c) Tekrar tekrar yapıyoruz..

2-Infınıte ammo:
a)Öncelikle bunu yapmak ıcın poınter + offset lazım bunu yapmak basıttır
b)Benım konumda var:Tıkla Git

3-God mode:
a)Öncelikle bunu yapmak ıcın poınter + offset lazım bunu yapmak basıttır
b)Benım konumda var:Tıkla Git

4-No recoil:
a)oncelıkle cold hacktan no recoılı aktif edıp 1 ı taratıyoruz
b)no reocılı pasıf edıp 0 taratıyoruz.

5-No spread:
a)oncelıkle cold hacktan no spread aktif edıp 1 ı taratıyoruz
b)no spread pasıf edıp 0 taratıyoruz.

6-Rapid Fire:
a)oncelıkle cold hacktan rapid fire aktif edıp 1 ı taratıyoruz
b)rapid fire pasıf edıp 0 taratıyoruz.
c) baksa yol:
d) snıperı alıp 0 taratıyoz
e)normal sılah alıp 1 taratıyoz

digerleride var

7-speed hack
a) kurt ozellıgıyle hızlı gıdıp 1 taratın
b)normal gıdıp0 taratın
c) cold hackla da yapabılırz spedı acıpkatarak 1 ve 0 arayaka

7-jump hack
a) kurt ile zıpllayıp 1 taratın
b)insan ile zıplayıp 0 taratın
c) cold hackla da yapabılırz spedı acıpkatarak 1 ve 0 arayaka

----------------------------------------
Pointer Almak

Bunun için:
Cheat Engine lazım...

http://imgim.com/6718incio7750434.png

http://imgim.com/6098inciz8900624.png

http://imgim.com/4330incid6606696.png

http://imgim.com/9119incie3813385.png

http://imgim.com/7201incie6296873.png

http://imgim.com/9390inciw7439852.png

http://imgim.com/8273incic4150261.png

http://imgim.com/5186incii371473.png

http://imgim.com/2148incii5101251.png

http://imgim.com/7006inciu6357275.png

----------------------------------------
Scannerler

Cheat Engine

TSearch
----------------------------------------
Vb.net Açıkları Programa Baglama

Merhaba arkadaşlar. Oyun açığını buldunuz hile yapmak istiyorsunuz ama o kadar modül 'e write fonksiyonunu tanıtacaksınız.
Artık bunu yapmanıza gerek kalmiyacak.

Hemen başliyalım:

Tıkla ve gereken dll 'yi indir ( DecepTiveX.dll )

Dll 'mizi form 'a referans edelim.

Dll 'mizi programa tanıtmak için en üst kısma su kodu yazalım:
Kod:
imports deceptivex.cheatgame

Tanıttık ama hile komutunu tanıtmadık bunu tanıtalım şimdi form1 'in altına şu kodu ekliyelim:
Kod:
dim x as new deceptivex.cheatgame

Vede hilemizi yapmak için bir buton ekliyelim ve şu kodu yazalım:
Kod:
x.intyaz("Wolfteam.bin",&hdeger,value)

Tüm toplu şekilde kodları:
Kod:
imports deceptivex.cheatgame
dim x as new deceptivex.cheatgame
x.intyaz("Wolfteam.bin",&hdeger,value)

Dim x yerine istediğinizi yazabilirsiniz.
Örnek: benimhile vesayre.

Tamam şimdi x 'yi değiştirdik butona bastığımızda hile çalışmıyor. Ne yapmam gerek?
dim hilebenim "hilebenim" 'yi şu komuta atıyalım:
hilebenim.intyaz("",,) vesayre.


&hdeger: &h 'yi silmeden deger yerine oyun açığını bulalım ve oraya yazalım.
Örnek: &h9515192


value: Buraya value değeri gelmelidir. 1 - 2 vesayre.


Vİdeo : DecepTiveX Cheat Reference - YouTube
----------------------------------------
Vb.net Hile

öncelikle proje açıyorum ve tuba veriyoruz dilberay ctrl+shift+a tıklıyıp modülü ekliyoruz ve moduleye
Kod:
Modül ReadWritingMemoryvb
Özel Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess Olarak Integer, ByVal bınherithandle Olarak Integer, ByVal dwprocessıd Olarak Integer) Olarak Integer

Özel Declare Function WriteProcessMemory1 Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess Olarak Integer, ByVal lpBaseAddress Olarak Integer, ByRef lpBuffer Olarak Integer, ByVal nSize Olarak Integer, ByRef lpNumberOfBytesWritten Olarak Integer) Olarak Integer
Özel Declare Function WriteProcessMemory2 Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess Olarak Integer, ByVal lpBaseAddress Olarak Integer, ByRef lpBuffer Olarak Tek, ByVal nSize Olarak Integer, ByRef lpNumberOfBytesWritten Olarak Integer) Gibi Tek
Özel Declare Function WriteProcessMemory3 Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess Olarak Integer, ByVal lpBaseAddress Olarak Integer, ByRef lpBuffer As Long, ByVal nSize Olarak Integer, ByRef lpNumberOfBytesWritten Olarak Integer) Gibi Uzun

Özel Declare Function ReadProcessMemory1 Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess Olarak Integer, ByVal lpBaseAddress Olarak Integer, ByRef lpBuffer Olarak Integer, ByVal nSize Olarak Integer, ByRef lpNumberOfBytesWritten Olarak Integer) Olarak Integer
Özel Declare Function ReadProcessMemory2 Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess Olarak Integer, ByVal lpBaseAddress Olarak Integer, ByRef lpBuffer Olarak Tek, ByVal nSize Olarak Integer, ByRef lpNumberOfBytesWritten Olarak Integer) Gibi Tek
Özel Declare Function ReadProcessMemory3 Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess Olarak Integer, ByVal lpBaseAddress Olarak Integer, ByRef lpBuffer As Long, ByVal nSize Olarak Integer, ByRef lpNumberOfBytesWritten Olarak Integer) Gibi Uzun

Const PROCESS_ALL_ACCESS = &H1F0FF

Public Function Writedmaınteger(ByVal Süreci As String, ByVal Olarak ele Integer, ByVal Uzaklıklar Olarak Integer(), ByVal Değer Olarak Integer, ByVal Seviyesi Olarak Integer, İsteğe bağlı ByVal nsize Olarak Integer = 4), Boolean Olarak
Deneyin
Loş lvl Olarak Integer = Adres
İçin i Olarak Integer = 1 Seviye
lvl = Readınteger(Süreç, lvl, nsize) + Offset(i - 1)
Sonraki
Writeınteger(Süreç, lvl, Değer, nsize)
Return True
Catch ex As İstisna
Return False
Sonunda Deneyin
End Function

Public Function Readdmaınteger(ByVal Süreci As String, ByVal Olarak ele Integer, ByVal Uzaklıklar Olarak Integer(), ByVal Seviyesi Olarak Integer, İsteğe bağlı ByVal nsize Olarak Integer = 4) Olarak Integer
Deneyin
Loş lvl Olarak Integer = Adres
İçin i Olarak Integer = 1 Seviye
lvl = Readınteger(Süreç, lvl, nsize) + Offset(i - 1)
Sonraki
Loş vBuffer Olarak Integer
vBuffer = Readınteger(Süreç, lvl, nsize)
Dönüş vBuffer
Catch ex As İstisna

Sonunda Deneyin
End Function

Public Function WriteDMAFloat(ByVal Süreci As String, ByVal Olarak ele Integer, ByVal Uzaklıklar Olarak Integer(), ByVal Değer Olarak Tek, ByVal Seviyesi Olarak Integer, İsteğe bağlı ByVal nsize Olarak Integer = 4), Boolean Olarak
Deneyin
Loş lvl Olarak Integer = Adres
İçin i Olarak Integer = 1 Seviye
lvl = ReadFloat(Süreç, lvl, nsize) + Offset(i - 1)
Sonraki
WriteFloat(Süreç, lvl, Değer, nsize)
Return True
Catch ex As İstisna
Return False
Sonunda Deneyin
End Function

Public Function ReadDMAFloat(ByVal Süreci As String, ByVal Olarak ele Integer, ByVal Uzaklıklar Olarak Integer(), ByVal Seviyesi Olarak Integer, İsteğe bağlı ByVal nsize Olarak Integer = 4) Tek Olarak
Deneyin
Loş lvl Olarak Integer = Adres
İçin i Olarak Integer = 1 Seviye
lvl = ReadFloat(Süreç, lvl, nsize) + Offset(i - 1)
Sonraki
Loş vBuffer Gibi Tek
vBuffer = ReadFloat(Süreç, lvl, nsize)
Dönüş vBuffer
Catch ex As İstisna

Sonunda Deneyin
End Function

Public Function WriteDMALong(ByVal Süreci As String, ByVal Olarak ele Integer, ByVal Uzaklıklar Olarak Integer(), ByVal Value As Long, ByVal Seviyesi Olarak Integer, İsteğe bağlı ByVal nsize Olarak Integer = 4), Boolean Olarak
Deneyin
Loş lvl Olarak Integer = Adres
İçin i Olarak Integer = 1 Seviye
lvl = ReadLong(Süreç, lvl, nsize) + Offset(i - 1)
Sonraki
WriteLong(Süreç, lvl, Değer, nsize)
Return True
Catch ex As İstisna
Return False
Sonunda Deneyin
End Function

Public Function ReadDMALong(ByVal Süreci As String, ByVal Olarak ele Integer, ByVal Uzaklıklar Olarak Integer(), ByVal Seviyesi Olarak Integer, İsteğe bağlı ByVal nsize Olarak Integer = 4) Olarak Uzun
Deneyin
Loş lvl Olarak Integer = Adres
İçin i Olarak Integer = 1 Seviye
lvl = ReadLong(Süreç, lvl, nsize) + Offset(i - 1)
Sonraki
Loş vBuffer Olarak Uzun
vBuffer = ReadLong(Süreç, lvl, nsize)
Dönüş vBuffer
Catch ex As İstisna

Sonunda Deneyin
End Function

Public Sub WriteNOPs(ByVal ProcessName As String, ByVal Adres As Long, ByVal NOPNum Olarak Integer)
Dim C Olarak Integer
Dim B As Integer
If ProcessName.EndsWith(".exe"Sonra)
ProcessName = ProcessName.Replace(".exe", "")
Son If
Loş MyP Süreç Olarak() = Process.GetProcessesByName(ProcessName)
If MyP.Length = 0 Then
MessageBox.Show(ProcessName & " açık değil!")
Exit Sub
Son If
Loş hProcess Olarak Intptr = OpenProcess(PROCESS_ALL_ACCESS, 0, MyP(0).ıd)
If hProcess = Intptr.zero Sonra
MessageBox.Show("Failed to open " & ProcessName & "!")
Exit Sub
Son If

B = 0
C = 1 İçin NOPNum
Arama WriteProcessMemory1(hProcess, Adresi + B &H90, 1, 0&)
B = B + 1
Next C
End Sub

Public Sub WriteXBytes(ByVal ProcessName As String, ByVal Adres As Long, ByVal Değeri String Olarak)
If ProcessName.EndsWith(".exe"Sonra)
ProcessName = ProcessName.Replace(".exe", "")
Son If
Loş MyP Süreç Olarak() = Process.GetProcessesByName(ProcessName)
If MyP.Length = 0 Then
MessageBox.Show(ProcessName & " açık değil!")
Exit Sub
Son If
Loş hProcess Olarak Intptr = OpenProcess(PROCESS_ALL_ACCESS, 0, MyP(0).ıd)
If hProcess = Intptr.zero Sonra
MessageBox.Show("Failed to open " & ProcessName & "!")
Exit Sub
Son If

Dim C Olarak Integer
Dim B As Integer
Dim D Olarak Integer
Dim V Byte Olarak

B = 0
D = 1
C = 1 İçin Math.Round((Len(Değer) / 2))
V = Val("&H" & Mid$(Değer, D, 2))
Arama WriteProcessMemory1(hProcess, Adresi + B, V, 1, 0&)
B = B + 1
D = D + 2
Next C

End Sub

Public Sub Writeınteger(ByVal ProcessName As String, ByVal Olarak ele Integer, ByVal Değer Olarak Integer, İsteğe bağlı ByVal nsize Olarak Integer = 4)
If ProcessName.EndsWith(".exe"Sonra)
ProcessName = ProcessName.Replace(".exe", "")
Son If
Loş MyP Süreç Olarak() = Process.GetProcessesByName(ProcessName)
If MyP.Length = 0 Then
MessageBox.Show(ProcessName & " açık değil!")
Exit Sub
Son If
Loş hProcess Olarak Intptr = OpenProcess(PROCESS_ALL_ACCESS, 0, MyP(0).ıd)
If hProcess = Intptr.zero Sonra
MessageBox.Show("Failed to open " & ProcessName & "!")
Exit Sub
Son If

Loş hAddress, vBuffer Olarak Integer
hAddress = Adres
vBuffer = Değer
WriteProcessMemory1(hProcess, hAddress, Cınt(vBuffer), nsize, 0)
End Sub

Public Sub WriteFloat(ByVal ProcessName As String, ByVal Olarak ele Integer, ByVal Değer Olarak Tek, İsteğe bağlı ByVal nsize Olarak Integer = 4)
If ProcessName.EndsWith(".exe"Sonra)
ProcessName = ProcessName.Replace(".exe", "")
Son If
Loş MyP Süreç Olarak() = Process.GetProcessesByName(ProcessName)
If MyP.Length = 0 Then
MessageBox.Show(ProcessName & " açık değil!")
Exit Sub
Son If
Loş hProcess Olarak Intptr = OpenProcess(PROCESS_ALL_ACCESS, 0, MyP(0).ıd)
If hProcess = Intptr.zero Sonra
MessageBox.Show("Failed to open " & ProcessName & "!")
Exit Sub
Son If

Loş hAddress Olarak Integer
Loş vBuffer Gibi Tek

hAddress = Adres
vBuffer = Değer
WriteProcessMemory2(hProcess, hAddress, vBuffer, nsize, 0)
End Sub

Public Sub WriteLong(ByVal ProcessName As String, ByVal Olarak ele Integer, ByVal Değer Olarak Uzun, İsteğe bağlı ByVal nsize Olarak Integer = 4)
If ProcessName.EndsWith(".exe"Sonra)
ProcessName = ProcessName.Replace(".exe", "")
Son If
Loş MyP Süreç Olarak() = Process.GetProcessesByName(ProcessName)
If MyP.Length = 0 Then
MessageBox.Show(ProcessName & " açık değil!")
Exit Sub
Son If
Loş hProcess Olarak Intptr = OpenProcess(PROCESS_ALL_ACCESS, 0, MyP(0).ıd)
If hProcess = Intptr.zero Sonra
MessageBox.Show("Failed to open " & ProcessName & "!")
Exit Sub
Son If

Loş hAddress Olarak Integer
Loş vBuffer Olarak Uzun

hAddress = Adres
vBuffer = Değer
WriteProcessMemory3(hProcess, hAddress, vBuffer, nsize, 0)
End Sub

Public Function Readınteger(ByVal ProcessName As String, ByVal Olarak ele Integer, İsteğe bağlı ByVal nsize Olarak Integer = 4) Olarak Integer
If ProcessName.EndsWith(".exe"Sonra)
ProcessName = ProcessName.Replace(".exe", "")
Son If
Loş MyP Süreç Olarak() = Process.GetProcessesByName(ProcessName)
If MyP.Length = 0 Then
MessageBox.Show(ProcessName & " açık değil!")
Çıkış Fonksiyonu
Son If
Loş hProcess Olarak Intptr = OpenProcess(PROCESS_ALL_ACCESS, 0, MyP(0).ıd)
If hProcess = Intptr.zero Sonra
MessageBox.Show("Failed to open " & ProcessName & "!")
Çıkış Fonksiyonu
Son If

Loş hAddress, vBuffer Olarak Integer
hAddress = Adres
ReadProcessMemory1(hProcess, hAddress, vBuffer, nsize, 0)
Dönüş vBuffer
End Function

Public Function ReadFloat(ByVal ProcessName As String, ByVal Olarak ele Integer, İsteğe bağlı ByVal nsize Olarak Integer = 4) Tek Olarak
If ProcessName.EndsWith(".exe"Sonra)
ProcessName = ProcessName.Replace(".exe", "")
Son If
Loş MyP Süreç Olarak() = Process.GetProcessesByName(ProcessName)
If MyP.Length = 0 Then
MessageBox.Show(ProcessName & " açık değil!")
Çıkış Fonksiyonu
Son If
Loş hProcess Olarak Intptr = OpenProcess(PROCESS_ALL_ACCESS, 0, MyP(0).ıd)
If hProcess = Intptr.zero Sonra
MessageBox.Show("Failed to open " & ProcessName & "!")
Çıkış Fonksiyonu
Son If

Loş hAddress Olarak Integer
Loş vBuffer Gibi Tek

hAddress = Adres
ReadProcessMemory2(hProcess, hAddress, vBuffer, nsize, 0)
Dönüş vBuffer
End Function

Public Function ReadLong(ByVal ProcessName As String, ByVal Olarak ele Integer, İsteğe bağlı ByVal nsize Olarak Integer = 4) Olarak Uzun
If ProcessName.EndsWith(".exe"Sonra)
ProcessName = ProcessName.Replace(".exe", "")
Son If
Loş MyP Süreç Olarak() = Process.GetProcessesByName(ProcessName)
If MyP.Length = 0 Then
MessageBox.Show(ProcessName & " açık değil!")
Çıkış Fonksiyonu
Son If
Loş hProcess Olarak Intptr = OpenProcess(PROCESS_ALL_ACCESS, 0, MyP(0).ıd)
If hProcess = Intptr.zero Sonra
MessageBox.Show("Failed to open " & ProcessName & "!")
Çıkış Fonksiyonu
Son If

Loş hAddress Olarak Integer
Loş vBuffer Olarak Uzun

hAddress = Adres
ReadProcessMemory3(hProcess, hAddress, vBuffer, nsize, 0)
Dönüş vBuffer
End Function

Sonunda Modülü

yukardaki kodu ekliyoruz dilberay
toolboxtan 1 adet check box + 1 adet timer ekliyoruz

Checkboxa istediğiniz İsmi verin
timera çift tıklıyıp
Kod:
writeinteger ("Wolfteam.Bin" , &HADRESS , DEĞER
ekliyoruz
checkboxa
Kod:
timer1.enabled=true
yazıyoruz

misyon compleyted bunu hangi özellikleri istiyosanız o leslie checkbox + zamanlayıcı ekliyerek yapabilirsiniz


Video byfatih - YouTube
----------------------------------------
Vb.net Loader Yapımı

Merhaba. Bugunki dersimizde Loader yapımını öğreteceğim.

Eklenecekler:
3 adet label
1 adet timer

Gerekli ayarlar:
Label1 ********: 11; 9 yapın.
Label2 ********: 82; 9 yapın.
Label3 ********: 34; 38 yapın.

Ve geldi label boyutlarına.
Label1 ve Label2 'nin boyutunu: 7 yapın.

Bunları ekledikten sonra hemen forma sağ tık yapıp view code diyoruz.
Ve ordaki herşeyi silip şu kodu ekliyoruz:
Kod:
Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Timer1.Enabled = True
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedToolWindow
Me.StartPosition = FormStartPosition.CenterScreen
Me.Width = 228
Me.Height = 94
Me.Label1.Width = 65
Me.Label1.Height = 12
Me.Label2.Width = 118
Me.Label2.Height = 12
Me.Label3.Width = 132
Me.Label3.Height = 13
Me.Text = "Seheylan Loader"
Me.Label1.Text = "Loader Status: "
Me.Label2.Text = "Waiting For Wolfteam.bin..."
Me.Label3.Text = "seheylan -- THT"
Me.TopMost = True
End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If (Enumerable.Count(Of Process)(Process.GetProcessesByName("Wolfteam.bin" ))) Then
Label2.Text = "Wolfteam.bin Found"
Me.Hide()
End If
End Sub
End Class

----------------------------------------
Wolfteam Ögretici Kodları

Lazımlıklar
1 Adet Timer
1 Adet Checkbox
CheckBox
Kod:
Private Sub Checkbox1_CheckedChanged(sender As Object, e As EventArgs) Handles Checkbox1.CheckedChanged
If Checkbox1.Checked = True Then
Öğretici.Start()
End If
If Checkbox1.Checked = False Then
Öğretici.Stop()
End If
End Sub
Timer
Kod:
Private Sub Öğretici_Tick(sender As Object, e As EventArgs) Handles Öğretici.Tick
WriteInteger("Wolfteam.bin", &H34649994, "1")
WriteInteger("Wolfteam.bin", &H34649998, "1")
End Sub
End Class
----------------------------------------
Örnek Wolfteam Adressler

POİNTERLAR YENİ
kURT
345E5578
346A578C
mode
345DB194
345E70A4
öğretici
34649994
34649998
base
345E4C38
345E52B0
345E53D8
cross
345E4E10
buyrun


Envanter Kodları

hadi hadi hadi hadi - YouTube

34245F26 slot 4
34245E2C slot1
34245EE4
34245EA0
emre46fb - ait Kullanıcı Resmi (Avatar)
Yeni Üye
Üyelik tarihi:
09/2011
Mesajlar:
34
Konular:
7
Teşekkür (Etti):
0
Teşekkür (Aldı):
0
Ticaret:
(0) %
20-08-2013 15:53
#9
bana teamdan yardımcı ola bilir misin? abi

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler