|
VERSION 4.00
Begin VB.Form frmEncryption
BorderStyle = 4 'Fixed ToolWindow
Caption = "Encryption"
ClientHeight = 4605
ClientLeft = 1440
ClientTop = 2250
ClientWidth = 6675
Height = 4950
Left = 1410
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
ScaleHeight = 4605
ScaleWidth = 6675
ShowInTaskbar = 0 'False
Top = 1935
Width = 6735
Begin VB.TextBox Text2
Height = 285
Left = 1890
TabIndex = 5
Top = 3870
Width = 4695
End
Begin VB.TextBox Text1
Height = 285
Left = 1890
TabIndex = 3
Top = 3510
Width = 4695
End
Begin VB.ListBox List1
Height = 2955
Left = 90
TabIndex = 1
Top = 360
Width = 6495
End
Begin VB.Label Label3
Caption = "Encryption is"
Height = 195
Left = 90
TabIndex = 6
Top = 4260
Width = 1725
End
Begin VB.Label Label4
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 285
Left = 1890
TabIndex = 7
Top = 4230
Width = 4695
End
Begin VB.Label Label5
Caption = "Enter a &key"
Height = 195
Left = 90
TabIndex = 4
Top = 3900
Width = 1725
End
Begin VB.Label Label2
Caption = "Enter a &string "
Height = 195
Left = 90
TabIndex = 2
Top = 3540
Width = 1725
End
Begin VB.Line Line1
BorderColor = &H00FFFFFF&
BorderStyle = 6 'Inside Solid
BorderWidth = 2
X1 = 0
X2 = 6660
Y1 = 3420
Y2 = 3420
End
Begin VB.Label Label1
Caption = "Encryption Samples"
Height = 195
Left = 90
TabIndex = 0
Top = 90
Width = 6495
End
End
Attribute VB_Name = "frmEncryption"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()
Dim i As Integer
Dim Tmp1 As String
Dim Tmp2 As String
Dim TmpE As String
Dim TmpD As String
Dim Data As String
Dim Value As String
TmpE = "Encryption of '"
Tmp1 = "' with '"
Tmp2 = "' is '"
TmpD = "Decryption of '~' with '~' is '~'"
Value = "mc security"
List1.Clear
Data = "ABCDEFGHIJKLMNOP"
List1.AddItem TmpE + Data + Tmp1 + Value + Tmp2 + cEncrypt(Data, Value, ENCRYPT_LEVEL_4) + "'"
Data = "ABCDEFGHIJKLMNO"
List1.AddItem TmpE + Data + Tmp1 + Value + Tmp2 + cEncrypt(Data, Value, ENCRYPT_LEVEL_4) + "'"
Data = "ABCDEFGHIJKLMN"
List1.AddItem TmpE + Data + Tmp1 + Value + Tmp2 + cEncrypt(Data, Value, ENCRYPT_LEVEL_4) + "'"
Data = "ABCDEFGHIJKLM"
List1.AddItem TmpE + Data + Tmp1 + Value + Tmp2 + cEncrypt(Data, Value, ENCRYPT_LEVEL_4) + "'"
Data = "ABCDEFGHIJKL"
List1.AddItem TmpE + Data + Tmp1 + Value + Tmp2 + cEncrypt(Data, Value, ENCRYPT_LEVEL_4) + "'"
Data = "ABCDEFGHIJK"
List1.AddItem TmpE + Data + Tmp1 + Value + Tmp2 + cEncrypt(Data, Value, ENCRYPT_LEVEL_4) + "'"
Data = "ABCDEFGHIJ"
List1.AddItem TmpE + Data + Tmp1 + Value + Tmp2 + cEncrypt(Data, Value, ENCRYPT_LEVEL_4) + "'"
List1.AddItem ""
Data = cEncrypt("ABCDEFGHIJKLMNOP", Value, ENCRYPT_LEVEL_4)
List1.AddItem TmpD + Data + Tmp1 + Value + Tmp2 + cDecrypt(Data, Value, ENCRYPT_LEVEL_4) + "'"
Data = cEncrypt("ABCDEFGHIJKLMNO", Value, ENCRYPT_LEVEL_4)
List1.AddItem TmpD + Data + Tmp1 + Value + Tmp2 + cDecrypt(Data, Value, ENCRYPT_LEVEL_4) + "'"
Data = cEncrypt("ABCDEFGHIJKLMN", Value, ENCRYPT_LEVEL_4)
List1.AddItem TmpD + Data + Tmp1 + Value + Tmp2 + cDecrypt(Data, Value, ENCRYPT_LEVEL_4) + "'"
Data = cEncrypt("ABCDEFGHIJKLM", Value, ENCRYPT_LEVEL_4)
List1.AddItem TmpD + Data + Tmp1 + Value + Tmp2 + cDecrypt(Data, Value, ENCRYPT_LEVEL_4) + "'"
Data = cEncrypt("ABCDEFGHIJKL", Value, ENCRYPT_LEVEL_4)
List1.AddItem TmpD + Data + Tmp1 + Value + Tmp2 + cDecrypt(Data, Value, ENCRYPT_LEVEL_4) + "'"
Data = cEncrypt("ABCDEFGHIJK", Value, ENCRYPT_LEVEL_4)
List1.AddItem TmpD + Data + Tmp1 + Value + Tmp2 + cDecrypt(Data, Value, ENCRYPT_LEVEL_4) + "'"
Data = cEncrypt("ABCDEFGHIJ", Value, ENCRYPT_LEVEL_4)
List1.AddItem TmpD + Data + Tmp1 + Value + Tmp2 + cDecrypt(Data, Value, ENCRYPT_LEVEL_4) + "'"
Text1.Text = "mc security"
Text2.Text = "1234567"
End Sub
Private Sub Text1_Change()
Label4.Caption = cEncrypt(Text1.Text, Text2.Text, ENCRYPT_LEVEL_4)
End Sub
Private Sub Text2_Change()
Label4.Caption = cEncrypt(Text1.Text, Text2.Text, ENCRYPT_LEVEL_4)
End Sub
|
