| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Хотел сделать защиту. [WinXP]

Galiaf ©   (2005-06-11 20:45:00) 

Доброго вам времени суток. Я хотел защитить прогу от распростронения и натолкнулся на ошибку. Опишу что должен был делать этот кусок кода

 showmessage('Начинаем');
 if fileexists('KeyFile.key') then
   begin
     showmessage('Нашли файл');
     KeyFile:=tfilestream.Create('KeyFile.key',fmopenread);
     KeyFile.Read(Key,19);
     showmessage('прочитали ключ');
     if (key=4135148798765463123) or (key=4135148598765463123) then
begin
     showmessage('узнали ключ, он либо начальный либо изменённый');
       if key=4135148798765463123 then
         {begin
             showmessage('он начальный, переписываем');
             key:=4135148598765463123;
             KeyFile.Write(key,19);
             showmessage('переписали')
         end}
       else
         showmessage('он изменённый')
end
     else
       showmessage('ключ явно не тот');

   end
 else
   showmessage('не нашол файл');
 keyfile.free;

В начале он проверяет есть ли файл вообще. Если есть то проверяет инфу в файле если номер начальный т.е. прогу ещё не запускали, то переписывает файл и он становится изменённым, если номер изменённый то всё в шоколаде. Вот в этом коде возникает странная ошибка, я не могу понять в чём дело, Showmessage в коде для того что бы видеть что делает прога, но это мне не сильно помогло :(. Я планировал что бы прога делала запись в реестре когда читает начальный код, но пока это бесполезно делать из-за ошибки.

---

-=XP=-   (2005-06-11 23:57:00) [1]

Судя по обилию ShowMessage, автор не знает, что такое трассировка. Ждать от такого точного места возникновения ошибки бесполезно.

---

Anatoly Podgoretsky   (2005-06-11 22:05:00) [2]

Слов не хватает.

---

Defunct   (2005-06-11 21:57:00) [3]

> Вот в этом коде возникает странная ошибка

Как проявляется "странная" ошибка сказать можешь?

---

_Lucky_   (2005-06-11 21:42:00) [4]

А как тогда ты понял в чем ошибка?
И какого типа если не секрет key?

---

Anatoly Podgoretsky   (2005-06-11 21:39:00) [5]

Так он не знает, он только предполагает, что у него ошибка, но молчит.

---

Kolan   (2005-06-11 21:37:00) [6]

> Galiaf   (11.06.05 21:06) [2]

Текст ошибки... И точное её место...

---

Galiaf   (2005-06-11 21:06:00) [7]

Я сам не понял что за ошибка

---

Anatoly Podgoretsky   (2005-06-11 20:59:00) [8]

Все хорошо, много, очень много слов и не оюного про ошибку.

---

Наверх