modeditor.bas

自己写的多种加密算法 供有心人学习、解密

Attribute VB_Name = "modEditor"
Option Explicit

Sub Main()
    Dim ClipText As String
    Dim s() As String
    Dim i As Long
    Dim FileName As String
    On Error Resume Next
    ClipText = Clipboard.GetText
    s = Split(ClipText, vbCrLf)
    '修改使用次数
    FileName = s(0)
    i = Val(s(1)) - 1
reDo:
    DoEvents
    Open FileName For Binary As #1
        Err = False
        Put 1, LOF(1) - 3, i
    Close 1
    If Err Then GoTo reDo
    Call KillMe
End Sub

'得到根目录路径
Private Function GetAppPath() As String
    If Right(App.Path, 1) = "\" Then
        GetAppPath = App.Path
    Else
        GetAppPath = App.Path & "\"
    End If
End Function

Private Sub KillMe() '自杀
    Dim PathName As String, BatName As String
    PathName = GetAppPath & App.EXEName & ".EXE"
    BatName = GetAppPath + "KillBat.bat"
    Open BatName For Output As #1
    Print #1, ":START"
    Print #1, "del " & PathName
    Print #1, "if exist " & PathName & " GOTO START"
    Print #1, "del " & BatName
    Close #1
    Shell BatName, vbHide
    End
End Sub