قم بإنشاء كلمة مرور ديناميكية تمامًا، بحيث تولد نفس كلمة المرور نتائج مختلفة بعد العملية الأولى لكلمة المرور aaa، وتكون النتيجة:
jlce1d65ec3b91556234879c9db8f6da1123
المرة الثانية:
hjmnbe0d01cc1fbd3e18ae7431fa52fb3ce4
المرة الثالثة:
grttb05901915e121d83ebefad7e809ef1b0
... ...
بالطبع، يمكنك أيضًا استعادة ومقارنة الكود الذي قمت بتعديله بناءً على وظيفة MD5 الخاصة بـ Dongwang.
'=====================================================================
'كلمة السلسلة المراد تشفيرها
"أعد الكلمة المشفرة."
'مثال: Response.write Md6("aaa")
"www.downcodes.com."
'================
الوظيفة Md6(Word)
خافت عشوائي، RandomNum، إعادة عشوائية، إعادة صياغة
عشوائية
افعل بينما لين (عشوائي) <4
RandomNum = Chr(25 * rnd + 97)
عشوائي = عشوائي وRandomNum
حلقة
إعادة عشوائية = Md5 (عشوائي)
إعادة الكلمة = Md5 (كلمة)
Md6 = LCase(عشوائي وMd5(إعادة عشوائية + إعادة كتابة))
الدالة
النهائية
'Wrod هي السلسلة التي تحتاج إلى التحقق منها، OldWord هي السلسلة الأصلية بعد التشفير.
'إرجاع نتيجة المقارنة، إذا كانت متساوية، قم بإرجاع صحيح، وإلا خطأ
'مثال: pwd='aaa'
' old_pwd="grttb05901915e121d83ebefad7e809ef1b0"
' إذا كان Md6Back(pwd,old_pwd)=TRUE إذن
'...
'========================
الوظيفة Md6Back(Word، OldWord)
خافت عشوائي، RandomNum، إعادة عشوائية، إعادة صياغة
عشوائي = منتصف (OldWord، 1، 4)
إعادة عشوائية = Md5 (عشوائي)
إعادة الكلمة = Md5 (كلمة)
إذا كانت OldWord = Random & Md5(reRandom + reWord) إذن
Md6Back = صحيح
آخر
Md6Back = خطأ
نهاية إذا
وظيفة النهاية