用VBS实现PHP的md5_file函数代码_vbs

复制代码 代码如下:

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

时间： 2024-08-01 10:47:54

用VBS实现PHP的md5_file函数代码_vbs的相关文章

用VBS获取Unix时间戳的函数代码_vbs

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文件的函数代码_vbs

核心代码 复制代码 代码如下: 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后台运行bat删除自身的代码_vbs

知道真实路径的情况下 复制代码 代码如下: set fso=wscript.createobject("scripting.filesystemobject") fso.deletefile "c:\windows\system32\run.cmd" fso.deletefile "c:\windows\system32\run.vbs" 不知道具体的路径情况下,可以用如下代码: 复制代码 代码如下: Set fso =CreateObject(

纯vbs实现zip压缩与unzip解压缩函数代码_vbs

压缩代码: 复制代码 代码如下: Zip "D:\test.iso", "D:\test.zip" Zip "D:\test", "D:\test.zip" Msgbox "OK" Sub Zip(ByVal mySourceDir, ByVal myZipFile) Set fso = CreateObject("Scripting.FileSystemObject") If fso.

将WMI中的DateTime类型转换成VBS时间的函数代码_vbs

有两种方法可以转换,一种是自己写个函数解析: 复制代码 代码如下: Function WMIDateStringToDate(DateTime) WMIDateStringToDate = _ CDate(Mid(DateTime, 5, 2) &_ "/" &_ Mid(DateTime, 7, 2) &_ "/" &_ Left(DateTime, 4) &_ " " &_ Mid (DateT

vbs中将GB2312转Unicode的代码_vbs

今天写了一个类似于下面的程序: 复制代码 代码如下: Dim http Set http = CreateObject("msxml2.xmlhttp") http.open "GET","http://www.sina.com.cn/",False http.send WScript.Echo http.responseText 但是却发现返回的中文都是乱码,看了一下发现新浪的编码竟然是gb2312的,汗,现在都是utf-8编码的时代了.res

VBS实现的系统服务备份优化代码_vbs

复制代码 代码如下: Option Explicit'○○○○○○○○○○○○○○○○○○○○○○○○○○○○○开始Const blnVBSShowCaption=True'生成的服务备份中是否添加说明Const blnVBSShowDescription=True'●●●●●●●●●●●●●●●●●●●●●●●●●●●●●结束'文件读写标识常量Const Forwriteing = 8'读取出来的自动模式类型Const cstrAutoForRead="Auto"'用于设定的自动模式

VBS 十六进制异或加密实现代码_vbs

效果图: 代码都封装成函数了,方便调用: 复制代码 代码如下: Key = "www-enun-net" '不要用数字 Wscript.echo now & ", 加密: "MyData = ReadBin("test.jpg")EnData = Encoder(MyData)WriteBin "E_test.jpg", EnDataWscript.echo now & ", 加密: " W

vbs定时发送邮件的方法与代码_vbs

'用VBS写个脚本,然后用WINDOWS平台下的计划任务来调用,每天定时群发邮件.  '代码如下:  下载地址 http://www.51tiao.com/info.vbs 复制代码 代码如下: Dim connstr,conn  Dim sql,rs,msg  Sub OpenDB()      ConnStr = "DSN=51tiao.Com;UID=sa;PWD=;"      If Not IsObject(Conn) Then          Set conn = Cre