Войти или зарегистрироваться
Выберите удобный способ — аккаунт создастся автоматически.
Или войдите по логину и паролю
 |
|
18.08.2009, 01:07
|
|
Moderator - Level 7
Регистрация: 02.05.2009
Сообщений: 894
С нами:
8960826
Репутация:
2261
|
|
чета афтар подзабил на ачат, а тема норм.
в исходный код можно добавить много вкусного, убрать {$APPTYPE CONSOLE}, сделать отправку пассов и куков не мгновенной, а отложенной..
так же можно найти у юзера сохраненные в самом браузере(мазиле+опере) пароли, которые, даже, не придется "ломать", т.к. они хранятся там в "восстановимом" виде (в мазиле - всегда, в опере - если специально не был задан мастер-пароль, что крайне маловероятно).
Много можно сделать интересного, любопытного и занятного  было бы желание |
|
|
18.08.2009, 01:14
|
|
Участник форума
Регистрация: 10.08.2009
Сообщений: 238
С нами:
8817310
Репутация:
108
|
|
Сообщение от ex3me
Seregakz, у переменных типа string, коей является cook имеется один небольшой недостаток (читай - твоя невнимательность) - ограничение по длинне. Именно поэтому я привел пример загрузки файла не построчно, а целиком в посте #14
Насколько я знаю, то если в настройках проекта стоит галочка "Wide String", то ограничений на длину нету.
|
|
|
|
18.08.2009, 01:15
|
|
Познающий
Регистрация: 13.06.2009
Сообщений: 32
С нами:
8901549
Репутация:
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) читать надо
Аналогично не пашет)) приведите плз рабочий код вывода куков в мемо)))
|
|
|
|
18.08.2009, 11:25
|
|
Познающий
Регистрация: 28.01.2009
Сообщений: 90
С нами:
9096406
Репутация:
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;
Конечно, это жутко медленный и нубско-ламерский способ, но по крайней мере воркает =/ |
|
|
|
18.08.2009, 12:13
|
|
Участник форума
Регистрация: 30.12.2008
Сообщений: 101
С нами:
9138173
Репутация:
22
|
|
автор как я знаю добивает проект,скоро выставит на общий смотр
|
|
|
|
18.08.2009, 16:25
|
|
Познающий
Регистрация: 13.06.2009
Сообщений: 32
С нами:
8901549
Репутация:
2
|
|
Сообщение от flacs
в мемо оно не будет корректно отображаца, ИБО есть нуль-терминайт символы в файле (#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;
Конечно, это жутко медленный и нубско-ламерский способ, но по крайней мере воркает =/
Не воркает))))))))))))
|
|
|
|
18.08.2009, 17:23
|
|
Познающий
Регистрация: 28.01.2009
Сообщений: 90
С нами:
9096406
Репутация:
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;
|
|
|
|
18.08.2009, 18:34
|
|
Познающий
Регистрация: 13.06.2009
Сообщений: 32
С нами:
8901549
Репутация:
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;
)))))) я не про то что ошибка в коде была) я про то что он в мемо загрузит одну строчку и всё)) хотя сам файл кук мег весит))
Мне просто надо куки приводить в читабельный вид чтобы потом пост запросом отправить на сервер)
|
|
|
|
18.08.2009, 21:10
|
|
Познающий
Регистрация: 28.01.2009
Сообщений: 90
С нами:
9096406
Репутация:
80
|
|
Seregakz, у меня все тру воркает, я хз че там у тебя
|
|
|
|
18.08.2009, 21:17
|
|
Познающий
Регистрация: 13.06.2009
Сообщений: 32
С нами:
8901549
Репутация:
2
|
|
Сообщение от flacs
Seregakz, у меня все тру воркает, я хз че там у тебя
А мона както фильтрануть нул даннные с помощью StringReplace ?? пробовал #0 нефика(
|
|
|
|
|
|
|
Предыдущая тема
Следующая тема
Похожие темы
|
| Тема |
Автор |
Раздел |
Ответов |
Последнее сообщение |
|
Что Может Дать Hash Пароля (Ответ!)
|
slider |
Криптография, расшифровка хешей |
25 |
28.06.2006 12:31 |
|
Hash cracking
|
Dracula4ever |
Forum for discussion of ANTICHAT |
1 |
05.06.2006 15:56 |
|
Help me Hash?
|
by_online |
Криптография, расшифровка хешей |
1 |
06.02.2006 19:11 |
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
