module1.bas

这是一个在vb下实现的各种加密程序,可以实现一般的文本加密和文件加密,但是很多算法都是已经被人破解过的.

Attribute VB_Name = "Module1"
Option Explicit

' The Ticker will call back into this function when
' the Interval has elapsed.
'
' The signature should be followed closely.
Public Sub TickerCallback(ByRef Ticker As Ticker, ByRef Data As Variant)
    ' We were smart enough to allow the Ticker to carry
    ' some data around for easy access during callbacks.
    Dim c As Counter
    Set c = Data
    c.Count = c.Count + 1
End Sub