MD5加密

陈敏之 · 发表于 2023-7-24 18:22

本帖最后由陈敏之于 2023-7-25 22:28 编辑

Private Sub CommandButton1_Click()
If MultiPage1.value = 0 Then
      TextBox3.Text = "MD5值: " & Md5_String_Calc(TextBox1.Text)
Else
      Dim OPFileName As String
      OPFileName = Application.GetOpenFilename(FileFilter:="文件 (*.*),*.*", Title:="Find")    '"文件(*.*),*.*", Title:="find") '
      If OPFileName = "False" Then Exit Sub
      TextBox3.Text = "MD5值: " & Md5_File_Calc(OPFileName)
      TextBox2.Text = OPFileName
End If
End Sub
Private Sub MultiPage1_Change()
If MultiPage1.value = 0 Then CommandButton1.Caption = "确定" Else CommandButton1.Caption = "浏览"
TextBox3.Text = ""
End Sub

shiruiqiang · 发表于 2023-7-24 21:36

本帖最后由 shiruiqiang 于 2023-7-24 21:46 编辑

???????
1、Ucase
小白飘过，关注一下

zpy2 · 发表于 2023-7-24 21:39

为啥要这样子呢？md5不可逆

陈敏之 · 发表于 2023-7-24 22:16

zpy2 发表于 2023-7-24 21:39
为啥要这样子呢？md5不可逆

是的，不可逆转，但是需要这样脱敏操作。

zpy2 · 发表于 2023-7-25 05:57

前17位数字计算得到的校验码(

?

不太明白啥意思

陈敏之 · 发表于 2023-7-25 06:56

tomxie 发表于 2023-7-24 22:00
共18位，有14位明码，还有MD5码，仅剩下4位，这不是很轻松就暴力破解出来吗？哪位天才想出来的，实在是太 ...

变形后的身份证件号码(46字符)。

陈敏之 · 发表于 2023-7-25 08:56

本帖最后由陈敏之于 2023-7-25 08:58 编辑

zpy2 发表于 2023-7-25 05:57
前17位数字计算得到的校验码(

?

格式如下（以下生成的MD5与附件原码并不对应）：
港澳通行证转变以后：ff9c34c4bd3d9d2fc6144a4ae0f85eld
18位身份证转变以后：44070219730916c6b052ac93e065f969f2d6d54c82c450

陈敏之 · 发表于 2023-7-25 19:12

zpy2 发表于 2023-7-25 05:57
前17位数字计算得到的校验码(

?

以18位身份证为例，身份证前14位为明码，再加上18位全部转为MD5（32位），14+32，那就是46位。

wanghan519 · 发表于 2023-7-26 07:12

只有4位未知，全试一遍也就1分钟。。。
上例中440702197309160016，md5码c6b052ac93e065f969f2d6d54c82c450

		自动登录	找回密码
密码			免费注册

[求助] MD5加密