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

السلام عليكم اريد تشغيل دالة التشفير 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 نقاط) | 63 مشاهدات
0
لم افهم طلبك . تقول انك تريد تشغيله ثم تقول انك وجدت مكون يقوم بهذا العمل ؟!
لماذا لا تستخدم المكون الذي وجدته ؟
0
وجدته المكون في النت و هو مصنوع من طرف احدهم  لكن كيف يعمل لا اعرف

1 إجابة واحدة

+1 تصويت

وعليكم السلام ورحمة الله وبركاته

اولا اختزلت لك الكود

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

 

عند التشفير ضع true وفك التشفير ضع false

التشفير مبدئيا يعمل جيدا لكن المفروض الناتج يكون base64 لان اعادة فك التشفير تعطي الخطا التالي

 

invalid base64 character

فتحقق من الخوارزمية ربما هناك كود للتشفير بال base64 محذوف

تفضل هذا الكتاب يشرح المكتبة بشكل مفصل ممكن يفيدك

https://up.top4top.net/downloadf-1430fyubc1-rar.html

تم الرد عليه بواسطة (2,800 نقاط)

اسئلة متعلقة

0 تصويتات
1 إجابة
سُئل أغسطس 9، 2019 في تصنيف vcl بواسطة عابد قدور جبار (200 نقاط) | 46 مشاهدات
0 تصويتات
1 إجابة
سُئل يوليو 10، 2019 في تصنيف vcl بواسطة Amar Gozim (11,210 نقاط) | 72 مشاهدات
0 تصويتات
2 إجابة
0 تصويتات
0 إجابة
سُئل مايو 12، 2019 في تصنيف vcl بواسطة hidenpain (1,250 نقاط) | 32 مشاهدات
0 تصويتات
2 إجابة
سُئل مايو 7، 2019 في تصنيف vcl بواسطة hidenpain (1,250 نقاط) | 73 مشاهدات
ادعُ اصدقائك في الفايسبوك لمشاركتك
Comodo SSL

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

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

483 سؤال
743 إجابة
1,396 تعليق
252 مستخدم