EasyDelphi Q&A
0 تصويتات
13 مشاهدات

السلام عليكم اريد تشغيل دالة التشفير 3des ; des ;aes  على دالفي

علما انني ىوجدت الدالة في تثبيت هذا العنصرTLockBox 

https://sourceforge.net/p/tplockbox/wiki/Home/

و استعملت الكود الاتي

Function TripleDesEncrypt(const APlaintext, APassphrase: String): String;
Var
  Key128: TKey128;
begin
  GenerateLMDKey(Key128, SizeOf(Key128), APassphrase);
  result  := TripleDESEncryptStringEx(APlainText, Key128, True);
End;

Function TripleDesDecrypt(const ACipherText, APassphrase: String): String;
Var
  Key128: TKey128;
begin
  GenerateLMDKey(Key128, SizeOf(Key128), APassphrase);
  Try
    result := TripleDESEncryptStringEx(ACipherText, Key128, False);
  Except
    Result := '';
  End;
End;

 

سُئل في تصنيف vcl بواسطة (200 نقاط) | 13 مشاهدات
0
لم افهم طلبك . تقول انك تريد تشغيله ثم تقول انك وجدت مكون يقوم بهذا العمل ؟!
لماذا لا تستخدم المكون الذي وجدته ؟

من فضلك سجل دخولك أو قم بتسجيل حساب للإجابة على هذا السؤال

اسئلة متعلقة

0 تصويتات
1 إجابة
سُئل أغسطس 9 في تصنيف vcl بواسطة عابد قدور جبار (200 نقاط) | 22 مشاهدات
0 تصويتات
1 إجابة
سُئل يوليو 10 في تصنيف vcl بواسطة Amar Gozim (11,030 نقاط) | 36 مشاهدات
0 تصويتات
2 إجابة
0 تصويتات
0 إجابة
سُئل مايو 12 في تصنيف vcl بواسطة hidenpain (1,220 نقاط) | 22 مشاهدات
0 تصويتات
2 إجابة
ادعُ اصدقائك في الفايسبوك لمشاركتك
Comodo SSL

مرحبًا بك إلى EasyDelphi Q&A، حيث يمكنك طرح الأسئلة والحصول على الإجابة عليها من المستخدمين الآخرين.

لا يسمح بطلب او السؤال عن كراك او تفعيل او كسر او فك او اي شيء يخالف اتفاقيات الترخيص  مهما كان السبب ومهما كان البرنامج ونوعه. ولا حتى نشر روابط تحتوي على مثل هذه الاشياء لا في الاسئلة ولا في الاجابات ولا التعليقات . نهائيا

441 سؤال
675 إجابة
1,216 تعليق
258 مستخدم