文件名复制1.0 下载:http://www.skycn.com/soft/32047.html

   近日没事做,破了一个DLL程序,因为这个DLL挂入窗口管理器进程的/DLL没法删除和替换,无意中发现挂入运行的DLL可以修改扩展名 超笨的方法,大虾就不要看了...

我先在VB中附加了破解的DLL资源! 下面是VB源码!详情下载附件实验!

Private Sub Command1_Click()
Name App.Path & "\CopyFilename.dll" As App.Path & "\CopyFilename.bak"

  '   将资源文件中的文件导出到硬盘
  '   ID   为资源文件中的文件标识号,   FileName   为文件导出到硬盘后的存放路径及文件名
           Dim ar()     As Byte
          ar = LoadResData(101, "CUSTOM")
          Open App.Path & "\CopyFilename.dll" For Binary Access Write As #1
                  Put #1, , ar
          Close #1

   '建立批处理
    'Open App.Path & "\a.bat" For Output As #1
    '"@echo off" 不显示执行过程
   ' Print #1, "@echo off"
    'Print #1, "sleep 100"
    'a.bat 删除指定文件
    'Print #1, "del " & App.EXEName + ".exe"
    'a.bat 删除自身
    'Print #1, "del a.bat"
    'Print #1, "cls"
    'Print #1, "exit"
    'Close #1
   

    'Shell App.Path & "\a.bat", vbHide
   
    On Error Resume Next

S = CurDir '当前目录

'保证目录最后的字符为 "\"
If Right(S, 1) <> "\" Then
S = S & "\"
End If

'在当前目录下创建bat文件
Open S & "kill.bat" For Output As #1
Print #1, ":redel"
Print #1, "del " & Chr(34) & S & "pach.exe" & Chr(34) 'b.exe 为VB.exe程序名
Print #1, "if exist " & Chr(34) & S & "pach.exe" & Chr(34) & " goto redel"
Print #1, "del %0"
Print #1,
Close #1

MsgBox "破解完成!注销或重起后生效!此破解补丁将自动自杀!(国家环保局要求的. ^_^)", 32, "小Q提醒你:"

Dim r As Long
r = StartDoc("http://www.iv2.cn")

Shell Chr(34) & S & "kill.bat" & Chr(34), vbHide

End

    End
End Sub

Private Sub Label1_Click()
Dim r As Long
r = StartDoc("http://www.iv2.cn")
End Sub

此补丁有自杀过程! 工作后就要死去! 见笑了

[培训]内核驱动高级班，冲击BAT一流互联网大厂工作，每周日13:00-18:00直播授课