Если так, то вот пример:
Ограничение пароля до 8ми символов.
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
pas,rez:string;
i,n:integer;
begin
rez:='je5gDfwL'; //Задаем начальное значение,длина должна быть равна n (см.ниже)
pas:=edit1.Text; //получаем пароль
n:=8; // ограничиваем длину "рабочей" части пароля
if length(pas)<n then n:=length(pas);
for i:=1 to n do
begin
rez[i]:=pas[i]; //записываем пароль в результат
end;
edit2.Text:=rez; //не обязательно, просто для проверки результата
end;
lmikle: Сделал красиво, а где теги кода???
А дальше нужно решить какой будет сам шифр.