VB程序如何编写一个MD5校验的程序呢?
发布网友
发布时间:2022-05-06 11:10
我来回答
共2个回答
热心网友
时间:2022-06-29 20:30
Private Declare Function icePub_getMD5FromFile Lib "icePubDll.dll" (ByVal strFilePath As String, ByVal strResult As String) As Integer
Private Sub Command1_Click()
Dim a2 As Integer
Dim buff As String
buff=Space(32)
a2=icePub_getMD5FromFile(App.Path+"\1.txt",buff)
MsgBox buff
If buff = Text1.Text Then
'ok
End If
End Sub
http://dl.icese.net/dev.php?f=icePubDll.rar 下载追问这段代码是实现了文件校验,是MD5特性的文件校验吗?
还是其他的?
热心网友
时间:2022-06-29 20:30
有 很多吧
百度了吗?
请看
http://zhidao.baidu.com/question/160420699.html
VB程序如何编写一个MD5校验的程序呢?
Private Declare Function icePub_getMD5FromFile Lib "icePubDll.dll" (ByVal strFilePath As String, ByVal strResult As String) As Integer Private Sub Command1_Click()Dim a2 As Integer Dim buff As String buff=Space(32)a2=icePub_getMD5FromFile(App.Path+"\1.txt",buff)MsgBox buff ...
vb 检测文件大小或者检测文件md5
1、VB代码检查文件大小代码如下。/***FileLen函数,返回Long,代表一个文件的长度,单位是字节。*语法:*FileLen(pathname) *必要的pathnam参数是用来指定一个文件名的字符串表达式。*pathname可以包含目录或文件夹、以及驱动器。*说明: 当调用FileLen函数时,如果所指定的文件已经打开,则返回的值是...
求VB.NET的MD5算法调用
"12345678") End Function Public Shared Function Encrypt(ByVal Text As String, ByVal sKey As String) As String Dim des As New DESCryptoServiceProvider() Dim inputByteArray As Byte() inputByteArray = Encoding.Default.GetBytes(Text) des.Key = ASCIIEncoding.ASCII.Ge...
在VB里面如何验证经过MD5加密的数据库密码
在网上找一段VB的 MD5 的编码类,假设类名为 Encode,编码函数:MD5(),数据库路径为: c:\test.mdb ,表名为 user ,字段用户名,密码: username,password,代码如下:Dim nConn as object Dim nRs as Object Dim md5instance as new Encode Dim SQL As String set nConn=CreateObject("ADODB....
vb 如何校验文件的CRC 或者MD5或什么都行
就是收集boot.ini的不变的一些相关的信息(如文件大小,文件名等等),然后组成字符串,再用md5函数把组成的字符串编码。以后就用这个编码进行校验了,字符串比较(compare即可)。不过对boot.ini文件校验没有多大的意义,随便装一个什么dos工具箱或者用优化软件优化以下那个校验码准变。
VB 求一个获取文件MD5值的模块,以及调用方法
Public Function GetMD5(ByVal str As String) As StringGetMD5 = DigestStrToHexStr(str)End Function'' Function to quickly digest a file into a hex string'Public Function DigestFileToHexStr(FileName As String) As StringOpen FileName For Binary Access Read As #1MD5InitDo While Not EOF(1)Get ...
VB如何实现格式化的文件校对MD5
'一、建立一个模块,复制下面代码 Option Explicit Private Declare Function CryptAcquireContext Lib "advapi32.dll" _Alias "CryptAcquireContextA" ( _ByRef phProv As Long, _ByVal pszContainer As String, _ByVal pszProvider As String, _ByVal dwProvType As Long, _ByVal dwFlags As ...
求vb md5加解密
代码很多。仔细看先建一个类Class Module 取名为ClsAPIMD5复制下面的代码到类里:'API 做的MD5类Option Explicit Private Declare Function CryptAcquireContext Lib "advapi32.dll" _Alias "CryptAcquireContextA" ( _ByRef phProv As Long, _ByVal pszContainer As String, _ByVal pszProvider As...
请问vba用sql语句的时候如何用md5不让数据库密码以明文显示?
你用VB6.0新建一个Active DLL工程 然后在Class1中写入如下代码 Property Get Password() As String Password = "123456"'这里写入你要设置的密码End Property生成DLL后,在Excel中引用这个生成的DLL,然后你就可以在Excel中使用了,如下 Sub abc() Dim x As New Class1 MsgBox x.Password...
用VB实现MD5加密
从事多年系统运维,喜欢编写各种小程序和脚本。 向TA提问 私信TA 关注 展开全部 md5加密运算是不可逆的,就是说不能通过那一串古古怪怪的东西算出它原始的样子。 以下提供VB可用的16位和32位MD5加密函数代码: Private Const BITS_TO_A_BYTE = 8Private Const BYTES_TO_A_WORD = 4Private Const BITS_TO_A_...