• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

SSL с помощью Indy

  • Автор темы GRAY
  • Дата начала
Статус
Закрыто для дальнейших ответов.
G

GRAY

Где можно найти руководство или пример создания SSL-соединения в Delphi с помощью библиотеки Indy? В примерах к библиотеке Indy я не нашел.
Я пробовал к HTTP-серверу добавить IOHandler IdServerIOHandlerSSL. При запуске прога говорит, что не может загрузить SSLLibrary. В папке Windows\system32 лежат файлы ssleay32.dll и libeay32.dll от OpenSSL 0.9.7C. Что ей еще надо?
 
A

admin

GRAY
дебагить надо.
это ж indy. open source. там полувину надо самому дописывать.
 
G

gray

<!--QuoteBegin-Серёга+22:03:2004, 20:36 -->
<span class="vbquote">(Серёга @ 22:03:2004, 20:36 )</span><!--QuoteEBegin-->GRAY
дебагить надо.
это ж indy. open source. там полувину надо самому дописывать.[/quote]
В исходниках еще разбираться надо, а мне нужно срочно. Может пример какой есть попроще, чтобы разобраться, вдруг я что-то сделал не так
 
A

admin

gray
Я ничего с SSL не днелал. Но если коды выложишь можно что-нить сказать будет. Я ещё раз говорю. В indy проблем множество. Не зря новую версию с 0 пишут.
 
G

gray

Я писал текст чисто интуитивно (может быть чего-то не хватает).
Текст примерно такой:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdServerIOHandler, IdSSLOpenSSL, IdBaseComponent,
IdComponent, IdTCPServer, IdCustomHTTPServer, IdHTTPServer;

type
TForm1 = class(TForm)
IdHTTPServer1: TIdHTTPServer;
IdServerIOHandlerSSL1: TIdServerIOHandlerSSL;
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
IdHTTPServer1.IOHandler:=IdServerIOHandlerSSL1;
IdHTTPServer1.Active:=true;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
IdHTTPServer1.Active:=false;
end;

end.
 
A

admin

gray
хмм. что-то маловато как-то. никаких инициализаций и прочего.
знаешь что. у тебя есть примеры с Indy? погляди как там реализована работа в сервером. там вроде было. просто delphi пока нету и сказать точно не могу.
 
G

gray

Я смотрел примеры и знаю как работает сервер, но примеров с SSL там нет.
 
G

gray

Я смотрел примеры и знаю как работает сервер, но примеров с SSL там нет.
 
A

admin

gray
честно говоря даже не знаю
зайди на delphi.mastak.ru там на форуме много опытных дельфийцев.
 
L

Loeron

Сделай
IdHTTPServer1.IOHandler.Open;
после присоединения оному IdServerIOHandlerSSL1.
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!