Password Style in delphi

[delphi4ever]

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

http://img215.imageshack.us/img215/9935/passdu2.jpg (http://imageshack.us)

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

[merouane]

السلام عليكم

مشكوووور delphi4ever

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

http://www.delphi4arab.com/forum/showthread.php?t=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;

تحياتي :)

[delphi555]

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

[merouane]

السلام عليكم

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

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

لاحظوا الرقم 23
c[i] := 23 xor c[i];

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

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

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

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


تحياتي :)

[Happy03]

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

type incompatibles AnsiChar et char

for i := 1 to Length(s) do s[i] := Char(23 xor ord(s[i]));

شكرا

[kachwahed]

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

[Happy03]

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

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

لا تقبل 149#