i2p/crypters-scode
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

initial commit

Browse Source
This commit is contained in:
i2p
2026-08-27 11:04:21 -06:00
commit 07a49a8c50
937 changed files with 196477 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
scode (KeepSave/KeepSave/App.config
+6
View File
@@ -0,0 +1,6 @@
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5.2" />
</startup>
</configuration>
scode (KeepSave/KeepSave/Form1.Designer.vb
Generated
+613
View File
@@ -0,0 +1,613 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class Form1
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'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.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.Timer2 = New System.Windows.Forms.Timer(Me.components)
Me.LogInThemeContainer1 = New KeepSave.LogInThemeContainer()
Me.LogInTabControl1 = New KeepSave.LogInTabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.LogInLabel2 = New KeepSave.LogInLabel()
Me.LogInLabel1 = New KeepSave.LogInLabel()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.LogInButton8 = New KeepSave.LogInButton()
Me.LogInButton7 = New KeepSave.LogInButton()
Me.LogInButton9 = New KeepSave.LogInButton()
Me.LogInButton6 = New KeepSave.LogInButton()
Me.LogInButton2 = New KeepSave.LogInButton()
Me.LogInButton1 = New KeepSave.LogInButton()
Me.LogInUserTextBox2 = New KeepSave.LogInUserTextBox()
Me.LogInLabel5 = New KeepSave.LogInLabel()
Me.LogInUserTextBox1 = New KeepSave.LogInUserTextBox()
Me.LogInLabel4 = New KeepSave.LogInLabel()
Me.LogInLabel3 = New KeepSave.LogInLabel()
Me.LogInComboBox1 = New KeepSave.LogInComboBox()
Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.LogInLabel7 = New KeepSave.LogInLabel()
Me.LogInLogButton1 = New KeepSave.LogInLogButton()
Me.LogInLabel8 = New KeepSave.LogInLabel()
Me.LogInButton4 = New KeepSave.LogInButton()
Me.LogInUserTextBox4 = New KeepSave.LogInUserTextBox()
Me.LogInLabel9 = New KeepSave.LogInLabel()
Me.LogInLogButton2 = New KeepSave.LogInLogButton()
Me.LogInSeperator1 = New KeepSave.LogInSeperator()
Me.LogInButton3 = New KeepSave.LogInButton()
Me.LogInUserTextBox3 = New KeepSave.LogInUserTextBox()
Me.LogInLabel6 = New KeepSave.LogInLabel()
Me.LogInThemeContainer1.SuspendLayout()
Me.LogInTabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage2.SuspendLayout()
Me.TabPage3.SuspendLayout()
Me.SuspendLayout()
'
'Timer1
'
'
'Timer2
'
'
'LogInThemeContainer1
'
Me.LogInThemeContainer1.AllowClose = True
Me.LogInThemeContainer1.AllowMaximize = True
Me.LogInThemeContainer1.AllowMinimize = True
Me.LogInThemeContainer1.BackColor = System.Drawing.Color.FromArgb(CType(CType(35, Byte), Integer), CType(CType(35, Byte), Integer), CType(CType(35, Byte), Integer))
Me.LogInThemeContainer1.BaseColour = System.Drawing.Color.FromArgb(CType(CType(35, Byte), Integer), CType(CType(35, Byte), Integer), CType(CType(35, Byte), Integer))
Me.LogInThemeContainer1.BorderColour = System.Drawing.Color.FromArgb(CType(CType(60, Byte), Integer), CType(CType(60, Byte), Integer), CType(CType(60, Byte), Integer))
Me.LogInThemeContainer1.CloseChoice = KeepSave.LogInThemeContainer.__CloseChoice.Form
Me.LogInThemeContainer1.ContainerColour = System.Drawing.Color.FromArgb(CType(CType(54, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(54, Byte), Integer))
Me.LogInThemeContainer1.Controls.Add(Me.LogInTabControl1)
Me.LogInThemeContainer1.Dock = System.Windows.Forms.DockStyle.Fill
Me.LogInThemeContainer1.FontColour = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
Me.LogInThemeContainer1.FontSize = 12
Me.LogInThemeContainer1.HoverColour = System.Drawing.Color.FromArgb(CType(CType(42, Byte), Integer), CType(CType(42, Byte), Integer), CType(CType(42, Byte), Integer))
Me.LogInThemeContainer1.Location = New System.Drawing.Point(0, 0)
Me.LogInThemeContainer1.Movable = True
Me.LogInThemeContainer1.Name = "LogInThemeContainer1"
Me.LogInThemeContainer1.ShowIcon = True
Me.LogInThemeContainer1.Sizable = True
Me.LogInThemeContainer1.Size = New System.Drawing.Size(379, 312)
Me.LogInThemeContainer1.SmartBounds = True
Me.LogInThemeContainer1.TabIndex = 0
Me.LogInThemeContainer1.Text = "KeepSave"
'
'LogInTabControl1
'
Me.LogInTabControl1.ActiveColour = System.Drawing.Color.FromArgb(CType(CType(47, Byte), Integer), CType(CType(47, Byte), Integer), CType(CType(47, Byte), Integer))
Me.LogInTabControl1.BackTabColour = System.Drawing.Color.FromArgb(CType(CType(54, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(54, Byte), Integer))
Me.LogInTabControl1.BaseColour = System.Drawing.Color.FromArgb(CType(CType(35, Byte), Integer), CType(CType(35, Byte), Integer), CType(CType(35, Byte), Integer))
Me.LogInTabControl1.BorderColour = System.Drawing.Color.FromArgb(CType(CType(30, Byte), Integer), CType(CType(30, Byte), Integer), CType(CType(30, Byte), Integer))
Me.LogInTabControl1.Controls.Add(Me.TabPage1)
Me.LogInTabControl1.Controls.Add(Me.TabPage2)
Me.LogInTabControl1.Controls.Add(Me.TabPage3)
Me.LogInTabControl1.Font = New System.Drawing.Font("Segoe UI", 10.0!)
Me.LogInTabControl1.HorizontalLineColour = System.Drawing.Color.FromArgb(CType(CType(23, Byte), Integer), CType(CType(119, Byte), Integer), CType(CType(151, Byte), Integer))
Me.LogInTabControl1.ItemSize = New System.Drawing.Size(240, 32)
Me.LogInTabControl1.Location = New System.Drawing.Point(-3, 31)
Me.LogInTabControl1.Name = "LogInTabControl1"
Me.LogInTabControl1.SelectedIndex = 0
Me.LogInTabControl1.Size = New System.Drawing.Size(381, 281)
Me.LogInTabControl1.TabIndex = 0
Me.LogInTabControl1.TextColour = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
Me.LogInTabControl1.UpLineColour = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(160, Byte), Integer), CType(CType(199, Byte), Integer))
'
'TabPage1
'
Me.TabPage1.BackColor = System.Drawing.Color.FromArgb(CType(CType(54, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(54, Byte), Integer))
Me.TabPage1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.TabPage1.Controls.Add(Me.LogInLabel2)
Me.TabPage1.Controls.Add(Me.LogInLabel1)
Me.TabPage1.Controls.Add(Me.PictureBox1)
Me.TabPage1.Location = New System.Drawing.Point(4, 36)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(373, 241)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Home"
'
'LogInLabel2
'
Me.LogInLabel2.AutoSize = True
Me.LogInLabel2.BackColor = System.Drawing.Color.Transparent
Me.LogInLabel2.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.LogInLabel2.FontColour = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
Me.LogInLabel2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
Me.LogInLabel2.Location = New System.Drawing.Point(40, 208)
Me.LogInLabel2.Name = "LogInLabel2"
Me.LogInLabel2.Size = New System.Drawing.Size(307, 15)
Me.LogInLabel2.TabIndex = 2
Me.LogInLabel2.Text = "Here you can Encrypt and decrypt pretty much anything!"
'
'LogInLabel1
'
Me.LogInLabel1.AutoSize = True
Me.LogInLabel1.BackColor = System.Drawing.Color.Transparent
Me.LogInLabel1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.LogInLabel1.FontColour = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
Me.LogInLabel1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
Me.LogInLabel1.Location = New System.Drawing.Point(130, 193)
Me.LogInLabel1.Name = "LogInLabel1"
Me.LogInLabel1.Size = New System.Drawing.Size(127, 15)
Me.LogInLabel1.TabIndex = 1
Me.LogInLabel1.Text = "Welcome to KeepSave!"
'
'PictureBox1
'
Me.PictureBox1.Image = Global.KeepSave.My.Resources.Resources.Loo
Me.PictureBox1.Location = New System.Drawing.Point(98, 6)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(196, 170)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBox1.TabIndex = 0
Me.PictureBox1.TabStop = False
'
'TabPage2
'
Me.TabPage2.BackColor = System.Drawing.Color.FromArgb(CType(CType(54, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(54, Byte), Integer))
Me.TabPage2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.TabPage2.Controls.Add(Me.LogInButton8)
Me.TabPage2.Controls.Add(Me.LogInButton7)
Me.TabPage2.Controls.Add(Me.LogInButton9)
Me.TabPage2.Controls.Add(Me.LogInButton6)
Me.TabPage2.Controls.Add(Me.LogInButton2)
Me.TabPage2.Controls.Add(Me.LogInButton1)
Me.TabPage2.Controls.Add(Me.LogInUserTextBox2)
Me.TabPage2.Controls.Add(Me.LogInLabel5)
Me.TabPage2.Controls.Add(Me.LogInUserTextBox1)
Me.TabPage2.Controls.Add(Me.LogInLabel4)
Me.TabPage2.Controls.Add(Me.LogInLabel3)
Me.TabPage2.Controls.Add(Me.LogInComboBox1)
Me.TabPage2.Location = New System.Drawing.Point(4, 36)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(373, 241)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Text Encoder"
'
'LogInButton8
'
Me.LogInButton8.BackColor = System.Drawing.Color.Transparent
Me.LogInButton8.BaseColour = System.Drawing.Color.FromArgb(CType(CType(42, Byte), Integer), CType(CType(42, Byte), Integer), CType(CType(42, Byte), Integer))
Me.LogInButton8.BorderColour = System.Drawing.Color.FromArgb(CType(CType(25, Byte), Integer), CType(CType(25, Byte), Integer), CType(CType(25, Byte), Integer))
Me.LogInButton8.FontColour = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
Me.LogInButton8.HoverColour = System.Drawing.Color.FromArgb(CType(CType(52, Byte), Integer), CType(CType(52, Byte), Integer), CType(CType(52, Byte), Integer))
Me.LogInButton8.Location = New System.Drawing.Point(308, 198)
Me.LogInButton8.Name = "LogInButton8"
Me.LogInButton8.PressedColour = System.Drawing.Color.FromArgb(CType(CType(47, Byte), Integer), CType(CType(47, Byte), Integer), CType(CType(47, Byte), Integer))
Me.LogInButton8.ProgressColour = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(191, Byte), Integer), CType(CType(255, Byte), Integer))
Me.LogInButton8.Size = New System.Drawing.Size(61, 30)
Me.LogInButton8.TabIndex = 12
Me.LogInButton8.Text = "▽"
'
'LogInButton7
'
Me.LogInButton7.BackColor = System.Drawing.Color.Transparent
Me.LogInButton7.BaseColour = System.Drawing.Color.FromArgb(CType(CType(42, Byte), Integer), CType(CType(42, Byte), Integer), CType(CType(42, Byte), Integer))
Me.LogInButton7.BorderColour = System.Drawing.Color.FromArgb(CType(CType(25, Byte), Integer), CType(CType(25, Byte), Integer), CType(CType(25, Byte), Integer))
Me.LogInButton7.FontColour = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
Me.LogInButton7.HoverColour = System.Drawing.Color.FromArgb(CType(CType(52, Byte), Integer), CType(CType(52, Byte), Integer), CType(CType(52, Byte), Integer))
Me.LogInButton7.Location = New System.Drawing.Point(308, 110)
Me.LogInButton7.Name = "LogInButton7"
Me.LogInButton7.PressedColour = System.Drawing.Color.FromArgb(CType(CType(47, Byte), Integer), CType(CType(47, Byte), Integer), CType(CType(47, Byte), Integer))
Me.LogInButton7.ProgressColour = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(191, Byte), Integer), CType(CType(255, Byte), Integer))
Me.LogInButton7.Size = New System.Drawing.Size(61, 30)
Me.LogInButton7.TabIndex = 11
Me.LogInButton7.Text = "△"
'
'LogInButton9
'
Me.LogInButton9.BackColor = System.Drawing.Color.Transparent
Me.LogInButton9.BaseColour = System.Drawing.Color.FromArgb(CType(CType(42, Byte), Integer), CType(CType(42, Byte), Integer), CType(CType(42, Byte), Integer))
Me.LogInButton9.BorderColour = System.Drawing.Color.FromArgb(CType(CType(25, Byte), Integer), CType(CType(25, Byte), Integer), CType(CType(25, Byte), Integer))
Me.LogInButton9.FontColour = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
Me.LogInButton9.HoverColour = System.Drawing.Color.FromArgb(CType(CType(52, Byte), Integer), CType(CType(52, Byte), Integer), CType(CType(52, Byte), Integer))
Me.LogInButton9.Location = New System.Drawing.Point(308, 163)
Me.LogInButton9.Name = "LogInButton9"
Me.LogInButton9.PressedColour = System.Drawing.Color.FromArgb(CType(CType(47, Byte), Integer), CType(CType(47, Byte), Integer), CType(CType(47, Byte), Integer))
Me.LogInButton9.ProgressColour = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(191, Byte), Integer), CType(CType(255, Byte), Integer))
Me.LogInButton9.Size = New System.Drawing.Size(61, 30)
Me.LogInButton9.TabIndex = 10
Me.LogInButton9.Text = "Copy"
'
'LogInButton6
'
Me.LogInButton6.BackColor = System.Drawing.Color.Transparent
Me.LogInButton6.BaseColour = System.Drawing.Color.FromArgb(CType(CType(42, Byte), Integer), CType(CType(42, Byte), Integer), CType(CType(42, Byte), Integer))
Me.LogInButton6.BorderColour = System.Drawing.Color.FromArgb(CType(CType(25, Byte), Integer), CType(CType(25, Byte), Integer), CType(CType(25, Byte), Integer))
Me.LogInButton6.FontColour = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
Me.LogInButton6.HoverColour = System.Drawing.Color.FromArgb(CType(CType(52, Byte), Integer), CType(CType(52, Byte), Integer), CType(CType(52, Byte), Integer))
Me.LogInButton6.Location = New System.Drawing.Point(308, 74)
Me.LogInButton6.Name = "LogInButton6"
Me.LogInButton6.PressedColour = System.Drawing.Color.FromArgb(CType(CType(47, Byte), Integer), CType(CType(47, Byte), Integer), CType(CType(47, Byte), Integer))
Me.LogInButton6.ProgressColour = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(191, Byte), Integer), CType(CType(255, Byte), Integer))
Me.LogInButton6.Size = New System.Drawing.Size(61, 30)
Me.LogInButton6.TabIndex = 8
Me.LogInButton6.Text = "Copy"
'
'LogInButton2
'
Me.LogInButton2.BackColor = System.Drawing.Color.Transparent
Me.LogInButton2.BaseColour = System.Drawing.Color.FromArgb(CType(CType(42, Byte), Integer), CType(CType(42, Byte), Integer), CType(CType(42, Byte), Integer))
Me.LogInButton2.BorderColour = System.Drawing.Color.FromArgb(CType(CType(25, Byte), Integer), CType(CType(25, Byte), Integer), CType(CType(25, Byte), Integer))
Me.LogInButton2.FontColour = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
Me.LogInButton2.HoverColour = System.Drawing.Color.FromArgb(CType(CType(52, Byte), Integer), CType(CType(52, Byte), Integer), CType(CType(52, Byte), Integer))
Me.LogInButton2.Location = New System.Drawing.Point(310, 26)
Me.LogInButton2.Name = "LogInButton2"
Me.LogInButton2.PressedColour = System.Drawing.Color.FromArgb(CType(CType(47, Byte), Integer), CType(CType(47, Byte), Integer), CType(CType(47, Byte), Integer))
Me.LogInButton2.ProgressColour = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(191, Byte), Integer), CType(CType(255, Byte), Integer))
Me.LogInButton2.Size = New System.Drawing.Size(61, 26)
Me.LogInButton2.TabIndex = 7
Me.LogInButton2.Text = "Decrypt"
'
'LogInButton1
'
Me.LogInButton1.BackColor = System.Drawing.Color.Transparent
Me.LogInButton1.BaseColour = System.Drawing.Color.FromArgb(CType(CType(42, Byte), Integer), CType(CType(42, Byte), Integer), CType(CType(42, Byte), Integer))
Me.LogInButton1.BorderColour = System.Drawing.Color.FromArgb(CType(CType(25, Byte), Integer), CType(CType(25, Byte), Integer), CType(CType(25, Byte), Integer))
Me.LogInButton1.FontColour = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
Me.LogInButton1.HoverColour = System.Drawing.Color.FromArgb(CType(CType(52, Byte), Integer), CType(CType(52, Byte), Integer), CType(CType(52, Byte), Integer))
Me.LogInButton1.Location = New System.Drawing.Point(247, 26)
Me.LogInButton1.Name = "LogInButton1"
Me.LogInButton1.PressedColour = System.Drawing.Color.FromArgb(CType(CType(47, Byte), Integer), CType(CType(47, Byte), Integer), CType(CType(47, Byte), Integer))
Me.LogInButton1.ProgressColour = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(191, Byte), Integer), CType(CType(255, Byte), Integer))
Me.LogInButton1.Size = New System.Drawing.Size(57, 26)
Me.LogInButton1.TabIndex = 6
Me.LogInButton1.Text = "Encrypt"
'
'LogInUserTextBox2
'
Me.LogInUserTextBox2.BackColor = System.Drawing.Color.Transparent
Me.LogInUserTextBox2.BackgroundColour = System.Drawing.Color.FromArgb(CType(CType(42, Byte), Integer), CType(CType(42, Byte), Integer), CType(CType(42, Byte), Integer))
Me.LogInUserTextBox2.BorderColour = System.Drawing.Color.FromArgb(CType(CType(35, Byte), Integer), CType(CType(35, Byte), Integer), CType(CType(35, Byte), Integer))
Me.LogInUserTextBox2.Location = New System.Drawing.Point(4, 163)
Me.LogInUserTextBox2.MaxLength = 32767
Me.LogInUserTextBox2.Multiline = True
Me.LogInUserTextBox2.Name = "LogInUserTextBox2"
Me.LogInUserTextBox2.ReadOnly = False
Me.LogInUserTextBox2.Size = New System.Drawing.Size(300, 65)
Me.LogInUserTextBox2.TabIndex = 5
Me.LogInUserTextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Left
Me.LogInUserTextBox2.TextColour = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
Me.LogInUserTextBox2.UseSystemPasswordChar = False
'
'LogInLabel5
'
Me.LogInLabel5.AutoSize = True
Me.LogInLabel5.BackColor = System.Drawing.Color.Transparent
Me.LogInLabel5.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.LogInLabel5.FontColour = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
Me.LogInLabel5.ForeColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
Me.LogInLabel5.Location = New System.Drawing.Point(6, 145)
Me.LogInLabel5.Name = "LogInLabel5"
Me.LogInLabel5.Size = New System.Drawing.Size(48, 15)
Me.LogInLabel5.TabIndex = 4
Me.LogInLabel5.Text = "Output:"
'
'LogInUserTextBox1
'
Me.LogInUserTextBox1.BackColor = System.Drawing.Color.Transparent
Me.LogInUserTextBox1.BackgroundColour = System.Drawing.Color.FromArgb(CType(CType(42, Byte), Integer), CType(CType(42, Byte), Integer), CType(CType(42, Byte), Integer))
Me.LogInUserTextBox1.BorderColour = System.Drawing.Color.FromArgb(CType(CType(35, Byte), Integer), CType(CType(35, Byte), Integer), CType(CType(35, Byte), Integer))
Me.LogInUserTextBox1.Location = New System.Drawing.Point(4, 74)
Me.LogInUserTextBox1.MaxLength = 32767
Me.LogInUserTextBox1.Multiline = True
Me.LogInUserTextBox1.Name = "LogInUserTextBox1"
Me.LogInUserTextBox1.ReadOnly = False
Me.LogInUserTextBox1.Size = New System.Drawing.Size(298, 65)
Me.LogInUserTextBox1.TabIndex = 3
Me.LogInUserTextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Left
Me.LogInUserTextBox1.TextColour = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
Me.LogInUserTextBox1.UseSystemPasswordChar = False
'
'LogInLabel4
'
Me.LogInLabel4.AutoSize = True
Me.LogInLabel4.BackColor = System.Drawing.Color.Transparent
Me.LogInLabel4.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.LogInLabel4.FontColour = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
Me.LogInLabel4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
Me.LogInLabel4.Location = New System.Drawing.Point(7, 55)
Me.LogInLabel4.Name = "LogInLabel4"
Me.LogInLabel4.Size = New System.Drawing.Size(38, 15)
Me.LogInLabel4.TabIndex = 2
Me.LogInLabel4.Text = "Input:"
'
'LogInLabel3
'
Me.LogInLabel3.AutoSize = True
Me.LogInLabel3.BackColor = System.Drawing.Color.Transparent
Me.LogInLabel3.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.LogInLabel3.FontColour = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
Me.LogInLabel3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
Me.LogInLabel3.Location = New System.Drawing.Point(2, 8)
Me.LogInLabel3.Name = "LogInLabel3"
Me.LogInLabel3.Size = New System.Drawing.Size(112, 15)
Me.LogInLabel3.TabIndex = 1
Me.LogInLabel3.Text = "Encryption Method:"
'
'LogInComboBox1
'
Me.LogInComboBox1.ArrowColour = System.Drawing.Color.FromArgb(CType(CType(30, Byte), Integer), CType(CType(30, Byte), Integer), CType(CType(30, Byte), Integer))
Me.LogInComboBox1.BackColor = System.Drawing.Color.Transparent
Me.LogInComboBox1.BaseColour = System.Drawing.Color.FromArgb(CType(CType(42, Byte), Integer), CType(CType(42, Byte), Integer), CType(CType(42, Byte), Integer))
Me.LogInComboBox1.BorderColour = System.Drawing.Color.FromArgb(CType(CType(35, Byte), Integer), CType(CType(35, Byte), Integer), CType(CType(35, Byte), Integer))
Me.LogInComboBox1.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
Me.LogInComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.LogInComboBox1.Font = New System.Drawing.Font("Segoe UI", 10.0!)
Me.LogInComboBox1.FontColour = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
Me.LogInComboBox1.FormattingEnabled = True
Me.LogInComboBox1.Items.AddRange(New Object() {"AES", "RC2", "RSA", "XOR", "DES", "TrippleDES", "HAZZ 15", "TIGO3FX", "GILA 7", "ESAB 46", "Megan 35", "Zong 22", "ROT13", "Ceasar Shift", "Rijndael", "ATOM 128", "ZARA 128", "EnvY'S Encryption"})
Me.LogInComboBox1.LineColour = System.Drawing.Color.FromArgb(CType(CType(23, Byte), Integer), CType(CType(119, Byte), Integer), CType(CType(151, Byte), Integer))
Me.LogInComboBox1.Location = New System.Drawing.Point(4, 26)
Me.LogInComboBox1.Name = "LogInComboBox1"
Me.LogInComboBox1.Size = New System.Drawing.Size(237, 26)
Me.LogInComboBox1.SqaureColour = System.Drawing.Color.FromArgb(CType(CType(47, Byte), Integer), CType(CType(47, Byte), Integer), CType(CType(47, Byte), Integer))
Me.LogInComboBox1.SqaureHoverColour = System.Drawing.Color.FromArgb(CType(CType(52, Byte), Integer), CType(CType(52, Byte), Integer), CType(CType(52, Byte), Integer))
Me.LogInComboBox1.StartIndex = 0
Me.LogInComboBox1.TabIndex = 0
'
'TabPage3
'
Me.TabPage3.BackColor = System.Drawing.Color.FromArgb(CType(CType(54, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(54, Byte), Integer))
Me.TabPage3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.TabPage3.Controls.Add(Me.LogInLabel7)
Me.TabPage3.Controls.Add(Me.LogInLogButton1)
Me.TabPage3.Controls.Add(Me.LogInLabel8)
Me.TabPage3.Controls.Add(Me.LogInButton4)
Me.TabPage3.Controls.Add(Me.LogInUserTextBox4)
Me.TabPage3.Controls.Add(Me.LogInLabel9)
Me.TabPage3.Controls.Add(Me.LogInLogButton2)
Me.TabPage3.Controls.Add(Me.LogInSeperator1)
Me.TabPage3.Controls.Add(Me.LogInButton3)
Me.TabPage3.Controls.Add(Me.LogInUserTextBox3)
Me.TabPage3.Controls.Add(Me.LogInLabel6)
Me.TabPage3.Location = New System.Drawing.Point(4, 36)
Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage3.Size = New System.Drawing.Size(373, 241)
Me.TabPage3.TabIndex = 2
Me.TabPage3.Text = "File Fucker"
'
'LogInLabel7
'
Me.LogInLabel7.AutoSize = True
Me.LogInLabel7.BackColor = System.Drawing.Color.Transparent
Me.LogInLabel7.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.LogInLabel7.FontColour = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
Me.LogInLabel7.ForeColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
Me.LogInLabel7.Location = New System.Drawing.Point(65, 76)
Me.LogInLabel7.Name = "LogInLabel7"
Me.LogInLabel7.Size = New System.Drawing.Size(57, 15)
Me.LogInLabel7.TabIndex = 13
Me.LogInLabel7.Text = "Waiting..."
'
'LogInLogButton1
'
Me.LogInLogButton1.ArcColour = System.Drawing.Color.FromArgb(CType(CType(43, Byte), Integer), CType(CType(43, Byte), Integer), CType(CType(43, Byte), Integer))
Me.LogInLogButton1.ArrowBorderColour = System.Drawing.Color.FromArgb(CType(CType(170, Byte), Integer), CType(CType(170, Byte), Integer), CType(CType(170, Byte), Integer))
Me.LogInLogButton1.ArrowColour = System.Drawing.Color.FromArgb(CType(CType(235, Byte), Integer), CType(CType(233, Byte), Integer), CType(CType(234, Byte), Integer))
Me.LogInLogButton1.BackColor = System.Drawing.Color.FromArgb(CType(CType(54, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(54, Byte), Integer))
Me.LogInLogButton1.BorderColour = System.Drawing.Color.FromArgb(CType(CType(35, Byte), Integer), CType(CType(35, Byte), Integer), CType(CType(35, Byte), Integer))
Me.LogInLogButton1.HoverColour = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(130, Byte), Integer), CType(CType(169, Byte), Integer))
Me.LogInLogButton1.Location = New System.Drawing.Point(9, 57)
Me.LogInLogButton1.Name = "LogInLogButton1"
Me.LogInLogButton1.NormalColour = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(160, Byte), Integer), CType(CType(199, Byte), Integer))
Me.LogInLogButton1.PressedColour = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(145, Byte), Integer), CType(CType(184, Byte), Integer))
Me.LogInLogButton1.Size = New System.Drawing.Size(50, 50)
Me.LogInLogButton1.TabIndex = 12
Me.LogInLogButton1.Text = "LogInLogButton1"
'
'LogInLabel8
'
Me.LogInLabel8.AutoSize = True
Me.LogInLabel8.BackColor = System.Drawing.Color.Transparent
Me.LogInLabel8.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.LogInLabel8.FontColour = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
Me.LogInLabel8.ForeColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
Me.LogInLabel8.Location = New System.Drawing.Point(65, 191)
Me.LogInLabel8.Name = "LogInLabel8"
Me.LogInLabel8.Size = New System.Drawing.Size(57, 15)
Me.LogInLabel8.TabIndex = 10
Me.LogInLabel8.Text = "Waiting..."
'
'LogInButton4
'
Me.LogInButton4.BackColor = System.Drawing.Color.Transparent
Me.LogInButton4.BaseColour = System.Drawing.Color.FromArgb(CType(CType(42, Byte), Integer), CType(CType(42, Byte), Integer), CType(CType(42, Byte), Integer))
Me.LogInButton4.BorderColour = System.Drawing.Color.FromArgb(CType(CType(25, Byte), Integer), CType(CType(25, Byte), Integer), CType(CType(25, Byte), Integer))
Me.LogInButton4.FontColour = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
Me.LogInButton4.HoverColour = System.Drawing.Color.FromArgb(CType(CType(52, Byte), Integer), CType(CType(52, Byte), Integer), CType(CType(52, Byte), Integer))
Me.LogInButton4.Location = New System.Drawing.Point(317, 141)
Me.LogInButton4.Name = "LogInButton4"
Me.LogInButton4.PressedColour = System.Drawing.Color.FromArgb(CType(CType(47, Byte), Integer), CType(CType(47, Byte), Integer), CType(CType(47, Byte), Integer))
Me.LogInButton4.ProgressColour = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(191, Byte), Integer), CType(CType(255, Byte), Integer))
Me.LogInButton4.Size = New System.Drawing.Size(52, 29)
Me.LogInButton4.TabIndex = 9
Me.LogInButton4.Text = "..."
'
'LogInUserTextBox4
'
Me.LogInUserTextBox4.BackColor = System.Drawing.Color.Transparent
Me.LogInUserTextBox4.BackgroundColour = System.Drawing.Color.FromArgb(CType(CType(42, Byte), Integer), CType(CType(42, Byte), Integer), CType(CType(42, Byte), Integer))
Me.LogInUserTextBox4.BorderColour = System.Drawing.Color.FromArgb(CType(CType(35, Byte), Integer), CType(CType(35, Byte), Integer), CType(CType(35, Byte), Integer))
Me.LogInUserTextBox4.Location = New System.Drawing.Point(9, 141)
Me.LogInUserTextBox4.MaxLength = 32767
Me.LogInUserTextBox4.Multiline = False
Me.LogInUserTextBox4.Name = "LogInUserTextBox4"
Me.LogInUserTextBox4.ReadOnly = True
Me.LogInUserTextBox4.Size = New System.Drawing.Size(302, 29)
Me.LogInUserTextBox4.TabIndex = 8
Me.LogInUserTextBox4.TextAlign = System.Windows.Forms.HorizontalAlignment.Left
Me.LogInUserTextBox4.TextColour = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
Me.LogInUserTextBox4.UseSystemPasswordChar = False
'
'LogInLabel9
'
Me.LogInLabel9.AutoSize = True
Me.LogInLabel9.BackColor = System.Drawing.Color.Transparent
Me.LogInLabel9.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.LogInLabel9.FontColour = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
Me.LogInLabel9.ForeColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
Me.LogInLabel9.Location = New System.Drawing.Point(6, 123)
Me.LogInLabel9.Name = "LogInLabel9"
Me.LogInLabel9.Size = New System.Drawing.Size(161, 15)
Me.LogInLabel9.TabIndex = 7
Me.LogInLabel9.Text = "Please select a file to decrypt!"
'
'LogInLogButton2
'
Me.LogInLogButton2.ArcColour = System.Drawing.Color.FromArgb(CType(CType(43, Byte), Integer), CType(CType(43, Byte), Integer), CType(CType(43, Byte), Integer))
Me.LogInLogButton2.ArrowBorderColour = System.Drawing.Color.FromArgb(CType(CType(170, Byte), Integer), CType(CType(170, Byte), Integer), CType(CType(170, Byte), Integer))
Me.LogInLogButton2.ArrowColour = System.Drawing.Color.FromArgb(CType(CType(235, Byte), Integer), CType(CType(233, Byte), Integer), CType(CType(234, Byte), Integer))
Me.LogInLogButton2.BackColor = System.Drawing.Color.FromArgb(CType(CType(54, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(54, Byte), Integer))
Me.LogInLogButton2.BorderColour = System.Drawing.Color.FromArgb(CType(CType(35, Byte), Integer), CType(CType(35, Byte), Integer), CType(CType(35, Byte), Integer))
Me.LogInLogButton2.HoverColour = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(130, Byte), Integer), CType(CType(169, Byte), Integer))
Me.LogInLogButton2.Location = New System.Drawing.Point(9, 176)
Me.LogInLogButton2.Name = "LogInLogButton2"
Me.LogInLogButton2.NormalColour = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(160, Byte), Integer), CType(CType(199, Byte), Integer))
Me.LogInLogButton2.PressedColour = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(145, Byte), Integer), CType(CType(184, Byte), Integer))
Me.LogInLogButton2.Size = New System.Drawing.Size(50, 50)
Me.LogInLogButton2.TabIndex = 6
Me.LogInLogButton2.Text = "LogInLogButton2"
'
'LogInSeperator1
'
Me.LogInSeperator1.Alignment = KeepSave.LogInSeperator.Style.Horizontal
Me.LogInSeperator1.BackColor = System.Drawing.Color.Transparent
Me.LogInSeperator1.Location = New System.Drawing.Point(-2, 106)
Me.LogInSeperator1.Name = "LogInSeperator1"
Me.LogInSeperator1.SeperatorColour = System.Drawing.Color.FromArgb(CType(CType(35, Byte), Integer), CType(CType(35, Byte), Integer), CType(CType(35, Byte), Integer))
Me.LogInSeperator1.Size = New System.Drawing.Size(378, 20)
Me.LogInSeperator1.TabIndex = 5
Me.LogInSeperator1.Text = "LogInSeperator1"
Me.LogInSeperator1.Thickness = 1.0!
'
'LogInButton3
'
Me.LogInButton3.BackColor = System.Drawing.Color.Transparent
Me.LogInButton3.BaseColour = System.Drawing.Color.FromArgb(CType(CType(42, Byte), Integer), CType(CType(42, Byte), Integer), CType(CType(42, Byte), Integer))
Me.LogInButton3.BorderColour = System.Drawing.Color.FromArgb(CType(CType(25, Byte), Integer), CType(CType(25, Byte), Integer), CType(CType(25, Byte), Integer))
Me.LogInButton3.FontColour = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
Me.LogInButton3.HoverColour = System.Drawing.Color.FromArgb(CType(CType(52, Byte), Integer), CType(CType(52, Byte), Integer), CType(CType(52, Byte), Integer))
Me.LogInButton3.Location = New System.Drawing.Point(317, 22)
Me.LogInButton3.Name = "LogInButton3"
Me.LogInButton3.PressedColour = System.Drawing.Color.FromArgb(CType(CType(47, Byte), Integer), CType(CType(47, Byte), Integer), CType(CType(47, Byte), Integer))
Me.LogInButton3.ProgressColour = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(191, Byte), Integer), CType(CType(255, Byte), Integer))
Me.LogInButton3.Size = New System.Drawing.Size(52, 29)
Me.LogInButton3.TabIndex = 3
Me.LogInButton3.Text = "..."
'
'LogInUserTextBox3
'
Me.LogInUserTextBox3.BackColor = System.Drawing.Color.Transparent
Me.LogInUserTextBox3.BackgroundColour = System.Drawing.Color.FromArgb(CType(CType(42, Byte), Integer), CType(CType(42, Byte), Integer), CType(CType(42, Byte), Integer))
Me.LogInUserTextBox3.BorderColour = System.Drawing.Color.FromArgb(CType(CType(35, Byte), Integer), CType(CType(35, Byte), Integer), CType(CType(35, Byte), Integer))
Me.LogInUserTextBox3.Location = New System.Drawing.Point(9, 22)
Me.LogInUserTextBox3.MaxLength = 32767
Me.LogInUserTextBox3.Multiline = False
Me.LogInUserTextBox3.Name = "LogInUserTextBox3"
Me.LogInUserTextBox3.ReadOnly = True
Me.LogInUserTextBox3.Size = New System.Drawing.Size(302, 29)
Me.LogInUserTextBox3.TabIndex = 2
Me.LogInUserTextBox3.TextAlign = System.Windows.Forms.HorizontalAlignment.Left
Me.LogInUserTextBox3.TextColour = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
Me.LogInUserTextBox3.UseSystemPasswordChar = False
'
'LogInLabel6
'
Me.LogInLabel6.AutoSize = True
Me.LogInLabel6.BackColor = System.Drawing.Color.Transparent
Me.LogInLabel6.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.LogInLabel6.FontColour = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
Me.LogInLabel6.ForeColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
Me.LogInLabel6.Location = New System.Drawing.Point(6, 4)
Me.LogInLabel6.Name = "LogInLabel6"
Me.LogInLabel6.Size = New System.Drawing.Size(161, 15)
Me.LogInLabel6.TabIndex = 1
Me.LogInLabel6.Text = "Please select a file to encrypt!"
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(379, 312)
Me.Controls.Add(Me.LogInThemeContainer1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "Form1"
Me.ShowIcon = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Form1"
Me.TransparencyKey = System.Drawing.Color.Fuchsia
Me.LogInThemeContainer1.ResumeLayout(False)
Me.LogInTabControl1.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.TabPage1.PerformLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage2.ResumeLayout(False)
Me.TabPage2.PerformLayout()
Me.TabPage3.ResumeLayout(False)
Me.TabPage3.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents LogInThemeContainer1 As LogInThemeContainer
Friend WithEvents LogInTabControl1 As LogInTabControl
Friend WithEvents TabPage1 As TabPage
Friend WithEvents TabPage2 As TabPage
Friend WithEvents TabPage3 As TabPage
Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents LogInLabel2 As LogInLabel
Friend WithEvents LogInLabel1 As LogInLabel
Friend WithEvents LogInButton2 As LogInButton
Friend WithEvents LogInButton1 As LogInButton
Friend WithEvents LogInUserTextBox2 As LogInUserTextBox
Friend WithEvents LogInLabel5 As LogInLabel
Friend WithEvents LogInUserTextBox1 As LogInUserTextBox
Friend WithEvents LogInLabel4 As LogInLabel
Friend WithEvents LogInLabel3 As LogInLabel
Friend WithEvents LogInComboBox1 As LogInComboBox
Friend WithEvents LogInLabel7 As LogInLabel
Friend WithEvents LogInLogButton1 As LogInLogButton
Friend WithEvents LogInLabel8 As LogInLabel
Friend WithEvents LogInButton4 As LogInButton
Friend WithEvents LogInUserTextBox4 As LogInUserTextBox
Friend WithEvents LogInLabel9 As LogInLabel
Friend WithEvents LogInLogButton2 As LogInLogButton
Friend WithEvents LogInSeperator1 As LogInSeperator
Friend WithEvents LogInButton3 As LogInButton
Friend WithEvents LogInUserTextBox3 As LogInUserTextBox
Friend WithEvents LogInLabel6 As LogInLabel
Friend WithEvents Timer1 As Timer
Friend WithEvents Timer2 As Timer
Friend WithEvents LogInButton9 As LogInButton
Friend WithEvents LogInButton6 As LogInButton
Friend WithEvents LogInButton8 As LogInButton
Friend WithEvents LogInButton7 As LogInButton
End Class
scode (KeepSave/KeepSave/Form1.resx
+6299
View File
File diff suppressed because it is too large Load Diff
scode (KeepSave/KeepSave/Form1.vb
+907
View File
@@ -0,0 +1,907 @@
Imports System.Security.Cryptography
Imports System.Text
Imports System.Text.ASCIIEncoding
Imports System.Text.RegularExpressions
Public Class Form1
Dim Key As String = "西こ比维吾き弗伊さふつまの德德ひむ艾ちゆに豆めた比つ艾か贼杰"
Dim keynum As Integer = 894813397
Public filepath As String
Public filepath2 As String
Private Sub LogInButton1_Click(sender As Object, e As EventArgs) Handles LogInButton1.Click
Try
If LogInUserTextBox1.Text = "" Then
MessageBox.Show("Please enter text to encrypt!")
LogInUserTextBox1.Text = ""
LogInUserTextBox2.Text = ""
End If
If LogInComboBox1.Text = "AES" Then
LogInUserTextBox2.Text = AES_Encrypt(LogInUserTextBox1.Text, Key)
End If
If LogInComboBox1.Text = "Atom 128" Then
End If
If LogInComboBox1.Text = "RC2" Then
LogInUserTextBox2.Text = RC2_Encrypt(LogInUserTextBox1.Text, Key)
End If
If LogInComboBox1.Text = "RSA" Then
LogInUserTextBox2.Text = RSA_Encrypt(LogInUserTextBox1.Text)
End If
If LogInComboBox1.Text = "XOR" Then
LogInUserTextBox2.Text = XOR_Encrypt(LogInUserTextBox1.Text, Key)
End If
If LogInComboBox1.Text = "DES" Then
LogInUserTextBox2.Text = DES_Encrypt(LogInUserTextBox1.Text, Key)
End If
If LogInComboBox1.Text = "TrippleDES" Then
LogInUserTextBox2.Text = TripleDES_Encrypt(LogInUserTextBox1.Text, Key)
End If
If LogInComboBox1.Text = "ROT13" Then
LogInUserTextBox2.Text = ROT13(LogInUserTextBox1.Text)
End If
If LogInComboBox1.Text = "Ceasar Shift" Then
LogInUserTextBox2.Text = EncryptCS(LogInUserTextBox1.Text, keynum)
End If
If LogInComboBox1.Text = "Rijndael" Then
LogInUserTextBox2.Text = Rijndaelcrypt(LogInUserTextBox1.Text, Key)
End If
If LogInComboBox1.Text = "ATOM 128" Then
LogInUserTextBox2.Text = Atom128_Encode(LogInUserTextBox1.Text)
End If
If LogInComboBox1.Text = "HAZZ 15" Then
LogInUserTextBox2.Text = HAZZ15_Encode(LogInUserTextBox1.Text)
End If
If LogInComboBox1.Text = "GILA 7" Then
LogInUserTextBox2.Text = GILA7_Encode(LogInUserTextBox1.Text)
End If
If LogInComboBox1.Text = "ESAB 46" Then
LogInUserTextBox2.Text = ESAB46_Encode(LogInUserTextBox1.Text)
End If
If LogInComboBox1.Text = "Megan 35" Then
LogInUserTextBox2.Text = MEGAN35_Encode(LogInUserTextBox1.Text)
End If
If LogInComboBox1.Text = "Zong 22" Then
LogInUserTextBox2.Text = ZONG22_Encode(LogInUserTextBox1.Text)
End If
If LogInComboBox1.Text = "TIGO3FX" Then
LogInUserTextBox2.Text = TIGO3FX_Encode(LogInUserTextBox1.Text)
End If
If LogInComboBox1.Text = "EnvY'S Encryption" Then
LogInUserTextBox2.Text = EnvY_Encrypt(LogInUserTextBox1.Text, Key)
End If
Catch ex As Exception
MsgBox("An error has occoured whilst encrypting your text.")
End Try
End Sub
Private Sub LogInButton2_Click(sender As Object, e As EventArgs) Handles LogInButton2.Click
Try
If LogInUserTextBox1.Text = "" Then
MessageBox.Show("Please enter text to decrypt!")
LogInUserTextBox1.Text = ""
LogInUserTextBox2.Text = ""
End If
If LogInComboBox1.Text = "AES" Then
LogInUserTextBox2.Text = AES_Decrypt(LogInUserTextBox1.Text, Key)
End If
If LogInComboBox1.Text = "RC2" Then
LogInUserTextBox2.Text = RC2_Decrypt(LogInUserTextBox1.Text, Key)
End If
If LogInComboBox1.Text = "RSA" Then
LogInUserTextBox2.Text = RSA_Decrypt(LogInUserTextBox1.Text)
End If
If LogInComboBox1.Text = "XOR" Then
LogInUserTextBox2.Text = XOR_Decrypt(LogInUserTextBox1.Text, Key)
End If
If LogInComboBox1.Text = "DES" Then
LogInUserTextBox2.Text = DES_Decrypt(LogInUserTextBox1.Text, Key)
End If
If LogInComboBox1.Text = "TrippleDES" Then
LogInUserTextBox2.Text = TripleDES_Decrypt(LogInUserTextBox1.Text, Key)
End If
If LogInComboBox1.Text = "ROT13" Then
LogInUserTextBox2.Text = ROT13(LogInUserTextBox1.Text)
End If
If LogInComboBox1.Text = "Ceasar Shift" Then
LogInUserTextBox2.Text = DecryptCS(LogInUserTextBox1.Text, keynum)
End If
If LogInComboBox1.Text = "Rijndael" Then
LogInUserTextBox2.Text = RijndaelDecrypt(LogInUserTextBox1.Text, Key)
End If
If LogInComboBox1.Text = "ATOM 128" Then
LogInUserTextBox2.Text = Atom128_Decode(LogInUserTextBox1.Text)
End If
If LogInComboBox1.Text = "HAZZ 15" Then
LogInUserTextBox2.Text = HAZZ15_Decode(LogInUserTextBox1.Text)
End If
If LogInComboBox1.Text = "GILA 7" Then
LogInUserTextBox2.Text = GILA7_Decode(LogInUserTextBox1.Text)
End If
If LogInComboBox1.Text = "ESAB 46" Then
LogInUserTextBox2.Text = ESAB46_Decode(LogInUserTextBox1.Text)
End If
If LogInComboBox1.Text = "Megan 35" Then
LogInUserTextBox2.Text = MEGAN35_Decode(LogInUserTextBox1.Text)
End If
If LogInComboBox1.Text = "Zong 22" Then
LogInUserTextBox2.Text = ZONG22_Decode(LogInUserTextBox1.Text)
End If
If LogInComboBox1.Text = "TIGO3FX" Then
LogInUserTextBox2.Text = TIGO3FX_Decode(LogInUserTextBox1.Text)
End If
If LogInComboBox1.Text = "EnvY'S Encryption" Then
LogInUserTextBox2.Text = EnvY_Decrypt(LogInUserTextBox1.Text, Key)
End If
Catch ex As Exception
MsgBox("An error has occoured whilst decrypting your text.")
End Try
End Sub
Dim ofd As New OpenFileDialog
Dim sfd As New SaveFileDialog
Dim a As String = ofd.FileName
Private Sub LogInButton3_Click(sender As Object, e As EventArgs) Handles LogInButton3.Click
If ofd.ShowDialog = DialogResult.OK Then
filepath = ofd.FileName
LogInUserTextBox3.Text = ofd.FileName
a.Split(".")
a = a
End If
End Sub
Private Sub LogInLogButton1_Click(sender As Object, e As EventArgs) Handles LogInLogButton1.Click
If LogInUserTextBox3.Text <> "" Then
LogInLabel7.Text = "Encrypting..."
Timer1.Start()
End If
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Timer1.Stop()
Dim READBYTES As Byte() = System.IO.File.ReadAllBytes(filepath)
Dim AESBYTES As Byte() = AESFile.AESFile_Encrypt(READBYTES, Key)
sfd.Filter = "exe|*.exe"
sfd.DefaultExt = a + "-" + ".exe"
If sfd.ShowDialog = DialogResult.OK Then
IO.File.WriteAllBytes(sfd.FileName, AESBYTES)
End If
LogInLabel7.Text = "Encrypted!"
End Sub
Dim ofd2 As New OpenFileDialog
Dim sfd2 As New SaveFileDialog
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
Timer2.Stop()
Dim READBYTES As Byte() = System.IO.File.ReadAllBytes(filepath2)
Dim AESBYTES As Byte() = AESFile.AESFile_Decrypt(READBYTES, Key)
If sfd2.ShowDialog = DialogResult.OK Then
IO.File.WriteAllBytes(sfd2.FileName, AESBYTES)
End If
LogInLabel8.Text = "Decrypted!"
End Sub
Private Sub LogInLogButton2_Click(sender As Object, e As EventArgs) Handles LogInLogButton2.Click
If LogInUserTextBox4.Text <> "" Then
LogInLabel8.Text = "Decrypting..."
Timer2.Start()
End If
End Sub
Private Sub LogInButton4_Click(sender As Object, e As EventArgs) Handles LogInButton4.Click
sfd2.Filter = "exe|*.exe" 'fix
sfd2.DefaultExt = ".exe" 'fix
If ofd2.ShowDialog = DialogResult.OK Then
LogInUserTextBox4.Text = System.IO.Path.GetFileName(ofd2.FileName)
filepath2 = ofd2.FileName
End If
End Sub
#Region "Methods"
#Region "AES"
Public Function AES_Encrypt(ByVal input As String, ByVal pass As String) As String
Dim AES As New System.Security.Cryptography.RijndaelManaged
Dim Hash_AES As New System.Security.Cryptography.MD5CryptoServiceProvider
Dim encrypted As String = ""
Try
Dim hash(31) As Byte
Dim temp As Byte() = Hash_AES.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(pass))
Array.Copy(temp, 0, hash, 0, 16)
Array.Copy(temp, 0, hash, 15, 16)
AES.Key = hash
AES.Mode = Security.Cryptography.CipherMode.ECB
Dim DESEncrypter As System.Security.Cryptography.ICryptoTransform = AES.CreateEncryptor
Dim Buffer As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(input)
encrypted = System.Convert.ToBase64String(DESEncrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))
Return encrypted
Catch ex As Exception
End Try
End Function
Public Function AES_Decrypt(ByVal input As String, ByVal pass As String) As String
Dim AES As New System.Security.Cryptography.RijndaelManaged
Dim Hash_AES As New System.Security.Cryptography.MD5CryptoServiceProvider
Dim decrypted As String = ""
Try
Dim hash(31) As Byte
Dim temp As Byte() = Hash_AES.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(pass))
Array.Copy(temp, 0, hash, 0, 16)
Array.Copy(temp, 0, hash, 15, 16)
AES.Key = hash
AES.Mode = Security.Cryptography.CipherMode.ECB
Dim DESDecrypter As System.Security.Cryptography.ICryptoTransform = AES.CreateDecryptor
Dim Buffer As Byte() = System.Convert.FromBase64String(input)
decrypted = System.Text.ASCIIEncoding.ASCII.GetString(DESDecrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))
Return decrypted
Catch ex As Exception
End Try
End Function
#End Region
#Region "Rc2"
Public Function RC2_Encrypt(ByVal input As String, ByVal pass As String) As String
Dim RC2 As New System.Security.Cryptography.RC2CryptoServiceProvider
Dim Hash_RC2 As New System.Security.Cryptography.MD5CryptoServiceProvider
Dim encrypted As String = ""
Try
Dim hash() As Byte = Hash_RC2.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(pass))
RC2.Key = hash
RC2.Mode = Security.Cryptography.CipherMode.ECB
Dim DESEncrypter As System.Security.Cryptography.ICryptoTransform = RC2.CreateEncryptor
Dim Buffer As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(input)
encrypted = System.Convert.ToBase64String(DESEncrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))
Return encrypted
Catch ex As Exception
End Try
End Function
Public Function RC2_Decrypt(ByVal input As String, ByVal pass As String) As String
Dim RC2 As New System.Security.Cryptography.RC2CryptoServiceProvider
Dim Hash_RC2 As New System.Security.Cryptography.MD5CryptoServiceProvider
Dim decrypted As String = ""
Try
Dim hash() As Byte = Hash_RC2.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(pass))
RC2.Key = hash
RC2.Mode = Security.Cryptography.CipherMode.ECB
Dim DESDecrypter As System.Security.Cryptography.ICryptoTransform = RC2.CreateDecryptor
Dim Buffer As Byte() = System.Convert.FromBase64String(input)
decrypted = System.Text.ASCIIEncoding.ASCII.GetString(DESDecrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))
Return decrypted
Catch ex As Exception
End Try
End Function
#End Region
#Region "RSA"
Public Function RSA_Encrypt(ByVal Input As String) As String
Dim cp As New Security.Cryptography.CspParameters
cp.Flags = Security.Cryptography.CspProviderFlags.UseMachineKeyStore
cp.KeyContainerName = Key
Dim RSA As New Security.Cryptography.RSACryptoServiceProvider(cp)
Dim buffer As Byte() = System.Text.Encoding.UTF8.GetBytes(Input)
Dim encrypted As Byte() = RSA.Encrypt(buffer, True)
Return System.Convert.ToBase64String(encrypted)
End Function
Public Function RSA_Decrypt(ByVal Input As String) As String
Dim cp As New Security.Cryptography.CspParameters
cp.Flags = Security.Cryptography.CspProviderFlags.UseMachineKeyStore
cp.KeyContainerName = Key
Dim RSA As New Security.Cryptography.RSACryptoServiceProvider(cp)
Dim buffer As Byte() = System.Convert.FromBase64String(Input)
Dim decrypted As Byte() = RSA.Decrypt(buffer, True)
Return System.Text.Encoding.UTF8.GetString(decrypted)
End Function
#End Region
#Region "Xor"
#Region "Normal"
Public Function XOR_Encrypt(ByVal Input As String, ByVal pass As String) As String
Dim out As New System.Text.StringBuilder
Dim u As Integer
For i As Integer = 0 To Input.Length - 1
Dim tmp As String = Hex(Asc(Input(i)) Xor Asc(pass(u)))
If tmp.Length = 1 Then tmp = "0" & tmp
out.Append(tmp)
If u = pass.Length - 1 Then u = 0 Else u = u + 1
Next
Return out.ToString
End Function
Public Function XOR_Decrypt(ByVal Input As String, ByVal pass As String) As String
Dim out As New System.Text.StringBuilder
Dim u As Integer
For i As Integer = 0 To Input.Length - 1 Step +2
Dim tmp As String = Chr(("&H" & Input.Substring(i, 2)) Xor Asc(pass(u)))
out.Append(tmp)
If u = pass.Length - 1 Then u = 0 Else u = u + 1
Next
Return out.ToString
End Function
#End Region
#End Region
#Region "DES"
Public Function DES_Encrypt(ByVal input As String, ByVal pass As String) As String
Dim DES As New System.Security.Cryptography.DESCryptoServiceProvider
Dim Hash_DES As New System.Security.Cryptography.MD5CryptoServiceProvider
Dim encrypted As String = ""
Try
Dim hash(7) As Byte
Dim temp As Byte() = Hash_DES.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(pass))
Array.Copy(temp, 0, hash, 0, 8)
DES.Key = hash
DES.Mode = Security.Cryptography.CipherMode.ECB
Dim DESEncrypter As System.Security.Cryptography.ICryptoTransform = DES.CreateEncryptor
Dim Buffer As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(input)
encrypted = System.Convert.ToBase64String(DESEncrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))
Return encrypted
Catch ex As Exception
End Try
End Function
Public Function DES_Decrypt(ByVal input As String, ByVal pass As String) As String
Dim DES As New System.Security.Cryptography.DESCryptoServiceProvider
Dim Hash_DES As New System.Security.Cryptography.MD5CryptoServiceProvider
Dim decrypted As String = ""
Try
Dim hash(7) As Byte
Dim temp As Byte() = Hash_DES.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(pass))
Array.Copy(temp, 0, hash, 0, 8)
DES.Key = hash
DES.Mode = Security.Cryptography.CipherMode.ECB
Dim DESDecrypter As System.Security.Cryptography.ICryptoTransform = DES.CreateDecryptor
Dim Buffer As Byte() = System.Convert.FromBase64String(input)
decrypted = System.Text.ASCIIEncoding.ASCII.GetString(DESDecrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))
Return decrypted
Catch ex As Exception
End Try
End Function
#End Region
#Region "Triple DES"
Public Function TripleDES_Encrypt(ByVal input As String, ByVal pass As String) As String
Dim TripleDES As New System.Security.Cryptography.TripleDESCryptoServiceProvider
Dim Hash_TripleDES As New System.Security.Cryptography.MD5CryptoServiceProvider
Dim encrypted As String = ""
Try
Dim hash(23) As Byte
Dim temp As Byte() = Hash_TripleDES.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(pass))
Array.Copy(temp, 0, hash, 0, 16)
Array.Copy(temp, 0, hash, 15, 8)
TripleDES.Key = hash
TripleDES.Mode = Security.Cryptography.CipherMode.ECB
Dim DESEncrypter As System.Security.Cryptography.ICryptoTransform = TripleDES.CreateEncryptor
Dim Buffer As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(input)
encrypted = System.Convert.ToBase64String(DESEncrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))
Return encrypted
Catch ex As Exception
End Try
End Function
Public Function TripleDES_Decrypt(ByVal input As String, ByVal pass As String) As String
Dim TripleDES As New System.Security.Cryptography.TripleDESCryptoServiceProvider
Dim Hash_TripleDES As New System.Security.Cryptography.MD5CryptoServiceProvider
Dim decrypted As String = ""
Try
Dim hash(23) As Byte
Dim temp As Byte() = Hash_TripleDES.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(pass))
Array.Copy(temp, 0, hash, 0, 16)
Array.Copy(temp, 0, hash, 15, 8)
TripleDES.Key = hash
TripleDES.Mode = Security.Cryptography.CipherMode.ECB
Dim DESDecrypter As System.Security.Cryptography.ICryptoTransform = TripleDES.CreateDecryptor
Dim Buffer As Byte() = System.Convert.FromBase64String(input)
decrypted = System.Text.ASCIIEncoding.ASCII.GetString(DESDecrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))
Return decrypted
Catch ex As Exception
End Try
End Function
#End Region
#Region "ROT13"
Public Function ROT13(ByVal input As String) As String
Dim out As New System.Text.StringBuilder
For i As Integer = 0 To input.Length - 1
out.Append(Chr(Asc(input(i)) Xor 13))
Next
Return out.ToString
End Function
#End Region
#Region "Ceaser shift"
Public Function EncryptCS(ByVal PlainText As String, ByVal Key As Integer) As String
Dim PlainChar() As Char = PlainText.ToCharArray()
Dim Ascii(PlainChar.Length) As Integer
For Count As Integer = 0 To PlainChar.Length - 1
Ascii(Count) = Asc(PlainChar(Count))
If Ascii(Count) >= 65 And Ascii(Count) <= 90 Then
Ascii(Count) = ((Ascii(Count) - 65 + Key) Mod 26) + 65
ElseIf Ascii(Count) >= 97 And Ascii(Count) <= 122 Then
Ascii(Count) = ((Ascii(Count) - 97 + Key) Mod 26) + 97
End If
PlainChar(Count) = Chr(Ascii(Count))
Next
Return PlainChar
End Function
Public Function DecryptCS(ByVal CipherText As String, ByVal Key As Integer) As String
Dim CipherChar() As Char = CipherText.ToCharArray()
Dim Ascii(CipherChar.Length) As Integer
For Count As Integer = 0 To CipherChar.Length - 1
Ascii(Count) = Asc(CipherChar(Count))
If Ascii(Count) >= 65 And Ascii(Count) <= 90 Then
Ascii(Count) = ((Ascii(Count) - 65 - (Key Mod 26) + 26)) Mod 26 + 65
ElseIf Ascii(Count) >= 97 And Ascii(Count) <= 122 Then
Ascii(Count) = (((Ascii(Count) - 97 - (Key Mod 26) + 26)) Mod 26) + 97
End If
CipherChar(Count) = Chr(Ascii(Count))
Next
Return CipherChar
End Function
#End Region
#Region "Rijndael"
Public Shared Function RijndaelDecrypt(ByVal UDecryptU As String, ByVal UKeyU As String)
Dim XoAesProviderX As New RijndaelManaged
Dim XbtCipherX() As Byte
Dim XbtSaltX() As Byte = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}
Dim XoKeyGeneratorX As New Rfc2898DeriveBytes(UKeyU, XbtSaltX)
XoAesProviderX.Key = XoKeyGeneratorX.GetBytes(XoAesProviderX.Key.Length)
XoAesProviderX.IV = XoKeyGeneratorX.GetBytes(XoAesProviderX.IV.Length)
Dim XmsX As New IO.MemoryStream
Dim XcsX As New CryptoStream(XmsX, XoAesProviderX.CreateDecryptor(),
CryptoStreamMode.Write)
Try
XbtCipherX = System.Convert.FromBase64String(UDecryptU)
XcsX.Write(XbtCipherX, 0, XbtCipherX.Length)
XcsX.Close()
UDecryptU = System.Text.Encoding.UTF8.GetString(XmsX.ToArray)
Catch
End Try
Return UDecryptU
End Function
Public Shared Function Rijndaelcrypt(ByVal File As String, ByVal Key As String)
Dim oAesProvider As New RijndaelManaged
Dim btClear() As Byte
Dim btSalt() As Byte = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}
Dim oKeyGenerator As New Rfc2898DeriveBytes(Key, btSalt)
oAesProvider.Key = oKeyGenerator.GetBytes(oAesProvider.Key.Length)
oAesProvider.IV = oKeyGenerator.GetBytes(oAesProvider.IV.Length)
Dim ms As New IO.MemoryStream
Dim cs As New CryptoStream(ms,
oAesProvider.CreateEncryptor(),
CryptoStreamMode.Write)
btClear = System.Text.Encoding.UTF8.GetBytes(File)
cs.Write(btClear, 0, btClear.Length)
cs.Close()
File = System.Convert.ToBase64String(ms.ToArray)
Return File
End Function
#End Region
#Region "Atom 128"
Public Function Atom128_Encode(ByVal input As String) As String
input = Uri.EscapeDataString(input)
Dim out As New System.Text.StringBuilder
Dim i As Integer
Dim keyatom As String = "HNO4klm6ij9n+J2hyf0gzA8uvwDEq3X1Q7ZKeFrWcVTts/MRGYbdxSo=ILaUpPBC5"
Do
Dim enc(3) As Integer
Dim chrs As Integer() = {0, 0, 0}
For b As Integer = 0 To 2
If i < input.Length Then chrs(b) = Asc(input(i))
i += 1
Next
enc(0) = chrs(0) >> 2
enc(1) = ((chrs(0) And 3) << 4) Or (chrs(1) >> 4)
enc(2) = ((chrs(1) And 15) << 2) Or (chrs(2) >> 6)
enc(3) = chrs(2) And 63
If chrs(1) = 0 Then
enc(2) = 64
enc(3) = 64
End If
If chrs(2) = 0 Then
enc(3) = 64
End If
For Each x As Integer In enc
out.Append(keyatom(x))
Next
Loop While i < input.Length
Return out.ToString
End Function
Public Function Atom128_Decode(ByVal input As String) As String
Dim out As New System.Text.StringBuilder
Dim i As Integer
Dim keyatom As String = "HNO4klm6ij9n+J2hyf0gzA8uvwDEq3X1Q7ZKeFrWcVTts/MRGYbdxSo=ILaUpPBC5"
Do
Dim enc(3) As Integer
Dim chrs() As Integer = {0, 0, 0}
For b As Integer = 0 To 3
enc(b) = keyatom.IndexOf(input(i))
i = i + 1
Next
chrs(0) = (enc(0) << 2) Or (enc(1) >> 4)
chrs(1) = (enc(1) And 15) << 4 Or (enc(2) >> 2)
chrs(2) = (enc(2) And 3) << 6 Or enc(3)
out.Append(Chr(chrs(0)))
If enc(2) <> 64 Then out.Append(Chr(chrs(1)))
If enc(3) <> 64 Then out.Append(Chr(chrs(2)))
Loop While i < input.Length
Return out.ToString
End Function
#End Region
#Region "HAZZ 15"
Public Function HAZZ15_Encode(ByVal input As String) As String
input = Uri.EscapeDataString(input)
Dim key As String = "HNO4klm6ij9n+J2hyf0gzA8uvwDEq3X1Q7ZKeFrWcVTts/MRGYbdxSo=ILaUpPBC5"
Dim out As New System.Text.StringBuilder
Dim i As Integer
Do
Dim enc(3) As Integer
Dim chrs As Integer() = {0, 0, 0}
For b As Integer = 0 To 2
If i < input.Length Then chrs(b) = Asc(input(i))
i += 1
Next
enc(0) = chrs(0) >> 2
enc(1) = ((chrs(0) And 3) << 4) Or (chrs(1) >> 4)
enc(2) = ((chrs(1) And 15) << 2) Or (chrs(2) >> 6)
enc(3) = chrs(2) And 63
If chrs(1) = 0 Then
enc(2) = 64
enc(3) = 64
End If
If chrs(2) = 0 Then
enc(3) = 64
End If
For Each x As Integer In enc
out.Append(key(x))
Next
Loop While i < input.Length
Return out.ToString
End Function
Public Function HAZZ15_Decode(ByVal input As String) As String
Dim key As String = "HNO4klm6ij9n+J2hyf0gzA8uvwDEq3X1Q7ZKeFrWcVTts/MRGYbdxSo=ILaUpPBC5"
Dim out As New System.Text.StringBuilder
Dim i As Integer
Do
Dim enc(3) As Integer
Dim chrs() As Integer = {0, 0, 0}
For b As Integer = 0 To 3
enc(b) = key.IndexOf(input(i))
i = i + 1
Next
chrs(0) = (enc(0) << 2) Or (enc(1) >> 4)
chrs(1) = (enc(1) And 15) << 4 Or (enc(2) >> 2)
chrs(2) = (enc(2) And 3) << 6 Or enc(3)
out.Append(Chr(chrs(0)))
If enc(2) <> 64 Then out.Append(Chr(chrs(1)))
If enc(3) <> 64 Then out.Append(Chr(chrs(2)))
Loop While i < input.Length
Return out.ToString
End Function
#End Region
#Region "GILA 7"
Public Function GILA7_Encode(ByVal input As String) As String
input = Uri.EscapeDataString(input)
Dim key As String = "7ZSTJK+W=cVtBCasyf0gzA8uvwDEq3XH/1RMNOILPQU4klm65YbdeFrx2hij9nopG"
Dim out As New System.Text.StringBuilder
Dim i As Integer
Do
Dim enc(3) As Integer
Dim chrs As Integer() = {0, 0, 0}
For b As Integer = 0 To 2
If i < input.Length Then chrs(b) = Asc(input(i))
i += 1
Next
enc(0) = chrs(0) >> 2
enc(1) = ((chrs(0) And 3) << 4) Or (chrs(1) >> 4)
enc(2) = ((chrs(1) And 15) << 2) Or (chrs(2) >> 6)
enc(3) = chrs(2) And 63
If chrs(1) = 0 Then
enc(2) = 64
enc(3) = 64
End If
If chrs(2) = 0 Then
enc(3) = 64
End If
For Each x As Integer In enc
out.Append(key(x))
Next
Loop While i < input.Length
Return out.ToString
End Function
Public Function GILA7_Decode(ByVal input As String) As String
Dim key As String = "7ZSTJK+W=cVtBCasyf0gzA8uvwDEq3XH/1RMNOILPQU4klm65YbdeFrx2hij9nopG"
Dim out As New System.Text.StringBuilder
Dim i As Integer
Do
Dim enc(3) As Integer
Dim chrs() As Integer = {0, 0, 0}
For b As Integer = 0 To 3
enc(b) = key.IndexOf(input(i))
i = i + 1
Next
chrs(0) = (enc(0) << 2) Or (enc(1) >> 4)
chrs(1) = (enc(1) And 15) << 4 Or (enc(2) >> 2)
chrs(2) = (enc(2) And 3) << 6 Or enc(3)
out.Append(Chr(chrs(0)))
If enc(2) <> 64 Then out.Append(Chr(chrs(1)))
If enc(3) <> 64 Then out.Append(Chr(chrs(2)))
Loop While i < input.Length
Return out.ToString
End Function
#End Region
#Region "ESAB 46"
Public Function ESAB46_Encode(ByVal input As String) As String
input = Uri.EscapeDataString(input)
Dim key As String = "ABCDqrs456tuvNOPwxyz012KLM3789=+QRSTUVWXYZabcdefghijklmnopEFGHIJ/"
Dim out As New System.Text.StringBuilder
Dim i As Integer
Do
Dim enc(3) As Integer
Dim chrs As Integer() = {0, 0, 0}
For b As Integer = 0 To 2
If i < input.Length Then chrs(b) = Asc(input(i))
i += 1
Next
enc(0) = chrs(0) >> 2
enc(1) = ((chrs(0) And 3) << 4) Or (chrs(1) >> 4)
enc(2) = ((chrs(1) And 15) << 2) Or (chrs(2) >> 6)
enc(3) = chrs(2) And 63
If chrs(1) = 0 Then
enc(2) = 64
enc(3) = 64
End If
If chrs(2) = 0 Then
enc(3) = 64
End If
For Each x As Integer In enc
out.Append(key(x))
Next
Loop While i < input.Length
Return out.ToString
End Function
Public Function ESAB46_Decode(ByVal input As String) As String
Dim key As String = "ABCDqrs456tuvNOPwxyz012KLM3789=+QRSTUVWXYZabcdefghijklmnopEFGHIJ/"
Dim out As New System.Text.StringBuilder
Dim i As Integer
Do
Dim enc(3) As Integer
Dim chrs() As Integer = {0, 0, 0}
For b As Integer = 0 To 3
enc(b) = key.IndexOf(input(i))
i = i + 1
Next
chrs(0) = (enc(0) << 2) Or (enc(1) >> 4)
chrs(1) = (enc(1) And 15) << 4 Or (enc(2) >> 2)
chrs(2) = (enc(2) And 3) << 6 Or enc(3)
out.Append(Chr(chrs(0)))
If enc(2) <> 64 Then out.Append(Chr(chrs(1)))
If enc(3) <> 64 Then out.Append(Chr(chrs(2)))
Loop While i < input.Length
Return out.ToString
End Function
#End Region
#Region "Megan 35"
Public Function MEGAN35_Encode(ByVal input As String) As String
input = Uri.EscapeDataString(input)
Dim key As String = "3GHIJKLMNOPQRSTUb=cdefghijklmnopWXYZ/12+406789VaqrstuvwxyzABCDEF5"
Dim out As New System.Text.StringBuilder
Dim i As Integer
Do
Dim enc(3) As Integer
Dim chrs As Integer() = {0, 0, 0}
For b As Integer = 0 To 2
If i < input.Length Then chrs(b) = Asc(input(i))
i += 1
Next
enc(0) = chrs(0) >> 2
enc(1) = ((chrs(0) And 3) << 4) Or (chrs(1) >> 4)
enc(2) = ((chrs(1) And 15) << 2) Or (chrs(2) >> 6)
enc(3) = chrs(2) And 63
If chrs(1) = 0 Then
enc(2) = 64
enc(3) = 64
End If
If chrs(2) = 0 Then
enc(3) = 64
End If
For Each x As Integer In enc
out.Append(key(x))
Next
Loop While i < input.Length
Return out.ToString
End Function
Public Function MEGAN35_Decode(ByVal input As String) As String
Dim key As String = "3GHIJKLMNOPQRSTUb=cdefghijklmnopWXYZ/12+406789VaqrstuvwxyzABCDEF5"
Dim out As New System.Text.StringBuilder
Dim i As Integer
Do
Dim enc(3) As Integer
Dim chrs() As Integer = {0, 0, 0}
For b As Integer = 0 To 3
enc(b) = key.IndexOf(input(i))
i = i + 1
Next
chrs(0) = (enc(0) << 2) Or (enc(1) >> 4)
chrs(1) = (enc(1) And 15) << 4 Or (enc(2) >> 2)
chrs(2) = (enc(2) And 3) << 6 Or enc(3)
out.Append(Chr(chrs(0)))
If enc(2) <> 64 Then out.Append(Chr(chrs(1)))
If enc(3) <> 64 Then out.Append(Chr(chrs(2)))
Loop While i < input.Length
Return out.ToString
End Function
#End Region
#Region "Zong 22"
Public Function ZONG22_Encode(ByVal input As String) As String
input = Uri.EscapeDataString(input)
Dim key As String = "ZKj9n+yf0wDVX1s/5YbdxSo=ILaUpPBCHg8uvNO4klm6iJGhQ7eFrWczAMEq3RTt2"
Dim out As New System.Text.StringBuilder
Dim i As Integer
Do
Dim enc(3) As Integer
Dim chrs As Integer() = {0, 0, 0}
For b As Integer = 0 To 2
If i < input.Length Then chrs(b) = Asc(input(i))
i += 1
Next
enc(0) = chrs(0) >> 2
enc(1) = ((chrs(0) And 3) << 4) Or (chrs(1) >> 4)
enc(2) = ((chrs(1) And 15) << 2) Or (chrs(2) >> 6)
enc(3) = chrs(2) And 63
If chrs(1) = 0 Then
enc(2) = 64
enc(3) = 64
End If
If chrs(2) = 0 Then
enc(3) = 64
End If
For Each x As Integer In enc
out.Append(key(x))
Next
Loop While i < input.Length
Return out.ToString
End Function
Public Function ZONG22_Decode(ByVal input As String) As String
Dim key As String = "ZKj9n+yf0wDVX1s/5YbdxSo=ILaUpPBCHg8uvNO4klm6iJGhQ7eFrWczAMEq3RTt2"
Dim out As New System.Text.StringBuilder
Dim i As Integer
Do
Dim enc(3) As Integer
Dim chrs() As Integer = {0, 0, 0}
For b As Integer = 0 To 3
enc(b) = key.IndexOf(input(i))
i = i + 1
Next
chrs(0) = (enc(0) << 2) Or (enc(1) >> 4)
chrs(1) = (enc(1) And 15) << 4 Or (enc(2) >> 2)
chrs(2) = (enc(2) And 3) << 6 Or enc(3)
out.Append(Chr(chrs(0)))
If enc(2) <> 64 Then out.Append(Chr(chrs(1)))
If enc(3) <> 64 Then out.Append(Chr(chrs(2)))
Loop While i < input.Length
Return out.ToString
End Function
#End Region
#Region "AESFILE"
Public Class AESFile
Public Shared Function AESFile_Encrypt(ByVal input As Byte(), ByVal pass As String) As Byte()
Dim AES As New System.Security.Cryptography.RijndaelManaged
Dim Hash_AES As New System.Security.Cryptography.MD5CryptoServiceProvider
Dim Encrypted As Byte()
Try
Dim hash(31) As Byte
Dim temp As Byte() = Hash_AES.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(pass))
Array.Copy(temp, 0, hash, 0, 16)
Array.Copy(temp, 0, hash, 15, 16)
AES.Key = hash
AES.Mode = Security.Cryptography.CipherMode.ECB
Dim DESEncrypter As System.Security.Cryptography.ICryptoTransform = AES.CreateEncryptor
Dim buffer As Byte() = input
Encrypted = DESEncrypter.TransformFinalBlock(buffer, 0, buffer.Length)
Return Encrypted
Catch ex As Exception
End Try
End Function
Public Shared Function AESFile_Decrypt(ByVal input As Byte(), ByVal pass As String) As Byte()
Dim AES As New System.Security.Cryptography.RijndaelManaged
Dim Hash_AES As New System.Security.Cryptography.MD5CryptoServiceProvider
Dim decrypted As Byte()
Try
Dim hash(31) As Byte
Dim temp As Byte() = Hash_AES.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(pass))
Array.Copy(temp, 0, hash, 0, 16)
Array.Copy(temp, 0, hash, 15, 16)
AES.Key = hash
AES.Mode = Security.Cryptography.CipherMode.ECB
Dim DESDecrypter As System.Security.Cryptography.ICryptoTransform = AES.CreateDecryptor
Dim Buffer As Byte() = input
decrypted = DESDecrypter.TransformFinalBlock(Buffer, 0, Buffer.Length)
Return decrypted
Catch ex As Exception
End Try
End Function
End Class
#End Region
#Region "TIGO3FX"
Public Function TIGO3FX_Encode(ByVal input As String) As String
input = Uri.EscapeDataString(input)
Dim key As String = "FrsxyzA8VtuvwDEqWZ/1+4klm67=cBCa5Ybdef0g2hij9nopMNO3GHIRSTJKLPQUX"
Dim out As New System.Text.StringBuilder
Dim i As Integer
Do
Dim enc(3) As Integer
Dim chrs As Integer() = {0, 0, 0}
For b As Integer = 0 To 2
If i < input.Length Then chrs(b) = Asc(input(i))
i += 1
Next
enc(0) = chrs(0) >> 2
enc(1) = ((chrs(0) And 3) << 4) Or (chrs(1) >> 4)
enc(2) = ((chrs(1) And 15) << 2) Or (chrs(2) >> 6)
enc(3) = chrs(2) And 63
If chrs(1) = 0 Then
enc(2) = 64
enc(3) = 64
End If
If chrs(2) = 0 Then
enc(3) = 64
End If
For Each x As Integer In enc
out.Append(key(x))
Next
Loop While i < input.Length
Return out.ToString
End Function
Public Function TIGO3FX_Decode(ByVal input As String) As String
Dim key As String = "FrsxyzA8VtuvwDEqWZ/1+4klm67=cBCa5Ybdef0g2hij9nopMNO3GHIRSTJKLPQUX"
Dim out As New System.Text.StringBuilder
Dim i As Integer
Do
Dim enc(3) As Integer
Dim chrs() As Integer = {0, 0, 0}
For b As Integer = 0 To 3
enc(b) = key.IndexOf(input(i))
i = i + 1
Next
chrs(0) = (enc(0) << 2) Or (enc(1) >> 4)
chrs(1) = (enc(1) And 15) << 4 Or (enc(2) >> 2)
chrs(2) = (enc(2) And 3) << 6 Or enc(3)
out.Append(Chr(chrs(0)))
If enc(2) <> 64 Then out.Append(Chr(chrs(1)))
If enc(3) <> 64 Then out.Append(Chr(chrs(2)))
Loop While i < input.Length
Return out.ToString
End Function
#End Region
#Region "EnvY'S Encryption"
Public Function EnvY_Encrypt(ByVal input As String, ByVal pass As String) As String
Dim out As String
input = LogInUserTextBox1.Text
out = AES_Encrypt(input, Key)
out = RC2_Encrypt(out, Key)
out = XOR_Encrypt(out, Key)
out = ESAB46_Encode(out)
Return out.ToString
End Function
Public Function EnvY_Decrypt(ByVal input As String, ByVal pass As String) As String
Dim out As String
input = LogInUserTextBox1.Text
out = ESAB46_Decode(input)
out = XOR_Decrypt(out, Key)
out = RC2_Decrypt(out, Key)
out = AES_Decrypt(out, Key)
Return out.ToString
End Function
Private Sub LogInButton6_Click(sender As Object, e As EventArgs) Handles LogInButton6.Click
My.Computer.Clipboard.SetText(LogInUserTextBox1.Text)
End Sub
Private Sub LogInButton9_Click(sender As Object, e As EventArgs) Handles LogInButton9.Click
My.Computer.Clipboard.SetText(LogInUserTextBox2.Text)
End Sub
Private Sub LogInButton7_Click(sender As Object, e As EventArgs) Handles LogInButton7.Click
LogInUserTextBox1.Text = LogInUserTextBox2.Text
End Sub
Private Sub LogInButton8_Click(sender As Object, e As EventArgs) Handles LogInButton8.Click
LogInUserTextBox2.Text = LogInUserTextBox1.Text
End Sub
#End Region
#End Region
End Class
scode (KeepSave/KeepSave/KeepSave.vbproj
+135
View File
@@ -0,0 +1,135 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="14.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProjectGuid>{0CA9B5B3-AC30-42C3-A49A-B6025EEFEA54}</ProjectGuid>
<OutputType>WinExe</OutputType>
<StartupObject>KeepSave.My.MyApplication</StartupObject>
<RootNamespace>KeepSave</RootNamespace>
<AssemblyName>KeepSave</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.5.2</TargetFrameworkVersion>
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>KeepSave.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>KeepSave.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<ItemGroup>
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.Drawing" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
<Reference Include="System.Net.Http" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Drawing" />
<Import Include="System.Diagnostics" />
<Import Include="System.Windows.Forms" />
<Import Include="System.Linq" />
<Import Include="System.Xml.Linq" />
<Import Include="System.Threading.Tasks" />
</ItemGroup>
<ItemGroup>
<Compile Include="Form1.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Form1.Designer.vb">
<DependentUpon>Form1.vb</DependentUpon>
<SubType>Form</SubType>
</Compile>
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
<Compile Include="Theme.vb">
<SubType>Component</SubType>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="Form1.resx">
<DependentUpon>Form1.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
<None Include="App.config" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\Loo.png" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild">
</Target>
<Target Name="AfterBuild">
</Target>
-->
</Project>
scode (KeepSave/KeepSave/My Project/Application.Designer.vb
Generated
+38
View File
@@ -0,0 +1,38 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
'NOTE: This file is auto-generated; do not modify it directly. To make changes,
' or if you encounter build errors in this file, go to the Project Designer
' (go to Project Properties or double-click the My Project node in
' Solution Explorer), and make changes on the Application tab.
'
Partial Friend Class MyApplication
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Public Sub New()
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
Me.IsSingleInstance = false
Me.EnableVisualStyles = true
Me.SaveMySettingsOnExit = true
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.KeepSave.Form1
End Sub
End Class
End Namespace
scode (KeepSave/KeepSave/My Project/Application.myapp
+11
View File
@@ -0,0 +1,11 @@
<?xml version="1.0" encoding="utf-8"?>
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<MySubMain>true</MySubMain>
<MainForm>Form1</MainForm>
<SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<ApplicationType>0</ApplicationType>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
</MyApplicationData>
scode (KeepSave/KeepSave/My Project/AssemblyInfo.vb
+35
View File
@@ -0,0 +1,35 @@
Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
' General Information about an assembly is controlled through the following
' set of attributes. Change these attribute values to modify the information
' associated with an assembly.
' Review the values of the assembly attributes
<Assembly: AssemblyTitle("KeepSave")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("")>
<Assembly: AssemblyProduct("KeepSave")>
<Assembly: AssemblyCopyright("Copyright © 2016")>
<Assembly: AssemblyTrademark("")>
<Assembly: ComVisible(False)>
'The following GUID is for the ID of the typelib if this project is exposed to COM
<Assembly: Guid("f9d5a655-51e0-4e15-9832-81a258ae28f1")>
' Version information for an assembly consists of the following four values:
'
' Major Version
' Minor Version
' Build Number
' Revision
'
' You can specify all the values or you can default the Build and Revision Numbers
' by using the '*' as shown below:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.0.0.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")>
scode (KeepSave/KeepSave/My Project/Resources.Designer.vb
Generated
+73
View File
@@ -0,0 +1,73 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Imports System
Namespace My.Resources
'This class was auto-generated by the StronglyTypedResourceBuilder
'class via a tool like ResGen or Visual Studio.
'To add or remove a member, edit your .ResX file then rerun ResGen
'with the /str option, or rebuild your VS project.
'''<summary>
''' A strongly-typed resource class, for looking up localized strings, etc.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary>
''' Returns the cached ResourceManager instance used by this class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("KeepSave.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' Overrides the current thread's CurrentUICulture property for all
''' resource lookups using this strongly typed resource class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set
resourceCulture = value
End Set
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property Loo() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Loo", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
End Module
End Namespace
scode (KeepSave/KeepSave/My Project/Resources.resx
+124
View File
@@ -0,0 +1,124 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="Loo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Loo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>
scode (KeepSave/KeepSave/My Project/Settings.Designer.vb
Generated
+73
View File
@@ -0,0 +1,73 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)
#Region "My.Settings Auto-Save Functionality"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
End Sub
#End If
#End Region
Public Shared ReadOnly Property [Default]() As MySettings
Get
#If _MyType = "WindowsForms" Then
If Not addedHandler Then
SyncLock addedHandlerLockObject
If Not addedHandler Then
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
addedHandler = True
End If
End SyncLock
End If
#End If
Return defaultInstance
End Get
End Property
End Class
End Namespace
Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.KeepSave.My.MySettings
Get
Return Global.KeepSave.My.MySettings.Default
End Get
End Property
End Module
End Namespace
scode (KeepSave/KeepSave/My Project/Settings.settings
+7
View File
@@ -0,0 +1,7 @@
<?xml version='1.0' encoding='utf-8'?>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
<Profiles>
<Profile Name="(Default)" />
</Profiles>
<Settings />
</SettingsFile>
scode (KeepSave/KeepSave/Resources/Loo.png
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 23 KiB

scode (KeepSave/KeepSave/Theme.vb
+5750
View File
File diff suppressed because it is too large Load Diff