摘要：
Dim CRC32Table(255) As LongPrivate Sub Command1_Click() MsgBox crc32str("sysdzw") a = crc32file("c:\1.jpg") b = crc32file("c:\2.jpg") If (a & b "") And a = b Then MsgBox "same"End Sub'string's CRC32Public Function crc32str(ByVal item As String) As String Dim i As Long, iCRC As Long, lngA As Long, 阅读全文
posted @ 2010-03-09 14:48 随风飘零0 阅读(757) 评论(0) 推荐(0) 编辑