function Cript(StrValue : String; Chave: Word) : String;
var
I : Integer;
OutValue : String;
begin
OutValue := '';
for I := 1 to Length(StrValue) do
OutValue := OutValue + char( not(ord(StrValue[I])-Chave) );
Result := OutValue;
end;
Exemplo: Cript(senha,236)