function Decript_Senha(S: String): String;
var i : Integer;
begin
  Delete(S, 1, 1);
  for i := 1 to Length(S) do
  begin
    S[i] := Chr(Ord(S[i]) - 5);
  end;
  Result := S;
end;

if copy(Senha_Cript, 1, 1) <> 'ç' then
  Senha_Decript := Senha_Cript
else
  Senha_Decript := Decript_Senha(Senha_Cript);