搜索 社区服务 统计排行 帮助
发帖 回复
« 返回列表
«123»
共3页
上一主题下一主题
  • 1855阅读
  • 34回复

crc校验和vbb链接生成小工具(08.30更新)

 楼层直达
hiei
级别: 管理员
注册时间:
2002-12-19
在线时间:
244小时
发帖:
16411
只看楼主 更多操作 楼主  发表于: 2004-08-24
下载链接：
popgolink1.71.rar
功能：
1. 将ftp/http/ed2k链接转换为vbb链接的工具，为漫游论坛写的，
实际应该可以用在所有使用vbb语法的论坛上。
2. 计算CRC32值，给文件加上CRC32值，校验CRC32（和文件名中的CRC32值对比），删除文件名的CRC32值 。
支持的CRC32值形式有2种： [POPGO][Mousou][GB]07(3BC80ECE).avi 和 [POPGO][Hagaren][GB]44[CRC32_964B2550].avi 。

欢迎使用，有问题请反馈。
编程语言：Delphi

更新记录：
08.30:
v1.71 更好的字体显示，修正扩展ed2k链接转换错误的bug。
一定要更新，否则带源链接转换会出错的。

0825:
加入多语言支持，修正了CRC值首位为0时不显示首位的bug。
分享到 淘江湖 新浪 QQ微博 QQ空间 开心 人人 豆瓣 网易微博 百度 鲜果 白社会 飞信
-=eDtoon=-aru
----------------------------------------------------------------------------------------------
有空来看看我的
个人blog

崇尚猪的生活 ~
多吃多睡少说话~
回复 引用
举报顶端
MeteorRain
级别: 工作组
注册时间:
2003-08-26
在线时间:
13小时
发帖:
6600
只看该作者 34楼 发表于: 2004-08-30
用Unicode就能支持了…………
催片请点此处： http://bbs.popgo.org/bbs/read.php?tid=502402&displayMode=1#19103164
回复 引用
举报顶端
hiei
级别: 管理员
注册时间:
2002-12-19
在线时间:
244小时
发帖:
16411
只看该作者 33楼 发表于: 2004-08-30
因为繁体windows的问题，如果文件名、目录命名用了big5字符集外的汉字，就会找不到文件的。搜索了网上，暂时没有找到解决的方法...
-=eDtoon=-aru
----------------------------------------------------------------------------------------------
有空来看看我的
个人blog

崇尚猪的生活 ~
多吃多睡少说话~
回复 引用
举报顶端
0987654321
级别: 新手上路
注册时间:
2004-03-29
在线时间:
0小时
发帖:
164
只看该作者 32楼 发表于: 2004-08-30
再試1.71支援拖放與否
回复 引用
举报顶端
Ryiuy
级别: 新手上路
注册时间:
2004-08-26
在线时间:
0小时
发帖:
159
只看该作者 31楼 发表于: 2004-08-30
又更新了，感谢~~
回复 引用
举报顶端
hiei
级别: 管理员
注册时间:
2002-12-19
在线时间:
244小时
发帖:
16411
只看该作者 30楼 发表于: 2004-08-30
v1.71 更好的字体显示，修正扩展ed2k链接转换错误的bug。
一定要更新，否则带源链接转换会出错的。
在繁体win2k下界面比较难看。。。。
-=eDtoon=-aru
----------------------------------------------------------------------------------------------
有空来看看我的
个人blog

崇尚猪的生活 ~
多吃多睡少说话~
回复 引用
举报顶端
wowbvbv
级别: 骑士
注册时间:
2004-04-11
在线时间:
0小时
发帖:
1127
只看该作者 29楼 发表于: 2004-08-27
引用
最初由 hiei 发布
检查了一下，是因为你的文件名里面的中文字符不属于big5 字符集里面才导致的错误。。。。
换句话说，那几个中文字符是在简体才有的，在big5里面是没有的。
你试试，应该是不能在你的繁体输入法里面打入这几个字的。

字体显示问题修正了，请大家等待下一版本.

