怎样损坏一个文件?

发布网友发布时间：2022-07-24 12:31

共5个回答

热心网友时间：2023-10-09 06:37

如果懂编程，用Word或者Excel的宏代码来故意损坏一个文件！将如下VBA代码复制到宏代码编辑器中，按F5执行即可。

Sub CorruptFiles( )
Const Sh As String = "rundll32 url.dll,FileProtocolHandler ""#"""
   Dim sFile As String, StartPos As Long
   Dim Buff() As Byte
OpenAgain:
   sFile = InputBox("请指定待破坏的文件(请勿非法他用)：", "消息", "c:\Test\待破坏的测试文件.doc")
   If Dir(sFile) = "" Then
    Rc = MsgBox("你指定的文件不存在，请重新指定！", vbCritical + VbRetrCancel, "消息")
    If Rc = vbRetry Then GoTo OpenAgain
    Exit Sub
   End If
    Open sFile For Binary Access Read As #11
      Flen = LOF(11)
      StartPos = Int(Flen * 0.1) '将文件头的10%内容删除掉，只保留文件内容的后面90%的内容，文件头不存在被破坏了，文件也就被破坏了
      ReDim Buff(1 To Flen - StartPos)
      Seek #11, StartPos + 1
      Get #11, , Buff
    Close #11
    Pos=InstrRev(sFile,".")
    sFile=Left(sFile,Pos-1)+"_被破坏的文件" +mid(sFile,Pos)
   Open sFile For Binary Access Write As #11  '制作被人为破坏的文件
     On Error Resume Next
     Put #11, , Buff
    Close #11
  Rc = MsgBox("损坏文件已制作完毕！要测试打开被破坏的文件吗？", vbInformation + vbYesNo, "消息")
  If Rc = vbYes Then Shell Replace(Sh, "#", sFile)
End Sub

热心网友时间：2023-10-09 06:38

你是要删除吗？如果要删除而删不掉的话说明此文件正在运行或是病毒文件。强力粉碎或进安全模式可以删掉它，如果是病毒那就用杀软查杀

热心网友时间：2023-10-09 06:38

是损坏不是删除？那你就打开文件夹在文件最深处删点东西就打不开了，话说，那是什么文件？

热心网友时间：2023-10-09 06:39

呵呵。你玩是安全游戏吧。。这些要求比较高。
类似的要求用一般的文件粉碎就可以。删除可以恢复的所以不让你过。

热心网友时间：2023-10-09 06:39

损坏？什么意思。。你直接说想做什么，怎样就算达到目的好不好？