vars.bas

比WinZip速度快很多的SINE256加密算法模块。支持指定密钥

Attribute VB_Name = "Vars"
'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：2007/03/15
'描    述：SINE256加密可视化以及控制示例
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Option Explicit
Public password As String 'Var holding the password string
Public decal As Double 'Var holding the decal double
Public start As Double 'Var holding the start double
Public rangE As Double 'Var holding the range double
Public PatternLen As Double 'Var holding until when X can go until it repeat the algorithm
Public Chunk As Double 'Buffer size per segment
Public cl As New SINE256cls