Асинкрит, огромное тебе спасибо за помощь! Только вот с кодированием не совсем разобрался, где его применять? На форме авторизации в 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: Теги и еще раз теги! При рецедиве последует бан.