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

[hanipino]

التعديلات فى الدالفى 2009 .

PHP كود :

function Encrypt(s:AnsiString):AnsiString;
var i,b:byte;
var aux,aux2:AnsiString;
begin
     aux2:='r#gg&P~<gthb8b=r#gg&P~<gthb8b=';
     aux:=s;
     for i:=1 to length(s)do
     begin
       b:=ord(s[i])+ord(aux2[i])+(length(s)*23)+(i*49);
       aux[i]:= AnsiChar(chr(b));
     end;
     Encrypt:=aux;
end; 


PHP كود :

Function Dcyt(S:AnsiString):AnsiString;
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+AnsiChar(Chr(Ord(S[I])-(Ord(Aux2[i])+Length(S)*23+(I*49))));
end; 


الكلمة byby ??????? .