ljr_aa的博客

可在WINXP,WIN2003,WIN7运行，适用于于一般强度的加密.

用法: Public Const AppName As String = "程序名" Public Const CopyExe As String = "FastCopy" Public Sub ExeRefresh() 'Dim LocalAppNamePath As String Dim LocalAppNameDate As String Dim LocalCopyNameDate As String Dim NetAppNameDate As String On Error Resume Next If Len(App.Path) > 3 Then ' LocalAppNamePath = App.Path & "\" & AppName & ".exe" LocalAppNameDate = FileDateTime(App.Path & "\" & AppName & ".exe") LocalCopyNameDate = FileDateTime(App.Path & "\" & CopyExe & ".exe") Else ' LocalAppNamePath = App.Path & "\" & AppName & ".exe" LocalAppNameDate = FileDateTime(App.Path & AppName & ".exe") LocalCopyNameDate = FileDateTime(App.Path & CopyExe & ".exe") End If NetAppNameDate = FileDateTime(UpdateExePath & AppName & ".exe") If LocalAppNameDate = "" Or NetAppNameDate = "" Then Exit Sub If CDate(LocalAppNameDate) < CDate(NetAppNameDate) Then FileCopy UpdateExePath & CopyExe & ".exe", App.Path & "\" & CopyExe & ".exe" LocalAppNameDate = Shell(App.Path & "\" & CopyExe & ".exe" + " " + UpdateExePath + "," + AppName + ".exe", vbNormalFocus) End End If End Sub

MD5加密算法,此算法是不可逆的,因此加密强度高,不容易破解.