+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : توضيح خوارزمية الاكسور xor (/showthread.php?tid=5106)
الصفحات:
1
2
توضيح خوارزمية الاكسور xor - richawi - 04-04-2013
السلام عليكم
ما هو كود الدلفي لعملية Xor اي ترجمة لى لغة الدلفى
خوارزمية الاكسور XOR ولاجرائها اد كان لدينا 2 Bits المتطابقين مختلفين 1 و 0 , النتيجة ستكون واحد 1
4B XOR 69 = XX
4B = 01001011
01101001 =69
22 = 00100010
لكي احصل على هده النتيجة
4B XOR 69 = 22
ودالك باستعمال edit3.text = edit1.tex? edit2.text
توضيح خوارزمية الاكسور xor - ALmuhhnad - 04-04-2013
السلام عليكم
تفضل :
PHP كود :
function sHexToInt(Hex : String): Integer;
begin
Result := StrToInt(Format('$%S',[Hex]))
end;
procedure TForm1.Button1Click(Sender: TObject);
var
num1,num2,num3 : Integer;
begin
num1 := sHexToInt(Edit1.Text);
num2 := sHexToInt(Edit2.Text);
asm
MOV eax,num1
XOR eax,num2
MOV num3,eax
end;
Edit3.Text := IntToHex(num3,0)
end;
السروس كود بالمرفقات
توضيح خوارزمية الاكسور xor - SMP3 - 04-04-2013
يمكنك استخدام المعامل XOR بشكل عادي
PHP كود :
N1:= StrToInt(Edit1.Text);
N2:= StrToInt(Edit2.Text);
NXor:= N1 XOR N2;
توضيح خوارزمية الاكسور xor - richawi - 07-04-2013
almuhhnad كتب :السروس كود بالمرفقاتاخي عندما اعطيه رقم طويل لا يحوله متل 16 رقم و حرف
توضيح خوارزمية الاكسور xor - ALmuhhnad - 07-04-2013
السلام عليكم ورحمة الله وبركاتة
إقتباس :اخي عندما اعطيه رقم طويل لا يحوله متل 16 رقم و حرفنعم , وذلك يرجع لان القيمة التي ادخلتها اكبر من نوع الـ integer
ولتعامل مع قيم كبيرة نظع المتغير int64 بدلاً من integer
وهذا هو الكود :
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
var
num1,num2,num3 : Int64;
begin
num1 := StrToInt64(Edit1.Text);
num2 := StrToInt64(Edit2.Text);
num3 := num1 xor num2;
Edit3.Text := IntToHex(num3,0)
end;
وهذا نفس الكود لكن بسطر واحد
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit3.Text := IntToHex(StrToInt64(Edit1.Text) xor StrToInt64(Edit2.Text),0)
end;
والسلام عليكم
توضيح خوارزمية الاكسور xor - salah07230 - 07-11-2013
اخي الكريم هذا الكود لم يعمل معي يعمل مع الاعداد فقط ولا يتعامل مع الحروف ممكن تعديل عليه
وبارك الله فيك
توضيح خوارزمية الاكسور xor - SMP3 - 07-11-2013
salah07230 كتب :يجب تحويل الحروف الى بايتات ثم اجراء عملية ال xor :الكود لم يعمل معي يعمل مع الاعداد فقطولا يتعامل مع الحروف ممكن تعديل عليه
PHP كود :
function XorStr(A, B: string): string;
var
LA, LB, i, j: integer;
cAB, cBB, cR: Byte;
begin
LA := length(A);
LB := length(B);
Result:='';
if (LA > 0) and (LB > 0) and (LA = LB) then
begin
SetLength(Result, LA);
for i := 1 to LA do
begin
cAB := Ord(A[i]);
cBB := Ord(B[i]);
cR := cAB xor cBB;
if cR <> 0 then
Result[i] := char(cR);
end;
end;
end;
procedure TForm3.Button1Click(Sender: TObject);
begin
Caption := XorStr('Delphi', 'CSharp');
end;
توضيح خوارزمية الاكسور xor - salah07230 - 08-11-2013
السلام عليكم
اخي الكريم شكرا لك على ردك
ولكني لم استطع تطبيق الدالة ممكن التعديل على المرفق
توضيح خوارزمية الاكسور xor - SMP3 - 08-11-2013
المشكلة أنك تملك قيم بالهكس أخي في ال Edit
و أنت استخدمت strtoint64 لتحويل القيمة النصية الى عدد ..
لكن لم تحدد ان كان العدد هكس
PHP كود :
num1 := strtoint64(Edit1.text);
num2 := strtoint64(Edit2.text);
الأصح أن تكتب :
PHP كود :
num1 := strtoint64('$'+Edit1.text);
num2 := strtoint64('$'+Edit2.text);
توضيح خوارزمية الاكسور xor - salah07230 - 08-11-2013
بارك الله فيك وجزاك خيرا
النتيجة كما يلي:
21BC350E xor 07 = 26BB3209