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

IMOTEB

Uzaklaştırılmış
  • İçerik sayısı

    211
  • Katılım

  • Son ziyaret

  • Puan

    4,651 [ Bağış Yap ]

Topluluk Puanı

9 Nötr

IMOTEB Hakkında

  • Doğum Günü 11/10/1980

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. IMOTEB

    VB6 DLL Injector Source

    teşekkürler fakat suanki usko için çalışırmı 2180 versiyonunda
  2. IMOTEB

    [ÜCRETSİZ] Süresiz Hosting

    Yeşekkürler
  3. XINGCODE3 BYPASS Source lazım olan da paylaşmaz zaten
  4. IMOTEB

    koxp source foksiyon hatası

    bu konuda bana yardımcı olucak yokmu acaba
  5. teşekürler
  6. usko 2177 yokmu ?
  7. IMOTEB

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

    uskkoda olmadı yapamadım ben 2177 suanki uskoda yapabilen varmı aranızda
  8. selam arkadaşlar koxp yapmaya çalıstım fakat hiç bir foksiyon işlemiyor sunda bir sorun olabilirmi bu dogrumu acaba bakarmısınız usko 2177 için uygulamaya çalısıyorum.. Function ExecuteRemoteCode(pCode() As Byte, Optional WaitExecution As Boolean = False) As Long Dim hThread As Long, ThreadID As Long, Ret As Long, size As Long, clearStr As String Dim SE As SECURITY_ATTRIBUTES SE.nLength = Len(SE) SE.bInheritHandle = False ExecuteRemoteCode = 0 FuncPtr = &H9A9C49 size = UBound(pCode) - LBound(pCode) + 1 If FuncPtr <> 0 Then WriteByteArray FuncPtr, pCode, size hThread = CreateRemoteThread(ByVal KO_HANDLE, SE, 0, ByVal FuncPtr, 0&, 0&, ThreadID) If hThread Then Ret = WaitForSingleObject(hThread, INFINITE) ExecuteRemoteCode = ThreadID End If CloseHandle hThread clearStr = "" clearStr = String(size * 2, "C") InjectPatch &H9A9C49, clearStr End If End Function ve ayrıca bundada sorun varmı acaba ben bu 2 foksiyondan kuşkuluyum ama pointerleri güncelediğim halde hiç biri işlemiyor bi el atarsanız sevinirim.... 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 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) & "FFD7C605" & AlignDword((KO_PTR_PKT + &HC5)) & "0061C3", pCode ExecuteRemoteCode pCode, True End If VirtualFreeEx KO_HANDLE, BytesAddr, 0, MEM_RELEASE& End Function
  9. IMOTEB

    [1886] Knight OnLine Client

    teşekkürler
  10. IMOTEB

    1886 Orjinal fix Soruce Koreli

    teşekkürler -- mesaja ek olarak -- rar şifresi ne bunun
  11. Suanki uskonunkinide paylatırmışın
  12. bekliyorum iyişallah onay gelir
  13. unpack exe ile giriş yap diyorsunda 2177 sunaki uskounpack exe yokkki paylaşılmadı daha varsa link atarmısınız
  14. selam arkadaşlar XEM Dosyasını nasıl ve neyle açablirim yardımcı olurmusunuz amacım x3.xem dosyasını açmak
×
×
  • Yeni Oluştur...