Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.06.2013, 11:11   #1
IvaniuS
Форумчанин
 
Аватар для IvaniuS
 
Регистрация: 16.04.2007
Сообщений: 225
По умолчанию *.cer *.crt Файлы открытых ключей

Стоит серьезный вопрос по поводу внедрения в программу информации из сертификата открытого ключа, примеры выложу под сообщением.
http://msdn.microsoft.com/en-us/libr...(v=VS.85).aspx - тут есть кое-какая информация для С, но мне не понятная, средствами вин(rund32.exe win7x64) они читаются отлично и все просматривается, НО если есть уже готовый написанный модуль(http://sourceforge.net/projects/jedi-apilib/) или что-то подобное зачем усложнять себе жизнь....
Собственно кто, что знает по данной теме просьба отписаться
П.С. можете сами погуглить ничего там нету!
Вложения
Тип файла: zip Desktop.zip (2.0 Кб, 21 просмотров)

Последний раз редактировалось IvaniuS; 21.06.2013 в 12:01.
IvaniuS вне форума Ответить с цитированием
Старый 02.07.2013, 18:41   #2
IvaniuS
Форумчанин
 
Аватар для IvaniuS
 
Регистрация: 16.04.2007
Сообщений: 225
Смущение

подниму тему, понял что ответа так и не дождусь, вот что еще нарыл:
Код:
function  GetWindText(AHandle:  THandle):  String;
var cb:  DWord;
begin
  cb  :=  SendMessage(AHandle,  WM_GETTEXTLENGTH,  0,  0);
  SetLength(Result,  cb);
  if  cb  >  0  then
  SendMessage(AHandle,  WM_GETTEXT,  cb+1,  LParam(@Result[1]));
end;
Код:
procedure  TForm1.Button1Click(Sender:  TObject);
var AHandle:  THandle;
begin
  AHandle  :=  FindWindow('Notepad',  nil);
  Win32Check(AHandle  <>  0);
  AHandle  :=  FindWindowEx(AHandle,  0,  'Edit',  nil);
  Win32Check(AHandle  <>  0);
  Memo1.Text  :=  GetWindText(AHandle);
end;
так к примеру можно из блокнота вытащить информацию, а мне нужно:
1)запустить rundll32.exe
2)в нем открыть файл *.crt
делаю это так: "C:\Windows\system32\rundll32.e xe" cryptext.dll,CryptExtOpenCER "путь к файлу.crt"
3)переключить таб на "Состав"
4)оттуда уже считывать информацию

Последний раз редактировалось IvaniuS; 02.07.2013 в 18:46.
IvaniuS вне форума Ответить с цитированием
Старый 02.07.2013, 18:46   #3
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,426
По умолчанию

А чего OpenSSL использовать, не?
Человек_Борща вне форума Ответить с цитированием
Старый 02.07.2013, 18:49   #4
IvaniuS
Форумчанин
 
Аватар для IvaniuS
 
Регистрация: 16.04.2007
Сообщений: 225
По умолчанию

Цитата:
Сообщение от Человек_Борща Посмотреть сообщение
А чего OpenSSL использовать, не?
я для этого эту тему и создал, но никто так и не ответил, я его нашел (опенссл) установил в д10, но дальше так и не продвинулся, в смысле не смог считать нужные мне параметры, в 1 посте есть пример сертификата...
вру не опенссл, а джеди ставил и там не нашел, если дашь ссылку на удобный модуль опенссл который сможет считать - буду очень благодарен. openssl.org - тут только на С без ддлки и заголовков.
Поиском по форуму на опенссл нашел только шафрование для вед и подписывание, а мне чтение нужно и данных из ключа.

Последний раз редактировалось IvaniuS; 02.07.2013 в 18:57.
IvaniuS вне форума Ответить с цитированием
Старый 02.07.2013, 19:27   #5
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,426
По умолчанию

Цитата:
openssl.org - тут только на С без ддлки и заголовков.
DLL надо компилировать.
А заголовки *.h ищите в исходниках. Вроде бы openssl.h называется.
Человек_Борща вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Количество открытых книг Lubocka Microsoft Office Excel 4 29.11.2011 15:50
Продление .cer сертификата Fe[one]X Безопасность, Шифрование 2 22.11.2011 00:36
Типизированные файлы, модуль Crt, Модуль Graph Kate_Fleur Помощь студентам 1 06.05.2010 17:43
Список открытых портов Баламут Работа с сетью в Delphi 3 21.05.2008 10:17
Список открытых файлов ExcArt Microsoft Office Excel 3 30.03.2008 11:06