您的位置：程序门 -> vb -> 多媒体

mp3歌曲能用vb加密吗？

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

mp3歌曲能用vb加密吗？

发表于：2008-02-01 11:59:42 楼主

mp3歌曲能加密吗，通过修改mp3文件的某些部分，使其不能播放，解密的时候再修改回来啊，不知如何实现，最好有源码

发表于：2008-02-01 13:06:241楼得分:0

我见过mp3歌曲播放时弹出ie浏览器，至于加密我没有做过！

发表于：2008-02-01 20:58:382楼得分:0

在mp3文件内部修改几处，使其不能顺利播放，得到授权后再修改过来，不知如何实现

发表于：2008-02-02 09:00:023楼得分:0

用汇编行不行？

发表于：2008-02-02 09:34:404楼得分:0

可以呀，以二进制方式读进文件，将前若干（例如 1024）字节加密。将加密的头部连同剩余部分写文件。解密时，解密文件头部，重新写一个临时文件供播放。

你可以将加密文件的扩展名改掉，变成你的解密程序的缺省打开文件。你写临时文件时恢复扩展名，然后用 shell 命令或 shellex api 打开它。

当然，如果你自己写播放器就更理想了。你只发布加密的文件，读入解密后不必写文件，直接播放。

发表于：2008-02-02 12:24:585楼得分:0

朋友，帮人帮到底，能不能简单写一下实现加密解密的源码啊？

发表于：2008-02-02 13:53:076楼得分:0

dim a（) as byte

private sub encode（)
open "c:\test\01.mp3" for binary as #1
redim a（lof（1) - 1)
get #1, , a
close #1

call code

open "c:\test\01.enc" for binary as #1
put #1, , a
close #1

kill "c:\test\01.mp3"
end sub

private sub decode（)
open "c:\test\01.dec" for binary as #1
redim a（lof（1) - 1)
get #1, , a
close #1

call code

open "c:\test\01.mp3" for binary as #1
put #1, , a
close #1
end sub

private sub code（)
dim key（7) as byte, i as integer
key（0) = &h20
key（1) = &h8
key（2) = &h2
key（3) = &h2
key（4) = &h13
key（5) = &h39
key（6) = &h24
key（7) = &h25

for i = 0 to 1023 step 8
a（i) = a（i) xor key（0)
a（i + 1) = a（i + 1) xor key（1)
a（i + 2) = a（i + 2) xor key（2)
a（i + 3) = a（i + 3) xor key（3)
a（i + 4) = a（i + 4) xor key（4)
a（i + 5) = a（i + 5) xor key（5)
a（i + 6) = a（i + 6) xor key（6)
a（i + 7) = a（i + 7) xor key（7)
next i
end sub

发表于：2008-02-02 19:41:207楼得分:0

有本事自己搞一个音频压缩格式。
不要老想着拿着盗版的mp3做文章。

发表于：2008-02-03 00:35:198楼得分:0

哈哈，按位xor啊，优点是速度快。
随便找个des算法试试看吧。

发表于：2008-02-04 15:29:009楼得分:0

自己写个播放器，hook api，比如加密mp3前32个字节，然后在播放时，做个钩子，拦截api createfilew（win2000以上) setfilepoint readfile等函数,在内存中对数据实时解密就行了。

发表于：2008-02-06 09:26:1510楼得分:0

能，请看http://hi.baidu.com/vbhome/blog/item/d60f786df8c30cf942169479.html

下一篇：用vb如何获取摄像头yuv数据流
上一篇：知道每个象素点rgb值,如何快速有效地输出、显示图片

其他资讯