th(paramstr(0))+laquo;psw.hrrraquo;);(f);(f,ss);(f);:=laquo;raquo;;i :=1 to length (ss) do [i]:=Chr (key xor Ord (ss [i]));:=psw1 + ss [i] ;;
if pswst lt; gt; psw1 then MessageDlg ( пароль неправильні !!! raquo ;,
mtWarning, [mbOK], 0) if s lt; gt; pswnv then MessageDlg ( Паролі не співпадають !!! raquo ;,
mtWarning, [mbOK], 0) begin:= raquo ;; i:=1 to length (s) do [i]:=Chr (Ord (s [i]) xor key);:=ss+s[i];;(f,ExtractFilePath(paramstr(0))+laquo;psw.hrrraquo;);(f);(f,ss);(f);(laquo;ПАРОЛЬ ЗМІНЕНО , mtInformation, [mbOK], 0) ;. Text:= raquo ;;. Text:= raquo ;;. Text:= raquo ;;. Close ;;;
.
