[分享]如何从excel或word中提取Flash动画文件？

tony@cq

QUOTE:

以下是引用zxzx2733在2007-11-1 0:32:23的发言：
问下楼主ULraEdit32还可作何用处，465753这个密码真奥妙，是不是换个密码还可破解其他什么？

UltraEdit 是能够满足你一切编辑需要的编辑器。UltraEdit 是一套功能强大的文本编辑器，可以编辑文本、十六进制、ASCII 码，可以取代记事本，内建英文单字检查、C++ 及 VB 指令突显，可同时编辑多个文件，而且即使开启很大的文件速度也不会慢。软件附有 HTML 标签颜色显示、搜寻替换以及无限制的还原功能，一般大家喜欢用其来修改EXE 或 DLL 文件。

yong119

厉害厉害

初试成功,非常感谢!

zhenzhen1115

好像还没有学会,哎,

tony@cq

那再仔细读一下吧，他们都会了的。

zez

谢谢分享

aichong

http://club.excelhome.net/dispbbs.asp?boardid=4&replyid=1138456&id=287282&page=1&skin=0&Star=4
打开xls文件,在代码窗口中插入如下代码

Sub ReadData()
Dim tmpFileName As String, FileNumber As Integer, OldName As String
Dim myFileId As Long
Dim myArr() As Byte
Dim i As Long
Dim MyFileLen As Long, myIndex As Long
Dim swfFileLen As Long
Dim swfArr() As Byte
tmpFileName = Application.GetOpenFilename("office File(*.doc;*.xls),*.doc;*.xls", , "确定要分析的office文件")
If tmpFileName = "False" Then Exit Sub
myFileId = FreeFile
Open tmpFileName For Binary As #myFileId
MyFileLen = LOF(myFileId)
ReDim myArr(MyFileLen - 1)
Get myFileId, , myArr()
Close myFileId
Application.ScreenUpdating = False
OldName = Left(tmpFileName, Len(tmpFileName) - 4)
i = 0
Do While i < MyFileLen
    If myArr(i) = &H46 Then
        If myArr(i + 1) = &H57 And myArr(i + 2) = &H53 Then
            swfFileLen = CLng(&H1000000) * myArr(i + 7) + CLng(&H10000) * myArr(i + 6) + CLng(&H100) * myArr(i + 5) + myArr(i + 4)
            ReDim swfArr(swfFileLen - 1)
            For myIndex = 0 To swfFileLen - 1
                swfArr(myIndex) = myArr(i + myIndex)
            Next myIndex
            myFileId = FreeFile
            tmpFileName = OldName & i & ".swf"
            Open tmpFileName For Binary As #myFileId
            Put #myFileId, , swfArr
            Close myFileId
            i = i + swfFileLen + 8
        Else
            i = i + 3
        End If
    Else
        i = i + 1
    End If
Loop
MsgBox "以" & OldName & "1-n.swf 名字保存"
End Sub

运行代码,可将flash文件导出,之后去网上下个flash破解精灵,就可以看到源码了.

三十而立

实在是高

datafield

删除465753这个数字之前所有内容，用这方法可以得到swf文件。可是这是什么原理，想了解一下。有人知道吗

ostrich

[glow=255,blue,2]学习中！[/glow]

3144

我不会吖。！我想问下怎么样从空间里面的画面拿取？http://qcc2088.qzone.qq.com/比如这种