Buatlah password yang sepenuhnya dinamis, sehingga password yang sama menghasilkan hasil yang berbeda. Setelah pengoperasian password yang pertama aaa, hasilnya adalah:
jlce1d65ec3b91556234879c9db8f6da1123
Kedua kalinya:
hjmnbe0d01cc1fbd3e18ae7431fa52fb3ce4
Ketiga kalinya:
grttb05901915e121d83ebefad7e809ef1b0
... ...
Tentu saja, Anda juga dapat memulihkan dan membandingkan kode yang saya modifikasi berdasarkan fungsi MD5 Dongwang.
'===========
'kata String yang akan dienkripsi
'Kembalikan kata terenkripsi
'Contoh: respon.tulis Md6("aaa")
'www.downcodes.com
'========
Fungsi Md6 (Word)
Redupkan Acak, RandomNum, reRandom, reWord
Acak
Lakukan Sementara Len(Acak) <4
RandomNum = Chr(25 * nd + 97)
Acak = Acak & Nomor Acak
Lingkaran
reAcak = Md5 (Acak)
kata ulang = Md5(Kata)
Md6 = LCase(Acak & Md5(Acak Ulang + Kata Ulang))
Fungsi Akhir
'===========
'Wrod adalah string yang perlu diverifikasi, OldWord adalah string asli setelah enkripsi.
'Kembalikan hasil perbandingan, jika sama, kembalikan Benar, jika tidak, Salah
'Contoh: pwd = "aaa"
' old_pwd="grttb05901915e121d83ebefad7e809ef1b0"
' jika Md6Back(pwd,old_pwd)=BENAR maka
'...
'========
Fungsi Md6Back (Word, OldWord)
Redupkan Acak, RandomNum, reRandom, reWord
Acak = Pertengahan (Kata Lama, 1, 4)
reAcak = Md5 (Acak)
kata ulang = Md5(Kata)
Jika OldWord = Random & Md5(reRandom + reWord) Lalu
Md6Back = Benar
Kalau tidak
Md6Back = Salah
Akhiri Jika
Fungsi Akhir