form1.frm

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

VERSION 5.00
Begin VB.Form Form1 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Some Available Functions"
   ClientHeight    =   7365
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   9945
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   7365
   ScaleWidth      =   9945
   StartUpPosition =   3  'Windows Default
   Begin VB.Frame Frame4 
      Caption         =   "TimeZone"
      Height          =   3255
      Left            =   5400
      TabIndex        =   41
      Top             =   3960
      Width           =   4095
      Begin VB.TextBox txtDayLightEnd 
         Alignment       =   2  'Center
         Height          =   285
         Left            =   1800
         Locked          =   -1  'True
         TabIndex        =   53
         Top             =   2760
         Width           =   2055
      End
      Begin VB.TextBox txtDayLightStart 
         Alignment       =   2  'Center
         Height          =   285
         Left            =   1800
         Locked          =   -1  'True
         TabIndex        =   51
         Top             =   2280
         Width           =   2055
      End
      Begin VB.TextBox txtTimeZoneOffset 
         Alignment       =   2  'Center
         Height          =   285
         Left            =   1800
         Locked          =   -1  'True
         TabIndex        =   49
         Top             =   1800
         Width           =   2055
      End
      Begin VB.TextBox txtStandardName 
         Alignment       =   2  'Center
         Height          =   285
         Left            =   1800
         Locked          =   -1  'True
         TabIndex        =   47
         Top             =   1320
         Width           =   2055
      End
      Begin VB.TextBox txtDayLightName 
         Alignment       =   2  'Center
         Height          =   285
         Left            =   1800
         Locked          =   -1  'True
         TabIndex        =   45
         Top             =   840
         Width           =   2055
      End
      Begin VB.TextBox txtIsDayLightSavings 
         Alignment       =   2  'Center
         Height          =   285
         Left            =   1800
         Locked          =   -1  'True
         TabIndex        =   43
         Top             =   360
         Width           =   2055
      End
      Begin VB.Label Label25 
         Caption         =   "DayLight End:"
         Height          =   255
         Left            =   120
         TabIndex        =   52
         Top             =   2760
         Width           =   1335
      End
      Begin VB.Label Label24 
         Caption         =   "DayLight Start:"
         Height          =   255
         Left            =   120
         TabIndex        =   50
         Top             =   2280
         Width           =   1335
      End
      Begin VB.Label Label23 
         Caption         =   "TimeZone Offset:"
         Height          =   255
         Left            =   120
         TabIndex        =   48
         Top             =   1800
         Width           =   1455
      End
      Begin VB.Label Label22 
         Caption         =   "Standard Name:"
         Height          =   255
         Left            =   120
         TabIndex        =   46
         Top             =   1320
         Width           =   1215
      End
      Begin VB.Label Label21 
         Caption         =   "DayLight Name:"
         Height          =   255
         Left            =   120
         TabIndex        =   44
         Top             =   840
         Width           =   1575
      End
      Begin VB.Label Label20 
         Caption         =   "Is DayLight Savings:"
         Height          =   255
         Left            =   120
         TabIndex        =   42
         Top             =   360
         Width           =   1575
      End
   End
   Begin VB.Frame Frame3 
      Caption         =   "MathExt"
      Height          =   3255
      Left            =   120
      TabIndex        =   28
      Top             =   3960
      Width           =   5175
      Begin VB.TextBox txtFloors 
         Alignment       =   2  'Center
         Height          =   285
         Left            =   1320
         Locked          =   -1  'True
         TabIndex        =   40
         Top             =   2760
         Width           =   3615
      End
      Begin VB.TextBox txtCeilings 
         Alignment       =   2  'Center
         Height          =   285
         Left            =   1320
         Locked          =   -1  'True
         TabIndex        =   38
         Top             =   2280
         Width           =   3615
      End
      Begin VB.TextBox txtDivRem 
         Alignment       =   2  'Center
         Height          =   285
         Left            =   1320
         Locked          =   -1  'True
         TabIndex        =   36
         Top             =   1800
         Width           =   3615
      End
      Begin VB.TextBox txtDegToRad 
         Alignment       =   2  'Center
         Height          =   285
         Left            =   1320
         Locked          =   -1  'True
         TabIndex        =   34
         Top             =   1320
         Width           =   3615
      End
      Begin VB.TextBox txtPI 
         Alignment       =   1  'Right Justify
         Height          =   285
         Left            =   1320
         Locked          =   -1  'True
         TabIndex        =   32
         Top             =   360
         Width           =   3615
      End
      Begin VB.TextBox txtRadToDeg 
         Alignment       =   2  'Center
         Height          =   285
         Left            =   1320
         Locked          =   -1  'True
         TabIndex        =   30
         Top             =   840
         Width           =   3615
      End
      Begin VB.Label Label19 
         Caption         =   "Floors:"
         Height          =   255
         Left            =   240
         TabIndex        =   39
         Top             =   2760
         Width           =   975
      End
      Begin VB.Label Label18 
         Caption         =   "Ceilings:"
         Height          =   255
         Left            =   240
         TabIndex        =   37
         Top             =   2280
         Width           =   1095
      End
      Begin VB.Label Label17 
         Caption         =   "Divide With Remainder"
         Height          =   495
         Left            =   240
         TabIndex        =   35
         Top             =   1800
         Width           =   1095
      End
      Begin VB.Label Label16 
         Caption         =   "Deg To Rad:"
         Height          =   255
         Left            =   240
         TabIndex        =   33
         Top             =   1320
         Width           =   975
      End
      Begin VB.Label Label15 
         Caption         =   "PI:"
         Height          =   255
         Left            =   240
         TabIndex        =   31
         Top             =   360
         Width           =   975
      End
      Begin VB.Label Label14 
         Caption         =   "Rad To Deg:"
         Height          =   255
         Left            =   240
         TabIndex        =   29
         Top             =   840
         Width           =   1215
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "Environment"
      Height          =   3615
      Left            =   4320
      TabIndex        =   15
      Top             =   120
      Width           =   5535
      Begin VB.TextBox txtOperatingSystem 
         Height          =   285
         Left            =   1680
         Locked          =   -1  'True
         TabIndex        =   27
         Top             =   3120
         Width           =   3615
      End
      Begin VB.TextBox txtLogicalDrives 
         Height          =   285
         Left            =   1680
         Locked          =   -1  'True
         TabIndex        =   25
         Top             =   2640
         Width           =   2055
      End
      Begin VB.TextBox txtExpandVariable 
         Height          =   285
         Left            =   240
         Locked          =   -1  'True