升级MD5.ASP,打造完全动态不重复的安全加密代码

原创 2004年10月15日 23:21:00

'做一个完全动态的密码,让相同的密码生成不同的结果
'密码aaa经过第一次运算后结果为:
'jlce1d65ec3b91556234879c9db8f6da1123
'第二次:
'hjmnbe0d01cc1fbd3e18ae7431fa52fb3ce4
'第三次:
'grttb05901915e121d83ebefad7e809ef1b0
'... ...
'当然,亦可还原比较
'以下我根据动网MD5函数修改后的代码,
'=======================================
'= word 要加密的字符串
'= 返回加密后的 word
'=例:response.write Md6("aaa")
'=======================================

Function Md6(Word)
Dim Random, RandomNum, reRandom, reWord
Randomize
Do While Len(Random) < 4                                                           '产生一个4位随即小写字母 
RandomNum = Chr(25 * rnd + 97 )
Random = Random & RandomNum
Loop                                                              
reRandom = Md5(Random)                                                          'MD5(4位随即字母)
reWord = Md5(Word)                                                                  'MD5(加密字符)
Md6 = LCase(Random & Md5(reRandom + reWord))                 'MD6=小写(4位随即小写字母&MD5(4位随即字母+MD5(加密字符))
End Function

'=======================================
'= Wrod 需要验证的字符串,OldWord 加密后的原字符串
'= 返回比较后的结果,如果相等返回True,反之False
'=例:pwd=“aaa“
'=        old_pwd=“grttb05901915e121d83ebefad7e809ef1b0“
'=        if Md6Back(pwd,old_pwd)=TRUE then
'=        ... ...

'===========================================
Function Md6Back(Word, OldWord)
Dim Random, RandomNum, reRandom, reWord
Random = Mid(OldWord, 1, 4)                        
reRandom = Md5(Random)                          
reWord = Md5(Word)                    
If OldWord = Random & Md5(reRandom + reWord) Then
      Md6Back = True
  Else
      Md6Back = False
End If
End Function

基于IMOOC强力django+杀手级xadmin 打造上线标准的在线教育平台课程的学习(6)

数据库设计流程图:
  • HeatDeath
  • HeatDeath
  • 2017年04月09日 22:54
  • 1012

基于IMOOC强力django+杀手级xadmin 打造上线标准的在线教育平台课程的学习(4)

练习取出数据库中的数据设置断点,并运行 Debug 进行调试: objects 是数据表管理器, all() 方法返回指定 model 在数据库中所对应的表中的所有数据 按一下 F8 (看起来是向...
  • HeatDeath
  • HeatDeath
  • 2017年04月09日 01:59
  • 1236

删除掉mysql数据库某张表中完全重复数据的方法

需要处理的表大概包含400万条数据,首次运行php代码之后发现完全重复的数据有很多,原因可能是导入时重复导入某张表(当时一起导入超过30份数据到同一个表可能出错),也有可能拿到的数据中存在重复数据,因...
  • liujl6
  • liujl6
  • 2014年12月27日 00:28
  • 1804

PotPlayer清除流氓和升级

来吐槽一下新版本的PotPlayer 吧, 大家上眼吧,新版本的PP可以直接看网上的电视转播,这点实在是不错。 但是用了几天后,突然开始犯浑和耍脾气来了。 即使你点击下方的 不更新 ...
  • lovedeadyou
  • lovedeadyou
  • 2016年06月28日 18:38
  • 2363

基于IMOOC强力django+杀手级xadmin 打造上线标准的在线教育平台课程的学习(16)——首页和登录页面配置

index.html 课程机构列表 - 慕学在
  • HeatDeath
  • HeatDeath
  • 2017年04月11日 10:50
  • 2458

基于IMOOC强力django+杀手级xadmin 打造上线标准的在线教育平台课程的学习(3)

创建 model models.py #coding=utf-8 from django.db import modelsclass UserMessage(models.Model): na...
  • HeatDeath
  • HeatDeath
  • 2017年04月09日 00:16
  • 1237

基于IMOOC强力django+杀手级xadmin 打造上线标准的在线教育平台课程的学习(13)——xadmin介绍

xadmin的安装方法settings.py 的配置# -*- coding:utf-8 -*- import os import sysimport pymysql pymysql.install_...
  • HeatDeath
  • HeatDeath
  • 2017年04月10日 20:25
  • 1600

IDEA重复代码提示

本身是一个不错的功能,为了减少一定量的重复代码,提醒开发人员注意,但是如果有时几行代码的重复没必要扔到一个统一的地方处理,这是总是提醒,干扰视线。这里根据个人习惯,还是关闭这个功能比较好。...
  • shi0299
  • shi0299
  • 2016年09月21日 09:24
  • 5713

基于IMOOC强力django+杀手级xadmin 打造上线标准的在线教育平台课程的学习(10)——Operation models.py的设计

注册已创建的 app:
  • HeatDeath
  • HeatDeath
  • 2017年04月10日 12:34
  • 688

基于IMOOC强力django+杀手级xadmin 打造上线标准的在线教育平台课程的学习(12)——admin介绍

在 admin 中注册一下
  • HeatDeath
  • HeatDeath
  • 2017年04月10日 19:14
  • 725
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:升级MD5.ASP,打造完全动态不重复的安全加密代码
举报原因:
原因补充:

(最多只允许输入30个字)