VPF::защита проги! глюки с переводом!

h2o

Дата 20.3.2006, 10:46 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 199
Регистрация: 19.8.2005

Репутация: 1
Всего: 1

решил я разработать примитивную защиту!
Описалово:
edit1 - имя юзера
edit2 - его организация

Код


function SuperPuperZashita : String;
var UNi,Oi :integer; 
      Uz,Oz: Integer;
      i: integer;
begin

 edit1.text:='User';
 edit2.text:='Organisation';

 Uni:=lenght(edit1.text)
 For i:=1 to  Uni.Count do Uz:=Uz+Ord(edit1.text); 
 // а тут нужно с 0 или с 1 начинать счёт и заканчивать count или count-1

 Oi:=lenght(edit2.text)
 For i:=1 to  Oi.Count do Oz:=Oz+Ord(edit2.text); 

 result:= IntToHex((Uz),2)+'-'+IntToHex((Oz),2);

end;

procedure Button.Click;
begin
 edit3.text:=SuperPuperZashita ;
end;

может где я в написании и ошибся, кода под рукой нет, но смысл этот

Дак вот, глюк в том, что result всегда разный, точнее меняется его вторая часть после "-", тоесть значение IntToHex((Oz),2), причём после нескольких последовательных нажатий на кнопку, тоесть после нескольких выполнений процедуры, код поменявшись несколько раз стабилизируется и становится постоянным??? чё за лажа???

А если еще и по отдельности в edit3 вывести result:= IntToHex((Uz),2) или result:= IntToHex((Oz),2), то
числа там получаются совсем разные??? А должны быть одинаковыми...
Тоесть если в процедуре постаивить result:= IntToHex((Uz),2) , то в edit3 будет "0F542", к примеру, а вот если процедуре постаивить result:= IntToHex((Uz),2)+'-'+IntToHex((Oz),2);, то по идее в edit3 должно быть "0F542-3А834" к примеру (тоесть 1е число в двух случаях равны), а нифига! получаются разные!!! но я же с ними ничё не делал????

Кто хоть делал подобное??? помогите!!! smile

--------------------

Я нифига не знаю! мало что понимаю! Помогите тупому... У меня стоит D7!

Guedda

Дата 20.3.2006, 11:12 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

Вот код. У меня ничего не изменяется... Все идет путем.:

Код


function TForm1.SuperPuperZashita : String;
var UNi,Oi :integer;
      Uz,Oz: Integer;    
      i: integer;    
begin
 edit1.text:='User';
 edit2.text:='Organisation';
 Uni:=length(edit1.text);
 For i:=1 to  Uni do Uz:=Uz+Ord(edit1.text[i]);
 // а тут нужно с 0 или с 1 начинать счёт и заканчивать count или count-1
 Oi:=length(edit2.text);
 For i:=1 to  Oi do Oz:=Oz+Ord(edit2.text[i]);
 result:= IntToHex((Uz),2)+'-'+IntToHex((Oz),2);
end;
procedure TForm1.Button1Click(Sender : TObject);
begin
 edit3.text:=SuperPuperZashita ;
end;

--------------------

Ll 2

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »