module1.bas

来自「enigma 的实现 里面有源码和图形界面 希望对大家有用」· BAS 代码 · 共 31 行

Attribute VB_Name = "Module1"
Option Explicit

Function Change_password(ByVal O_pwd As String) As String
  Dim Tmp_str As String
  Dim CP As String
  Dim i As Integer
  CP = ""
  For i = 1 To Len(O_pwd)
    Tmp_str = Mid(O_pwd, i, 1)
    If AscW(Tmp_str) < 48 Or AscW(Tmp_str) > 57 Then
      CP = CP & AscW(Tmp_str)
    Else
      CP = CP & Tmp_str
    End If
  Next i
  Change_password = CP
End Function

Function File_exist(ByVal File_path As String) As Boolean
  Dim FL As Long
  FL = 0
  FL = FileLen(File_path)
  If FL >= 0 Then
     File_exist = True
  Else
     File_exist = False
  End If
End Function