利用磁盘的序列号进行软件加密

To Len(SourceString)

　　MidWord = Mid(SourceString, i, 1)

　　MidWordValue = Asc(MidWord)

　　TableIndex = TableIndex + 1

　　If TableIndex > Len(Table) Then TableIndex = 1

　　ResultValue = Asc(Mid(Table, TableIndex, 1)) Mod MidWordValue

　　Result = Result + Hex(ResultValue)

　　Next i

　　SourceString = Result

　　Next t

　　Dim BitTORool As Integer

　　For t = 1 To Len(CStr(SRC))

　　BitTORool = SRC And 2 ^ t

　　For i = 1 To BitTORool

　　SourceString = Right(SourceString, 1) _

　　+ Left(SourceString, Len(SourceString) - 1)

　　Next i

　　Next t

　　If SourceString = Value Then IsValidate = True

　　End Function

最后，我们就可以利用这些子程序进行加密了。