Защита программы

[i_Alishka]

в такой проверке можно самому запутаться)))

[robt]

Сообщение от милт

Если я правильно тебя понял и тебе надо осуществить то что делал я в своей программе. то есть сделать так что программа запустится на компе только если ты сам не будешь против этого. тогда можно сделать так.
Пусть программа проверяет серийный номер жесткого диска. потом переводит те буквы которые там есть в цифры. Например номер диска такой "c88df554a"(я так понял что буквы в серийнике диска не превышают буквы "I" английского алфавита.) сделать так:
str:=Номер диска;
for a:=1 to 8 do begin
if copy(str,a,1)='A'then nk:=nk+'1';
if copy(str,a,1)='B'then nk:=nk+'2';
if copy(str,a,1)='C'then nk:=nk+'3';
if copy(str,a,1)='D'then nk:=nk+'4';
if copy(str,a,1)='E'then nk:=nk+'5';
if copy(str,a,1)='F'then nk:=nk+'6';
if copy(str,a,1)='G'then nk:=nk+'7';
if copy(str,a,1)='H'then nk:=nk+'8';
if copy(str,a,1)='I'then nk:=nk+'9';
if copy(str,a,1)='1'then nk:=nk+'1';
if copy(str,a,1)='1'then nk:=nk+'2';
if copy(str,a,1)='3'then nk:=nk+'3';
if copy(str,a,1)='4'then nk:=nk+'4';
if copy(str,a,1)='5'then nk:=nk+'5';
if copy(str,a,1)='6'then nk:=nk+'6';
if copy(str,a,1)='7'then nk:=nk+'7';
if copy(str,a,1)='8'then nk:=nk+'8';
if copy(str,a,1)='9'then nk:=nk+'9';
end;
nk это строковая переменная которая будут хранить переделанный в сплошные цифры, номер диска(в данном случае 38846551). Потом сделать например так
nk:= inttostr(strtoint(nk)*7); теперь строковая переменная nk содержит код который будет требоваться ввести(в данном случае 271925857). теперь if nk=edit1.text then "доступ разрешён":=true; Хотя если надо, можно создать более запутанный алгоритм.
А так же можно скачать программу для навесной защиты программы от переделывания, называется DotFix NiceProtect

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

[i_Alishka]

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

[Пепел Феникса]

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

эмм формат?
вы имеете в виду расширение?
дык расширение это часть имени файла, и не более.

[i_Alishka]

Сообщение от Пепел Феникса

эмм формат?
вы имеете в виду расширение?
дык расширение это часть имени файла, и не более.

но ты же его просто так не откроешь

[Пепел Феникса]

файл со смененным расширением?
легко открою.

[i_Alishka]

что будешь вручную менять на все известные расширения пока не откроется?

[Человек_Борща]

i_Alishka, есть всего несколько расширений которые поддерживает система для запуска, так что вариантов не так уж и много. Да и то, если файл кодирован, а если нет, то что мешает открыть файл WinHex'ом и считать шапку файла? В шапке все данные: что это за файл. какой тип запуска, флаги и т.д. и т.п.

Да и что мешает узнать как вы его запускаете, и запускать так же как вы?

[i_Alishka]

да.... я сдаюсь...(((

[robt]

про расширение - жесть,какие тебе нафиг после этого кассовые принтеры...