Шифратор в ASCII

[Ko$]

Как сделать чтобы логин и пароль шифровались в ASCII
Вот код формы входа:

procedure TForm3.sBitBtn1Click(Sender: TObject);
var dir,log,pas:string;
a,i:Integer;
dos:Boolean;

begin


dos:=False;
getdir(0,dir);
dir:=dir+'\pass.txt';
Memo1.Lines.LoadFromFile(dir);
a:=Memo1.Lines.Count; //Считаем кол-во строк
for i:=0 to a-1 do
begin
  log:=Copy(Memo1.Lines[i],0,Pos(':',Memo1.Lines[i])-1);// копируем из мемо от нулевой позиции до :
  pas:=Copy(Memo1.Lines[i],Pos(':',Memo1.Lines[i])+1, Length(Memo1.Lines[i]));// копируем из мемо подстроку : после : и до конца
  if (Edit1.text=log) and (Edit2.text=pas) then  //записываем логин,пароль в Editы
  dos:=True;          //разрешаем доступ админу
  Form1.sSpeedButton4.Enabled:=true;  // делаем кнопку смены пароля активной
  end;
if (Edit1.text='Student') and (Edit2.text='pass')  then  // записываем логин,пароль в Editы "Студент"
begin
dos:=True;    // разрешаем доступ студенту
Form1.sSpeedButton4.Enabled:=false;   // делаем кнопку смены пароля НЕактивной
end;
  begin
  if dos then     // если произведён вход то
  begin
  tmr1.Enabled:=true;  //по истечении таймера форма3 закроется
  Form1.Show;          //откроется Форма1
  end
  else
  Form4.Show;           // в противном случае выдаст ошибку
end;
end;
end.

А вот код смены логина пароля:

procedure TForm6.sBitBtn1Click(Sender: TObject);
var f:TextFile;
begin
 AssignFile(f,'pass.txt');
 Rewrite(f);
 WriteLn(f,sEdit1.Text+':'+sEdit2.Text);
 CloseFile(f);
end;
end.

Заранее благодарен!