settingfrm.frm

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

VERSION 5.00
Begin VB.Form SettingFrm 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "设置 - SINE256"
   ClientHeight    =   3765
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3660
   Icon            =   "SettingFrm.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3765
   ScaleWidth      =   3660
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox BufferTxt 
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   1560
      TabIndex        =   13
      Text            =   "1048576"
      Top             =   2400
      Width           =   975
   End
   Begin VB.CommandButton CloseCmd 
      Caption         =   "关闭"
      Height          =   345
      Left            =   2640
      TabIndex        =   11
      Top             =   3210
      Width           =   795
   End
   Begin VB.CommandButton ApplyCmd 
      Caption         =   "应用"
      Height          =   345
      Left            =   120
      TabIndex        =   10
      Top             =   3195
      Width           =   825
   End
   Begin VB.TextBox passTxt 
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   1560
      TabIndex        =   4
      Top             =   480
      Width           =   1695
   End
   Begin VB.TextBox DecalTxt 
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   1560
      TabIndex        =   3
      Text            =   "1"
      Top             =   1320
      Width           =   1695
   End
   Begin VB.TextBox StartTxt 
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   1560
      TabIndex        =   2
      Text            =   "128"
      Top             =   1680
      Width           =   495
   End
   Begin VB.TextBox rangeTxt 
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   1560
      TabIndex        =   1
      Text            =   "128"
      Top             =   2040
      Width           =   495
   End
   Begin VB.TextBox PatternTxt 
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   1560
      TabIndex        =   0
      Text            =   "50000"
      Top             =   960
      Width           =   1695
   End
   Begin VB.Label Label5 
      Alignment       =   2  'Center
      Caption         =   "缓冲大小 :"
      Height          =   225
      Left            =   360
      TabIndex        =   12
      Top             =   2460
      Width           =   975
   End
   Begin VB.Label Label1 
      Caption         =   "密码 :"
      Height          =   210
      Left            =   825
      TabIndex        =   9
      Top             =   510
      Width           =   645
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      Caption         =   "Decal :"
      Height          =   255
      Left            =   720
      TabIndex        =   8
      Top             =   1320
      Width           =   735
   End
   Begin VB.Label Label3 
      Alignment       =   2  'Center
      Caption         =   "起始 :"
      Height          =   255
      Left            =   840
      TabIndex        =   7
      Top             =   1680
      Width           =   615
   End
   Begin VB.Label Label4 
      Caption         =   "范围 :"
      Height          =   255
      Left            =   840
      TabIndex        =   6
      Top             =   2070
      Width           =   645
   End
   Begin VB.Label Label12 
      Caption         =   "再现样式 :"
      Height          =   210
      Left            =   510
      TabIndex        =   5
      Top             =   1020
      Width           =   945
   End
End
Attribute VB_Name = "SettingFrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：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
Private Sub ApplyCmd_Click()
    password = passTxt.Text
    decal = Val(DecalTxt.Text)
    start = Val(StartTxt.Text)
    rangE = Val(rangeTxt.Text)
    PatternLen = Val(PatternTxt.Text)
    Chunk = Val(BufferTxt.Text)
    
    Dim Xb() As Double
    'This draw the algorithm in a graph (This is the base stuff, nothing is mixed yet)
    Xb() = cl.MakeGraph(decal, start, rangE, PatternLen) 'Initialize the graphic in the class and in the graphic (NEED TO BE INITIALIZED AT LEAST ONCE FOR IT TO WORK)
    ChartIt2 MainFrm.AlgoChart, Xb() 'Refresh the top graph
End Sub

Private Sub CloseCmd_Click()
    Me.Hide
End Sub

Private Sub Form_Load()
    passTxt.Text = password
    DecalTxt.Text = decal
    StartTxt.Text = start
    rangeTxt.Text = rangE
    BufferTxt.Text = Chunk
    PatternTxt.Text = PatternLen
    
End Sub