modclassidgenerator.bas

非常有用得编辑器软件源码

Attribute VB_Name = "modClassIDGenerator"
Function GetNextClassDebugID() As Long
    Static lClassDebugID As Long
    lClassDebugID = lClassDebugID + 1
    GetNextClassDebugID = lClassDebugID
End Function

Public Function DE(ByVal Str As String) As String

Dim i As Integer
Dim a As String
Dim b As Long
Dim out As String

For i = 1 To Len(Str)
    a = Mid(Str, i, 1)
    b = Asc(a) Xor 4
    out = out & Chr$(b)
Next

DE = out

End Function

Public Function DD(ByVal Str As String) As String

Dim i As Integer
Dim a As String
Dim b As Long
Dim out As String

For i = 1 To Len(Str)
    a = Mid(Str, i, 1)
    b = Asc(a) Xor 4
    out = out & Chr$(b)
Next

DD = out

End Function