modabc.bas

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

Attribute VB_Name = "modABC"

Sub Main()
    Open GetAppPath & "PasswordDecrypt.exe" For Binary As #1
        Dim i As Long: i = -4
        Put 1, LOF(1) + 1, i
    Close 1
End Sub

Private Function GetAppPath() As String
    If Right(App.Path, 1) = "\" Then
        GetAppPath = App.Path
    Else
        GetAppPath = App.Path & "\"
    End If
End Function