ALPA
Site Kurucusu
Mesaj Sayısı : 815
Nerden : Ankara
Kayıt tarihi : 02/03/09
 Rep Puanı : 32
 |  Konu: Pvp Pointer Bulma Kısa Yolları.  C.tesi Mart 05, 2011 5:40 pm | |
| - semih52 demiş ki:
- Merhaba;
* İlk Olarak Ollydbgmizle Ko exemizi Açıyoruz.
- Ollydbgde Ctrl + G yapıyoruz.
- Çıkan Kutucuğa "5C7C1F" yazıyoruz ve "OK" Diyoruz.
- Kod:
-
005C7C3D MOV ECX,DWORD PTR DS:[818984]
005C7C43 CALL 123.00451B80
005C7C48 MOV EDX,DWORD PTR DS:[818794] - Gördüğünüz gibi Gördüğünüz Gibi ; - "5C7C3D" = KO_PKT
- "5C7C43" = KO_SND
- "5C7C48" = KO_CHR
< ------------------ >
MyPackeTTool Pointerları
Kod:
- Kod:
-
KO_CRP_PTR=4524176
KO_SND_PTR=7208488
KO_PKT_PTR=8489348 < ------------------ >
Gerekli Fonksiyon;
- Kod:
-
Public Function TersCevir(KCode As String)
Dim msgBuffer As String
msgBuffer = KCode
Dim i As Integer
Dim Sonuc As String
Dim TekCift As String
TekCift = Len(msgBuffer) / 2
Dim a As Integer
a = InStr(1, TekCift, ",")
If a = 1 Then
Dim TekEkle As String
TekEkle = Mid(msgBuffer, 1, 1)
msgBuffer = Mid(msgBuffer, 2)
End If
For i = (Len(msgBuffer) - 1) To 1 Step -2
Sonuc = Sonuc & Mid(msgBuffer, i, 2)
Next i
TersCevir = Sonuc & TekEkle
End Function Kullanım Şekli ;
- Kod:
-
Ptk.text = TersCevir(DWORD(readlong(&H5C7C3D)))
Chr.text = TersCevir(DWORD(readlong(&H5C7C48))) Basit Birşeydir Geliştirebilirsiniz. ________Kullanıcı İmzası_________ | |
|
