УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

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

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

		Форум АНТИЧАТ > Программирование_OLD > С/С++, C#, Delphi, .NET, Asm
Сливаем Hash от vkontakte.ru[Delphi+php]

Страница 3 из 4

Опции темы

Поиск в этой теме

Опции просмотра

#21

18.08.2009, 01:07

ErrorNeo

Moderator - Level 7

Регистрация: 02.05.2009

Сообщений: 894

Провел на форуме:
4297091

Репутация: 2261

Отправить сообщение для ErrorNeo с помощью ICQ

чета афтар подзабил на ачат, а тема норм.
в исходный код можно добавить много вкусного, убрать {$APPTYPE CONSOLE}, сделать отправку пассов и куков не мгновенной, а отложенной..
так же можно найти у юзера сохраненные в самом браузере(мазиле+опере) пароли, которые, даже, не придется "ломать", т.к. они хранятся там в "восстановимом" виде (в мазиле - всегда, в опере - если специально не был задан мастер-пароль, что крайне маловероятно).

Много можно сделать интересного, любопытного и занятного

было бы желание

#22

18.08.2009, 01:14

=Zeus=

Участник форума

Регистрация: 10.08.2009

Сообщений: 238

Провел на форуме:
724939

Репутация: 108

Отправить сообщение для =Zeus= с помощью ICQ

Цитата:

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

Seregakz, у переменных типа string, коей является cook имеется один небольшой недостаток (читай - твоя невнимательность) - ограничение по длинне. Именно поэтому я привел пример загрузки файла не построчно, а целиком в посте #14

Насколько я знаю, то если в настройках проекта стоит галочка "Wide String", то ограничений на длину нету.

#23

18.08.2009, 01:15

Seregakz

Познающий

Регистрация: 13.06.2009

Сообщений: 32

Провел на форуме:
42683

Репутация: 2

Цитата:

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

ну дык нуль терминейт символы в файле есть
храни во времнном буфере, и открывай вот так файл

var FS: TFileStream;
buf: array of char; // временный буфер
begin
FS:=TFileStream.Create('path of file', fmOpenRead);
SetLength(buf, FS.size+1);
FS.Read(buf, FS.Size);
FS.Free;

Блин не построчно (Readln), а посимвольно(Read) читать надо

Аналогично не пашет)) приведите плз рабочий код вывода куков в мемо)))

#24

18.08.2009, 11:25

flacs

Познающий

Регистрация: 28.01.2009

Сообщений: 90

Провел на форуме:
432613

Репутация: 80

в мемо оно не будет корректно отображаца, ИБО есть нуль-терминайт символы в файле (#00)

если только читать файл посимвольно, и записывать только значимые символы, отсекая то что в МЕМО может некорректно отображаца

Код:

var
    c: char;
    data: string;
begin
      AssignFile(f,'путь');
      Reset(f);
      while not eof (f) do begin
          Read(f,c);
          case c of
             0..9,A..Z, a..z, #32: data:=data+c; // те символы которые тру отображаются 
          end;
      end;
      CloseFile(f);
      Memo1.text:=data;
end;

Конечно, это жутко медленный и нубско-ламерский способ, но по крайней мере воркает =/

#25

18.08.2009, 12:13

tecca555

Участник форума

Регистрация: 30.12.2008

Сообщений: 101

Провел на форуме:
1220583

Репутация: 22

Отправить сообщение для tecca555 с помощью ICQ

автор как я знаю добивает проект,скоро выставит на общий смотр

#26

18.08.2009, 16:25

Seregakz

Познающий

Регистрация: 13.06.2009

Сообщений: 32

Провел на форуме:
42683

Репутация: 2

Цитата:

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

Код:

var
    c: char;
    data: string;
begin
      AssignFile(f,'путь');
      Reset(f);
      while not eof (f) do begin
          Read(f,c);
          case c of
             0..9,A..Z, a..z, #32: data:=data+c; // те символы которые тру отображаются 
          end;
      end;
      CloseFile(f);
      Memo1.text:=data;
end;

Конечно, это жутко медленный и нубско-ламерский способ, но по крайней мере воркает =/

Не воркает))))))))))))

#27

18.08.2009, 17:23

flacs

Познающий

Регистрация: 28.01.2009

Сообщений: 90

Провел на форуме:
432613

Репутация: 80

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

Код:

var
    f: file of char;
    c: char;
    data: string;
begin
      AssignFile(f,'путь');
      Reset(f);
      while not eof (f) do begin
          Read(f,c);
          case c of
             '0'..'9','A'..'Z', 'a'..'z', #32, #9, ':': data:=data+c; 
          end;
      end;
      CloseFile(f);
      Memo1.text:=data;
end;

#28

18.08.2009, 18:34

Seregakz

Познающий

Регистрация: 13.06.2009

Сообщений: 32

Провел на форуме:
42683

Репутация: 2

Цитата:

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

Код:

var
    f: file of char;
    c: char;
    data: string;
begin
      AssignFile(f,'путь');
      Reset(f);
      while not eof (f) do begin
          Read(f,c);
          case c of
             '0'..'9','A'..'Z', 'a'..'z', #32, #9, ':': data:=data+c; 
          end;
      end;
      CloseFile(f);
      Memo1.text:=data;
end;

)))))) я не про то что ошибка в коде была) я про то что он в мемо загрузит одну строчку и всё)) хотя сам файл кук мег весит))
Мне просто надо куки приводить в читабельный вид чтобы потом пост запросом отправить на сервер)