كيف يتم حل معادلة تشفير كلمة السر

[hanipino]

السلام عليكم .
محاولة .
الدالة غير فعالة مع الدالفى 2009 + غير صحيحة 100 بال 100 .

PHP كود :

Function Dcyt(S:String):String;
Const Aux2 = 'r#gg&P~<gthb8b=r#gg&P~<gthb8b=';
var
 I:Longword;
begin
  for I := Low(I)+1 To Length(S)  do
  Result:=Result+Chr(Ord(S[I])-(Ord(Aux2[i])+Length(S)*23+(I*49)));
end;