Jump to content
Araştır
  • Diğer seçenekler ...
Sonuçları bul ...
Sonuçları bul ...

slazan

Üye
  • İçerik sayısı

    18
  • Katılım

  • Son ziyaret

  • Puan

    691 [ Bağış Yap ]

Topluluk Puanı

0 Nötr

slazan Hakkında

  • Doğum Günü 01/17/1985

Güncel Profil Ziyaretleri

Güncel ziyaretçiler bloku aktif değil. Diğer kullanıcılar son ziyaretçilerinizi aktif edene kadar göremezler.

  1. slazan

    UIF & DXT Editör

    teşekkürler
  2. slazan

    PaketSend Problemi

    konu güncel
  3. slazan

    PaketSend Problemi

    Çoğu servera Paket atan Botum,Bazı serverlarda Pointer güncel olmasına,Handle almasına rağmen paket atmıyor. işin enteresan yanı paket attıgımda server taraflı tepkide Vermiyor (oyundan atma,Dc verme,Bug report vs vs). Paket send fonksiyonum Şu şekilde; Public Sub Paket(pStr As String) Dim pbytes() As Byte ConvHEX2ByteArray pStr, pbytes SendPacket pbytes End Sub Function SendPacket(pPacket() As Byte) Dim ThreadPtr As Long, APIAdr As Long APIAdr = GetProcAddress(GetModuleHandle("kernel32.dll"), "GetCurrentThreadId") Dim psize As Long Dim pCode() As Byte ' o boş qnq bunada exeden baglanıom once koxp sonra oyun acıom handle alması ıcın psize = UBound(pPacket) - LBound(pPacket) + 1 If BytesAddr = 0 Then BytesAddr = VirtualAllocEx(KO_HANDLE, 0, 1024, MEM_COMMIT, PAGE_READWRITE) End If If BytesAddr 0 Then WriteByteArray BytesAddr, pPacket, psize ConvHEX2ByteArray "608B0D" & AlignDWORD(KO_PTR_PKT) & "68" & AlignDWORD(psize) & "68" & AlignDWORD(BytesAddr) & "BF" & AlignDWORD(KO_SND_FNC) & "FFD761C3", pCode ExecuteRemoteCode pCode, True End If VirtualFreeEx KO_HANDLE, BytesAddr, 0, MEM_RELEASE& End Function Buda ExecuteRemoteCode fonksiyonu; Function ExecuteRemoteCode(pCode() As Byte, Optional WaitExecution As Boolean = False) As Long Dim hThread As Long, ThreadID As Long, ret As Long Dim FuncPtr As Long Dim SE As SECURITY_ATTRIBUTES SE.nLength = Len(SE) SE.bInheritHandle = False FuncPtr = &H9A7AA6 ExecuteRemoteCode = 0 If FuncPtr = 0 Then FuncPtr = VirtualAllocEx(KO_HANDLE, 0, 1024, MEM_COMMIT, PAGE_READWRITE) End If If FuncPtr 0 Then WriteByteArray FuncPtr, pCode, UBound(pCode) - LBound(pCode) + 1 hThread = CreateRemoteThread(ByVal KO_HANDLE, SE, 0, ByVal FuncPtr, 0&, 0&, ThreadID) If hThread Then WaitForSingleObject hThread, &HFFFF ExecuteRemoteCode = ThreadID End If End If CloseHandle hThread End Function
  4. slazan

    [C#] SOACS Komut Gönderme

    teşekkürler
  5. slazan

    C++ Packet Sniffer

    teşekkürler
  6. slazan

    VB6 DLL Injector Source

    teşekkürler
  7. slazan

    [19xx-20xx-21xx] Multi Client

    teşekkürler
  8. slazan

    1298, 1397,1453,1534,1886 MyPacketTool

    teşekkürler
  9. teşekkürler
×
×
  • Yeni Oluştur...