PS:不是无法打开以繁体字命名的文件，而是无法打开以简体字命名的文件... 因为big5字符集里面没有对应的字。。。



阿....真的耶.....
感謝嚕~~

因為我有灌"unicode補完計畫"
所以簡中日文也能正常顯示....
所以分不出來~呵呵~~~
回复 引用
举报顶端
神奇蜘蛛虾
级别: 精灵王
注册时间:
2004-01-15
在线时间:
0小时
发帖:
3510
只看该作者 28楼 发表于: 2004-08-26
感谢


神奇蜘蛛虾[Edtoon][CHN][TLF]levine
回复 引用
举报顶端
hiei
级别: 管理员
注册时间:
2002-12-19
在线时间:
244小时
发帖:
16411
只看该作者 27楼 发表于: 2004-08-26
检查了一下，是因为你的文件名里面的中文字符不属于big5 字符集里面才导致的错误。。。。
换句话说，那几个中文字符是在简体才有的，在big5里面是没有的。
你试试，应该是不能在你的繁体输入法里面打入这几个字的。

字体显示问题修正了，请大家等待下一版本.

PS:不是无法打开以繁体字命名的文件，而是无法打开以简体字命名的文件... 因为big5字符集里面没有对应的字。。。
-=eDtoon=-aru
----------------------------------------------------------------------------------------------
有空来看看我的
个人blog

崇尚猪的生活 ~
多吃多睡少说话~
回复 引用
举报顶端
wowbvbv
级别: 骑士
注册时间:
2004-04-11
在线时间:
0小时
发帖:
1127
只看该作者 26楼 发表于: 2004-08-25
引用
最初由 hiei 发布

是不是在CRC的相关操作下？ 我明天检查一下。
其实，62个字符也不少了。。。。



阿..........確實也是啦...呵呵....
其實是因為發現有些文件不能校驗...
以為是不是檔名問題~所以try一下字元長度...


後來發現不能校驗的文件...
不是出在字元長度的問題....而是存放的資料夾的問題...
應該又是作業系統語言的問題.....
只要資料夾是用繁體中文命名的....都不行校驗

怕說的不清楚
放張圖給大大看一下~

把資料夾的"星界紋章"去掉就可以校驗



特殊狀況..但把資料夾重新命成123就可以了....
回复 引用
举报顶端
hiei
级别: 管理员
注册时间:
2002-12-19
在线时间:
244小时
发帖:
16411
只看该作者 25楼 发表于: 2004-08-25
引用
最初由 wowbvbv 发布
ya~~~有多語版本下載了~~~感謝大大了~~~



我用後...發現一個小bug...就是文件支持長度最多只能62個字(英文及數字)

到長度超過62個字元的檔案都不能驗~~

是不是在CRC的相关操作下？ 我明天检查一下。
其实，62个字符也不少了。。。。

引用
最初由 YaoMing 发布
更新后文件变小是好事.但是是不是偶系统默认字体的关系，字体很难看，没以前的好..

ft....
原来用的是宋体，9号，加入多语言支持后被迫改了另外一种字体，看来还是要根据语言来指定不同的字体才行。
-=eDtoon=-aru
----------------------------------------------------------------------------------------------
有空来看看我的
个人blog

崇尚猪的生活 ~
多吃多睡少说话~
回复 引用
举报顶端
YaoMing
级别: 工作组
注册时间:
2003-03-21
在线时间:
0小时
发帖:
1996
只看该作者 24楼 发表于: 2004-08-25
更新后文件变小是好事.但是是不是偶系统默认字体的关系，字体很难看，没以前的好..

ID:-=eDtoon=-Ya0MinG@Bo0M^2[CHN]
今生性格似白狼
你的性格有如一隻的白狼，想像力豐富，你的人生目標與世俗觀念有很大出入，你亦不
易受人影響，處事獨立性強，頭腦冷靜，變化萬千。此外，你亦喜歡帶領別人做事，你
會提出很多的策略，而又令他們感到很滿意，所以朋友都覺得你很能幹，喜歡依賴別人
的異性與你最相配了。
回复 引用
举报顶端
wowbvbv
级别: 骑士
注册时间:
2004-04-11
在线时间:
0小时
发帖:
1127
只看该作者 23楼 发表于: 2004-08-25
ya~~~有多語版本下載了~~~感謝大大了~~~



