Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.07.11;
Скачать: 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 вся ветка

Текущий архив: 2005.07.11;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.043 c
1-1118670679
zorik
2005-06-13 17:51
2005.07.11
Excel


3-1117522893
galexis
2005-05-31 11:01
2005.07.11
Ошибка "Разрушительный сбой"


14-1118008114
KilkennyCat
2005-06-06 01:48
2005.07.11
Может, напрасно сайт съехал с валуехоста?


14-1118599120
cyborg
2005-06-12 21:58
2005.07.11
Удалённый доступ к файлам в виндовс ХР


5-1089734822
boband
2004-07-13 20:07
2005.07.11
Формула прозрачности





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский