Архитектору и проектировщику|Тепло- и звукоизоляция URSA.RU
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Можно ли из нескольких лиспов и меню сделать программу с активационным ключом?

Можно ли из нескольких лиспов и меню сделать программу с активационным ключом?

Ответ
Поиск в этой теме
Непрочитано 26.11.2008, 16:55
Можно ли из нескольких лиспов и меню сделать программу с активационным ключом?
Red Nova
 
ՃԱՐՏԱՐԱԳԵՏ, Տ.Գ.Թ.
 
Торонто
Регистрация: 23.10.2007
Сообщений: 1,974

Есть ли возможность простым методом сделать из совокупности лисп кодов и меню программу хоть по минимуму защищенную от взлома? Так чтобы поставил программу на конкретный компьютер вписал активационный ключ, который неким образом связан скажем с mac адресом конкретного компьютера. Затем программа устанавливается на компьютер, но так чтобы нельзя было просто скопировать ее на другой компьютер и прописать в автозагрузку Автокада.
__________________
Блог
Просмотров: 11055
 
Непрочитано 14.12.2008, 20:50
#81
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,800
<phrase 1= Отправить сообщение для VVA с помощью Skype™


(dwgru-string-replace "00:1B:FC:EA:F6:46" ":" "")
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Автор темы   Непрочитано 14.12.2008, 22:29
#82
Red Nova

ՃԱՐՏԱՐԱԳԵՏ, Տ.Գ.Թ.
 
Регистрация: 23.10.2007
Торонто
Сообщений: 1,974
Отправить сообщение для Red Nova с помощью Skype™


VVA, Спасибо. Даже странно что штатной такой функции нет.
Я тут вот что думал. Наша защита получилась весьма уязвимой, потому как можно запросто вычеслить какая буква какой заменяется в результате bool.
Во первых я решил привязываться к мак адресу, он бывает к примеру таким

Код:
[Выделить все]
("00:1B:FC:EA:F6:46" "00:1B:FC:EA:F6:46" "DA:50:20:52:41:53" 
"33:50:6F:45:30:30" "50:50:54:50:30:30" "20:41:53:59:4E:FF")
Во вотрых я решил в коде развернуть элементы этого списка местами, и потом уже применять к ним strcat и bool. Вот так.

Код:
[Выделить все]
(setq usr (dwgru-string-replace (apply 'strcat  (reverse (VK_GETMACADDRESS)))":" ""))
И с получением серийного кода у меня проблем не возникло, а вот во время его декомпиляции непонятки есть. А конкретнее как список типа такого
(хотя это в общем то и не список, так как разделений между цифрами нету)

Код:
[Выделить все]
("204153594EFF50505450303033506F453030DA5020524153001BFCEAF646001BFCEAF646")
разбить на 6 подсписков в каждом по 12 элементов, вот так?

Код:
[Выделить все]
("204153594EFF" "5050545030303" "3506F453030D" "A50205241530" "01BFCEAF6460" "01BFCEAF646")
__________________
Блог

Последний раз редактировалось Red Nova, 14.12.2008 в 22:40.
Red Nova вне форума  
 
Непрочитано 14.12.2008, 23:22
#83
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 36,754


Red Nova,
Код:
[Выделить все]
(defun conv-string-to-sublist (str len)
                              ;|
*    Преобразование строки в список подстрок по длине
*    Параметры вызова:
	str	обрабатываемая строка
	len	длина "подсписка"
|;
  (cond
    ((not str) "")
    ((< (strlen str) len) (list str))
    (t
     (cons (substr str 1 len)
           (conv-string-to-sublist (substr str (1+ len)) len)
           ) ;_ end of cons
     )
    ) ;_ end of cond
  ) ;_ end of defun
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 14.12.2008, 23:31
#84
Red Nova

ՃԱՐՏԱՐԱԳԵՏ, Տ.Գ.Թ.
 
Регистрация: 23.10.2007
Торонто
Сообщений: 1,974
Отправить сообщение для Red Nova с помощью Skype™


Кулик Алексей aka kpblc, Спасибо, правда в конце получается аппендикс, как его удалить?
Код:
[Выделить все]
("204153594EFF" "505054503030" "33506F453030"
 "DA5020524153" "001BFCEAF646" "001BFCEAF646" "")
__________________
Блог
Red Nova вне форума  
 
Непрочитано 15.12.2008, 00:22
#85
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 36,754


Замени строку ((not str) "") на ((not str) nil)
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 15.12.2008, 09:25
#86
Red Nova

ՃԱՐՏԱՐԱԳԵՏ, Տ.Գ.Թ.
 
Регистрация: 23.10.2007
Торонто
Сообщений: 1,974
Отправить сообщение для Red Nova с помощью Skype™


Кулик Алексей aka kpblc,
Неа, не помогло, в конце опять приписывает "". Хотя в принципе это и не мешает, так как я дальше буду применять
Код:
[Выделить все]
(apply 'strcat (reverse ***))
так что элемент "" исчезнет.
__________________
Блог

Последний раз редактировалось Red Nova, 15.12.2008 в 10:51.
Red Nova вне форума  
 
Непрочитано 15.12.2008, 10:10
#87
CB

Конструирование в области нефтеразведки
 
Регистрация: 10.02.2006
Гомель
Сообщений: 321


Код:
[Выделить все]
(defun conv-string-to-sublist (str len)
;|
*    Преобразование строки в список подстрок по длине
*    Параметры вызова:
 str обрабатываемая строка
 len длина "подсписка"
|;
  (cond
    ((equal str "") nil)
    ((< (strlen str) len) (list str))
    (t
     (cons (substr str 1 len)
           (conv-string-to-sublist (substr str (1+ len)) len)
     ) ;_ end of cons
    )
  ) ;_ end of cond
) ;_ end of defun
CB вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Можно ли из нескольких лиспов и меню сделать программу с активационным ключом?

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вопросы по работе системы RuCAD Олег К. Прочее. Программное обеспечение 142 17.09.2019 05:06
Мониторы LCD CRT Разное 94 17.06.2008 10:51
ЮМОР 2006 =) Perezz!! Разное 1122 04.01.2007 00:46
Попасть в слой. Vova AutoCAD 106 10.03.2006 04:36