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

[mohfa]

السلام عليكم .
محاولة .
الدالة غير فعالة مع الدالفى 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; 


هل تعلم لمادا ؟

لانه في الدلفي 2009 String اصبحت WideString .

لهدا إدا اردت ان تستعمل ال String التي هي AnsiString فيجب ان تعرفها كا AnsiString

يعني :
Var
S:AnsiString

وإلاسوف يحسبها ال Compiler على انها WString

محمد