Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (до версии 2009) - часть 5

Модерирует : ShIvADeSt

ShIvADeSt (19-05-2010 05:14): Продолжаем тут http://forum.ru-board.com/topic.cgi?forum=33&topic=11215  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101

   

ShIvADeSt



Moderator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Продолжение темы Вопросы по Delphi (до версии 2009) - часть 4

Познаем сами, помогаем другим...
Обсуждаем вопросы, не связанные с юникоидными версиями Delphi - для этого есть соответствующая тема (см. ссылки ниже).

Правила топика:
    Прежде чем спрашивать:
  1. Желательно изучить вопрос, попытаться найти ответ в прилагаемых мануалах, хелпах и анализируя исходники.
  2. Выполнить поиск по топику (открыть "Версия для печати" и поискать ответ там).
  3. Применить фильтр по разделу "Прикладное программирование". Ответы на многие старые вопросы могли быть даны в отдельных темах.
  4. Продумайте вопрос. На поверхностные вопросы вы получите поверхностные ответы, или вообще ответов не получите.
  5. Желательно указывать версии используемого компилятора и операционной системы.
    Прежде чем отвечать:
  1. Если не можете помочь, не мешайте.
  2. Если уж вы отвечаете на вопрос, давайте ответ по сути.
  3. Если вы не уверены, так и говорите! Ошибочный, но авторитетно звучащий ответ хуже, чем отсутствие ответа.
  4. Задавайте дополнительные вопросы, чтобы получить больше информации.
  • Отсутствие ответа не равносильно игнорированию - иногда участники форума просто не знают ответ. Повторная посылка вопроса не приветствуется. Посты типа "неужели никто не знает ответа..." или "может мне все-таки кто-нибудь ответит" недопустимы.  
  • Все большие куски кода (более 5 строк) оформляем в тег [morе] дабы уменьшить размер поста. FAQ по тегу [morе].

  • Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 02:09 28-06-2009 | Исправлено: psa1974, 12:00 02-02-2010
    Delta RuBoard



    Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    угу, спасибо, работает. а для обратного алгоритма дешифрации что меняется на что? а то чтото шаманил шаманил а толку нет. наиболее подходящим было  

    Код:
     if P > 0 then Result := Result+ABC[((P+1-Delta) mod SizeA)-1]

    но оно обрезает пару символов =\

    ----------
    мой маленький блог
    Создание on-line игр

    Всего записей: 382 | Зарегистр. 21-06-2005 | Отправлено: 00:12 21-09-2009
    V1s1ter



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Delta RuBoard
    Для последнего варианта

    Код:
     
    вместо
    if P > 0 then Result := Result+ABC[((P-1+Delta) mod SizeA)+1]
    по идее нужно
    if P > 0 then Result := Result+ABC[((P-1-Delta) mod SizeA)+1]
     

    Но не проверял

    Всего записей: 948 | Зарегистр. 06-02-2007 | Отправлено: 01:16 21-09-2009
    Aleksandr N

    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Мажет кто знает как прикрутить сертификат к своей программе?
    И как правильно создать сертификат?

    Всего записей: 1665 | Зарегистр. 25-02-2008 | Отправлено: 01:25 21-09-2009 | Исправлено: Aleksandr N, 01:51 21-09-2009
    Delta RuBoard



    Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    делаю  
    'abc xyz' => coding => 'bcd yza' => decoding => 'abc xy'

    ----------
    мой маленький блог
    Создание on-line игр

    Всего записей: 382 | Зарегистр. 21-06-2005 | Отправлено: 01:54 21-09-2009
    Hiken



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Aleksandr N
    Вы имеете ввиду цифровую подпись? Для начала за нее нужно заплатить - самоподписанное приложение никому не нужно. Ну а после уже использовать микрософтовские утилиты. Как именно - описано, например, здесь.

    Всего записей: 1343 | Зарегистр. 14-01-2006 | Отправлено: 02:05 21-09-2009 | Исправлено: Hiken, 02:05 21-09-2009
    V1s1ter



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Delta RuBoard
    Ну раз неспится, то:
    Фокус в том, что при декодировании используется та же самая функция, что и при кодировании, но с другой дельта равной размер алфавита минус дельта при которой кодировалось.
    или
    скопировать функцию кодирования, обозвать ее функция декодирования и вставить одну строку
    begin
      SizeA := Length(ABC);
      Delta := SizeA-Delta;         <- вот эту
      Result := '';
    ...
     
     
    Добавлено:
    Из постановки задачи ясно, что дельта не может быть больше чем размер алфавита

    Всего записей: 948 | Зарегистр. 06-02-2007 | Отправлено: 02:25 21-09-2009
    andrewtishkin



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

    Цитата:
    Для начала за нее нужно заплатить

    Официальное описание (сертификация под Win7)

    Цитата:
    самоподписанное приложение никому не нужно

    Ну иногда-таки нужно Правда для полноты картины потребуется установить свой сертификат в системное хранилище

    Всего записей: 781 | Зарегистр. 28-08-2008 | Отправлено: 02:28 21-09-2009
    Delta RuBoard



    Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору

    Цитата:
    Delta RuBoard  
    Ну раз неспится, то:  
    Фокус в том, что при декодировании используется та же самая функция, что и при кодировании, но с другой дельта равной размер алфавита минус дельта при которой кодировалось.  
    или  
    скопировать функцию кодирования, обозвать ее функция декодирования и вставить одну строку  
    begin  
      SizeA := Length(ABC);  
      Delta := SizeA-Delta;         <- вот эту  
      Result := '';  
    ...

    мы программисты народ не спящий да, помогло еще раз выражаю благодарность) в принципе дельфяк прикольный язык, придется немного по-мучатся... но в итоге что-то да получится
     
    Добавлено:

    Цитата:
    Из постановки задачи ясно, что дельта не может быть больше чем размер алфавита

    ну в принципе да. у меня суть программы заключается в том, что бы она могла криптить/декриптить с помощью различных методов. на исходный код по большому счету абсолютно наплевать, так как препод у которого пишу диплом не особо программист... а остальные смотреть все равно не будут
     


    ----------
    мой маленький блог
    Создание on-line игр

    Всего записей: 382 | Зарегистр. 21-06-2005 | Отправлено: 02:29 21-09-2009 | Исправлено: Delta RuBoard, 02:39 21-09-2009
    Hiken



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    andrewtishkin
    По вашей ссылке:

    Цитата:
    Это означает то, что при наличии цифрового удостоверения VeriSign, получение логотипа Compatible with Windows 7 для вашего приложения будет бесплатным.
     
    Внимание: Действует акция Microsoft по компенсации стоимости цифрового удостоверения VeriSign. За дополнительной информацией обращайтесь по адресу isvrus@microsoft.com. Предложение ограничено.

    Вы смотрели цены у VeriSign??! И не факт, что Microsoft потом компенсирует большую часть от затраченных средств.
     

    Цитата:
    Ну иногда-таки нужно  Правда для полноты картины потребуется установить свой сертификат в системное хранилище

    Вы приложение для себя пишите?

    Всего записей: 1343 | Зарегистр. 14-01-2006 | Отправлено: 02:55 21-09-2009
    V1s1ter



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Delta RuBoard

    Цитата:
    в принципе дельфяк прикольный язык, придется немного по-мучатся...

    Паскаль как раз хорош для отработки навыков построения алгоритмов, а именно их, судя по Вашим вопросам, пока не достаточно. Но это не проблема - было бы желание. Успехов.

    Всего записей: 948 | Зарегистр. 06-02-2007 | Отправлено: 03:02 21-09-2009
    Hiken



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Delta RuBoard
    Вот я думаю, напугать вас или нет? Как научиться программировать за 10 лет.

    Всего записей: 1343 | Зарегистр. 14-01-2006 | Отправлено: 03:06 21-09-2009
    Delta RuBoard



    Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору

    Цитата:
    Вот я думаю, напугать вас или нет? Как научиться программировать за 10 лет.

    буэээ за год программирования на пыхыпы я достиг большего чем наш препод по этому профилю имхо нет лучше путей чем самоусовершенствование путем написания кода ^_^


    ----------
    мой маленький блог
    Создание on-line игр

    Всего записей: 382 | Зарегистр. 21-06-2005 | Отправлено: 03:23 21-09-2009 | Исправлено: Delta RuBoard, 03:23 21-09-2009
    andrewtishkin



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

    Цитата:
    Вы смотрели цены у VeriSign??!

    Я знаю, какие там цены, даже без учёта акции + ещё нужно продлять каждый год. Ссылка только для анализа, дабы понять - надо ли это частному разработчику, готов ли он...
     
    А компенсация, кстати, сейчас и правда есть. Насколько я знаю, всей стоимости сертификата, потому что для MS важно сделать как можно больше софта совместимым с семёркой. Но опять-таки, на следующий год за продление денюжку придётся платить уже самому )
    Тут проблема даже скорее даже не в стоимости, а в совместимости софта.
    (если не вру, то можно получить цифровую подпись и у других фирм, без участия Microsoft-ских проверок)
     

    Цитата:
    Вы приложение для себя пишите?

    Есть ситуации, когда самоподписывание не ради тестов - это нормальное явление И установка сертификата в хранилище - тоже.
    Например, установить корневой сертификат просит при установке WebMoney Keeper.
     
    В крупной компьютерной сети тоже может быть ситуация, когда достаточно самодельной подписи, которая будет внедрена на всех комп-ах, зато позволит, например, в том же окошечке UAC сразу отличить свой софт от возможных подделок, вирусов, троянов...

    Всего записей: 781 | Зарегистр. 28-08-2008 | Отправлено: 03:25 21-09-2009
    Delta RuBoard



    Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору

    Код:
    Паскаль как раз хорош для отработки навыков построения алгоритмов, а именно их, судя по Вашим вопросам, пока не достаточно. Но это не проблема - было бы желание. Успехов.

    спасиб на паскале было бы немного проще писать, ибо с ним знаком уже давно +нет мороки с визуализацией и т.п. а вот желание как раз таки есть, повезло с интересной темой, так бы, чувствую, пришлось бы просто гуглить уже готовое решение нужной проги

    ----------
    мой маленький блог
    Создание on-line игр

    Всего записей: 382 | Зарегистр. 21-06-2005 | Отправлено: 03:26 21-09-2009
    Hiken



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

    Цитата:
    (если не вру, то можно получить цифровую подпись и у других фирм, без участия Microsoft-ских проверок)

    Естественно, альтернативы есть, и за более разумные деньги.
     

    Цитата:
    Есть ситуации, когда самоподписывание не ради тестов - это нормальное явление  И установка сертификата в хранилище - тоже.  
    Например, установить корневой сертификат просит при установке WebMoney Keeper.

    Могут быть серьезные затыки с системой безопасности виндов. В Vista политика по этому делу ужесточена. А вы случаем не знаете, как собрать инсталлер, с функциональностью подобного плана, как у WebMoney?
     
    Delta RuBoard

    Цитата:
    буэээ за год программирования на пыхыпы я достиг большего чем наш препод по этому профилю

    Бедные преподаватели, уж кто только не пытается выставить себя лучше на их фоне. Одно вы забываете: жизнь состоит не только из нолей и единиц. Имейте уважение!

    Всего записей: 1343 | Зарегистр. 14-01-2006 | Отправлено: 03:36 21-09-2009 | Исправлено: Hiken, 03:39 21-09-2009
    andrewtishkin



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

    Цитата:
    А вы случаем не знаете, как собрать инсталлер, с функциональностью подобного плана, как у WebMoney?

    То есть? Что там за функциональность? Кроме установки сертификата ничего особо выдающегося не помню...

    Всего записей: 781 | Зарегистр. 28-08-2008 | Отправлено: 04:16 21-09-2009
    Delta RuBoard



    Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору

    Цитата:
    Бедные преподаватели, уж кто только не пытается выставить себя лучше на их фоне. Одно вы забываете: жизнь состоит не только из нолей и единиц. Имейте уважение!

     
    ладно, давайте не будет философствывать, а то придет злой дядя модератор и всех нас накажет )
     
    а по теме.. скажите как реализовать следующюю вещь:
    у меня есть кнопочка, к примеру на ней написано "?". при нажатии на эту кнопку открывается нечто вроде меню, как сделано здесь с кодами при наведении на кружочек слева то поля ввода сообщения. но суть немного не в этом, это я уже придумал как сделать. нужно что бы оно не закрывало все формы в конструкторе, а можно было бы как то его спрятать на то время, пока оно мне не нужно, так как размеры этого всплывающего окошка у меня будут на все окно программы. ну и + в довесок к этому окну его составляющей есть еще и кнопка с рисунком "Х" ну тоесть  проще говоря закрыть.  
     
       
     

    ----------
    мой маленький блог
    Создание on-line игр

    Всего записей: 382 | Зарегистр. 21-06-2005 | Отправлено: 09:31 21-09-2009 | Исправлено: Delta RuBoard, 09:42 21-09-2009
    ShIvADeSt



    Moderator
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Delta RuBoard

    Цитата:
    спасиб на паскале было бы немного проще писать, ибо с ним знаком уже давно +нет мороки с визуализацией и т.п. а вот желание как раз таки есть, повезло с интересной темой, так бы, чувствую, пришлось бы просто гуглить уже готовое решение нужной проги

    Все алгоритмы по криптографии плюют на визуализацию (считайте что алгоритм Цезаря вы пишите на нем родимом, ибо после преобразования tStr;=Edit2.Text ниже идет голимый паскаль.
    Delta RuBoard

    Цитата:
    нужно что бы оно не закрывало все формы в конструкторе, а можно было бы как то его спрятать на то время, пока оно мне не нужно, так как размеры этого всплывающего окошка у меня будут на все окно программы. ну и + в довесок к этому окну его составляющей есть еще и кнопка с рисунком "Х" ну тоесть  проще говоря закрыть.

    Form1.Hide Form1.Show
    OnCloseQuery делаешь caHide что то такое - чтобы при закрытии форма не закрывалась а скрывалась.


    ----------
    И создал Бог женщину... Существо получилось злобное, но забавное...

    Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 09:50 21-09-2009
    Delta RuBoard



    Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    ShIvADeSt
    как это сделать я допер, вопрос в том, как в конструкторе сделать этот хинт так, что бы  он не закрывал все что видно на скрине1.. а то работать будет как то не удобно потом..

    ----------
    мой маленький блог
    Создание on-line игр

    Всего записей: 382 | Зарегистр. 21-06-2005 | Отправлено: 10:04 21-09-2009
    nkurrich



    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Надо просканировать набор радиобуттонов, причем кол-во их неопределенное, должно получиться что то типа того, вот только не могу обратиться к имени радиобуттона
     
     
     
    while testnom=0 do
      begin
        If  fTheme.RadioButton[j].Checked=true then testnom=j;
            j:=j+1;
      end;
     
     
    RadioButton[j] вот в этом месте пытаюсь перелистывать имена буттонов, подскажите плиз, как сделать?
     
     

    Всего записей: 20 | Зарегистр. 16-09-2009 | Отправлено: 10:13 21-09-2009 | Исправлено: nkurrich, 11:42 21-09-2009
       

    Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101

    Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (до версии 2009) - часть 5
    ShIvADeSt (19-05-2010 05:14): Продолжаем тут http://forum.ru-board.com/topic.cgi?forum=33&topic=11215


    Реклама на форуме Ru.Board.

    Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
    Modified by Ru.B0ard
    © Ru.B0ard 2000-2024

    BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

    Рейтинг.ru