11-02-2009, 10:51 AM
التعديلات فى الدالفى 2009 .
الكلمة byby ??????? .
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 ??????? .