给你一个MD5算法

给你一个MD5算法

on Explicit

Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long

Private Declare Function GetCurrentProcess Lib "kernel32" () As Long

Private Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long

Private Const RSP_SIMPLE_SERVICE = 1

Private Const RSP_UNREGISTER_SERVICE = 0

Private Const BITS_TO_A_BYTE = 8

Private Const BYTES_TO_A_WORD = 4

Private Const BITS_TO_A_WORD = 32

Private m_lOnBits(30) As Long

Private m_l2Power(30) As Long

Dim test As New PassCrypt

Dim temp As String

Private Sub Command1_Click()

temp = MD5_calc(Text1.Text)

MsgBox temp

End Sub

Private Sub Form_Load()

Dim pid As Long

Dim regserv As Long

pid = GetCurrentProcessId() @#得到当前进程ID