Neler yeni

VB.NET Basit Debug Önleme

SilverGrood

SilverGrood

Gold Üye
Katılım
29 Eki 2022
Mesajlar
475
Beğeniler
133
Kod: 
Imports System
Imports System.Diagnostics
Imports System.Runtime.InteropServices
Module Protect1



    Public Function AntiProccesKill()
        Dim process As Process
        For Each process In Process.GetProcesses

            If (process.ProcessName = "ollydbg") Then
                blue_Screen()
            End If
            If (process.ProcessName = "ida") Then
                blue_Screen()
            End If
            If (process.ProcessName = "ida64") Then
                blue_Screen()
            End If
            If (process.ProcessName = "idag") Then
                blue_Screen()
            End If
            If (process.ProcessName = "idag64") Then
                blue_Screen()
            End If
            If (process.ProcessName = "idaw") Then
                blue_Screen()
            End If
            If (process.ProcessName = "idaw64") Then
                blue_Screen()
            End If
            If (process.ProcessName = "idaq") Then
                blue_Screen()
            End If
            If (process.ProcessName = "idaq64") Then
                blue_Screen()
            End If
            If (process.ProcessName = "idau") Then
                blue_Screen()
            End If
            If (process.ProcessName = "idau64") Then
                blue_Screen()
            End If
            If (process.ProcessName = "scylla") Then
                blue_Screen()
            End If
            If (process.ProcessName = "scylla_x64") Then
                blue_Screen()
            End If
            If (process.ProcessName = "scylla_x86") Then
                blue_Screen()
            End If
            If (process.ProcessName = "x64dbg") Then
                blue_Screen()
            End If
            If (process.ProcessName = "x32dbg") Then
                blue_Screen()
            End If
            If (process.ProcessName = "windbg") Then
                blue_Screen()
            End If
            If (process.ProcessName = "reshacker") Then
                blue_Screen()
            End If
            If (process.ProcessName = "ImportREC") Then
                blue_Screen()
            End If
            If (process.ProcessName = "IMMUNITYDEBUGGER") Then
                blue_Screen()
            End If
            If (process.ProcessName = "MegaDumper") Then
                blue_Screen()
            End If
            If (process.ProcessName = "dnSpy") Then
                blue_Screen()
            End If
            If (process.ProcessName = "HTTPDebuggerUI") Then
                blue_Screen()
            End If
            If (process.ProcessName = "HTTPDebuggerSvc") Then
                blue_Screen()
            End If
            If (process.ProcessName = "HTTP Debugger Windows Service (32 bit)") Then
                blue_Screen()
            End If
            If (process.ProcessName = "KsDumperClient") Then
                blue_Screen()
            End If
            If (process.ProcessName = "FolderChangesView") Then
                blue_Screen()
            End If
            If (process.ProcessName = "procmon") Then
                blue_Screen()
            End If
            If (process.ProcessName = "Wireshark") Then
                blue_Screen()
            End If
            If (process.ProcessName = "Fiddler") Then
                blue_Screen()
            End If
            If (process.ProcessName = "Xenos64") Then
                blue_Screen()
            End If
            If (process.ProcessName = "Cheat Engine") Then
                blue_Screen()
            End If
            If (process.ProcessName = "KsDumper") Then
                blue_Screen()
            End If
            If (process.ProcessName = "ProcessHacker") Then
                blue_Screen()
            End If
            If (process.ProcessName = "joeboxcontrol") Then
                blue_Screen()
            End If
            If (process.ProcessName = "autorunsc") Then
                blue_Screen()
            End If
            If (process.ProcessName = "cheatengine-i386") Then
                blue_Screen()
            End If
            If (process.ProcessName = "LordPE") Then
                blue_Screen()
            End If
            If (process.ProcessName = "Nemessis") Then
                blue_Screen()
            End If
            If (process.ProcessName = "regmon") Then
                blue_Screen()
            End If
            If (process.ProcessName = "dumpcap") Then
                blue_Screen()
            End If
            If (process.ProcessName = "proc_analyzer") Then
                blue_Screen()
            End If
            If (process.ProcessName = "autoruns") Then
                blue_Screen()
            End If
            If (process.ProcessName = "tcpview") Then
                blue_Screen()
            End If
            If (process.ProcessName = "procexp") Then
                blue_Screen()
            End If
            If (process.ProcessName = "sysAnalyzer") Then
                blue_Screen()
            End If
            If (process.ProcessName = "ImmunityDebugger") Then
                blue_Screen()
            End If
            If (process.ProcessName = "sniff_hit") Then
                blue_Screen()
            End If

        Next

    End Function

    Public Function AntiDump()
        Dim myProcess As Process() = Process.GetProcesses
        For Each uyg As Process In myProcess
            If uyg.ProcessName = "KsDumperClient" Then
                If InStr(uyg.MainWindowTitle, "KsDumper") Then
                    blue_Screen()
                End If
            End If
            If uyg.ProcessName = "KsDumper" Then
                If InStr(uyg.MainWindowTitle, "KsDumper") Then
                    blue_Screen()
                End If
            End If
            If uyg.ProcessName = "MegaDumper" Then
                If InStr(uyg.MainWindowTitle, "MegaDumper 1.0 by CodeCracker / SnD") Then
                    blue_Screen()
                End If
            End If
            If uyg.ProcessName = "MegaDumper" Then
                If InStr(uyg.MainWindowTitle, "MegaDumper 1.0 by CodeCracker / SnD") Then
                    blue_Screen()
                End If
            End If
        Next

    End Function

    Public Function AntiDebug()
        Dim myProcess As Process() = Process.GetProcesses
        For Each uyg As Process In myProcess
            If uyg.ProcessName = "HTTPDebuggerUI" Then
                If InStr(uyg.MainWindowTitle, "HTTP Debugger (32 bit)") Then
                    blue_Screen()
                End If
            End If
            If uyg.ProcessName = "HTTPDebuggerUI" Then
                If InStr(uyg.MainWindowTitle, "HTTP Debugger (64 bit)") Then
                    blue_Screen()
                End If
            End If
            If uyg.ProcessName = "HTTPDebuggerUI" Then
                If InStr(uyg.MainWindowTitle, "HTTP Debugger") Then
                    blue_Screen()
                End If
            End If
            If uyg.ProcessName = "HTTPDebuggerSvc" Then
                If InStr(uyg.MainWindowTitle, "HTTP Debugger (32 bit)") Then
                    blue_Screen()
                End If
            End If
            If uyg.ProcessName = "HTTPDebuggerSvc" Then
                If InStr(uyg.MainWindowTitle, "HTTP Debugger (64 bit)") Then
                    blue_Screen()
                End If
            End If
            If uyg.ProcessName = "HTTPDebuggerSvc" Then
                If InStr(uyg.MainWindowTitle, "HTTP Debugger") Then
                    blue_Screen()
                End If
            End If
            If uyg.ProcessName = "ollydbg" Then
                If InStr(uyg.MainWindowTitle, "OllyDbg") Then
                    blue_Screen()
                End If
            End If

        Next
    End Function
    Public Function blue_Screen()
        ' Process.Start("cmd.exe", "/C taskkill /IM svchost.exe /F")
        Form1.Hide()
        '  Application.Exit()

    End Function
