delphi4arab منتديات دلفي للعرب

الصفحات : 1 2 3

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

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; 

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

[صورة: 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; 

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

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

تفضل دالة العكس و هي ناجحة بنسبة 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;

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

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

لم أفهم...؟

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

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

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

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

الصفحات : 1 2 3

Anter2010

hanipino

Anter2010

TF6M

Anter2010

TF6M

Anter2010

TF6M

Anter2010

TF6M