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

PASS.RAR

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

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

أشكرك يا أخ 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 ديسمبر 200421 سنة بواسطة mohcool