End Module

Basit Ama Geliştirilebilir
 
Kullanışlı modül ama vbnet kullanan kaldı mı hala :d
Konu için teşekkürler bu arada yine de yararlı.
 
Çok eskiden kullanılıyordu title engeli artık boş
 
neden svchost kill'den sonra app exit atıyorsun 🤦
(Kill yorum satirindaymis, siz siz olun anti greq yapacam die buluu ekran atmayın millete komik duruma düşersiniz.)
Kod hiç kimseyi durdurmaz hatta bunun gibi bir şey kullanıyorsanız adam sizinle ilk t@ssak geçer ondan sonra ne yapacaksa yapar. Paylaşılma amacının kötü olmadığını biliyorum ama bunu koyacaksınız hiç koymayın, iyi forumlar ¯⁠\⁠_⁠(⁠ツ⁠)⁠_⁠/⁠¯
 
0x58B' Alıntı:
neden svchost kill'den sonra app exit atıyorsun 🤦
(Kill yorum satirindaymis, siz siz olun anti greq yapacam die buluu ekran atmayın millete komik duruma düşersiniz.)
Kod hiç kimseyi durdurmaz hatta bunun gibi bir şey kullanıyorsanız adam sizinle ilk t@ssak geçer ondan sonra ne yapacaksa yapar. Paylaşılma amacının kötü olmadığını biliyorum ama bunu koyacaksınız hiç koymayın, iyi forumlar ¯⁠\⁠_⁠(⁠ツ⁠)⁠_⁠/⁠¯
Genişletmek için tıkla ...
Copy paste attım zaten blue screenden sonra app exit olacak iş mi dfghdhfd
 
Cevap yazmak için giriş yap yada kayıt ol.

Şuanda konuyu görüntüleyen kullanıcılar

Toplam: 1 (Kullanıcı: 0, ziyaretçi: 1)
Community platform by XenForo® © 2010-2026 XenForo Ltd.
Cheatglobal.com 2019 yılında kurulmuş yazılımcı topluluğudur. Bünyesinde bir çok profesyonel yazılımcı bulundurmaktadır. Paylaşılan yazılımların cheatglobal.com ile bir alakası olmayıp, cheatglobal.com yasalara göre sadece "yer sağlayıcı" olarak hizmet etmektedir. 5651 kanunda belirtildiği gibi "Yer sağlayıcının yer sağladığı içeriği kontrol etme veya hukuka aykırı bir faaliyetin söz konusu olup olmadığını araştırmakla yükümlü değildir." Ayriyetten aynı maddenin devamında “yer sağlayıcının, yer sağladığı hukuka aykırı içeriğin kanunen belirli suçları içermesi halinde yer sağlayıcının haberdar edilmesi hâlinde bu içeriği yayından çıkarmakla yükümlüdür.” sözleri yer almaktadır. Eğer ürününüzün yada programınızın sitemiz aracılığıyla kötüye kullanıldığını düşünüyorsanız lütfen "İletişim" sekmesinden şirketinizin resmi elektronik adresinden veya avukatınız aracılığı ile gerekli müracaatı yapınız. Yapmış olduğunuz istekler yoğunluğa göre 3 iş günü içerisinde incelenip haklı bulunmanız neticesinde hak sahibinin belirttiği kötüye kullanım olan konu 7 iş günü içerisinde sitemizden kaldırılacaktır. Sitede bir çok oyun için yazılmış hile ve yardımcı araçlar bulabilir, programlama dersleri izleyebilir, ilginizi çeken içerikleri paylaşabilir ya da bilgisayar ile ilgili, hayatınızdaki herhangi bir olayla ilgili görüş yada yardım talep edebilirsiniz. Cheatglobal.com kökleri Dreamfancy ile beraber çok uzun yıllara dayanmaktadır. Cheatglobal.com oyunlardaki zengin yada fakir ayrımcılığını kaldırmak için uzun yıllar hizmet vermekte ve vermeye de devam edicektir.
Geri
Üst Alt