Keylogger kullanmadan Görev Yöneticisi vs. devre dışı bırakmak

Y

yusufali06

Yeni üye
20 Eki 2020
38
0
Merhaba Arkadaşlar keylogger kullanmadan .exe uzantılı dosyamda Görev Yöneticisini vb. devre dışı bırakmak istiyorum yapmanın bir yöntemi var mıdır?
 
Tarihe göre sırala Oylara göre sırala
Vepers

Vepers

Kıdemli Üye
26 Ara 2015
2,297
30
21
İstanbul
Başlat > Çalıştır'a "gpedit.msc" yazın. ...
Kullanıcı Yapılandırması altında "Yönetim Şablonları > Sistem > Ctrl+Alt+Del Seçenekleri'ne girin.
Görev Yöneticisini Devrede Kaldır seçeneğini çift tıklayın.
Etkin seçeneğini seçip "Tamam" tıklayın.
 
Oyla 0 Downvote
maj344

maj344

Katılımcı Üye
25 Şub 2019
277
2
Vepers' Alıntı:
Başlat > Çalıştır'a "gpedit.msc" yazın. ...
Kullanıcı Yapılandırması altında "Yönetim Şablonları > Sistem > Ctrl+Alt+Del Seçenekleri'ne girin.
Görev Yöneticisini Devrede Kaldır seçeneğini çift tıklayın.
Etkin seçeneğini seçip "Tamam" tıklayın.
Genişletmek için tıkla ...


konuyu dikkatli okuyunuz efendim, .exe uzantılı dosyası varmış konu sahibinin ve bu .exe uzantılı dosyasıyla yapmak istiyormuş. executable, registry'de değişiklik yaparak erişime kapatabilir, konu sahibi hangi programlama dilini kullandığını söylerse yardımcı olabiliriz.
 
Oyla 0 Downvote
Ariss

Ariss

Kıdemli Üye
8 Mar 2016
4,583
114
uzay
Merhaba,

not defterini açarak içine şunu yazın​

Kod: 
Taskkill /T /F /IM Firefox.exe /IM Chrome.exe /IM Notepad.exe

istediğin exenin adını yazarak kapanmasını sağlaya bilirsin buraya ekleme yaparak.

Sonra not defterini farkı kaydederek örnek "test.bat" şeklinde kaydedersen bastığın zaman belirtilen exeleri sonlandıracaktır

veya vbs kullanabilirsin


Kod: 
Dim myPC, kill1, kill2
myPC = "."
kill1 = "'calc.exe'"
kill2 = "'notepad.exe'"

kill(kill1)
kill(kill2)

sub Kill(stuff)
  Set z = GetObject("winmgmts:\\" & myPC & "\root\cimv2")
  Set x = z.ExecQuery("Select * from Win32_Process Where Name = " & stuff )
  For Each y in x
    y.Terminate()
  Next
end sub


burada sonlandırmak istediğin programları ekleyebilir veya değiştirebilirsin misal:



Kod: 
Dim myPC, kill1, kill2 , Kill3
myPC = "."
kill1 = "'calc.exe'"
kill2 = "'notepad.exe'"
kill3 = "'chrome.exe'"

kill(kill1)
kill(kill2)
kill(kill3)

sub Kill(stuff)
  Set z = GetObject("winmgmts:\\" & myPC & "\root\cimv2")
  Set x = z.ExecQuery("Select * from Win32_Process Where Name = " & stuff )
  For Each y in x
    y.Terminate()
  Next
end sub
 
Oyla 0 Downvote
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.