- Option Explicit
- Module HashValue
- Sub Main(ByVal cmdArgs() As String)
- Randomize
- Dim Conter1 As Long
- Dim Conter2 As Long
- Dim Length As Long
- Dim Time As Long
- If CmdArgs.Length > 0 Then
- If UCase(CmdArgs(0)) = "/?" Then
- Console.WriteLine("老刘制作——散列值生成工具")
- Console.WriteLine("用法:")
- Console.WriteLine(" HashValue [Length] [Time]")
- Console.WriteLine(" Length 指定散列值的长度,默认为16")
- Console.WriteLine(" Time 指定打印散列值的个数,默认为1")
- Else
- If Isnumeric(CmdArgs(0)) Then
- Length = Clng(CmdArgs(0))
- Else
- Length = 16
- End If
- If CmdArgs.Length > 1 Then
- If Isnumeric(CmdArgs(1)) Then
- Time = Clng(CmdArgs(1))
- Else
- Time = 1
- End If
- Else
- Time = 1
- End If
- For Conter1 = 1 To Time
- For Conter2 = 1 To Length
- WriteHashValue
- Next
- Console.WriteLine()
- Next
- End If
- Else
- For Conter1 = 1 to 16
- WriteHashValue
- Next
- Console.WriteLine()
- End If
- End Sub
- Sub WriteHashValue
- Const HashValueMap As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
- Console.Write(Mid(HashValueMap,Fix(Rnd * 36)+1,1))
- End Sub
- End Module
复制代码