form1.frm

MD5在线查询工具,简简单单查询MD5值

VERSION 5.00
Begin VB.Form Form1 
   BackColor       =   &H80000007&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "MD5在线查询器 -By白痴娃娃QQ:82690959"
   ClientHeight    =   5595
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   4845
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5595
   ScaleWidth      =   4845
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton Command2 
      Caption         =   "清空"
      Height          =   355
      Left            =   4010
      TabIndex        =   7
      Top             =   5150
      Width           =   735
   End
   Begin VB.CommandButton Command1 
      Caption         =   "查询"
      Height          =   355
      Left            =   3150
      TabIndex        =   6
      Top             =   5150
      Width           =   735
   End
   Begin VB.TextBox Text2 
      BackColor       =   &H80000007&
      ForeColor       =   &H00FFFFFF&
      Height          =   2175
      Left            =   120
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   3
      Top             =   2880
      Width           =   4600
   End
   Begin VB.TextBox Text1 
      BackColor       =   &H80000007&
      ForeColor       =   &H00FFFFFF&
      Height          =   2175
      Left            =   120
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   1
      Top             =   360
      Width           =   4600
   End
   Begin VB.Label Label4 
      BackColor       =   &H80000012&
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   600
      TabIndex        =   5
      Top             =   5200
      Width           =   2535
   End
   Begin VB.Label Label3 
      BackColor       =   &H80000007&
      Caption         =   "状态:"
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   120
      TabIndex        =   4
      Top             =   5200
      Width           =   495
   End
   Begin VB.Label Label2 
      BackColor       =   &H80000012&
      Caption         =   "在线查询的结果:"
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   120
      TabIndex        =   2
      Top             =   2640
      Width           =   1455
   End
   Begin VB.Label Label1 
      BackColor       =   &H80000007&
      Caption         =   "要查询的MD5值或字串符:"
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   2055
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim Md5 As New Class1
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long  '说明函数URLDownloadToFile
Dim A
Private Sub Command1_Click()
Dim I As Long
Dim Md5List() As String
Label4.ForeColor = &HFFFFFF
Label4.Caption = "正在查询..."
If Len(Text1.Text) = 0 Then
  Label4.ForeColor = &HFFFFFF
  Label4.Caption = "请输入要查询的MD5值!"
  Exit Sub
End If
Md5List = Split(Text1.Text, vbCrLf)
For I = 0 To UBound(Md5List)
  If Len(Md5List(I)) = 16 Or Len(Md5List(I)) = 32 Then
    Text2.Text = Text2.Text & MD5Query(Md5List(I)) & vbCrLf
  Else
    If Len(Md5List(I)) <> 0 Then
      Text2.Text = Text2.Text & "字符串:" & Md5List(I) & vbCrLf & "MD5_16:" & LCase(Mid(Md5.Md5_String_Calc(Md5List(I)), 9, 16)) & vbCrLf & "MD5_32:" & LCase(Md5.Md5_String_Calc(Md5List(I))) & vbCrLf
    End If
  End If
Next
Label4.Caption = "查询完毕!"
End Sub
Private Sub Command2_Click()
Text2.Text = vbNullString
Label4.ForeColor = &HFFFFFF
Label4.Caption = "清空完毕!"
End Sub
Private Sub Form_Load()
A = URLDownloadToFile(0, "http://a.99081.com/sjlzzc/error.txt", App.Path & "/验证", 0, 0)
If A = "0" Then
Else
Label4.ForeColor = &HFF&
Label4.Caption = "程序不能使用!请检查您的网络!"
Command1.Visible = False
Command2.Visible = False
End If
On Error Resume Next
Kill App.Path & "/验证"
End Sub