搜索 社区服务 统计排行 帮助
  • 2827阅读
  • 66回复

[分享]CRC32校验工具 更新 1.0.0.22

楼层直达
级别: 骑士
注册时间:
2003-06-05
在线时间:
0小时
发帖:
898
只看该作者 45楼 发表于: 2004-08-20
好东西,试试看...

zMdb[eDtoon][TLF][CHN]
级别: 工作组
注册时间:
2003-08-26
在线时间:
13小时
发帖:
6600
只看该作者 46楼 发表于: 2004-08-20
发现一个……………………试用一下……delphi编译的好像……

另外给你个建议,把程序做到资源管理器的shellext里面,支持以app %1方式调用,这样比拖拉更简单。

好了……差不多就快断网了,各位88……

催片请点此处: http://bbs.popgo.org/bbs/read.php?tid=502402&displayMode=1#19103164
级别: 工作组
注册时间:
2003-08-26
在线时间:
13小时
发帖:
6600
只看该作者 47楼 发表于: 2004-08-20
Function CalcCRC(DATA(), Arraylen) As Long

Dim I, J, K, H As Integer

For I = 0 To Arraylen

J = J Xor DATA(I)

For K = 1 To 8

H = J Mod 2 'test if bit will be shifted out

J = Int(J / 2) 'shift right

If H Then

J = J Xor &H1000A001 'xor with constant

J = J - &H10000000 'clear top word

End If

Next K

Next I

CalcCRC = J

End Function
不知道是不是vb实现crc32……

催片请点此处: http://bbs.popgo.org/bbs/read.php?tid=502402&displayMode=1#19103164
级别: 骑士
注册时间:
2003-08-23
在线时间:
0小时
发帖:
1445
只看该作者 48楼 发表于: 2004-08-20
較為可惜1.0.0.7不支援建立捷徑拖放
级别: 新手上路
注册时间:
2003-06-08
在线时间:
0小时
发帖:
159
只看该作者 49楼 发表于: 2004-08-20
@ roytam1
应该不存在计时不准确的问题。。
另,你可以自己用别的办法计时,这样就知道是否准确了。。
@ MeteorRain
多谢阁下的建议,研究中。。

1M ADSL 上传极限60K 下载极限160K
犬夜叉TV/DVD MOVIE AVI共享中
级别: 圣骑士
注册时间:
2003-04-13
在线时间:
21小时
发帖:
1669
只看该作者 50楼 发表于: 2004-08-20
引用
最初由 MeteorRain 发布
Function CalcCRC(DATA(), Arraylen) As Long

Dim I, J, K, H As Integer

For I = 0 To Arraylen

J = J Xor DATA(I)

For K = 1 To 8

H = J Mod 2 'test if bit will be shifted out

J = Int(J / 2) 'shift right

If H Then

J = J Xor &H1000A001 'xor with constant

J = J - &H10000000 'clear top word

End If

Next K

Next I

CalcCRC = J

End Function
不知道是不是vb实现crc32……
這個是crc16呢.....

有事請pm我!   我的廢棄日記 ← 請多多光臨! <(_ _)>

----------------------

-E-D-2-K-----歡-迎-加-為-好-友-!-------
[KOR][TLF][eDtoon][CHN]rt87
[eDtoon][popgo][dmhy][TLF][CHN][KOR][ARC]roytam1
------------------------------
我的Winamp正在播放的歌曲:
级别: 圣骑士
注册时间:
2003-04-13
在线时间:
21小时
发帖:
1669
只看该作者 51楼 发表于: 2004-08-20
引用
最初由 freeipb 发布
@ roytam1
应该不存在计时不准确的问题。。
另,你可以自己用别的办法计时,这样就知道是否准确了。。

我是用API計時的.....
vb的timer元件不準確

有事請pm我!   我的廢棄日記 ← 請多多光臨! <(_ _)>

----------------------

-E-D-2-K-----歡-迎-加-為-好-友-!-------
[KOR][TLF][eDtoon][CHN]rt87
[eDtoon][popgo][dmhy][TLF][CHN][KOR][ARC]roytam1
------------------------------
我的Winamp正在播放的歌曲:
级别: 新手上路
注册时间:
2003-06-08
在线时间:
0小时
发帖:
159
只看该作者 52楼 发表于: 2004-08-20
过周末去了,下周再来改进学习。。
多谢几位的指点:)
这里卧虎藏龙啊。。。

1M ADSL 上传极限60K 下载极限160K
犬夜叉TV/DVD MOVIE AVI共享中
级别: 侠客
注册时间:
2004-07-24
在线时间:
0小时
发帖:
341
只看该作者 53楼 发表于: 2004-08-20
试用一下先

我们都是废物
级别: 骑士
注册时间:
2002-10-24
在线时间:
0小时
发帖:
1463
只看该作者 54楼 发表于: 2004-08-20
尽管很少用,检查其他文件还是很有用的

出来混的总是要还的。。。老娘就是不信邪。
级别: 圣骑士
注册时间:
2003-04-13
在线时间:
21小时
发帖:
1669
只看该作者 55楼 发表于: 2004-08-23
引用
最初由 freeipb 发布
@ roytam1
多谢指点,一开始用的是API的GetOpenFileName,但是发现他在允许多选时的样子太难看,就换成用这个了。还有其他等同的API吗?
ps.我自己练手的一个程序,就没有必要公开源代码了。如果是想获得算法,可以上网搜,VB的CRC32一大堆,我的也是搜到的。


主要是設定好flag就可以了.....
引用

Type OPENFILENAME
lStructSize As Long
hWndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type

有事請pm我!   我的廢棄日記 ← 請多多光臨! <(_ _)>

----------------------

-E-D-2-K-----歡-迎-加-為-好-友-!-------
[KOR][TLF][eDtoon][CHN]rt87
[eDtoon][popgo][dmhy][TLF][CHN][KOR][ARC]roytam1
------------------------------
我的Winamp正在播放的歌曲:
级别: 新手上路
注册时间:
2003-06-16
在线时间:
0小时
发帖:
35
只看该作者 56楼 发表于: 2004-08-23
好多高手呀
级别: 侠客
注册时间:
2004-08-22
在线时间:
0小时
发帖:
519
只看该作者 57楼 发表于: 2004-08-23
支持一下 收了


宅到不能出门的tv游戏控必入

实相无相 无有定相 性空幻有 心无所住
级别: 新手上路
注册时间:
2003-06-07
在线时间:
0小时
发帖:
30
只看该作者 58楼 发表于: 2004-08-24
好东西啊,小巧方便
级别: 新手上路
注册时间:
2003-05-04
在线时间:
0小时
发帖:
231
只看该作者 59楼 发表于: 2004-08-24
校验什么格式的呢?
我一打开,WINDOWS就错误~~
呵呵
快速回复

限150 字节
上一个 下一个