Passar função de DELPHI para ASP

Falae Galera,

Estou com uma pequena função de criptografia em delphi e preciso passá-la para asp, será que poderiam me ajudar????

A função é a seguinte:

function fSenha(Senha);var xx : integer;Aux: String;beginAux := '';for xx := 1 to Length(Senha) doAux := Aux + Chr(Ord(Senha[xx]) - xx - 17);Result := Aux;end;

Fico agradecido desde já!!!

Abraços,