[20170718更新]散列值生成工具-HashValue

老刘1号

注意：此工具并不是文件或字符串的哈希值/散列获取工具，而是随机生成类似散列字符串或文件后得到的值的工具。
使用范畴：
1、生成强密码/密钥（楼主保证不会碰字典）
2、用作临时文件/文件夹的名称（避免重名）
3、用作输出大批量/精细化日志时文件名或文件夹名的后缀（避免重名）
经典应用：
Dir /B /AD %Windir%\WinSxS\
使用方法：

C:\>HashValue.exe /?
老刘制作——散列值生成工具
用法：
        HashValue       [Length]        [Time]
        Length          指定散列值的长度，默认为16
        Time            指定打印散列值的个数，默认为1

源代码（编译环境 .NET Framework 2.0或更高）：

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
复制代码

推荐编译辅助工具：http://www.bathome.net/thread-44409-1-1.html

链接: https://pan.baidu.com/s/1UZb7tznCsyt9TAd-W5DONA?pwd=bs38

a2002

好帖，赞！

老刘1号

回复 2# a2002


    感谢支持