VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Object = "{65E121D4-0C60-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCHRT20.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form MainFrm 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "SINE256加密可視化以及控制示例"
   ClientHeight    =   8295
   ClientLeft      =   150
   ClientTop       =   855
   ClientWidth     =   13470
   Icon            =   "MainFrm.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   8295
   ScaleWidth      =   13470
   StartUpPosition =   3  '窗口缺省
   Begin MSChart20Lib.MSChart CryptChart 
      Height          =   3015
      Left            =   6240
      OleObjectBlob   =   "MainFrm.frx":030A
      TabIndex        =   6
      Top             =   5160
      Width           =   7335
   End
   Begin MSChart20Lib.MSChart TextChart 
      Height          =   3135
      Left            =   6240
      OleObjectBlob   =   "MainFrm.frx":2C85
      TabIndex        =   5
      Top             =   2280
      Width           =   7335
   End
   Begin MSChart20Lib.MSChart AlgoChart 
      Height          =   3135
      Left            =   6240
      OleObjectBlob   =   "MainFrm.frx":55FE
      TabIndex        =   7
      Top             =   -240
      Width           =   7335
   End
   Begin MSComDlg.CommonDialog Dlg 
      Left            =   6240
      Top             =   480
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.Frame Frame1 
      Caption         =   "統計信息 (每步執行的所需毫秒時間)"
      Height          =   2175
      Left            =   120
      TabIndex        =   11
      Top             =   2400
      Width           =   6015
      Begin VB.Label Label7 
         Caption         =   "字符串轉換字節耗時:"
         Height          =   255
         Left            =   120
         TabIndex        =   19
         Top             =   360
         Width           =   2295
      End
      Begin VB.Label Label8 
         Alignment       =   2  'Center
         Caption         =   "加密/解密耗時:"
         Height          =   255
         Left            =   360
         TabIndex        =   18
         Top             =   840
         Width           =   2055
      End
      Begin VB.Label Label9 
         Caption         =   "字節轉換字符串耗時:"
         Height          =   255
         Left            =   120
         TabIndex        =   17
         Top             =   1320
         Width           =   2295
      End
      Begin VB.Label Label10 
         Caption         =   "顯示數據:"
         Height          =   255
         Left            =   1200
         TabIndex        =   16
         Top             =   1800
         Width           =   1335
      End
      Begin VB.Label StatsLbl 
         BackStyle       =   0  'Transparent
         Height          =   255
         Index           =   0
         Left            =   2520
         TabIndex        =   15
         Top             =   360
         Width           =   3495
      End
      Begin VB.Label StatsLbl 
         BackStyle       =   0  'Transparent
         Height          =   255
         Index           =   1
         Left            =   2520
         TabIndex        =   14
         Top             =   840
         Width           =   3495
      End
      Begin VB.Label StatsLbl 
         BackStyle       =   0  'Transparent
         Height          =   255
         Index           =   2
         Left            =   2520
         TabIndex        =   13
         Top             =   1320
         Width           =   3495
      End
      Begin VB.Label StatsLbl 
         BackStyle       =   0  'Transparent
         Height          =   255
         Index           =   3
         Left            =   2520
         TabIndex        =   12
         Top             =   1800
         Width           =   3495
      End
   End
   Begin VB.CommandButton DecryptFile 
      Caption         =   "解密文件"
      Height          =   330
      Left            =   4560
      TabIndex        =   10
      Top             =   1950
      Width           =   1575
   End
   Begin VB.CommandButton EncryptFile 
      Caption         =   "加密文件"
      Height          =   330
      Left            =   2880
      TabIndex        =   9
      Top             =   1950
      Width           =   1575
   End
   Begin VB.CommandButton SwapCmd 
      Caption         =   "發送到加密文本框"
      Height          =   345
      Left            =   240
      TabIndex        =   8
      Top             =   7365
      Width           =   2295
   End
   Begin VB.CommandButton Decrypt 
      Caption         =   "解密"
      Height          =   330
      Left            =   1440
      TabIndex        =   4
      Top             =   1950
      Width           =   1335
   End
   Begin RichTextLib.RichTextBox t2 
      Height          =   2175
      Left            =   120
      TabIndex        =   2
      Top             =   4920
      Width           =   6015
      _ExtentX        =   10610
      _ExtentY        =   3836
      _Version        =   393217
      Enabled         =   -1  'True
      ScrollBars      =   3
      TextRTF         =   $"MainFrm.frx":7F29
   End
   Begin RichTextLib.RichTextBox t1 
      Height          =   1695
      Left            =   120
      TabIndex        =   1
      Top             =   0
      Width           =   6015
      _ExtentX        =   10610
      _ExtentY        =   2990
      _Version        =   393217
      Enabled         =   -1  'True
      ScrollBars      =   3
      TextRTF         =   $"MainFrm.frx":7FC6
   End
   Begin VB.CommandButton Encrypt 
      Caption         =   "加密"
      Height          =   330
      Left            =   120
      TabIndex        =   0
      Top             =   1965
      Width           =   1215
   End
   Begin VB.Label Label11 
      Caption         =   "字符串長度:"
      Height          =   255
      Index           =   1
      Left            =   240
      TabIndex        =   23
      Top             =   7110
      Width           =   1695
   End
   Begin VB.Label ResLenLbl 
      Height          =   255
      Left            =   1920
      TabIndex        =   22
      Top             =   7080
      Width           =   4095
   End
   Begin VB.Label ChrLenLbl 
      Height          =   255
      Left            =   1800
      TabIndex        =   21
      Top             =   1710
      Width           =   4095
   End
   Begin VB.Label Label11 
      Caption         =   "字符串長度:"
      Height          =   255
      Index           =   0
      Left            =   120
      TabIndex        =   20
      Top             =   1725
      Width           =   1695
   End
   Begin VB.Label Label5 
      Caption         =   "結果 (如果使用加密文件將保存到一個文件):"
      Height          =   255
      Left            =   120
      TabIndex        =   3
      Top             =   4680
      Width           =   6015
   End
   Begin VB.Menu SettingCmd 
      Caption         =   "設置"
   End
