'Make a fully dynamic password, so that the same password to generate different results' aaa password after the first result of the operation: 'jlce1d65ec3b91556234879c9db8f6da1123' Second: 'hjmnbe0d01cc1fbd3e18ae7431fa52fb3ce4' Third: 'grttb05901915e121d83ebefad7e809ef1b0' ... .. Of course, it is also possible to restore the comparison 'following the code after modifying the MD5 function,' ============================ ============ Word to encrypt the string '= returned the encrypted word' = case: Response.write MD6 ("aaa") '========== ==============================
Function MD6 (Word) Dim Random, Randomnum, Reraandom, Rewordrandomizedo While Len (Random) <4 'generating a 4-bit lowercase letter randomnum = chr (25 * rnd 97) random = random & randomnumloop rarandom = md5 (random)' MD5 (4-bit letter) Reword = MD5 (Word) 'MD5 (encrypted character) MD6 = LCase (Random & MD5 (Reraandom Reword))' MD6 = lowercase (4-bit Microcative Letter & MD5 (4-bit Letter MD5) (Encrypted Character)) End Function
