简单的转换ie7缓存的dat文件到wma文件

shawind

以前在XP下用ie6，可以直接从缓存中找到网页上播放的wma文件。而最近换了win2008系统，ie7+wmp11的环境下，会给在线播放的wma文件加一定的保护。具体的流程是，把wma文件添加一定量的dump字节后，更名为dat文件缓存。于是弄了个小工具解决这个问题。编译后，与缓存好的dat文件放于同一目录，运行即可。

2. import std.stdio:writefln,writef,readln;
3. import std.file;
4. import std.c.stdio;
6. extern(C) int setlocale(int , char*);
7. static this()
8. {
9.     fwide(stdout,1);
10.     setlocale(0, "china");
11. }
13. void d2w(char[] name)
14. {
15.     byte[] dat;
16.     byte[] wma;
18.     writefln("你要修改的dat文件名：" ~ name);
19. //读入wma
20.     dat = cast(byte[])read(name);
21.     writef("原dat文件的大小为：" );
22.     writefln( dat.length );
24.     wma = dat[65536..dat.length];
25.     writef("改wma文件的大小为：" );
26.     writefln( wma.length );
27. //新文件名
28.     char[] wma_name = name[0 .. name.length-4] ~ ".wma";
30.     write(wma_name, wma);
32. }
34. //停住命令行
35. void pause()
36. {
37.     writefln("按任意键退出...");
38.     char[] t;
39.     readln(stdin, t);
40. }
42. //判断是不是dat后缀
43. int check(char[] name)
44. {
45.    if(name.length < 5)
46.    {
47.         return -1;
48.     }
49.     else
50.     {
51.         if (name[name.length-4 .. name.length] == ".dat")
52.         {
53. //            writefln(name);
54. //            writefln(name[name.length-4 .. name.length]);
55.             return 0;
56.         }
57.         else
58.         {
59.             return -1;
60.         }
61.     }
62. }
64. //入口
65. void main(char[][] args)
66. {
67.     if (args.length > 2)
68.     {
69.         goto End;
70.     }
72. //获取目录列表
73.     char[][] mylist = listdir(getcwd());
74.     writef("本目录下所有文件的数量为：");
75.     writefln(mylist.length);
77. //计数器
78.     int dc = 0;
80.     foreach(int i, char[] c; mylist)
81.     {
82.         if(!check(c))
83.         {
84.   //          writef(c);
85.   //          writefln("是dat文件");
86.                 d2w(c);
87.                 dc++;
88.         }
89.         else
90.         {
91.             writef(c);
92.             writefln("忽略");
93.         }
94.     }
96.     writef("被修改的dat文件是：");
97.     writef(dc);
98.     writefln("个");
100. End:
101.      pause();
102. }

复制代码

ravenex

但是……转换不正确。版主自己试过能行么？我是用这个地方的asx来试的：http://lantis-net.com/zettai/001h.asx，对应的缓存文件是zettai_high[1].dat
上面的代码的主要逻辑就是剪掉文件开头的65536个字节然后转存到另一个文件里。请问65536是从什么地方知道的？直接在我找的那个asx缓存得到的dat文件中里找不到WMA的signature，即便是在65536这个位置看也没什么特别的地方。请问版主可以帮忙看看有没有办法转换那个dat文件吗？

我是直接用Ruby来剪掉那65536字节，测试过得到的结果跟顶楼的程序一样。

1. #!/usr/bin/env ruby
3. def dat2wma(dat_file)
4.   if (dat_file =~ /^(.+)\\.dat$/i) && (!File.exist? "#{$1}.wma")
5.     content = nil
6.     open dat_file, 'rb' do |input|
7.       input.pos = 65536
8.       content = input.read
9.     end
10.     open "#{$1}.wma", 'wb' do |output|
11.       output.write content
12.     end
13.   else
14.     0
15.   end
16. end
18. def convert_folder(dir='.')
19.   Dir.entries(dir).grep(/\\.dat$/i).inject 0 do |count, file|
20.     print "Converting #{file}..."
21.     wma_len = dat2wma "#{dir}/#{file}"
22.     puts "done, written #{wma_len} bytes."
23.     count + 1
24.   end
25. end
27. if __FILE__ == $0
28.   count = convert_folder ARGV[0] || '.'
29.   puts "Done converting #{count} dat file(s)."
30. end

复制代码

另外想问一下，为什么连续的writef/writefln调用不用writefln(formatString, args)来代替？感觉清爽很多。而D里的数组切片也可以用$来指定数组末尾而不必用array.length这么麻烦的写法。然后获取文件后缀可以用std.path.getExt()，替换后缀可以用std.path.addExt()，不必自己做数组操作。

shawind

1.65535个字节的这个，就是直接在ie的页面上用wmp11放的那种wma。
我转的是那种常见国内的dj网站上的舞曲（有个亲戚需要），同时开个N的网页后，然后把dat文件找出来转一下就行了。一次就可以搞定N首。
而那个001h.asx实际连接的文件是个asf文件，如此处理应该不行吧。

2.下那个001h.asx，可以试试用一个现成的软件叫HiDownload。这个文件，很长的，等它自己播放完，然后找缓存太麻烦了。

3. 原理一样，ruby的结果和d的结果当然也一样。

4.writefln(formatString, args), 你不说，我都想不起来用格氏化...

5.$是比较后才加入的，忘了用了...

6.path的用法，我是临时查的文档，完全不知道全部用法...

7.我码代码的习惯太恶劣了，要改变，库文档也要多读...

ravenex

小的在XP下也是用IE7和WMP11，但是WMA缓存的时候还是普通的WMA，能直接找到
原来那个是ASF啊，那小的知道怎么做了～多谢版主大大！

小的写Ruby脚本放出来主要也是想对比下，觉着这种事情还就应该是脚本发挥作用的地方

shawind

所以我一开始就说了，在“win2008系统，ie7+wmp11的环境下”，呵呵～

是啊，用ruby写批量下指定的东西脚本很方便的，有封装的很好的http,ole模块。

secondsen

用ruby写批量下指定的东西脚本很方便的，有封装的很好的http,ole模块。

NND。。为什么我就没看过这些。。汗。。。那书我读得太少了

公仔迦南

版主能不能把编译好的文件上传，我不会编译

shawind

其实，这个程序有问题，不能100％转换出100％正确的wma文件，所以就不提供了。抱歉。