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

السلام عليكم ورحمة الله.
من أجل إنجاز مربع خاص بكلمة المرور Password في دلفي عن طريق المكون Tedit طبعا وكما هو موضح في الصورة نقوم بما يلي:

1- نضع مكون Tedit من الزاوية Standard .
2- نذهب إلى الخاصية Font ثم Name أي إسم الخط المستعمل ونضع أحد الخطوط التالية:
Arial , Tahoma, Verdana من أجل أن يظهر نص كلمة المرور على شكل دوائر.
3- نذهب إلى الخاصية PasswordChar الخاصة بالمكون Tedit دائما ومكان 0# نضع 149# وهذا أيضا من أجل أن يظهر نص كلمة المرور على شكل دوائر.
وفي الأخير نكون قد حصلنا على مبتغانا. Big Grin

السلام عليكم

مشكوووور delphi4ever

أضيف لمن أراد أن يطلع على مثال للتشفير طالع المشاركة التالية:

http://www.delphi4arab.net/forum/showthread.php?tid=58

كود :
var
    s: string[255];
    c: array[0..255] of Byte absolute s;
    i: Integer;
begin
    { Crypte le text / تشفير النص }
        s := Edit1.Text;
        for i := 1 to ord(s[0]) do c[i] := 23 xor c[i];
        LabCrype.Caption := s;
    { Décrypte le text / فك تشفير النص  }
        s := LabCrype.Caption;
        for i := 1 to Length(s) do s[i] := Char(23 xor ord(s[i]));
        LabDecrype.Caption := s;
end;

تحياتي

السلام عليكم
كنت ابحث عن هدا الشرح مند مدة
والحمد لله وجدته بفضلكم
ننتظر كل مفيد منكم اخواني

السلام عليكم

ملاحظة: لا يستخدم المثال اعلاه للتشفير، و إنما هو مثال

لابد من التعديل عليه أو استعمال طرق أخرى

كود :
[align=right]لاحظوا الرقم 23 [/align]
c[i] := 23 xor c[i];

وهنا أيضا 
 s[i] := Char(23 xor ord(s[i]));

------------------------------------------------------------------------------------------

[align=right]تغييربسيط[/align]
التشفير
c[i] := (27*Length(s)) xor c[i];

فك التشفير
 s[i] := Char((27*Length(s)) xor ord(s[i]));

تحياتي

في كود التشفير أعلاه تظهر الرسالة
Erreur

type incompatibles AnsiChar et char

إقتباس : for i := 1 to Length(s) do s[i] := Char(23 xor ord(s[i]));

شكرا

أنت تستخدم نسخة دلفي حديثة
قم بتحويل AnsiChar.. استخدم البحث.

شكرا..استخدم نسخة 2009

نقطة أخرى كذالك مشكل مع :

إقتباس :- نذهب إلى الخاصية passwordchar الخاصة بالمكون tedit دائما ومكان 0# نضع 149# وهذا أيضا من أجل أن يظهر نص كلمة المرور على شكل دوائر.

لا تقبل 149#

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

delphi4ever

merouane

delphi555

merouane

Happy03

kachwahed

Happy03