+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يتم حل معادلة تشفير كلمة السر (/showthread.php?tid=546)
كيف يتم حل معادلة تشفير كلمة السر - Anter2010 - 06-02-2009
السلام عليكم
كيف يتم حل المعادلة
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 - 09-02-2009
السلام عليكم .
محاولة .
الدالة غير فعالة مع الدالفى 2009 + غير صحيحة 100 بال 100 .
![[صورة: sanstitredo1.jpg]](http://img516.imageshack.us/img516/583/sanstitredo1.jpg)
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 - 09-02-2009
السلام عليكم يا اخي hanipino تشكر علي المحاولة الله يبارك فيك ويجازيك علي كل حرف كتبت
كيف يتم حل معادلة تشفير كلمة السر - TF6M - 09-02-2009
أخي الفاضل حل هده المشكلة كمعادلة رياضية ؟؟ فهي جد سهلة
تفضل دالة العكس و هي ناجحة بنسبة 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 - 09-02-2009
السلام عليكم يا اخي tf6 انظر الملف المرفق Commerce.ini
كيف يتم حل معادلة تشفير كلمة السر - TF6M - 09-02-2009
Anter2010 كتب :السلام عليكم يا اخي tf6 انظر الملف المرفق Commerce.ini
لم أفهم...؟
كيف يتم حل معادلة تشفير كلمة السر - Anter2010 - 09-02-2009
قم بتحميل الملف المرفق و انظر الى الملف commerce.ini
تجد كلمة المرور انا **** كيفية Encrypt
كيف يتم حل معادلة تشفير كلمة السر - TF6M - 09-02-2009
لم أجد هدا الملف ؟؟؟؟؟؟؟
كيف يتم حل معادلة تشفير كلمة السر - Anter2010 - 09-02-2009
لملف المرفق فيه la source
كيف يتم حل معادلة تشفير كلمة السر - TF6M - 09-02-2009
يمكن تجاوزها بكل بساطة ..؟