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

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

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

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

Есть ли возможность простым методом сделать из совокупности лисп кодов и меню программу хоть по минимуму защищенную от взлома? Так чтобы поставил программу на конкретный компьютер вписал активационный ключ, который неким образом связан скажем с mac адресом конкретного компьютера. Затем программа устанавливается на компьютер, но так чтобы нельзя было просто скопировать ее на другой компьютер и прописать в автозагрузку Автокада.
__________________
Блог
Просмотров: 10996
 
Автор темы   Непрочитано 10.12.2008, 09:25
#61
Red Nova

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


Спасибо, а можно как то учесть особенность знака "/", чтобы его количество не удваивалось?
__________________
Блог
Red Nova вне форума  
 
Непрочитано 10.12.2008, 10:02
#62
VVA

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


Red Nova, Не дури себе голову, это особенность лиспа
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Автор темы   Непрочитано 10.12.2008, 10:26
#63
Red Nova

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


Придется вручную дублеж выкавыривать.
__________________
Блог
Red Nova вне форума  
 
Непрочитано 10.12.2008, 22:18
#64
Кулик Алексей aka kpblc
Moderator

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


Цитата:
Сообщение от Red Nova Посмотреть сообщение
Придется вручную дублеж выкавыривать.
На фига, простите?
__________________

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

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


Когда командой getactivatecode из данных юзера компилируется активационный код, то введя к примеру
"borisDESIGNKAREN\\\\LION"
На выходе я получае код, в котором символов соответствующих знаку "\" вдвое больше чем нужно. Вот и выкавыриваю лишнее, раз лиспом это не исправить.
__________________
Блог
Red Nova вне форума  
 
Непрочитано 10.12.2008, 22:55
#66
DEM

YngIngKllr
 
Регистрация: 29.03.2005
СПб
Сообщений: 12,762


Red Nova
Знаешь получается следующее, программа на рупь, защита на 2 рубля.
Если честно то на форуме достаточно открытых кодов, нежели твои программы, если уж человек соображает как работает код то уж найти отмычку к нему сможет без условно.
Защита будет на теток грубо говоря, ну и полных нулей в лиспе.
__________________
Шаг 12й......
Мои публикации
DEM вне форума  
 
Непрочитано 10.12.2008, 23:00
#67
Кулик Алексей aka kpblc
Moderator

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


Так проверь, например, такое:
Код:
[Выделить все]
(defun test (/ str)
  (setq str (getstring t "\nВводи строку, обязательно с обычными слешами, типа \"c:\\\" : "))
  (princ "На данный момент str равна ")
  (princ str)
  (princ)
  ) ;_ end of defun
__________________

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

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


DEM,
Начнем с того что программы "мои" только условно. Все что я придумал разработали небезызвестные участники форума. Защита же мне нужна именно от "теток", я не собираюсь делать ничего коммерческого, защищаю по одной простой причине. Думаю и ты встречал "коллег" которые ничего из себя не представляя всегда пытаются показать свое превосходство над другими, вот от таких "нехороших людей" я и хочу защитится, а для всех остальных и код открыт, и на форуме все есть.
Цитата:
Знаешь получается следующее, программа на рупь...
Как я уже не раз говорил все мои задумки рассчитаны только на наше КБ и не претендуют на что-то большее. Я не понимаю зачем нужно каждый раз их пинать, сам знаю про недостатки, но так все и было задумано. Интересно вот ты сам чем пользуешься для спецификации? Я уже говорил, что если покажешь разработку более удобную и профессиональную, то я сам готов на нее пересесть, но что-то я пока таких не видел ...

kpblc,
Спасибо, но я пока не понял как правильно этим пользоваться.
__________________
Блог
Red Nova вне форума  
 
Непрочитано 12.12.2008, 00:15
#69
Кулик Алексей aka kpblc
Moderator

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


Кхе, хотя вопрос был и не мне, отвечу: для спецификаций либо собственные инструменты, либо ADT-шные. Пока склоняюсь к своим (возможностей больше, скорость работы как минимум сопоставима; а в компилированном виде так вообще выше скорости "штатных" средств в разы).
Теперь насчет кода: а чего там понимать? Если ты вводишь "\", то в лиспе он отображается как двойной. Но в строку (хоть командную, хоть в реестр, хоть в текстовый файл) слеш будет выводиться нормально - одним символом.
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 12.12.2008, 06:06
#70
DEM

YngIngKllr
 
Регистрация: 29.03.2005
СПб
Сообщений: 12,762


Offtop: Блина если для своего КБ делаете, то уж наверняка все будут знать что програмка сделана с вашей подачи. Че её ныкать то???
__________________
Шаг 12й......
Мои публикации
DEM вне форума  
 
Автор темы   Непрочитано 13.12.2008, 08:33
#71
Red Nova

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


kpblc,
Сколько я не копался с твоим кодом так и не сумел дельно соеденить его с моим.
Покажи пожалуйста как правильно изменить этот код, чтобы в результате в ком строку выходило к примеру не
"4B78676F646B614E4F59434D444B58474F444B415656565646434544"
а
"4B78676F646B614E4F59434D444B58474F444B41565646434544"
Код:
[Выделить все]
(defun C:getactivatecode (/)
(setq usr2 (getstring "Введите данные пользователя "))  
(setq kod2 (apply 'strcat
                 (mapcar 'DecToHex
                         (mapcar '(lambda (x) (boole 6 x 10))
                                 (vl-string->list usr2)
                         ) ;_ end of mapcar
                 ) ;_ end of mapcar
          ) ;_ end of apply
) ;_ end of setq
) ;_ end of defun

;В коде используются функции с #60
Цитата:
для спецификаций либо собственные инструменты, либо ADT-шные
Ну как я понял твои разработки под замком. Может хоть видеоролик с примером работы покажешь или тоже низя?
Как в ADT спеку делать я не знаю, потому как крайне мало работал на нем. Если просвиетишь как это в ADT делать был бы благодарен.
__________________
Блог

Последний раз редактировалось Red Nova, 13.12.2008 в 08:40.
Red Nova вне форума  
 
Непрочитано 13.12.2008, 12:59
#72
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,042


VVA, а нельзя ли в архив засунуть все лиспы и на него пароль поставить, а один лисп для активации архва запускать из автокада.
1. тоесть при запуске лиспа он запрашивает пароль к архиву и из архива работают все лиспы,
2. но из архива к примеру ничего просто не вытащишь только можно считывать
3. Архив работает до поределенной даты или определенного количества запусков
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 13.12.2008, 14:19
#73
VVA

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


Red Nova, Дались тебе эти слэши. Предлагаю вообще от них избавляться:
Код:
[Выделить все]
(defun C:serial (/)
(setq usr (apply 'strcat  (list
			    (VL-STRING-TRIM "\\" (getenv "USERNAME"))
			    (VL-STRING-TRIM "\\" (getenv "COMPUTERNAME"))
			    (VL-STRING-TRIM "\\" (getenv "LOGONSERVER"))
			    )))  
(setq kod (apply 'strcat
                 (mapcar 'DecToHex
                         (mapcar '(lambda (x) (boole 6 x 12))
                                 (vl-string->list usr)
                         ) ;_ end of mapcar
                 ) ;_ end of mapcar
          ) ;_ end of apply
) ;_ end of setq
) ;_ end of defun
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Автор темы   Непрочитано 13.12.2008, 15:18
#74
Red Nova

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


VVA О как. Спасибо.
Еще наверное в конце разверну список функцией reverse для большего эфекта
Жаль только через акад не добраться до мак адреса или до серийного номера HDD.
__________________
Блог
Red Nova вне форума  
 
Непрочитано 13.12.2008, 16:12
#75
Donhuan

Проектировщик СС
 
Регистрация: 24.06.2008
Минск
Сообщений: 134
<phrase 1=


Цитата:
Сообщение от Red Nova Посмотреть сообщение
Жаль только через акад не добраться до мак адреса или до серийного номера HDD.
Посмотри ссылки в #25.
Donhuan вне форума  
 
Непрочитано 13.12.2008, 16:14
#76
Supermax

Руководитель фирмы
 
Регистрация: 28.03.2007
Москва
Сообщений: 1,831
Отправить сообщение для Supermax с помощью Skype™


Цитата:
... Жаль только через акад не добраться до мак адреса или до серийного номера HDD
Ну почему же? Функция Windows API DeviceIoControl
Библиотека kernel32.dll

http://msdn.microsoft.com/en-us/libr...DownFilterText

И вот сюда заглянь. Сообщение №3.
http://forum.sources.ru/index.php?showtopic=84469

Последний раз редактировалось Supermax, 13.12.2008 в 16:21.
Supermax вне форума  
 
Автор темы   Непрочитано 13.12.2008, 19:05
#77
Red Nova

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


Donhuan,
Мда, моя оплошность, я тогда неверно понял, думал что мак адрес вручную нужно вводить, а оказалось что ссылка от VVA была самое то.
Теперь подумаю как это с моим кодом скрестить...
Supermax,
Спасибо, но твои ссылки для меня окозались больно сложными.
__________________
Блог
Red Nova вне форума  
 
Автор темы   Непрочитано 14.12.2008, 12:31
#78
Red Nova

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


А почему вот это не работает?
Код:
[Выделить все]
(VL-STRING-TRIM ":" "00:1B:FC:EA:F6:46")
"00:1B:FC:EA:F6:46"
__________________
Блог
Red Nova вне форума  
 
Непрочитано 14.12.2008, 16:44
#79
Donhuan

Проектировщик СС
 
Регистрация: 24.06.2008
Минск
Сообщений: 134
<phrase 1=


а так
Код:
[Выделить все]
(VL-STRING-TRIM ":" "::::::::00:1B:FC:EA:F6:46:::::::::")
"00:1B:FC:EA:F6:46"
(VL-STRING-TRIM ":46" "::::::::00:1B:FC:EA:F6:46:::::::::")
"00:1B:FC:EA:F"
удаляет указанные символы в начале и конце строки
Donhuan вне форума  
 
Автор темы   Непрочитано 14.12.2008, 20:20
#80
Red Nova

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


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

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

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


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