مثال على تشفير الكلمات

[mohcool]

هذا مثال بسيط على تشفير الكلمات وفك تشفيرها معمول على فورمز 9I ويوجد تكست
مع الفايل المرفق موجود فيه (2 PROCEDUER) المستعملات في البرنامج علشان إلي عندو إصدارات أقدم
يا ريت تحكولي إيش رأيكم

PASS.RAR

[Mr_CoBoL]

فكرتك جميلة يا مستر ويمكن استخدامها في اجراء بعض التعديلات على حقول معينة لاستبعاد او تغيير اجزاء فيها مثل .... (فلترة اسماء المرضى في احدي المستشفيات لاستبعاد المسافات الزائدة في اسم المريض )
شكرا جزيلا

[pro_shad]

يا ريت تكتب الموجود في BT_DEC & BT_ENC WHEN-BUTTON-PRESSED
لأنه ما فتح عندي 6i

[mohcool]

أشكرك يا أخ mr_cobol وبالنسبة للتريجر هو كالتالي
BT_DEC
WHEN-BUTTON-PRESSED

declare
MYTXT varchar2(255) ;
begin if :txt2 is null then
	message('أدخل الكلمة المشفرة');
	message('أدخل الكلمة المشفرة');
else 
	:TXT2:=ltrim(rtrim(:TXT2));
		DeCrypt(:TXT2,MYTXT);
:txt_DEC:=MYTXT;
end if;
end;

وبالنسبة BT_ENC
WHEN-BUTTON-PRESSED

declare
	MYTXT varchar2(255);
begin if :txt1 is null then
message('أدخل كلمة السر');
	message('أدخل كلمة السر');
else 
	:TXT1:=ltrim(rtrim(:TXT1));
	Crypt(:txt1,MYTXT);
	:txt_enc:=MYTXT;
end if;
end;

طبعاً تل(Crypt,DeCrypt) هي إجرائات موجوده ف التكست المرفق

تم تعديل 8 ديسمبر 2004 بواسطة mohcool