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

[Anter2010]

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

PHP كود :

function Encrypt(s:string):string; // معادلة تشفير كلمة السر
var i,b:byte;
var aux,aux2:string;

begin
     aux2:='r#g'+'g&P'+'~<g'+'th'+'b8b=';
     aux2:=aux2+aux2;
     aux:=s;
     for i:=1 to length(s)do
     begin
          b:=ord(s[i])+ord(aux2[i])+(length(s)*23)+(i*49);
          aux[i]:= chr(b);
     end;
     Encrypt:=aux;
end; 


[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; 


[Anter2010]

السلام عليكم يا اخي hanipino تشكر علي المحاولة الله يبارك فيك ويجازيك علي كل حرف كتبت

[TF6M]

أخي الفاضل حل هده المشكلة كمعادلة رياضية ؟؟ فهي جد سهلة

تفضل دالة العكس و هي ناجحة بنسبة 100/100 :

هده دالتك أعد تسميتها الى فقط :

كود :

function crypt(s:string):string; // معادلة تشفير كلمة السر var i,b:byte; var aux,aux2:string; begin aux2:='r#g'+'g&P'+'~<g'+'th'+'b8b='; aux2:=aux2+aux2; aux:=s; for i:=1 to length(s)do begin b:=ord(s[i])+ord(aux2[i])+(length(s)*23)+(i*49); aux[i]:= chr(b); end; crypt:=aux; end;

و عكسها :

كود :

Function Encrypt(S:String):String; Const S2 = 'r#gg&P~<gthb8b=r#gg&P~<gthb8b='; Var I,X : Byte; Begin For I:=1 To Length(S) Do Begin X:=ord(S[I])-ord(S2[I])-(length(S)*23)-(I*49); S[I]:= chr(X); End; Result:=S; end;

[Anter2010]

السلام عليكم يا اخي tf6 انظر الملف المرفق Commerce.ini

[TF6M]

السلام عليكم يا اخي tf6 انظر الملف المرفق Commerce.ini

لم أفهم...؟

[Anter2010]

قم بتحميل الملف المرفق و انظر الى الملف commerce.ini
تجد كلمة المرور انا **** كيفية Encrypt

[TF6M]

لم أجد هدا الملف ؟؟؟؟؟؟؟

[Anter2010]

لملف المرفق فيه la source

[TF6M]

يمكن تجاوزها بكل بساطة ..؟