我用後...發現一個小bug...就是文件支持長度最多只能62個字(英文及數字)

到長度超過62個字元的檔案都不能驗~~
回复 引用
举报顶端
hiei
级别: 管理员
注册时间:
2002-12-19
在线时间:
244小时
发帖:
16411
只看该作者 22楼 发表于: 2004-08-25
更新：
加入多语言支持，根据用户显示自动选择简体、繁体或英文。
加入crc计算时间显示。
-=eDtoon=-aru
----------------------------------------------------------------------------------------------
有空来看看我的
个人blog

崇尚猪的生活 ~
多吃多睡少说话~
回复 引用
举报顶端
MeteorRain
级别: 工作组
注册时间:
2003-08-26
在线时间:
13小时
发帖:
6600
只看该作者 21楼 发表于: 2004-08-25
复制代码
  1. [font=fixedsys]//全局
  2. var
  3. stopfl:boolean;
  4. //生成部分
  5. var
  6. hashcode:string or PChar;
  7. blocksize,filesize:longint;
  8. data:bin?;
  9. begin
  10. stopfl := false; //停止标志，用于中断此进程
  11. TODO: 检测被检查文件是否存在
  12. TODO: 检测被检查文件名+".hashset"是否存在。存在提示是否覆盖或者另存。
  13. blocksize := 取文本框值：分块大小 // 强制分块大小>= 32768字节。太小了不好……
  14. filesize := 取文件大小(infn);
  15. TODO: 打开被检测文件inf
  16. hashcode := ''
  17. while not eof(inf) do begin
  18. read(inf, blocksize个字节的字符 -> data);
  19. hashcode := hashcode + inttohex(GetMemoryStreamCrc32(data)) + #13#10;
  20. TODO: 进度条的显示
  21. if stopfl then begin
  22. close(inf)
  23. 中断
  24. end;
  25. end;
  26. close(inf);
  27. TODO: 将(filesize, #13#10, blocksize, #13#10, hashcode)写入.hashset文件中
  28. //校验文件生成完毕
  29. end;
  30. //
  31. //校验部分
  32. var
  33. hasherr:string or PChar;
  34. errcount:integer;
  35. blocksize,filesize:longint;
  36. data:bin?
  37. begin
  38. stopfl := false;
  39. hasherr := '';
  40. errcount := 0;
  41. TODO: 检查并打开hashset文件(inf2)
  42. TODO: 打开校验目标(inf)
  43. TODO: 读取filesize和blocksize。若filesize不相同，给出提示。
  44. while not eof(inf) do begin
  45. read(inf, 同上
  46. if inttohex(GetMemoryStreamCrc32(data)) = left(readln(inf2),8) then
  47. hasherr := hasherr + "1"
  48. else begin
  49. hasherr := hasherr + "0";
  50. inc(errcount);
  51. end;
  52. TODO: 进度条的显示
  53. if stopfl then begin
  54. close(inf)
  55. close(inf2)
  56. 中断
  57. end;
  58. end;
  59. close(inf);
  60. close(inf2);
  61. if errcount>0 then begin
  62. TODO: 将(fullfilename, #13#10, filesize(hashset里的filesize), #13#10,
  63. blocksize, #13#10, hasherr, #13#10)写入.bff文件中
  64. TODO: 提示用户用工具继续修复
  65. end;
  66. end;
  67. //
  68. //中断部分
  69. begin
  70. stopfl := true;
  71. end;
  72. //[/font]
基本都是框架，慢慢填哈……delphi好像用了数据流来读写文件了，和当年用readln和writeln差别好大啊哈哈……
催片请点此处： http://bbs.popgo.org/bbs/read.php?tid=502402&displayMode=1#19103164
回复 引用
举报顶端
发帖 回复
« 返回列表
«123»
共3页
上一主题下一主题
快速回复
限150 字节
上一个 下一个