PublicClass Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
Friend WithEvents txtNote As System.Windows.Forms.TextBox
Friend WithEvents mnuSaveAsItem As System.Windows.Forms.MenuItem
Friend WithEvents mnuInsertDateItem As System.Windows.Forms.MenuItem
Friend WithEvents mnuExitItem As System.Windows.Forms.MenuItem
Friend WithEvents SaveFileDialog1 As System.Windows.Forms.SaveFileDialog
Friend WithEvents lblNote As System.Windows.Forms.Label
Friend WithEvents mnuOpenItem As System.Windows.Forms.MenuItem
Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
Friend WithEvents mnuCloseItem As System.Windows.Forms.MenuItem
'Required by the Windows Form Designer
Private components As System.ComponentModel.Container
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer. 
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.mnuCloseItem = New System.Windows.Forms.MenuItem
Me.mnuSaveAsItem = New System.Windows.Forms.MenuItem
Me.lblNote = New System.Windows.Forms.Label
Me.MainMenu1 = New System.Windows.Forms.MainMenu
Me.MenuItem1 = New System.Windows.Forms.MenuItem
Me.mnuOpenItem = New System.Windows.Forms.MenuItem
Me.mnuInsertDateItem = New System.Windows.Forms.MenuItem
Me.mnuExitItem = New System.Windows.Forms.MenuItem
Me.txtNote = New System.Windows.Forms.TextBox
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog
Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog
Me.SuspendLayout()
'
'mnuCloseItem
'
Me.mnuCloseItem.Enabled = False
Me.mnuCloseItem.Index = 1
Me.mnuCloseItem.Text = "Close"
'
'mnuSaveAsItem
'
Me.mnuSaveAsItem.Index = 2
Me.mnuSaveAsItem.Text = "Save Encrypted File &As..."
'
'lblNote
'
Me.lblNote.Location = New System.Drawing.Point(16, 8)
Me.lblNote.Name = "lblNote"
Me.lblNote.Size = New System.Drawing.Size(344, 24)
Me.lblNote.TabIndex = 0
Me.lblNote.Text = "Type some text and then use Encryption commands."
'
'MainMenu1
'
Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1})
'
'MenuItem1
'
Me.MenuItem1.Index = 0
Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuOpenItem, Me.mnuCloseItem, Me.mnuSaveAsItem, Me.mnuInsertDateItem, Me.mnuExitItem})
Me.MenuItem1.Text = "File"
'
'mnuOpenItem
'
Me.mnuOpenItem.Index = 0
Me.mnuOpenItem.Text = "Open Encrypted File..."
'
'mnuInsertDateItem
'
Me.mnuInsertDateItem.Index = 3
Me.mnuInsertDateItem.Text = "&Insert Date"
'
'mnuExitItem
'
Me.mnuExitItem.Index = 4
Me.mnuExitItem.Text = "E&xit"
'
'txtNote
'
Me.txtNote.Location = New System.Drawing.Point(16, 48)
Me.txtNote.Multiline = True
Me.txtNote.Name = "txtNote"
Me.txtNote.ScrollBars = System.Windows.Forms.ScrollBars.Both
Me.txtNote.Size = New System.Drawing.Size(360, 184)
Me.txtNote.TabIndex = 1
Me.txtNote.Text = ""
'
'SaveFileDialog1
'
Me.SaveFileDialog1.FileName = "doc1"
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(392, 277)
Me.Controls.Add(Me.txtNote)
Me.Controls.Add(Me.lblNote)
Me.Menu = Me.MainMenu1
Me.Name = "Form1"
Me.Text = "Xor Encryption"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub mnuSaveAsItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuSaveAsItem.Click
Dim letter As Char
Dim strCode As String
Dim i, charsInFile, Code As Short
SaveFileDialog1.Filter = "Text files (*.txt)|*.txt"
SaveFileDialog1.ShowDialog()
If SaveFileDialog1.FileName <> "" Then
strCode = InputBox("Enter Encryption Code")
If strCode = "" Then Exit Sub 'if cancel clicked
'save text with encryption scheme
Code = CShort(strCode)
charsInFile = txtNote.Text.Length
FileOpen(1, SaveFileDialog1.FileName, OpenMode.Output)
For i = 0 To charsInFile - 1
letter = txtNote.Text.Substring(i, 1)
'convert to number w/ Asc, then use Xor to encrypt
Print(1, Asc(letter) Xor Code) 'and save in file
Next
FileClose(1)
mnuCloseItem.Enabled = True
End If
End Sub
Private Sub mnuInsertDateItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuInsertDateItem.Click
txtNote.Text = DateString & vbCrLf & txtNote.Text
txtNote.Select(1, 0) 'remove selection
End Sub
Private Sub mnuExitItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuExitItem.Click
End
End Sub
Private Sub mnuOpenItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuOpenItem.Click
Dim ch As Char
Dim strCode As String
Dim Code, Number As Short
Dim Decrypt As String = ""
OpenFileDialog1.Filter = "Text files (*.TXT)|*.TXT"
OpenFileDialog1.ShowDialog() 'display Open dialog box
If OpenFileDialog1.FileName <> "" Then
Try 'open file and trap any errors using handler
strCode = InputBox("Enter Encryption Code")
If strCode = "" Then Exit Sub 'if cancel clicked
Code = CShort(strCode)
FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)
Do Until EOF(1) 'read lines from file
Input(1, Number) 'read encrypted numbers
ch = Chr(Number Xor Code) 'convert with Xor
Decrypt = Decrypt & ch 'and build string
Loop
txtNote.Text = Decrypt 'then display converted string
lblNote.Text = OpenFileDialog1.FileName
txtNote.Select(1, 0) 'remove text selection
txtNote.Enabled = True 'allow text cursor
mnuCloseItem.Enabled = True 'enable Close command
mnuOpenItem.Enabled = False 'disable Open command
Catch
MsgBox("Error opening file.")
Finally
FileClose(1) 'close file
End Try
End If
End Sub
Private Sub mnuCloseItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuCloseItem.Click
txtNote.Text = "" 'clear text box
lblNote.Text = "Load a text file with the Open command."
mnuCloseItem.Enabled = False 'disable Close command
mnuOpenItem.Enabled = True 'enable Open command
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
EndClass