Скачать: CL | DM;

Хотел сделать защиту.   Найти похожие ветки 

← →
Galiaf   (2005-06-11 20:45) [0]

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

 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 в коде для того что бы видеть что делает прога, но это мне не сильно помогло :(. Я планировал что бы прога делала запись в реестре когда читает начальный код, но пока это бесполезно делать из-за ошибки.

---

← →
Anatoly Podgoretsky ©   (2005-06-11 20:59) [1]

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

---

← →
Galiaf   (2005-06-11 21:06) [2]

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

---

← →
Kolan ©   (2005-06-11 21:37) [3]

> Galiaf   (11.06.05 21:06) [2]

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

---

← →
Anatoly Podgoretsky ©   (2005-06-11 21:39) [4]

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

---

← →
_Lucky_   (2005-06-11 21:42) [5]

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

---

← →
Defunct ©   (2005-06-11 21:57) [6]

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

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

---

← →
Anatoly Podgoretsky ©   (2005-06-11 22:05) [7]

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

---

← →
-=XP=- ©   (2005-06-11 23:57) [8]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.032 c