用VBS实现PHP的md5_file函数代码
Function md5_file(filename, raw_output)
Dim HashedData, Utility, Stream
Set HashedData = CreateObject("CAPICOM.HashedData")
Set Utility = CreateObject("CAPICOM.Utilities")
Set Stream = CreateObject("ADODB.Stream")
HashedData.Algorithm = 3
Stream.Type = 1
Stream.Open
Stream.LoadFromFile filename
Do Until Stream.EOS
HashedData.Hash Stream.Read(1024)
Loop
If raw_output Then
md5_file = Utility.HexToBinary(HashedData.Value)
Else
md5_file = HashedData.Value
End If
End Function
参考链接:HashedData Object
原文:http://demon.tw/programming/vbs-php-md5_file.html
相关推荐
-
PHP中MD5函数使用实例代码
一般来说,一个提供会员注册的网站必定需要采集用户的密码,如何保存用户密码就是个问题.我们当然不能将密码以明文的方式储存在数据库中,因为这样的话,一般的管理员就可以查看到用户密码,显然对用户来说是件相当危险的事情. 那如何解决这个问题呢,我们可以采取这样的策略. 首先介绍一下PHP中MD5函数的使用方法: 复制代码 代码如下: <?php $pswd1=md5("cenusdesign"); echo $pswd1; //运行结果为:fc60ec37d1c08d5b0f
-
php实现MD5加密16位(不要默认的32位)
使用substr函数截取: 复制代码 代码如下: substr(md5("admin"),8,16); // 16位MD5加密 md5("admin"); // 32位MD5加密
-
php 的加密函数 md5,crypt,base64_encode 等使用介绍
不可逆的加密函数为:md5().crypt() md5() 用来计算 MD5 哈稀.语法为:string md5(string str); crypt() 将字符串用 UNIX 的标准加密 DES 模块加密.这是单向的加密函数,无法解密.欲比对字符串,将已加密的字符串的头二个字符放在 salt 的参数中,再比对加密后的字符串.语法为:string crypt(string str, string [salt]); 可逆转的加密为:base64_encode().urlencode() 相对应的解
-
php md5下16位和32位的实现代码
复制代码 代码如下: <?php echo substr(md5("admin"),8,16); // 16位MD5加密 echo "<hr>"; echo md5("admin"); // 32位MD5加密 ?> 16位的MD5加密用substr函数截取了字符得到实现.... 不想深入研究了 :) 要把脑力放到其他关键的地方~~ 今天做了个php链接mssql数据库,数据库中的表中字段使用MD5
-
php验证是否是md5编码的简单代码
代码很简单,使用了正则表达式,大家参考使用吧 复制代码 代码如下: function is_md5($password) { return preg_match("/^[a-z0-9]{32}$/", $password);}
-
用VBS实现PHP的md5_file函数代码
复制代码 代码如下: Function md5_file(filename, raw_output) Dim HashedData, Utility, Stream Set HashedData = CreateObject("CAPICOM.HashedData") Set Utility = CreateObject("CAPICOM.Utilities") Set Stream = CreateObject("ADODB.Stream")
-
用VBS获取Unix时间戳的函数代码
VBS中没有类似C标准库中的time函数,怎么获取Unix时间戳呢?乍一看很简单: 复制代码 代码如下: Function UnixTime() UnixTime = DateDiff("s", "01/01/1970 00:00:00", Now()) End Function 一个很想当然的方法,仅仅注意到了"1970年1月1日0时0分0秒",而忽略了"协调世界时". 协调世界时,又称世界标准时间或世界协调时间,简称UTC
-
用vbs读取Excel文件的函数代码
核心代码 复制代码 代码如下: Function ReadExcel( myXlsFile, mySheet, my1stCell, myLastCell, blnHeader ) ' Function : ReadExcel ' Version : 2.00 ' This function reads data from an Excel sheet without using MS-Office ' ' Arguments: ' myXlsFile [string] The path and
-
vbs操作txt文本文件常用方法与函数代码
'creat by 席飞剑(小席老师) '操作文本文件,操作fso对象(文件对象操作) 函数代码 创建文件 dim fso, f set fso = server.CreateObject("Scripting.FileSystemObject") set f = fso.CreateTextFile("C:\test.txt", true) '第二个参数表示目标文件存在时是否覆盖 f.Write("写入内容") f.WriteLine(&quo
-
VBS技术内幕:CreateObject函数详解
曾经我也不明白为什么在CreateObject函数中传递不同的字符串就可以创建各种各样功能强大的对象.后来无意中看到UMU的<[UMU WSH 教程](9)CreateObject 过程>,才知道CreateObject函数创建的是COM对象,第一个参数是COM对象的ProgID.再后来拜读了Jeff Glatt的<COM in plain C>,知道了如何用纯C语言编写COM组件. COM(组件对象模型)是一个很复杂的概念,需要用砖头那么厚的书才能讲得清楚,而且没有C++和面向对
-
Python中enumerate函数代码解析
enumerate函数用于遍历序列中的元素以及它们的下标. enumerate函数说明: 函数原型:enumerate(sequence, [start=0]) 功能:将可循环序列sequence以start开始分别列出序列数据和数据下标 即对一个可遍历的数据对象(如列表.元组或字符串),enumerate会将该数据对象组合为一个索引序列,同时列出数据和数据下标. 举例说明: 存在一个sequence,对其使用enumerate将会得到如下结果: start sequence[0]
-
vbs后台运行bat删除自身的代码
知道真实路径的情况下 复制代码 代码如下: set fso=wscript.createobject("scripting.filesystemobject") fso.deletefile "c:\windows\system32\run.cmd" fso.deletefile "c:\windows\system32\run.vbs" 不知道具体的路径情况下,可以用如下代码: 复制代码 代码如下: Set fso =CreateObject(
-
javascript 四则运算精度修正函数代码
函数代码如下: 复制代码 代码如下: /* * 四则运算精度修正函数 * m 数值1(number) * n 数值2(number) * op 操作符(string) */ function fixMath(m, n, op) { var a = (m+ " "); var b = (n+ " "); var x = 1; var y = 1; var c = 1; if(a.indexOf( ". ")> 0) { x = Math.po
-
PHP 循环列出目录内容的函数代码
复制代码 代码如下: function list_files($dir) { if(is_dir($dir)) { if($handle = opendir($dir)) { while(($file = readdir($handle)) !== false) { if($file != "." && $file != ".." && $file != "Thumbs.db") { echo '<a tar
-
做了CDN获取用户真实IP的函数代码(PHP与Asp设置方式)
asp函数代码: 复制代码 代码如下: function checkip(checkstring)'用正则判断IP是否合法dim re1set re1=new RegExpre1.pattern="^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$"re1.global=falsere1.Ignorecase=falsecheckip=re1.test(checkstring)set re1=nothingend function functio
随机推荐
- 浅谈关于angularJs中使用$.ajax的注意点
- go语言实现处理表单输入
- Hibernate通用数据库操作代码
- 分享下自己总结的Git常用命令
- nginx安装图解_动力节点Java学院整理
- oracle合并列的函数wm_concat的使用详解
- 一个Asp.Net的显示分页方法 附加实体转换和存储过程 带源码下载
- document.createElement("A")比较不错的属性
- php获取服务器端mac和客户端mac的地址支持WIN/LINUX
- javascript Ajax 类实现代码
- AJAX乱码解决新方法
- 成熟的定义看起来更象成功
- CMD下的网络安全配置方法
- 基于javascript实现表格的简单操作
- 实现隔行换色效果的两种方式【实用】
- js实现跨域的方法实例详解
- php统计时间和内存使用情况示例分享
- python关闭windows进程的方法
- Android CameraManager类详解
- Android中创建一个透明的进度对话框实例