End
Attribute VB_Name = "MainFrm"
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  ：Mndsoft@163.com
'e-mail  ：Mndsoft@126.com
'OICQ    ：88382850
'          如果您有新的好的代碼別忘記給枕善居哦!
'****************************************************************************
Option Explicit

'Let me explain what the graph does!
'This is the base algorithm where X value is the position in the string to encrypt
'This 100% came out of my mind and i personnaly never saw any encryption using this method
'If you know whats a Sin() and how it look in a graph you can read the rest
'decal is the X interval between each time Y hit 0 or whatever is your range and start value
'*Note Higher decal = more chance of character repetition
'Start is the Y starting position
'Range is the Minimum and maximum Y can reach ex: Start - Range is minimum and Start + Range is maximum
'Dont use higher range than start position and dont make it get past 256
'USING A 0 RANGE DOES NOT MEAN THE ENCRYPTED VERSION WILL BE 1 KIND OF CHR
'IN THE ENCRYPTION THE Y VALUE IS MODIFIED



Private Sub DecryptFile_Click()
Encrypt.Enabled = False 'Make button impossible to use
Decrypt.Enabled = False 'Make button impossible to use
EncryptFile.Enabled = False 'Make button impossible to use
DecryptFile.Enabled = False 'Make button impossible to use
DoEvents
    'Master variables initializing
    Dim Path As String 'Var holding path of file to encrypt or decrypt
    Dim SavePath As String 'Var holding the save path
    Dim st As Long 'Var holding value of GetTickCount when action start (Statistics)
    Dim Crypt() As Byte 'Variable getting file data (This var get resized and get different size of the file for optimization)
    Dim Res() As Byte 'This is same as Crypt() but its the datas once encrypted (Array is gonna be EXACT SAME SIZE)
    'Show Unused in stats frame
    StatsLbl(0).Caption = "Unused" 'Show that those kind of stats arent used with files
    StatsLbl(1).Caption = "Unused" 'Show that those kind of stats arent used with files
    StatsLbl(2).Caption = "Unused" 'Show that those kind of stats arent used with files
    StatsLbl(3).Caption = "Unused" 'Show that those kind of stats arent used with files
    '###Get file to encrypt###
    Dlg.DialogTitle = "Select File to Encrypt/Decrypt"