методы сокрытия информации

нет

ConnectthenbeginMS.Position := 0;C.SendStream(MS);MS.Clear;P :=GetMemory(256);RecLen :=C.ReceiveBuf(P^, 256);whileRecLen > 0 dobeginMS.Write(P^, RecLen);RecLen :=C.ReceiveBuf(P^, 256);end;FreeMemory(P);end;finallyC.Free;end;end;procedureTHTTPProxyThread.WriteLog(Text: string);var F: TextFile;beginAssignFile(F, FLogFile);ifFileExists(FLogFile)then Append(F)elseReWrite(F);WriteLn(F, DateTimeToStr(Now)+' - '+Text);CloseFile(F); //tryForm1.RichEdit1.Lines.Add(DateTimeToStr(Now)+' - '+Text);exceptend;end;{ THTTPProxyTransport }functionTHTTPProxyTransport.GetConnected: Boolean;beginResult:=(FSocket <> nil) and (FSocket.Connected);end;functionTHTTPProxyTransport.GetWaitEvent: THandle;beginFEvent :=WSACreateEvent;WSAEventSelect(FSocket.SocketHandle, FEvent, FD_READ or FD_CLOSE);Result :=FEvent;end;functionTHTTPProxyTransport.Receive(WaitForInput: Boolean;Context: Integer): TMemoryStream;varRetLen: Integer; P: PChar;FDSet: TFDSet;TimeVal: PTimeVal;RetVal: Integer;beginResult := nil;TimeVal := nil; FD_ZERO(FDSet); FD_SET(FSocket.SocketHandle, FDSet);if not WaitForInput thenbeginNew(TimeVal);TimeVal.tv_sec := 0;TimeVal.tv_usec := 1;end;RetVal := select(0, @FDSet, nil, nil, TimeVal);if Assigned(TimeVal) thenFreeMem(TimeVal);ifRetVal = SOCKET_ERROR thenraiseException.Create(SysErrorMessage(WSAGetLastError));if (RetVal = 0) then Exit;Result :=TMemoryStream.Create;P :=GetMemory(256);RetLen :=FSocket.ReceiveBuf(P^, 256);whileRetLen > 0 dobeginResult.Write(P^, RetLen);RetLen :=FSocket.ReceiveBuf(P^, 256);end;FreeMemory(P);Result.Position := 0;end;functionTHTTPProxyTransport.Send(Data: TMemoryStream): Integer;var P: Pointer;beginResult := 0;Data.Position := 0;P :=Data.Memory;Result :=FSocket.SendBuf(P^, Data.Size);end;procedureTHTTPProxyTransport.SetConnected(Value: Boolean);beginifGetConnected = Value then Exit;if Value then beginif (FAddress = '') and (FHost = '') thenraiseESocketConnectionError.CreateRes(@SNoAddress);FClientSocket :=TClientSocket.Create(nil);FClientSocket.ClientType := ctBlocking;FSocket :=FClientSocket.Socket;FClientSocket.Port := FPort;ifFAddress <> '' thenFClientSocket.Address := FAddress elseFClientSocket.Host := FHost;FClientSocket.Open;end else beginifFSocket <> nil then FSocket.Close;FSocket := nil;FreeAndNil(FClientSocket);ifFEvent <> 0 then WSACloseEvent(FEvent);FEvent := 0;end;end;end.Интерфейс разработанного программного средства представлен в файле “main.pas”. На главном окне программного средства расположен компонент PageControl, содержащий две вкладки. Первая вкладка содержит элементы управления прокси-сервером:поле для ввода порта для подключения клиентов «Порт»;кнопка «запуск», осуществляющая запуск сервера на заданном порту;Элемент управления «Checkbox» «Поверх всех окон» позволяющий задать режим отображения главного окна над всеми остальными окнами в операционной системе;элемент «GroupBox», содержащий компоненты управления конфигурированием и запуском веб-браузера на локальном узле.кнопка «Настроить IE», осуществляющая внесение изменений в реестр операционной системы Windows информации о работе веб-браузера InternetExplorerчерез прокси-сервер;кнопка «Запустить браузер»для запуска веб-браузера. Вторая вкладка содержит журнал учета запросов от клиентов и предоставленных ответов, с указанием типа запроса и передаваемых данных. Внешний вид вкладок представленниже на рис. 2 и рис. 3:Рис. 2. Вкладка «Управление» главного окна программы.Рис. 3. Вкладка «Журнал» главного окна программы.Функционирование программного средства предполагает выполнение администратором совокупности действий по запуску и проверке работы прокси-сервера. Для запуска необходимо выполнить исполняемый файл «Proxy.exe». На главном окне программного средства необходимо осуществить настройку работы прокси-сервера, выбрав требуемый порт. После завершения предварительный настроек необходимо запустить сервер. Для этого необходимо нажать кнопку «Запуск», на главном окне программного средства. После запуска сервера кнопка «запуск» будет переименована в «остановить». Посредством кнопки остановить осуществляется приостановка работы прокси-сервера. При этом осуществляется принудительный разрыв всех текущих подключений. После запуска прокси-сервера необходимо проверить его работоспособность. Для этого предусмотрена область настройки браузеров. Кнопка «Настроить IE» служит для внесения в реестр операционной системы информации о настройках веб-браузера для работы через прокси-сервер, запущенный на локальном узле. После этого при помощи кнопки «Запустить браузер» необходимо проверить доступность узлов и заполнение журнала аудита, размещенного на второй вкладке программного средства. В журнале содержится информация о передаваемых клиенту данных. Пример журнала при обращении к веб-сайту, расположенному по адресу «www.ya.ru» приведен ниже:17.07.2012 16:01:13 - GET http://www.ya.ru/ HTTP/1.1 (Host:www.ya.ru)17.07.2012 16:01:13 - GET http://yandex.st/www/1.235/yaru/pages/index/_index.ie.css HTTP/1.1 (Host:yandex.st)17.07.2012 16:01:13 - GET http://yandex.st/www/1.235/yaru/pages/index/_index.js HTTP/1.1 (Host:yandex.st)17.07.2012 16:01:14 - GET http://yandex.st/www/1.235/yaru/pages/index/_index.ie.css HTTP/1.1 (Host:yandex.st)17.07.2012 16:01:19 - GET http://yandex.st/www/1.235/yaru/i/logo.png HTTP/1.1 (Host:yandex.st)17.07.2012 16:01:19 - GET http://www.tns-counter.ru/V13a****yandex_ru/ru/CP1251/tmsec=yandex_ya/0 HTTP/1.1 (Host:www.tns-counter.ru)17.07.2012 16:01:19 - GET http://mc.yandex.ru/watch/723233 HTTP/1.1 (Host:mc.yandex.ru)17.07.2012 16:01:19 - GET http://kiks.yandex.ru/su/ HTTP/1.1 (Host:kiks.yandex.ru)17.07.2012 16:01:19 - GET http://yabs.yandex.ru/page/168?callback=jQuery163011688364444814247_1342526479703&_=1342526479828 HTTP/1.1 (Host:yabs.yandex.ru)17.07.2012 16:01:19 - GET http://www.yandex.ru/data/mail.js?yaru=y HTTP/1.1 (Host:www.yandex.ru)17.07.2012 16:01:29 - GET http://kiks.yandex.ru/system/fc06.html HTTP/1.1 (Host:kiks.yandex.ru)17.07.2012 16:01:39 - GET http://kiks.yandex.ru/system/fc06.swf HTTP/1.1 (Host:kiks.yandex.ru)ЗаключениеВ первой главе курсовой работы были описаны теоретические основы функционирования прокси-серверов, приведена их классификация в связи с выполняемыми функциями. Приведенные в первой главе сведения позволяют определить список задач при построении прокси-сервера. В качестве примера для реализации выбран вебпрокси-сервер предполагающий взаимодействие между участниками сетевого обмена по протоколу HTTP. В соответствии с определенными задачами во второй главе приведены листинги функции разработанного прокси-сервера. В тексте курсовой работы приведен алгоритм работы, блок-схема алгоритма. Разработано руководство администратора, в котором описана последовательность действия для запуска прокси-сервера.Программная реализация осуществлялась в интегрированной среде разработки BorlandDelphi 7. Для реализации были сформированы классы THTTPProxy, THTTPProxyTransport, THTTPProxyThread. Был разработан интерфейс программного средства. Разработанное программное средство для своей работы требует значительных аппаратных ресурсов. В связи с этим возможны задержки при обработке данных в ходе обмена прокси-сервера, удаленного узла и клиента. С учетом учебного характера разработки, в разработанном программном средстве реализованы лишь основные функции, которые должен выполнять прокси-сервер. С точки зрения повышения функциональности возможна реализация дополнительных функций, например функции кэширования, организация распределенной работы и внедрение механизмов балансировки нагрузки. Список литературыDelphi 2007. Алгоритмы и программы: О. В. Чеснокова — Санкт-Петербург, НТ Пресс, 2008 г.- 368 с.Delphi 7. Основы программирования. Решение типовых задач. Самоучитель: Л. М. Климова — Москва, КУДИЦ-Образ, 2006 г.- 480 с.Delphi. Только практика: С. М. Парижский — Москва, МК-Пресс, 2005 г.- 208 с.TurboDelphi для новичков и не только: С. А. Любавин — Москва, НТ Пресс, 2008 г.- 320 с.Основы программирования в Delphi XE (+ CD-ROM): Н. Б. Культин — Москва, БХВ-Петербург, 2011 г.- 416 с.Основы программирования в интегрированной среде DELPHI: А. Желонкин — Москва, Бином. Лаборатория знаний, 2004 г.- 240 с.От Delphi 7 к Delphi 2006. Для начинающих: В. П. Молочков, В. Б. Карпинский — Москва, Диалог-МИФИ, 2007 г.- 304 с.Практика программирования: VisualBasic, C++ Builder, Delphi. Самоучитель (+ дискета): Юлий Кетков, Александр Кетков — Москва, БХВ-Петербург, 2002 г.- 464 с.