Password Style in delphi

[delphi4ever]

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



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

[merouane]

السلام عليكم

مشكوووور 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;

تحياتي

[delphi555]

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

[merouane]

السلام عليكم

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

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

كود :

[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]));

تحياتي

[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#