Crypt :: Square. Crypt :: CBC - كتلة متوافقة مع Cipher
التحميل الان

Crypt :: Square. الترتيب والملخص

Crypt :: Square. العلامات

منع فئة بيرل كتلة التشفير الشفرة

Crypt :: Square. وصف

Crypt :: CBC المتوافقة مع Cipher Cipher Crypt :: Square يقدم Crypt :: CBC كتلة متوافقة مع Cipher.synopsis استخدام Crypt :: Square؛ $ cipher = جديد crypt :: مفتاح مربع $؛ ciphertext = $ cipher-> تشفير ($ النصي)؛ $ plaintext = $ cipher-> فك التشفير ($ ciphertext)؛ مربع هو تشفير كتلة 128 بت يقبل مفتاح 128 بت. صممت Joan Daemen و Vincent Rijmen و Lars Knudsen و Lars Knudsen، وهو سلف Rijndael، ويعرف أيضا باسم معيار التشفير المتقدمة. هذه الوحدة تدعم واجهة Crypt :: CBC، مع الوظائف التالية. كتلة (16، في هذه الحالة). إرجاع إرجاع الحجم (في البايتات) للمفتاح (16، في هذه الحالة). encrypt (بيانات $) تشفير 16 بايت من البيانات $ وإرجاع Ciphertext.decrypt ($ بيانات) فك تشفير 16 بايت من البيانات $ وإرجاع plaintext.example 1 #! / USR / المحلية / بن / بيرل استخدام التشخيص؛ استخدام صارمة؛ استخدام التحذيرات؛ استخدام Crypt :: Square؛ # المفتاح يجب أن يكون 16 بايت طويلة بلدي مفتاح $ = "0123456789abcdef"؛ بلدي cipher $ = جديد crypt :: مفتاح مربع $؛ طباعة "Blocksize ="، Cipher-> حظر "بايت" "؛ طباعة" keysize = "، $ cipher-> keysize،" bytes "؛ # كتلة يجب أن تكون 16 بايت طويل بلدي plaintext1 =" 0123456789abcdef "؛ بلدي ciphertextext = $ cipher-> تشفير ($ plaintext1)؛ بلدي plaintext2 = $ cipher-> decrypt ($ ciphertext)؛ طباعة" فك التشفير موافق "إذا كان ($ plaintext1 eq US $ plaintext2)؛ مثال 2 #! / USR / المحلية / بن / بيرل استخدام التشخيص؛ استخدام الدقيق؛ استخدام التحذيرات. استخدام Crypt :: CBC؛ # CBC تحميل مربع تلقائيا لنا # عند استخدام Crypt :: CBC، مفتاح قد يكون من أي طول لي مفتاح $ = "0123456789ABCDEF"؛ # IV يجب أن يكون بالضبط 16 بايت طويلة بلدي الرابع = حزمة "H32"، 0؛ بلدي cipher cipher = crypt :: cbc-> جديد ({'مفتاح '= >> مفتاح $،' Cipher '=>' Square '،' IV '=> $ IV،' Regenerate_Key '=> 1، "الحشو" =>' Standard '=> "Standard"، "prepend_iv" => 0})؛ # متى باستخدام Crypt :: CBC، قد يكون النص Plaintext من أي طول لي $ plaintext1 = "هذا اختبار"؛ بلدي ciphertext الخاص بي = $ cipher-> تشفير ($ plaintext1)؛ بلدي $ plaintext2 = $ cipher-> decrypt ($ ciphertext) ؛ طباعة "فك التشفير موافق "إذا ($ plaintext1 EQ $ plaintext2)؛ المتطلبات: perl.

Crypt :: Square. برامج ذات صلة