EasyDelphi Q&A

.تم الانتقال للموقع الجديد . وسيبقى الموقع القديم هذا متاح للقراءة فقط حتى الانتهاء من نقل كل الاسئلة إلى الموقع الجديد

يمكنك طرح الاسئلة والنقاشات في الموقع الجديد. الذهاب للموقع الجديد


+1 تصويت
98 مشاهدات

السلام عليكم اريد تشغيل دالة التشفير 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 بواسطة (210 نقاط) | 98 مشاهدات
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,870 نقاط)

اسئلة متعلقة

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

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

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

497 سؤال
752 إجابة
1,417 تعليق
271 مستخدم