vb.net哈希 vba hash( 二 )


FileText = ETBitLenString
Call DoXor(FileText)
'根据上述随机数序列对FileText加密
KeyString = FileText
Call Initialize(KeyString)
'根据上述的加密结果产生新的随机数序列
FileText = BitLenString
Call DoXor(FileText)
'根据上述随机数序列对FileText加密 , 8位字符
Hash = FileText
'8位字符送作HASH值
End Function
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Dim str As String = "abcd"vbCrLf
TextBox6.Text = strHash(str)
End Sub
为什么VB.net和JAVA上相同的字符串对应的哈希值ateString
时间:DateTime.Now.ToFileTime
可以这样用:
Response.Write(DateTime.Now.ToShortDateString() + "br/");
Response.Write(DateTime.Now.ToShortTimeString() + "br/");
输出:
2007-1-29
8:49
Response.Write(DateTime.Now.ToLongDateString() + "br/");
Response.Write(DateTime.Now.ToLongTimeString() + "br/");
输出:
2007年1月29日
8:49:15
不知合不合你要求
我是要VS2005下使用,很好用 。可查看MSDN以下简单例出:
.NET Framework 类库
DateTime 成员
请参见构造函数字段方法属性显式接口实现
全部折叠 全部展开成员选项:全部显示 成员选项:已筛选
包括继承的成员
包括受保护的成员
仅 .NET Compact Framework 成员
表示时间上的一刻,通常以日期和当天的时间表示 。
下表列出了由 DateTime 类型公开的成员 。
公共构造函数
名称说明
DateTime已重载 。初始化 DateTime 结构的新实例 。
页首
公共字段
名称说明
MaxValue表示 DateTime 的最大可能值 。此字段为只读 。
MinValue表示 DateTime 的最小可能值 。此字段为只读 。
页首
公共属性
名称说明
Date获取此实例的日期部分 。
Day获取此实例所表示的日期为该月中的第几天 。
DayOfWeek获取此实例所表示的日期是星期几 。
DayOfYear获取此实例所表示的日期是该年中的第几天 。
Hour获取此实例所表示日期的小时部分 。
Kind获取一个值 , 该值指示由此实例表示的时间是基于本地时间、协调通用时间 (UTC) , 还是两者皆否 。
Millisecond获取此实例所表示日期的毫秒部分 。
Minute获取此实例所表示日期的分钟部分 。
Month获取此实例所表示日期的月份部分 。
Now获取一个 DateTime 对象 , 该对象设置为此计算机上的当前日期和时间,表示为本地时间 。
Second获取此实例所表示日期的秒部分 。
Ticks获取表示此实例的日期和时间的刻度数 。
TimeOfDay获取此实例的当天的时间 。
Today获取当前日期 。
UtcNow获取一个 DateTime 对象,该对象设置为此计算机上的当前日期和时间,表示为协调通用时间 (UTC) 。
Year获取此实例所表示日期的年份部分 。
页首
公共方法
名称说明
Add将指定的 TimeSpan 的值加到此实例的值上 。
AddDays将指定的天数加到此实例的值上 。
AddHours将指定的小时数加到此实例的值上 。
AddMilliseconds将指定的毫秒数加到此实例的值上 。
AddMinutes将指定的分钟数加到此实例的值上 。
AddMonths将指定的月份数加到此实例的值上 。
AddSeconds将指定的秒数加到此实例的值上 。
AddTicks将指定的刻度数加到此实例的值上 。
AddYears将指定的年份数加到此实例的值上 。
Compare比较 DateTime 的两个实例,并返回它们相对值的指示 。
CompareTo已重载 。将此实例与指定的对象或值类型进行比较,并返回二者相对值的指示 。

推荐阅读