Показать сообщение отдельно
  #35  
Старый 12.12.2009, 12:02
Йогурт Йогурт вне форума
Начинающий
 
Регистрация: 20.11.2009
Сообщения: 109
Репутация: 5
По умолчанию

Асинкрит, огромное тебе спасибо за помощь! Только вот с кодированием не совсем разобрался, где его применять? На форме авторизации в var-е написать

function Code(const Str:String):String;
function UnCode(const Str:String):String;
На кнопку войти их вызываю?

Далее

На форме где изменяем пороль пишем
Код:
  function Code(const str:String):String;
  var
    b:byte;  
  begin
  result:=str;
  if Length(str)>0 then
    for b:=1 to Length(str) do
      Result[b]:=Chr(Ord(str[b])+(b mod 10));
  end;

Кстати, на Result ругается!

Далее декодирование используем на кнопку войти в авторизации?
Код:
 function UnCode(const str:String):String;
  var
    b:byte;  
  begin
  result:=str;
  if Length(str)>0 then
    for b:=1 to Length(str) do
      Result[b]:=Chr(Ord(str[b])-(b mod 10));
  end;
Admin: Теги и еще раз теги! При рецедиве последует бан.
Ответить с цитированием