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

Red Nova · 26.11.2008, 16:55

Есть ли возможность простым методом сделать из совокупности лисп кодов и меню программу хоть по минимуму защищенную от взлома? Так чтобы поставил программу на конкретный компьютер вписал активационный ключ, который неким образом связан скажем с mac адресом конкретного компьютера. Затем программа устанавливается на компьютер, но так чтобы нельзя было просто скопировать ее на другой компьютер и прописать в автозагрузку Автокада.

Red Nova · 10.12.2008, 09:25

Спасибо, а можно как то учесть особенность знака "/", чтобы его количество не удваивалось?

VVA · 10.12.2008, 10:02

Red Nova, Не дури себе голову, это особенность лиспа

Red Nova · 10.12.2008, 10:26

Придется вручную дублеж выкавыривать.

Кулик Алексей aka kpblc · 10.12.2008, 22:18

Цитата:

Сообщение от Red Nova

Придется вручную дублеж выкавыривать.

На фига, простите?

Red Nova · 10.12.2008, 22:43

Когда командой getactivatecode из данных юзера компилируется активационный код, то введя к примеру
"borisDESIGNKAREN\\\\LION"
На выходе я получае код, в котором символов соответствующих знаку "\" вдвое больше чем нужно. Вот и выкавыриваю лишнее, раз лиспом это не исправить.

DEM · 10.12.2008, 22:55

Red Nova
Знаешь получается следующее, программа на рупь, защита на 2 рубля.
Если честно то на форуме достаточно открытых кодов, нежели твои программы, если уж человек соображает как работает код то уж найти отмычку к нему сможет без условно.
Защита будет на теток грубо говоря, ну и полных нулей в лиспе.

Кулик Алексей aka kpblc · 10.12.2008, 23:00

Так проверь, например, такое:

Код:

[Выделить все]

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

Red Nova · 11.12.2008, 08:52

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

Цитата:

Знаешь получается следующее, программа на рупь...

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

kpblc,
Спасибо, но я пока не понял как правильно этим пользоваться.

Кулик Алексей aka kpblc · 12.12.2008, 00:15

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

DEM · 12.12.2008, 06:06

Offtop: Блина если для своего КБ делаете, то уж наверняка все будут знать что програмка сделана с вашей подачи. Че её ныкать то???

Red Nova · 13.12.2008, 08:33

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 делать был бы благодарен.

dextron3 · 13.12.2008, 12:59

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

VVA · 13.12.2008, 14:19

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

Red Nova · 13.12.2008, 15:18

VVA О как. Спасибо.
Еще наверное в конце разверну список функцией reverse для большего эфекта

Жаль только через акад не добраться до мак адреса или до серийного номера HDD.

Donhuan · 13.12.2008, 16:12

Цитата:

Сообщение от Red Nova

Жаль только через акад не добраться до мак адреса или до серийного номера HDD.

Посмотри ссылки в #25.

Supermax · 13.12.2008, 16:14

Цитата:

... Жаль только через акад не добраться до мак адреса или до серийного номера HDD

Ну почему же? Функция Windows API DeviceIoControl
Библиотека kernel32.dll

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

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

Red Nova · 13.12.2008, 19:05

Donhuan,
Мда, моя оплошность, я тогда неверно понял, думал что мак адрес вручную нужно вводить, а оказалось что ссылка от VVA была самое то.
Теперь подумаю как это с моим кодом скрестить...
Supermax,
Спасибо, но твои ссылки для меня окозались больно сложными.

Red Nova · 14.12.2008, 12:31

А почему вот это не работает?

Код:

[Выделить все]

(VL-STRING-TRIM ":" "00:1B:FC:EA:F6:46")
"00:1B:FC:EA:F6:46"

Donhuan · 14.12.2008, 16:44

а так

Код:

[Выделить все]

(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"

удаляет указанные символы в начале и конце строки

Red Nova · 14.12.2008, 20:20

А какой функцией удалить все знаки :?

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Вопросы по работе системы 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

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

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

	Реклама i